Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- eigenstate[J_, M1_, M2_] := Sum[ClebschGordan[{J, M1}, {J, M2}, {j, M1 + M2}]
- SphericalHarmonicY[j, M1 + M2, [Theta], [Phi]], {j, 0, 2 J}]
- SphericalPlot3D[Abs[eigenstate[1, 1, -1]]^2, {[Theta], 0, [Pi]}, {[Phi], 0, 2 [Pi]},
- PlotRange -> {{-0.25, 0.25}, {-0.25, 0.25}, {-0.7, 0.7}}]
Add Comment
Please, Sign In to add comment
