123 MsRho3 = MsRho*MsRho*MsRho;
124 MsOm3 = MsOm*MsOm*MsOm;
125 MsPhi3 = MsPhi*MsPhi*MsPhi;
137 msrho1450 = 1459.*
MeV;
138 msrho1700 = 1688.8*
MeV;
153 brrho1450ompi0 = 0.02;
154 brrho1450pipi = 0.50;
155 brrho1700ompi0 = 1.0;
156 brrho1700pipi = 0.02;
194 complex<G4double> xr(cos(PhRho),sin(PhRho));
195 complex<G4double> xo(cos(PhOm2Pi),sin(PhOm2Pi));
196 complex<G4double> xf(cos(PhPhi2Pi),sin(PhPhi2Pi));
199 complex<G4double> drho = DpRho(e);
200 complex<G4double> dom = DpOm(e);
201 complex<G4double> dphi = DpPhi(e);
203 complex<G4double> amp =
204 sqrt(Width2p(s_inv,MsRho,GRho,1.0,MsPi)*MsRho3*BrRhoEe*GRho)*xr/drho
205 + sqrt(Width2p(s_inv,MsOm,GOm,BrOm2Pi,MsPi)*MsOm3*BrOmEe*GOm)*xo/dom
206 + sqrt(Width2p(s_inv,MsPhi,GPhi,BrPhi2Pi,MsPi)*MsPhi3*BrPhiEe*GPhi)*xf/dphi;
217 complex<G4double> xf(cos(PhPhi2Pi),sin(PhPhi));
220 complex<G4double> dom = DpOm(e);
221 complex<G4double> dphi = DpPhi(e);
223 complex<G4double> amp =
224 sqrt(Width3p(s_inv,MsOm,GOm,BrOm3Pi)*MsOm3*BrOmEe*GOm)/dom
225 + sqrt(Width3p(s_inv,MsPhi,GPhi,BrPhi3Pi)*MsPhi3*BrPhiEe*GPhi)*xf/dphi;
236 complex<G4double> xf(cos(PhPhi),sin(PhPhi));
239 complex<G4double> drho = DpRho(e);
240 complex<G4double> dom = DpOm(e);
241 complex<G4double> dphi = DpPhi(e);
243 complex<G4double> amp =
244 sqrt(WidthPg(s_inv,MsRho,GRho,BrRhoPi0G,MsPi0)*MsRho3*BrRhoEe*GRho)/drho
245 + sqrt(WidthPg(s_inv,MsOm,GOm,BrOmPi0G,MsPi0)*MsOm3*BrOmEe*GOm)/dom
246 + sqrt(WidthPg(s_inv,MsPhi,GPhi,BrPhiPi0G,MsPi0)*MsPhi3*BrPhiEe*GPhi)*xf/dphi;
257 complex<G4double> xf(cos(PhPhi),sin(PhPhi));
260 complex<G4double> drho = DpRho(e);
261 complex<G4double> dom = DpOm(e);
262 complex<G4double> dphi = DpPhi(e);
264 complex<G4double> amp =
265 sqrt(WidthPg(s_inv,MsRho,GRho,BrRhoEtaG,MsEta)*MsRho3*BrRhoEe*GRho)/drho
266 + sqrt(WidthPg(s_inv,MsOm,GOm,BrOmEtaG,MsEta)*MsOm3*BrOmEe*GOm)/dom
267 + sqrt(WidthPg(s_inv,MsPhi,GPhi,BrPhiEtaG,MsEta)*MsPhi3*BrPhiEe*GPhi)*xf/dphi;
279 complex<G4double> dphi = DpPhi(e);
281 complex<G4double> amp =
282 sqrt(Width2p(s_inv,MsPhi,GPhi,BrPhi2Kc,MsKc)*MsPhi3*BrPhiEe*GPhi)/dphi;
294 complex<G4double> dphi = DpPhi(e);
296 complex<G4double> amp =
297 sqrt(Width2p(s_inv,MsPhi,GPhi,BrPhiKsKl,MsKs)*MsPhi3*BrPhiEe*GPhi)/dphi;
313 return gconst*br*sqrt(f)*f*s0/s_inv;
340 x *= pow(e/MsOm, 5.0) * pow(emev*0.1, 3.0)*(1.0 - y*
y);
351 G4double f = (s_inv - mp2)*mres/((s0 - mp2)*sqrt(s_inv));
353 return gconst*br*f*f*
f;
360 G4double w = Width2p(e*e, MsRho, GRho, 1.0, MsPi);
369 G4double w = (Width3p(s_inv, MsOm, GOm, BrOm3Pi) +
370 WidthPg(s_inv, MsOm, GOm, BrOmPi0G, MsPi0) +
371 WidthPg(s_inv, MsOm, GOm, BrOmEtaG, MsEta) +
372 Width2p(s_inv, MsOm, GOm, BrOm2Pi, MsPi)) /
373 (BrOm3Pi+BrOmPi0G+BrOmEtaG+BrOm2Pi);
382 G4double w = (Width3p(s_inv, MsPhi, GPhi, BrPhi3Pi) +
383 WidthPg(s_inv, MsPhi, GPhi, BrPhiPi0G, MsPi0) +
384 WidthPg(s_inv, MsPhi, GPhi, BrPhiEtaG, MsEta) +
385 Width2p(s_inv, MsPhi, GPhi, BrPhi2Kc, MsKc) +
386 Width2p(s_inv, MsPhi, GPhi, BrPhiKsKl, MsKs)) /
387 (BrPhi3Pi+BrPhiPi0G+BrPhiEtaG+BrPhi2Kc+BrPhiKsKl);
395 complex<G4double>
d(MsRho*MsRho - e*e, -e*WidthRho(e));
403 complex<G4double>
d(MsOm*MsOm - e*e, -e*WidthOm(e));
411 complex<G4double>
d(MsPhi*MsPhi - e*e, -e*WidthPhi(e));