Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Problems integrating BesselJ
  • Next by Date: Re: Problem with NIntegrte
  • Previous by thread: Re: bug in IntegerPart ?
  • Next by thread: Re: addition of three angular momenta