73 {
74
76
79
85
86
88 double theta =angles.getHelAng(1);
89 double phi =angles.getHelAng(2);
90 double gamma =0;
92 double A02=sqrt((1+
alpha)/2);
93 double A00=sqrt((1-
alpha)/4);
94 double A12=-A02,A11=-A00;
95 int j1,j2,j3;
96 for(j1=0;j1<=2;){
97 for(j2=0;j2<=1;){
98 for(j3=0;j3<=2;){
99 vertex(j1,j2,j3,0.0);j3++;}
100j2++;}
101j1++;}
102
103 vertex(0,1,2,
Djmn(1, 1,-1,phi,theta,gamma)*A12);
104 vertex(0,1,1,
Djmn(1, 1, 0,phi,theta,gamma)*A11);
105 vertex(0,0,2,
Djmn(1, 1, 1,phi,theta,gamma)*A02);
106 vertex(0,0,0,
Djmn(1, 1, 0,phi,theta,gamma)*A00);
107
108 vertex(1,1,2,
Djmn(1,-1,-1,phi,theta,gamma)*A12);
109 vertex(1,1,1,
Djmn(1,-1, 0,phi,theta,gamma)*A11);
110 vertex(1,0,2,
Djmn(1,-1, 1,phi,theta,gamma)*A02);
111 vertex(1,0,0,
Djmn(1,-1, 0,phi,theta,gamma)*A00);
112
113 vertex(2,1,2,
Djmn(1, 0,-1,phi,theta,gamma)*A12);
114 vertex(2,1,1,
Djmn(1, 0, 0,phi,theta,gamma)*A11);
115 vertex(2,0,2,
Djmn(1, 0, 1,phi,theta,gamma)*A02);
116 vertex(2,0,0,
Djmn(1, 0, 0,phi,theta,gamma)*A00);
117
118
119 return ;
120
121}
EvtComplex Djmn(int j, int m, int n, double phi, double theta, double gamma)
**********Class see also m_nmax DOUBLE PRECISION m_amel DOUBLE PRECISION m_x2 DOUBLE PRECISION m_alfinv DOUBLE PRECISION m_Xenph INTEGER m_KeyWtm INTEGER m_idyfs DOUBLE PRECISION m_zini DOUBLE PRECISION m_q2 DOUBLE PRECISION m_Wt_KF DOUBLE PRECISION m_WtCut INTEGER m_KFfin *COMMON c_KarLud $ !Input CMS energy[GeV] $ !CMS energy after beam spread beam strahlung[GeV] $ !Beam energy spread[GeV] $ !z boost due to beam spread $ !electron beam mass *ff pair spectrum $ !minimum v
void vertex(const EvtComplex &)
const EvtVector4R & getP4() const
EvtParticle * getDaug(int i)
double initializePhaseSpace(int numdaughter, EvtId *daughters, double poleSize=-1., int whichTwo1=0, int whichTwo2=1)