daily pastebin goal
75%
SHARE
TWEET

Untitled

a guest Sep 14th, 2018 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. FUN1[X_?NumericQ] := Parallelize[Sum[(-1)^(K2 - M1 - M2) I^(P1 + P2)
  2.    (2 P1 + 1) (2 P2 + 1)Sqrt[((2 L1 + 1) (2 L2 + 1))/((2 Λ1 +1) (2 Λ2 + 1))]
  3.    SphericalBesselJ[P1, -M1*140*X] SphericalBesselJ[P2, -M2*140*X]
  4.    SphericalHarmonicY[L1, -M1, Pi/2, 0] SphericalHarmonicY[L2, -M2, Pi/2, 0]
  5.    ClebschGordan[{70, 70}, {L1, 0}, {70, 70}]
  6.    ClebschGordan[{70, 70}, {L2, 0}, {70, 70}]
  7.    ClebschGordan[{P1, 0}, {L1, 0}, {Λ1, 0}]
  8.    ClebschGordan[{P2, 0}, {L2, 0}, {Λ2, 0}]
  9.    ClebschGordan[{P1, 0}, {L1, M1}, {Λ1, K1}]
  10.    ClebschGordan[{P2, 0}, {L2, M2}, {Λ2,  K2}]
  11.    KroneckerDelta[Λ1, Λ2] KroneckerDelta[-K1, K2],
  12.  {L1, 0, 140}, {M1, -L1, L1}, {P1, 0, 280}, {Λ1, Abs[P1 - L1], P1 + L1},
  13.   {K1, -Λ1, Λ1}, {L2, 0,  140}, {M2, -L2, L2}, {P2, 0, 280},
  14.   {Λ2, Abs[P2 - L2], P2 + L2}, {K2, -Λ2, Λ2}]]
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