Geant4 Simulations for the Radon Electric Dipole Moment Search at
Geant4 Simulations for the Radon Electric Dipole Moment Search at
Geant4 Simulations for the Radon Electric Dipole Moment Search at
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
1 % RacahW.m<br />
2 function out = RacahW(a,b,c,d,e,f)<br />
3 out = ((−1)ˆ(a+b+d+c))*Wigner6j(a,b,e,d,c,f);<br />
1 % Rho.m<br />
2 function out = Rho(k,ji,pops)<br />
3 sum = 0;<br />
4 J = abs(ji);<br />
5 <strong>for</strong> mi=−J:1:J<br />
6 mdex = mi+J;<br />
7 M = mi;<br />
8 pop = pops(mdex+1);<br />
9 sum = sum + ((−1)ˆ(J−M))*ClebschGordan(J,M,J,−1*M,k,0)*pop;<br />
10 end<br />
11 out =((2*J+1)ˆ(1/2))*sum;<br />
1 % Wigner3j.m<br />
2 function out = Wigner3j(j1,j2,j3,m1,m2,m3)<br />
3 % error checking //////////<br />
4 if ( 2*j1 ≠ floor(2*j1) || 2*j2 ≠ floor(2*j2) || 2*j3 ≠ ...<br />
floor(2*j3)...<br />
5 || 2*m1 ≠ floor(2*m1) || 2*m2 ≠ floor(2*m2)...<br />
6 || 2*m3 ≠ floor(2*m3) )<br />
7 error('All arguments must be integers or half−integers.');<br />
8 return;<br />
9 end<br />
10 if m1 + m2 + m3 ≠ 0<br />
96