daily pastebin goal
54%
SHARE
TWEET

Untitled

a guest Dec 13th, 2018 48 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. eigenstate[J_, M1_, M2_] := Sum[ClebschGordan[{J, M1}, {J, M2}, {j, M1 + M2}]
  2.     SphericalHarmonicY[j, M1 + M2, [Theta], [Phi]], {j, 0, 2 J}]
  3.    
  4. SphericalPlot3D[Abs[eigenstate[1, 1, -1]]^2, {[Theta], 0, [Pi]}, {[Phi], 0, 2 [Pi]},
  5.     PlotRange -> {{-0.25, 0.25}, {-0.25, 0.25}, {-0.7, 0.7}}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top