/home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/Mcgpj/Mcgpj-00-01-04/src/code3pi/src/TKKEtaCrossPart.C File Reference

#include "TKKEtaCrossPart.h"
#include "TConstant.h"
#include "TUtil.h"
#include <complex>
#include <iostream>

Go to the source code of this file.

Functions
complex_t	Amp (double s)
complex_t	FK0K0Eta (double s, double Q02)
complex_t	FKcKcEta (double s, double Q02)

---

Function Documentation

complex_t Amp

(

double

s

)

[inline]

Definition at line 10 of file TKKEtaCrossPart.C.

References alpha, exp(), rb::Geepsi, rb::Geepsip, rb::Geepsipp, rb::Gpsi, rb::Gpsip, rb::Gpsipp, I, M_PI, rb::Mpsi, rb::Mpsi2, rb::Mpsip, rb::Mpsip2, rb::Mpsipp, and rb::Mpsipp2.

                              {
  const complex_t I(0,1);
  const double Apsi = 4*alpha*Gpsi/(3*Geepsi);
  const double phipsi = -M_PI/2;
  const double Apsip = 2*alpha*Gpsip/(3*Geepsip);
  const double phipsip = -M_PI/2;
  const double Apsipp = alpha*Gpsipp/(3*Geepsipp);
  const double phipsipp = -M_PI/2;
  complex_t res = 3*sqrt(s)/alpha*
    (
     Geepsi*(1 + Apsi*exp(I*phipsi))/(s - Mpsi2 + I*Mpsi*Gpsi) +
     Geepsip*(1 + Apsip*exp(I*phipsip))/(s - Mpsip2 + I*Mpsip*Gpsip) +
     Geepsipp*(1 + Apsipp*exp(I*phipsipp))/(s - Mpsipp2 + I*Mpsipp*Gpsipp));
  return res;
}

complex_t FK0K0Eta	(	double	s,
		double	Q02
	)

Definition at line 26 of file TKKEtaCrossPart.C.

References Amp(), rb::Gphi, H, rb::mk02, rb::Mphi2, and rb::R().

Referenced by TKKEtaCrossPart::SetJ().

                                        {
  complex_t H = R(Q02,Mphi2,Gphi,mk02+mk02,0);
  return (5e-3*(1/s))*H*(1+Amp(s));
}

complex_t FKcKcEta	(	double	s,
		double	Q02
	)

Definition at line 31 of file TKKEtaCrossPart.C.

References Amp(), rb::Gphi, H, rb::mkc2, rb::Mphi2, and rb::R().

Referenced by TKKEtaCrossPart::SetJ().

                                        {
  complex_t H = R(Q02,Mphi2,Gphi,mkc2+mkc2,0);
  return (5e-3*(1/s))*H*(1+Amp(s));
}

---