30 double& fp,
double& f0,
double& ft ) {
35 double shat =
t / ( m * m );
36 double shat2 = shat * shat;
37 double shat3 = shat2 * shat;
39 fp = 0.278 *
exp( 1.568 * shat + 0.470 * shat2 + 0.885 * shat3 );
40 f0 = 0.278 *
exp( 0.740 * shat + 0.080 * shat2 + 0.425 * shat3 );
41 ft = 0.300 *
exp( 1.600 * shat + 0.501 * shat2 + 0.796 * shat3 );
45 double& a1,
double& a2,
double&
a0,
double&
v,
double& t1,
46 double& t2,
double& t3 ) {
51 double shat =
t / ( m * m );
52 double shat2 = shat * shat;
55 a1 = 0.294 *
exp( 0.656 * shat + 0.456 * shat2 );
56 a2 = 0.246 *
exp( 1.237 * shat + 0.822 * shat2 );
57 a0 = 0.412 *
exp( 1.543 * shat + 0.954 * shat2 );
58 v = 0.399 *
exp( 1.537 * shat + 1.123 * shat2 );
60 t1 = 0.334 *
exp( 1.575 * shat + 1.140 * shat2 );
61 t2 = 0.334 *
exp( 0.562 * shat + 0.481 * shat2 );
62 t3 = 0.234 *
exp( 1.230 * shat + 1.089 * shat2 );
character *LEPTONflag integer iresonances real zeta5 real a0
EvtComplex exp(const EvtComplex &c)
**********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
static double getMeanMass(EvtId i)
void getVectorFF(EvtId parent, EvtId daught, double t, double mass, double &a1, double &a2, double &a0, double &v, double &t1, double &t2, double &t3)
void getScalarFF(EvtId parent, EvtId daught, double t, double mass, double &fp, double &f0, double &ft)