55 {
56
57loop:
60 EvtVector4R pv, ps, ppr;
61
67
68 double alpha = 21. / 73.;
69
70
71 EvtHelSys angles( ps, pv );
72 double theta = angles.getHelAng( 1 );
73 double phi = angles.getHelAng( 2 );
74 double gamma = 0;
75 double F0 = 1.;
76 double F1 = sqrt( 3. ) * F0;
77 double F2 = sqrt( 6. ) * F0;
78
79 int j1, j2, j3;
80 for ( j1 = 0; j1 <= 4; )
81 {
82 for ( j2 = 0; j2 <= 1; )
83 {
84 for ( j3 = 0; j3 <= 2; )
85 {
87 j3++;
88 }
89 j2++;
90 }
91 j1++;
92 }
93
94 vertex( 0, 0, 0,
Djmn( 1, 1, 1, phi, theta, gamma ) * F0 );
95 vertex( 0, 0, 1,
Djmn( 1, -1, 1, phi, theta, gamma ) * F0 );
96 vertex( 0, 0, 2,
Djmn( 1, 0, 1, phi, theta, gamma ) * F0 );
97 vertex( 0, 1, 0,
Djmn( 1, 1, -1, phi, theta, gamma ) * F0 );
98 vertex( 0, 1, 1,
Djmn( 1, -1, -1, phi, theta, gamma ) * F0 );
99 vertex( 0, 1, 2,
Djmn( 1, 0, -1, phi, theta, gamma ) * F0 );
100
101 vertex( 1, 0, 0,
Djmn( 1, 1, -1, phi, theta, gamma ) * F2 );
102 vertex( 1, 0, 1,
Djmn( 1, -1, -1, phi, theta, gamma ) * F2 );
103 vertex( 1, 0, 2,
Djmn( 1, 0, -1, phi, theta, gamma ) * F2 );
104
105 vertex( 2, 1, 0,
Djmn( 1, 1, 1, phi, theta, gamma ) * F2 );
106 vertex( 2, 1, 1,
Djmn( 1, -1, 1, phi, theta, gamma ) * F2 );
107 vertex( 2, 1, 2,
Djmn( 1, 0, 1, phi, theta, gamma ) * F2 );
108
109 vertex( 3, 0, 0,
Djmn( 1, 1, 0, phi, theta, gamma ) * F1 );
110 vertex( 3, 0, 1,
Djmn( 1, -1, 0, phi, theta, gamma ) * F1 );
111 vertex( 3, 0, 2,
Djmn( 1, 0, 0, phi, theta, gamma ) * F1 );
112
113 vertex( 4, 1, 0,
Djmn( 1, 1, 0, phi, theta, gamma ) * F1 );
114 vertex( 4, 1, 1,
Djmn( 1, -1, 0, phi, theta, gamma ) * F1 );
115 vertex( 4, 1, 2,
Djmn( 1, 0, 0, phi, theta, gamma ) * F1 );
116
117 return;
118}
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)