69 width0_omega = 0.00849;
85 Pi = atan2( 0.0, -1.0 );
87 root2d3 = sqrt( 2. / 3 );
88 root1d2 = sqrt( 0.5 );
89 root3d2 = sqrt( 1.5 );
131 if ( pid == -211 ) charm = 1;
133 double m2, q2, cosV, cosL, chi;
134 KinVGen( pi1,
pi2, e, nu, charm,
m2, q2, cosV, cosL, chi );
135 double prob = calPDF(
m2, q2, cosV, cosL, chi );
142 double& cosV,
double& cosL,
double& chi ) {
149 boost.
set( vp4_KPi.
get( 0 ), -vp4_KPi.
get( 1 ), -vp4_KPi.
get( 2 ), -vp4_KPi.
get( 3 ) );
151 cosV = vp4_Kp.
dot( vp4_KPi ) / ( vp4_Kp.
d3mag() * vp4_KPi.
d3mag() );
153 boost.
set( vp4_W.
get( 0 ), -vp4_W.
get( 1 ), -vp4_W.
get( 2 ), -vp4_W.
get( 3 ) );
155 cosL = vp4_Lepp.
dot( vp4_W ) / ( vp4_Lepp.
d3mag() * vp4_W.
d3mag() );
162 double sinx =
C.cross( V ).dot( D );
163 double cosx =
C.dot( D );
164 chi = sinx > 0 ? acos( cosx ) : -acos( cosx );
165 if ( charm == -1 ) chi = -chi;
168double EvtD0Topipienu::calPDF(
double m2,
double q2,
double cosV,
double cosL,
double chi ) {
169 double m = sqrt(
m2 );
170 double q = sqrt( q2 );
173 EvtComplex F10( 0.0, 0.0 );
174 EvtComplex F11( 0.0, 0.0 );
175 EvtComplex F21( 0.0, 0.0 );
176 EvtComplex F31( 0.0, 0.0 );
177 EvtComplex F12( 0.0, 0.0 );
178 EvtComplex F22( 0.0, 0.0 );
179 EvtComplex F32( 0.0, 0.0 );
181 EvtComplex f10( 0.0, 0.0 );
182 EvtComplex f11( 0.0, 0.0 );
183 EvtComplex f21( 0.0, 0.0 );
184 EvtComplex f31( 0.0, 0.0 );
186 EvtComplex coef( 0.0, 0.0 );
188 for (
int index = first; index < last; index++ )
190 switch ( type[index] )
194 ResonanceGS( m,
q, D0_mD, D0_mPi1, D0_mPi2, f11, f21, f31 );
195 coef = getCoef( rho, phi );
196 F11 = F11 + coef * f11;
197 F21 = F21 + coef * f21;
198 F31 = F31 + coef * f31;
203 ResonanceGS( m,
q, Dp_mD, Dp_mPi1, Dp_mPi2, f11, f21, f31 );
204 coef = getCoef( rho, phi );
205 F11 = F11 + coef * f11;
206 F21 = F21 + coef * f21;
207 F31 = F31 + coef * f31;
212 ResonancePGScbw( m,
q, f11, f21, f31 );
213 coef = getCoef( rho_omega, phi_omega );
214 F11 = F11 + coef * f11;
215 F21 = F21 + coef * f21;
216 F31 = F31 + coef * f31;
221 ResonanceSBugg( m,
q, f10 );
222 coef = getCoef( rho_S, phi_S );
223 F10 = F10 + coef * f10;
227 std::cout <<
"No such form factor type!!!" << std::endl;
234 double I, I1, I2, I3, I4, I5, I6, I7, I8, I9;
236 double cosV2 = cosV * cosV;
237 double sinV = sqrt( 1.0 - cosV2 );
238 double sinV2 = sinV * sinV;
240 EvtComplex F1 = F10 + F11 * cosV + F12 * ( 1.5 * cosV2 - 0.5 );
241 EvtComplex F2 = F21 * root1d2 + F22 * cosV * root3d2;
242 EvtComplex F3 = F31 * root1d2 + F32 * cosV * root3d2;
244 I1 = 0.25 * (
abs2( F1 ) + 1.5 * sinV2 * (
abs2( F2 ) +
abs2( F3 ) ) );
245 I2 = -0.25 * (
abs2( F1 ) - 0.5 * sinV2 * (
abs2( F2 ) +
abs2( F3 ) ) );
246 I3 = -0.25 * (
abs2( F2 ) -
abs2( F3 ) ) * sinV2;
247 I4 =
real(
conj( F1 ) * F2 ) * sinV * 0.5;
248 I5 =
real(
conj( F1 ) * F3 ) * sinV;
249 I6 =
real(
conj( F2 ) * F3 ) * sinV2;
250 I7 =
imag(
conj( F2 ) * F1 ) * sinV;
251 I8 =
imag(
conj( F3 ) * F1 ) * sinV * 0.5;
252 I9 =
imag(
conj( F3 ) * F2 ) * sinV2 * ( -0.5 );
254 double coschi =
cos( chi );
255 double sinchi =
sin( chi );
256 double sin2chi = 2.0 * sinchi * coschi;
257 double cos2chi = 1.0 - 2.0 * sinchi * sinchi;
259 double sinL = sqrt( 1. - cosL * cosL );
260 double sinL2 = sinL * sinL;
261 double sin2L = 2.0 * sinL * cosL;
262 double cos2L = 1.0 - 2.0 * sinL2;
264 I = I1 + I2 * cos2L + I3 * sinL2 * cos2chi + I4 * sin2L * coschi + I5 * sinL * coschi +
265 I6 * cosL + I7 * sinL * sinchi + I8 * sin2L * sinchi + I9 * sinL2 * sin2chi;
269void EvtD0Topipienu::ResonanceGS(
double m,
double q,
double massD,
double massPi1,
272 double pKPi = getPStar( massD, m,
q );
273 double mD2 = massD * massD;
275 double m02 = m0 * m0;
277 double mV2 = mV * mV;
278 double mA2 = mA * mA;
279 double summDm = massD + m;
280 double V = V_0 / ( 1.0 - q2 / ( mV2 ) );
281 double A1 = A1_0 / ( 1.0 - q2 / ( mA2 ) );
282 double A2 = A2_0 / ( 1.0 - q2 / ( mA2 ) );
283 double A = summDm * A1;
284 double B = 2.0 * massD * pKPi / summDm * V;
287 double H0 = 0.5 / ( m *
q ) *
288 ( ( mD2 -
m2 - q2 ) * summDm * A1 - 4.0 * ( mD2 * pKPi * pKPi ) / summDm * A2 );
294 double pStar = getPStar( m, massPi1, massPi2 );
295 double pStar0 = getPStar( m0, massPi1, massPi2 );
296 double alpha = sqrt( 3.0 * Pi * BF / ( pStar0 * width0 ) );
299 double F = getF1( m, m0, massPi1, massPi2, rBW );
300 EvtComplex
C( m02 * ( 1.0 + width0 * getGx( m0, pStar0, massPi1, massPi2 ) / m0 ) * F, 0.0 );
301 double AA = m02 -
m2 + width0 * getFx( m02,
m2, pStar, pStar0, massPi1, massPi2 );
302 double BB = -m0 * getWidthrho( m, m0, width0, pStar, pStar0 );
303 EvtComplex tmp( AA, BB );
304 EvtComplex amp =
C / tmp;
306 double alpham2 =
alpha * 2.0;
307 F11 = amp * alpham2 *
q * H0 * root2;
308 F21 = amp * alpham2 *
q * ( Hp + Hm );
309 F31 = amp * alpham2 *
q * ( Hp - Hm );
314 double pKPi = getPStar( Dp_mD, m,
q );
315 double mD2 = Dp_mD * Dp_mD;
317 double m02 = m0_omega * m0_omega;
318 double mR2 = m0 * m0;
320 double mV2 = mV * mV;
321 double mA2 = mA * mA;
322 double summDm = Dp_mD + m;
323 double V = V_0 / ( 1.0 - q2 / ( mV2 ) );
324 double A1 = A1_0 / ( 1.0 - q2 / ( mA2 ) );
325 double A2 = A2_0 / ( 1.0 - q2 / ( mA2 ) );
326 double A = summDm * A1;
327 double B = 2.0 * Dp_mD * pKPi / summDm * V;
329 double H0 = 0.5 / ( m *
q ) *
330 ( ( mD2 -
m2 - q2 ) * summDm * A1 - 4.0 * ( mD2 * pKPi * pKPi ) / summDm * A2 );
336 double pStar = getPStar( m, Dp_mPi1, Dp_mPi2 );
337 double pStar0 = getPStar( m0_omega, Dp_mPi1, Dp_mPi2 );
338 double alpha = sqrt( 3.0 * Pi * BF_omega / ( pStar0 * width0_omega ) );
341 double F = getF1( m, m0_omega, Dp_mPi1, Dp_mPi2, rBW );
342 EvtComplex amp1( 0.0, 0.0 );
343 EvtComplex amp2( 0.0, 0.0 );
345 EvtComplex C1( m0_omega * width0_omega * F, 0.0 );
346 double AA1 = m02 -
m2;
347 double BB1 = -m0_omega * width0_omega;
348 EvtComplex tmp1( AA1, BB1 );
351 pStar0 = getPStar( m0, Dp_mPi1, Dp_mPi2 );
352 EvtComplex C2( mR2 * ( 1.0 + width0 * getGx( m0, pStar0, Dp_mPi1, Dp_mPi2 ) / m0 ), 0.0 );
353 double AA2 = mR2 -
m2 + width0 * getFx( mR2,
m2, pStar, pStar0, Dp_mPi1, Dp_mPi2 );
354 double BB2 = -m0 * getWidthrho( m, m0, width0, pStar, pStar0 );
355 EvtComplex tmp2( AA2, BB2 );
357 EvtComplex amp = amp1 * amp2;
359 double alpham2 =
alpha * 2.0;
360 F11 = amp * alpham2 *
q * H0 * root2;
361 F21 = amp * alpham2 *
q * ( Hp + Hm );
362 F31 = amp * alpham2 *
q * ( Hp - Hm );
365void EvtD0Topipienu::ResonanceSBugg(
double m,
double q,
EvtComplex& F10 ) {
366 double pKPi = getPStar( Dp_mD, m,
q );
369 double mA2 = mA * mA;
371 double sA = 0.41 * mPi * mPi;
373 double mr2 = m0_S * m0_S;
377 EvtComplex ciR( 1.0, 0.0 );
378 EvtComplex ciM( 0.0, 1.0 );
379 EvtComplex Gamma1( 0.0, 0.0 );
380 EvtComplex Gamma2( 0.0, 0.0 );
381 EvtComplex Gamma3( 0.0, 0.0 );
382 EvtComplex Gamma4( 0.0, 0.0 );
384 Gamma1 = getrho(
m2, mPi ) * getG1(
m2, mr ) * (
m2 - sA ) / ( mr2 - sA );
385 Gamma2 = getrho(
m2, mKa ) * 0.6 * getG1(
m2, mr ) * (
m2 / mr2 ) *
387 Gamma3 = getrho(
m2, mEt ) * 0.2 * getG1(
m2, mr ) * (
m2 / mr2 ) *
390 Gamma4 = ciR * mr * g4pi * ( 1.0 +
exp( 7.082 - 2.845 * mr2 ) ) /
391 ( 1.0 +
exp( 7.082 - 2.845 *
m2 ) );
393 double AA = mr2 -
m2 - getG1(
m2, mr ) * (
m2 - sA ) * getZ(
m2, mr2 ) / ( mr2 - sA );
394 EvtComplex amp = ciR / ( ciR * AA - ciM * ( Gamma1 + Gamma2 + Gamma3 + Gamma4 ) );
395 F10 = amp * pKPi * Dp_mD / ( 1.0 - q2 / mA2 );
398double EvtD0Topipienu::getPStar(
double m,
double m1,
double m2 ) {
402 double x =
s + s1 - s2;
403 double t = 0.25 *
x *
x /
s - s1;
405 if (
t > 0.0 ) { p = sqrt(
t ); }
414double EvtD0Topipienu::getF1(
double m,
double m0,
double m_c1,
double m_c2,
double rBW ) {
415 double pStar = getPStar( m, m_c1, m_c2 );
416 double pStar0 = getPStar( m0, m_c1, m_c2 );
417 double rBW2 = rBW * rBW;
418 double pStar2 = pStar * pStar;
419 double pStar02 = pStar0 * pStar0;
420 double B = 1. / sqrt( 1. + rBW2 * pStar2 );
421 double B0 = 1. / sqrt( 1. + rBW2 * pStar02 );
422 double F = pStar / pStar0 *
B / B0;
426double EvtD0Topipienu::getF2(
double m,
double m0,
double m_c1,
double m_c2,
double rBW ) {
427 double pStar = getPStar( m, m_c1, m_c2 );
428 double pStar0 = getPStar( m0, m_c1, m_c2 );
429 double rBW2 = rBW * rBW;
430 double pStar2 = pStar * pStar;
431 double pStar02 = pStar0 * pStar0;
432 double B = 1. / sqrt( ( rBW2 * pStar2 - 3. ) * ( rBW2 * pStar2 - 3. ) + 9. * rBW2 * pStar2 );
434 1. / sqrt( ( rBW2 * pStar02 - 3. ) * ( rBW2 * pStar02 - 3. ) + 9. * rBW2 * pStar02 );
435 double F = pStar2 / pStar02 *
B / B0;
439double EvtD0Topipienu::getWidth0(
double m,
double m0,
double m_c1,
double m_c2,
441 double pStar = getPStar( m, m_c1, m_c2 );
442 double pStar0 = getPStar( m0, m_c1, m_c2 );
443 double width = width0 * pStar / pStar0 * m0 / m;
447double EvtD0Topipienu::getWidth1(
double m,
double m0,
double m_c1,
double m_c2,
double width0,
449 double pStar = getPStar( m, m_c1, m_c2 );
450 double pStar0 = getPStar( m0, m_c1, m_c2 );
451 double F = getF1( m, m0, m_c1, m_c2, rBW );
452 double width = width0 * pStar / pStar0 * m0 / m * F * F;
456double EvtD0Topipienu::getWidth2(
double m,
double m0,
double m_c1,
double m_c2,
double width0,
458 double pStar = getPStar( m, m_c1, m_c2 );
459 double pStar0 = getPStar( m0, m_c1, m_c2 );
460 double F = getF2( m, m0, m_c1, m_c2, rBW );
461 double width = width0 * pStar / pStar0 * m0 / m * F * F;
465EvtComplex EvtD0Topipienu::getCoef(
double rho,
double phi ) {
466 EvtComplex coef( rho *
cos( phi ), rho *
sin( phi ) );
470inline double EvtD0Topipienu::getGx(
double m0,
double p0,
double m_c1,
double m_c2 ) {
472 double MPI = 0.5 * ( m_c1 + m_c2 );
473 Gg = 3 * MPI * MPI * log( ( m0 + 2 * p0 ) / ( 2 * MPI ) ) / ( Pi * p0 * p0 ) +
474 m0 / ( 2 * Pi * p0 ) - MPI * MPI * m0 / ( Pi * p0 * p0 * p0 );
478inline double EvtD0Topipienu::getFx(
double mr2,
double sx,
double p,
double p0,
double m_c1,
481 Fx = mr2 / ( pow( p0, 3 ) ) *
482 ( p * p * ( getHx( sx, p, m_c1, m_c2 ) - getHx( mr2, p0, m_c1, m_c2 ) ) +
483 ( mr2 - sx ) * p0 * p0 * getdh( mr2, p0, m_c1, m_c2 ) );
487inline double EvtD0Topipienu::getHx(
double sx,
double p,
double m_c1,
double m_c2 ) {
488 double m = sqrt( sx );
490 Hx = 2 * p * log( ( m + 2 * p ) / ( m_c1 + m_c2 ) ) / ( Pi * m );
494inline double EvtD0Topipienu::getdh(
double mr2,
double p0,
double m_c1,
double m_c2 ) {
495 double mass = sqrt( mr2 );
497 getHx(
mass, p0, m_c1, m_c2 ) * ( 1.0 / ( 8 * p0 * p0 ) - 1.0 / ( 2 *
mass *
mass ) ) +
502inline double EvtD0Topipienu::getG1(
double m2,
double Mr ) {
506 double Mr2 = Mr * Mr;
507 double gg1 = Mr * ( b1 + b2 *
m2 ) *
exp( -(
m2 - Mr2 ) / A );
511inline double EvtD0Topipienu::getZ(
double m2,
double Mr2 ) {
513 ( getRho(
m2, mPi ) * log( ( 1.0 - getRho(
m2, mPi ) ) / ( 1.0 + getRho(
m2, mPi ) ) ) -
515 log( ( 1.0 - getRho( Mr2, mPi ) ) / ( 1.0 + getRho( Mr2, mPi ) ) ) ) /
521inline double EvtD0Topipienu::getRho(
double m2,
double mX ) {
523 if ( ( 1.0 - 4.0 * mX * mX /
m2 ) > 0 ) rho = sqrt( 1.0 - 4.0 * mX * mX /
m2 );
528inline EvtComplex EvtD0Topipienu::getrho(
double m2,
double mX ) {
529 EvtComplex rho( 0.0, 0.0 );
530 EvtComplex ciR( 1.0, 0.0 );
531 EvtComplex ciM( 0.0, 1.0 );
532 if ( ( 1.0 - 4.0 * mX * mX /
m2 ) > 0 ) rho = ciR * sqrt( 1.0 - 4.0 * mX * mX /
m2 );
533 else rho = ciM * sqrt( 4.0 * mX * mX /
m2 - 1.0 );
536inline double EvtD0Topipienu::getWidthrho(
double m,
double m0,
double width0,
double p,
538 double widthRho = 0.0;
539 widthRho = width0 * pow( p / p0, 3 ) * ( m0 / m );
character *LEPTONflag integer iresonances real pi2
Evt3Rank3C conj(const Evt3Rank3C &t2)
double imag(const EvtComplex &c)
double abs2(const EvtComplex &c)
EvtComplex exp(const EvtComplex &c)
EvtDiracSpinor boostTo(const EvtDiracSpinor &sp, const EvtVector4R p4)
double sin(const BesAngle a)
double cos(const BesAngle a)
****INTEGER imax DOUBLE PRECISION m_pi *DOUBLE PRECISION m_amfin DOUBLE PRECISION m_Chfin DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_sinw2 DOUBLE PRECISION m_GFermi DOUBLE PRECISION m_MfinMin DOUBLE PRECISION m_ta2 INTEGER m_out INTEGER m_KeyFSR INTEGER m_KeyQCD *COMMON c_Semalib $ !copy of input $ !CMS energy $ !beam mass $ !final mass $ !beam charge $ !final charge $ !smallest final mass $ !Z mass $ !Z width $ !EW mixing angle $ !Gmu Fermi $ alphaQED at q
***************************************************************************************Pseudo Class RRes *****************************************************************************************Parameters and physical constants **Maarten sept ************************************************************************DOUBLE PRECISION xsmu **************************************************************************PARTICLE DATA all others are from PDG *Only resonances with known widths into electron pairs are sept ************************************************************************C Declarations C
virtual ~EvtD0Topipienu()
void getName(std::string &name)
void decay(EvtParticle *p)
void checkSpinDaughter(int d1, EvtSpinType::spintype sp)
void checkSpinParent(EvtSpinType::spintype sp)
void setProbMax(double prbmx)
void checkNDaug(int d1, int d2=-1)
void checkNArg(int a1, int a2=-1, int a3=-1, int a4=-1)
void setProb(double prob)
static int getStdHep(EvtId id)
const EvtVector4R & getP4() const
EvtParticle * getDaug(int i)
double initializePhaseSpace(int numdaughter, EvtId *daughters, double poleSize=-1., int whichTwo1=0, int whichTwo2=1)
double dot(const EvtVector4R &v2) const
EvtVector4R cross(const EvtVector4R &v2)
void set(int i, double d)