Kern- und Teilchenphysik - Blatt 11

<< Graphics`Graphics`

1.Aufgabe

gl = 1; gs = 5.58; gln = 0; gsn = -3.82;

(gl + gs)/2

(gln + gsn)/2

DisplayTogether[
        Plot[gl j + (gs - gl)/(2  j) j, {j, 1/2, 13/2}, 
          PlotStyle -> Hue[0.7]], 
        Plot[gl j - (gs - gl)/(2  j + 2) j, {j, 1/2, 13/2}, 
          PlotStyle -> Hue[0.7]], 
        Plot[gln j + (gsn - gln)/(2  j) j, {j, 1/2, 13/2}, 
          PlotStyle -> Hue[1]], 
        Plot[gln j - (gsn - gln)/(2  j + 2) j, {j, 1/2, 13/2}, 
          PlotStyle -> Hue[1]], 
        AxesLabel -> {"j", "μ(j)"}, 
        ImageSize -> 550];

3.Aufgabe

Integrate[Sin[x] Cos[x]^2, {x, 0, π}]

Integrate[Sin[x]^3, {x, 0, π}]