11.01.2015 Views

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

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!