28 const Double_t mK2 = Const::KaonZeroMass() * Const::KaonZeroMass();
29 const Double_t mpi2 = Const::PionPlusMass() * Const::PionPlusMass();
30 const Double_t meta2 = 0.547862 * 0.547862;
32 Double_t s = 4. * (ak2 + mK2);
33 Double_t U = TMath::Sqrt(s);
34 Double_t k1prim = TMath::Sqrt(
fKStar *
fKStar + mK2 - mpi2);
35 Double_t e = TMath::Sqrt(ak2 + mK2) * 2.0;
37 TMath::Sqrt(mpi2 * mpi2 - 2.0 * mpi2 * meta2 - 2.0 * e * e * mpi2 + meta2 * meta2 - 2.0 * e * e * meta2 + e * e * e * e)
40 Double_t k2prim = TMath::Sqrt(mpi2 * mpi2 + meta2 * meta2 + s * s - 2.0 * (mpi2 * meta2 + mpi2 * s + meta2 * s)) / (2.0 * U);
42 TComplex num1(fMf0 * fMf0 - s, -fGamma_f0KK *
fKStar - fGamma_f0pipi * k1prim);
43 TComplex num2(fMa0 * fMa0 - s, -fGamma_a0KK *
fKStar - fGamma_a0pieta * k2prim);
45 TComplex f_1(fGamma_f0KK, 0);
46 TComplex f_2(fGamma_a0KK, 0);
49 TComplex fk = 0.5 * (f_1 + f_2);
50 Double_t tRSS = Hal::Femto::FmToGeV(
fRStarSide);
51 Double_t tROS = Hal::Femto::FmToGeV(
fRStarOut);
52 Double_t tRLS = Hal::Femto::FmToGeV(
fRStarLong);
54 TComplex ikrPlus(0, -krvec);
55 TComplex ikrScalarPlus(0, TMath::Abs(
fKStar * Hal::Femto::FmToGeV(
fRStar)));
56 TComplex rescattered1 = TComplex::Exp(ikrScalarPlus) / TMath::Abs(Hal::Femto::FmToGeV(
fRStar));
57 TComplex rescattered2 = TComplex::Exp(TComplex::Conjugate(ikrScalarPlus)) / TMath::Abs(Hal::Femto::FmToGeV(
fRStar));
58 TComplex psiK0K0bar = TComplex::Exp(ikrPlus) + fAssymetry * fk * rescattered1;
59 TComplex psiK0K0bar2 = TComplex::Exp(-ikrPlus) + fAssymetry * fk * rescattered2;
62 Double_t psiK0K0 = (psiK0K0bar + psiK0K0bar2) * (psiK0K0bar + psiK0K0bar2) * 0.5;
113 Double_t params[5][6] = {{0.978, 0.792, 0.199, 0.974, 0.333, 0.222},
114 {0.973, 2.763, 0.5283, 0.985, 0.4038, 0.3711},
115 {0.996, 1.305, 0.2684, 0.992, 0.5555, 0.4401},
116 {0.996, 1.305, 0.2684, 1.003, 0.8365, 0.4580},