addition of three angular momenta
- To: mathgroup at smc.vnet.net
- Subject: [mg47735] addition of three angular momenta
- From: "Francesco Siano" <fsiano at thphy.uni-duesseldorf.de>
- Date: Sat, 24 Apr 2004 04:15:33 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I am trying to use ClebschGordan[...] to generate the table of
coefficients for the addition of three or more angular momenta.
For the addition of two angular momenta J=J1+J2 I can do
Table[ClebschGordan[{J1, m1}, {J2, m2}, {J, m}], {J, J1 + J2, Abs[J1 -
J2], -1}, {m, J, -J, -1}, {m1, J1, -J1, -1}, {m2, J2, -J2, -1}]
For more than two angular momenta, J=J1+J2+J3 I should first add J1 and
J2, and then, for any Jtemp=J1+J2,J1+J2-1,...,Abs[J1-J2] add Jtemp and J3
and so on.
Any help would be greatly appreciated.
-Francesco