summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--dipole_elementRb87D1line.m96
1 files changed, 48 insertions, 48 deletions
diff --git a/dipole_elementRb87D1line.m b/dipole_elementRb87D1line.m
index 9235274..385ede9 100644
--- a/dipole_elementRb87D1line.m
+++ b/dipole_elementRb87D1line.m
@@ -8,165 +8,165 @@ function d=dipole_elementRb87D1line(Fl,ml,Fu,mu)
if ( mu==(ml+1) )
% sigma plus polarization
% ------ Fl=2 -> Fu=2 --------
- if ( (ml==-2) & (Fl==2) & (Fu==2) )
+ if ( (ml==-2) && (Fl==2) && (Fu==2) )
d.right=sqrt(1/6);
endif
- if ( (ml==-1) & (Fl==2) & (Fu==2) )
+ if ( (ml==-1) && (Fl==2) && (Fu==2) )
d.right=sqrt(1/4);
endif
- if ( (ml== 0) & (Fl==2) & (Fu==2) )
+ if ( (ml== 0) && (Fl==2) && (Fu==2) )
d.right=sqrt(1/4);
endif
- if ( (ml== 1) & (Fl==2) & (Fu==2) )
+ if ( (ml== 1) && (Fl==2) && (Fu==2) )
d.right=sqrt(1/6);
endif
- if ( (ml== 2) & (Fl==2) & (Fu==2) )
+ if ( (ml== 2) && (Fl==2) && (Fu==2) )
d.right=0;
endif
% ------ Fl=2 -> Fu=1 --------
- if ( (ml==-2) & (Fl==2) & (Fu==1) )
+ if ( (ml==-2) && (Fl==2) && (Fu==1) )
d.right=sqrt(1/2);
endif
- if ( (ml==-1) & (Fl==2) & (Fu==1) )
+ if ( (ml==-1) && (Fl==2) && (Fu==1) )
d.right=sqrt(1/4);
endif
- if ( (ml== 0) & (Fl==2) & (Fu==1) )
+ if ( (ml== 0) && (Fl==2) && (Fu==1) )
d.right=sqrt(1/12);
endif
- if ( (ml== 1) & (Fl==2) & (Fu==1) )
+ if ( (ml== 1) && (Fl==2) && (Fu==1) )
d.right=0;
endif
- if ( (ml== 2) & (Fl==2) & (Fu==1) )
+ if ( (ml== 2) && (Fl==2) && (Fu==1) )
d.right=0;
endif
% ------ Fl=1 -> Fu=2 --------
- if ( (ml==-1) & (Fl==1) & (Fu==2) )
+ if ( (ml==-1) && (Fl==1) && (Fu==2) )
d.right = -sqrt(1/12);
endif
- if ( (ml== 0) & (Fl==1) & (Fu==2) )
+ if ( (ml== 0) && (Fl==1) && (Fu==2) )
d.right = -sqrt(1/4);
endif
- if ( (ml== 1) & (Fl==1) & (Fu==2) )
+ if ( (ml== 1) && (Fl==1) && (Fu==2) )
d.right = -sqrt(1/2);
endif
% ------ Fl=1 -> Fu=1 --------
- if ( (ml==-1) & (Fl==1) & (Fu==1) )
+ if ( (ml==-1) && (Fl==1) && (Fu==1) )
d.right = -sqrt(1/12);
endif
- if ( (ml== 0) & (Fl==1) & (Fu==1) )
+ if ( (ml== 0) && (Fl==1) && (Fu==1) )
d.right = -sqrt(1/12);
endif
- if ( (ml== 1) & (Fl==1) & (Fu==1) )
+ if ( (ml== 1) && (Fl==1) && (Fu==1) )
d.right = 0;
endif
endif
if ( mu==(ml+0) )
% pi polarization
% ------ Fl=2 -> Fu=2 --------
- if ( (ml==-2) & (Fl==2) & (Fu==2) )
+ if ( (ml==-2) && (Fl==2) && (Fu==2) )
d.linear=-sqrt(1/3);
endif
- if ( (ml==-1) & (Fl==2) & (Fu==2) )
+ if ( (ml==-1) && (Fl==2) && (Fu==2) )
d.linear=-sqrt(1/12);
endif
- if ( (ml== 0) & (Fl==2) & (Fu==2) )
+ if ( (ml== 0) && (Fl==2) && (Fu==2) )
d.linear=0;
endif
- if ( (ml== 1) & (Fl==2) & (Fu==2) )
+ if ( (ml== 1) && (Fl==2) && (Fu==2) )
d.linear=sqrt(1/12);
endif
- if ( (ml== 2) & (Fl==2) & (Fu==2) )
+ if ( (ml== 2) && (Fl==2) && (Fu==2) )
d.linear=sqrt(1/3);
endif
% ------ Fl=2 -> Fu=1 --------
- if ( (ml==-2) & (Fl==2) & (Fu==1) )
+ if ( (ml==-2) && (Fl==2) && (Fu==1) )
d.linear = 0;
endif
- if ( (ml==-1) & (Fl==2) & (Fu==1) )
+ if ( (ml==-1) && (Fl==2) && (Fu==1) )
d.linear=sqrt(1/4);
endif
- if ( (ml== 0) & (Fl==2) & (Fu==1) )
+ if ( (ml== 0) && (Fl==2) && (Fu==1) )
d.linear=sqrt(1/3);
endif
- if ( (ml== 1) & (Fl==2) & (Fu==1) )
+ if ( (ml== 1) && (Fl==2) && (Fu==1) )
d.linear=sqrt(1/4);
endif
- if ( (ml== 2) & (Fl==2) & (Fu==1) )
+ if ( (ml== 2) && (Fl==2) && (Fu==1) )
d.linear = 0;
endif
% ------ Fl=1 -> Fu=2 --------
- if ( (ml==-1) & (Fl==1) & (Fu==2) )
+ if ( (ml==-1) && (Fl==1) && (Fu==2) )
d.linear = sqrt(1/4);
endif
- if ( (ml== 0) & (Fl==1) & (Fu==2) )
+ if ( (ml== 0) && (Fl==1) && (Fu==2) )
d.linear = sqrt(1/2);
endif
- if ( (ml== 1) & (Fl==1) & (Fu==2) )
+ if ( (ml== 1) && (Fl==1) && (Fu==2) )
d.linear = sqrt(1/4);
endif
% ------ Fl=1 -> Fu=1 --------
- if ( (ml==-1) & (Fl==1) & (Fu==1) )
+ if ( (ml==-1) && (Fl==1) && (Fu==1) )
d.linear = sqrt(1/12);
endif
- if ( (ml== 0) & (Fl==1) & (Fu==1) )
+ if ( (ml== 0) && (Fl==1) && (Fu==1) )
d.linear = 0;
endif
- if ( (ml== 1) & (Fl==1) & (Fu==1) )
+ if ( (ml== 1) && (Fl==1) && (Fu==1) )
d.linear = -sqrt(1/12);
endif
endif
if ( mu==(ml-1) )
% sigma minus polarization
% ------ Fl=2 -> Fu=2 --------
- if ( (ml==-2) & (Fl==2) & (Fu==2) )
+ if ( (ml==-2) && (Fl==2) && (Fu==2) )
d.left = 0;
endif
- if ( (ml==-1) & (Fl==2) & (Fu==2) )
+ if ( (ml==-1) && (Fl==2) && (Fu==2) )
d.left = -sqrt(1/6);
endif
- if ( (ml== 0) & (Fl==2) & (Fu==2) )
+ if ( (ml== 0) && (Fl==2) && (Fu==2) )
d.left = -sqrt(1/4);
endif
- if ( (ml== 1) & (Fl==2) & (Fu==2) )
+ if ( (ml== 1) && (Fl==2) && (Fu==2) )
d.left = -sqrt(1/4);
endif
- if ( (ml== 2) & (Fl==2) & (Fu==2) )
+ if ( (ml== 2) && (Fl==2) && (Fu==2) )
d.left = -sqrt(1/6);
endif
% ------ Fl=2 -> Fu=1 --------
- if ( (ml==-2) & (Fl==2) & (Fu==1) )
+ if ( (ml==-2) && (Fl==2) && (Fu==1) )
d.left = 0;
endif
- if ( (ml==-1) & (Fl==2) & (Fu==1) )
+ if ( (ml==-1) && (Fl==2) && (Fu==1) )
d.left = 0;
endif
- if ( (ml== 0) & (Fl==2) & (Fu==1) )
+ if ( (ml== 0) && (Fl==2) && (Fu==1) )
d.left = sqrt(1/12);
endif
- if ( (ml== 1) & (Fl==2) & (Fu==1) )
+ if ( (ml== 1) && (Fl==2) && (Fu==1) )
d.left = sqrt(1/4);
endif
- if ( (ml== 2) & (Fl==2) & (Fu==1) )
+ if ( (ml== 2) && (Fl==2) && (Fu==1) )
d.left = sqrt(1/2);
endif
% ------ Fl=1 -> Fu=2 --------
- if ( (ml==-1) & (Fl==1) & (Fu==2) )
+ if ( (ml==-1) && (Fl==1) && (Fu==2) )
d.left = -sqrt(1/2);
endif
- if ( (ml== 0) & (Fl==1) & (Fu==2) )
+ if ( (ml== 0) && (Fl==1) && (Fu==2) )
d.left = -sqrt(1/4);
endif
- if ( (ml== 1) & (Fl==1) & (Fu==2) )
+ if ( (ml== 1) && (Fl==1) && (Fu==2) )
d.left = -sqrt(1/12);
endif
% ------ Fl=1 -> Fu=1 --------
- if ( (ml==-1) & (Fl==1) & (Fu==1) )
+ if ( (ml==-1) && (Fl==1) && (Fu==1) )
d.left = 0;
endif
- if ( (ml== 0) & (Fl==1) & (Fu==1) )
+ if ( (ml== 0) && (Fl==1) && (Fu==1) )
d.left = sqrt(1/12);
endif
- if ( (ml== 1) & (Fl==1) & (Fu==1) )
+ if ( (ml== 1) && (Fl==1) && (Fu==1) )
d.left = sqrt(1/12);
endif
endif
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-16 07:51:48 +0000