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

#include "TKKPCrossPart.h"
#include "TConstant.h"
#include "TUtil.h"
#include <iostream>

Go to the source code of this file.

Functions
complex_t	Amp (double s)
complex_t	FK0KcPc (double s, double QK0Pi, double QKcPi)
complex_t	FKcKcP0 (double s, double QKpPi, double QKmPi)

---

Function Documentation

complex_t Amp

(

double

s

)

[inline]

Definition at line 8 of file TKKPCrossPart.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 FK0KcPc	(	double	s,
		double	QK0Pi,
		double	QKcPi
	)

Definition at line 26 of file TKKPCrossPart.C.

References rb::GKstar, H, rb::mk02, rb::mkc2, rb::MKstar2, rb::mpi2, and rb::R().

Referenced by TKKPCrossPart::SetJ().

                                                       {
  complex_t H = 
    R(QK0Pi,MKstar2,GKstar,mk02+mpi2,mk02-mpi2) + 
    R(QKcPi,MKstar2,GKstar,mkc2+mpi2,mkc2-mpi2);
  return (5e-3*(1/s))*H;//*(1+Amp(s));
}

complex_t FKcKcP0	(	double	s,
		double	QKpPi,
		double	QKmPi
	)

Definition at line 35 of file TKKPCrossPart.C.

References Amp(), rb::GKstar, H, rb::mkc2, rb::MKstar2, rb::mpi02, and rb::R().

Referenced by TKKPCrossPart::SetJ().

                                                       {
  complex_t H = 
    R(QKpPi,MKstar2,GKstar,mkc2+mpi02,mkc2-mpi02) + 
    R(QKmPi,MKstar2,GKstar,mkc2+mpi02,mkc2-mpi02);
  return (5e-3*(1/s))*H*(1+Amp(s));
}

---