• API
• FAQ
• Tools
• Archive
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.

Top