35 double ,
double* f1,
double* f2,
36 double* f3,
double* g1,
double* g2,
double* g3 )
46 double F1, F2, F3, G1, G2, G3;
48 if ( parent == LAMB || parent == LAMBB ) {
52 if ( daught == LAMCP || daught == LAMCM ) {
64 double aLp2 = aLp * aLp;
65 double aLLp2 = 0.5 * ( aL2 + aLp2 );
69 double rho2 = 3. * md * md / ( 2. * k2 * aLLp2 );
72 double w = 0.5 * ( MLamB * MLamB + MLamC * MLamC - q2 ) / MLamB /
75 double I = pow( aL * aLp / aLLp2, 1.5 ) *
76 exp( -rho2 * ( w * w - 1. ) );
79 F1 =
I * ( 1.0 + ( md / aLLp2 ) * ( ( aLp2 / mq ) + ( aL2 / mQ ) ) );
80 F2 = -
I * ( ( md / mq ) * ( aLp2 / aLLp2 ) -
81 aL2 * aLp2 / ( 4. * aLLp2 * mq * mQ ) );
82 F3 = -
I * md * aL2 / ( mQ * aLLp2 );
84 G1 =
I * ( 1.0 - ( aL2 * aLp2 ) / ( 12. * aLLp2 * mq * mQ ) );
85 G2 = -
I * ( md * aLp2 / ( mq * aLLp2 ) +
86 ( aL2 * aLp2 ) / ( 12. * aLLp2 * mq * mQ ) *
87 ( 1. + 12. * md * md / aLLp2 ) );
88 G3 =
I * ( md * aL2 / ( mQ * aLLp2 ) +
89 md * md * aL2 * aLp2 / ( mq * mQ * aLLp2 * aLLp2 ) );
101 else if ( daught == LAMC1P || daught == LAMC1M ) {
111 double aL2 = aL * aL;
112 double aLp2 = aLp * aLp;
113 double aLLp2 = 0.5 * ( aL2 + aLp2 );
117 double rho2 = 3. * md * md / ( 2. * k2 * aLLp2 );
120 double w = 0.5 * ( MLamB * MLamB + MLamC * MLamC - q2 ) / MLamB /
123 double I = pow( aL * aLp / aLLp2, 2.5 ) *
124 exp( -rho2 * ( w * w - 1. ) );
127 F1 =
I * aL / 6.0 * ( 3.0 / mq - 1.0 / mQ );
128 F2 = -
I * ( 2.0 * md / aL - aL / ( 2.0 * mq ) +
129 2. * md * md * aL / ( mQ * aLLp2 ) -
130 ( md * aL / ( 6. * mq * mQ * aLLp2 ) ) *
131 ( 3. * aL2 - 2. * aLp2 ) );
132 F3 =
I * 2. * md * md * aL / ( mQ * aLLp2 );
134 G1 =
I * ( 2.0 * md / aL - aL / ( 6. * mQ ) +
135 ( md * aL / ( 6. * mq * mQ * aLLp2 ) ) *
136 ( 3. * aL2 - 2. * aLp2 ) );
137 G2 =
I * ( -2. * md / aL + aL / ( 2. * mq ) + aL / ( 3. * mQ ) );
138 G3 =
I * aL / ( 3. * mQ ) *
139 ( 1.0 - ( md / ( 2. * mq * aLLp2 ) ) * ( 3. * aL2 - 2. * aLp2 ) );
164 double ,
double* f1,
double* f2,
165 double* f3,
double* f4,
double* g1,
166 double* g2,
double* g3,
double* g4 )
174 double F1, F2, F3, F4, G1, G2, G3, G4;
176 if ( parent == LAMB || parent == LAMBB ) {
180 if ( daught == LAMC2P || daught == LAMC2M ) {
190 double aL2 = aL * aL;
191 double aLp2 = aLp * aLp;
192 double aLLp2 = 0.5 * ( aL2 + aLp2 );
196 double rho2 = 3. * md * md / ( 2. * k2 * aLLp2 );
199 double w = 0.5 * ( MLamB * MLamB + MLamC * MLamC - q2 ) / MLamB /
202 double I = -( 1. / sqrt( 3. ) ) * pow( aL * aLp / aLLp2, 2.5 ) *
203 exp( -rho2 * ( w * w - 1. ) );
206 F1 =
I * 3.0 * md / aL *
207 ( 1.0 + ( md / aLLp2 ) * ( ( aLp2 / mq ) + ( aL2 / mQ ) ) );
208 F2 = -
I * ( ( 3. * md * md / mq ) * ( aLp2 / ( aLLp2 * aL2 ) ) -
209 5. * aL * aLp2 * md / ( 4. * aLLp2 * mq * mQ ) );
210 F3 = -
I * ( 3. * md * md * aL / ( mQ * aLLp2 ) + aL / ( 2. * mQ ) );
213 G1 =
I * ( 3.0 * md / aL -
214 ( aL / ( 2. * mQ ) ) *
215 ( 1. + 3. * md * aLp2 / ( 2. * aLLp2 * mq ) ) );
216 G2 = -
I * ( ( 3. * md * md / mq ) * ( aLp2 / ( aLLp2 * aL ) ) +
217 aL * aLp2 * md / ( 4. * aLLp2 * aLLp2 * mq * mQ ) *
218 ( aLLp2 + 12. * md * md ) );
219 G3 =
I * aL / ( mQ * aLLp2 ) *
220 ( aLLp2 / 2. + 3. * md * md +
221 aLp2 * md / ( mq * aLLp2 ) * ( aLLp2 + 6. * md * md ) );
222 G4 = -
I * ( aL / mQ + md / ( mq * mQ ) * aLp2 * aL / aLLp2 );
void gettensorff(EvtId parent, EvtId daught, double t, double mass, double *hf, double *kf, double *bpf, double *bmf) override
void getvectorff(EvtId parent, EvtId daught, double t, double mass, double *a1f, double *a2f, double *vf, double *a0f) override
void getdiracff(EvtId parent, EvtId daught, double q2, double mass, double *f1, double *f2, double *f3, double *g1, double *g2, double *g3) override
void getbaryonff(EvtId, EvtId, double, double, double *, double *, double *, double *) override
void getraritaff(EvtId parent, EvtId daught, double q2, double mass, double *f1, double *f2, double *f3, double *f4, double *g1, double *g2, double *g3, double *g4) override