51G4double* G4QKaonPlusNuclearCrossSection::lastLEN=0;
52G4double* G4QKaonPlusNuclearCrossSection::lastHEN=0;
53G4int G4QKaonPlusNuclearCrossSection::lastN=0;
54G4int G4QKaonPlusNuclearCrossSection::lastZ=0;
55G4double G4QKaonPlusNuclearCrossSection::lastP=0.;
56G4double G4QKaonPlusNuclearCrossSection::lastTH=0.;
57G4double G4QKaonPlusNuclearCrossSection::lastCS=0.;
58G4int G4QKaonPlusNuclearCrossSection::lastI=0;
59std::vector<G4double*>* G4QKaonPlusNuclearCrossSection::LEN =
new std::vector<G4double*>;
60std::vector<G4double*>* G4QKaonPlusNuclearCrossSection::HEN =
new std::vector<G4double*>;
66 return &theCrossSection;
71 G4int lens=LEN->size();
72 for(
G4int i=0; i<lens; ++i)
delete[] (*LEN)[i];
74 G4int hens=HEN->size();
75 for(
G4int i=0; i<hens; ++i)
delete[] (*HEN)[i];
86 static std::vector <G4int> colN;
87 static std::vector <G4int> colZ;
88 static std::vector <G4double> colP;
89 static std::vector <G4double> colTH;
90 static std::vector <G4double> colCS;
93 G4cout<<
"G4QKpCS::GetCS:>>> f="<<fCS<<
", p="<<pMom<<
", Z="<<tgZ<<
"("<<lastZ<<
") ,N="<<tgN
94 <<
"("<<lastN<<
"),PDG="<<PDG<<
", thresh="<<lastTH<<
",Sz="<<colN.size()<<
G4endl;
96 if(PDG!=321)
G4cout<<
"-Warning-G4QKaonPlusCS::GetCS:***Not a KPlus***,PDG="<<PDG<<
G4endl;
98 if(tgN!=lastN || tgZ!=lastZ)
107 G4cout<<
"G4QKpCS::GetCS: the amount of records in the AMDB lastI="<<lastI<<
G4endl;
109 if(lastI)
for(
G4int i=0; i<lastI; i++)
111 if(colN[i]==tgN && colZ[i]==tgZ)
116 G4cout<<
"G4QKpCS::GetCS:*Found* P="<<pMom<<
",Threshold="<<lastTH<<
",j="<<j<<
G4endl;
121 G4cout<<
"G4QPCS::GetCS:Found,P="<<pMom<<
" < Threshold="<<lastTH<<
",CS=0"<<
G4endl;
131 G4cout<<
"..G4QKpCS::GetCS:.DoNothing.P="<<pMom<<
",CS="<<lastCS*millibarn<<
G4endl;
134 return lastCS*millibarn;
139 G4cout<<
"G4QKpCS::G:UpdatDB P="<<pMom<<
",f="<<fCS<<
",lI="<<lastI<<
",j="<<j<<
G4endl;
143 G4cout<<
"G4QKpCS::GetCrosSec: *****> New (inDB) Calculated CS="<<lastCS<<
G4endl;
145 if(lastCS<=0. && pMom>lastTH)
148 G4cout<<
"G4QKpCS::GetCS: New P="<<pMom<<
"(CS=0) > Threshold="<<lastTH<<
G4endl;
156 G4cout<<
"-->G4QKpCrossSec::GetCrosSec: pPDG=321, j="<<j<<
", N="<<colN[i]
157 <<
",Z["<<i<<
"]="<<colZ[i]<<
G4endl;
162 G4cout<<
"-?-G4QKpCS::GetCS:RC Z="<<tgZ<<
",N="<<tgN<<
",in="<<in<<
",j="<<j<<
" ?"<<
G4endl;
167 G4cout<<
"^^^G4QKpCS::GetCS:CalcNew P="<<pMom<<
", f="<<fCS<<
", lastI="<<lastI<<
G4endl;
176 G4cout<<
"G4QKpCrossSection::GetCrossSect: NewThresh="<<lastTH<<
",P="<<pMom<<
G4endl;
180 colP.push_back(pMom);
181 colTH.push_back(lastTH);
182 colCS.push_back(lastCS);
184 G4cout<<
"G4QKpCS::GetCrosSec:recCS="<<lastCS<<
",lZ="<<lastN<<
",lN="<<lastZ<<
G4endl;
188 G4cout<<
"G4QKpCS::GetCS:1st,P="<<pMom<<
"(MeV),CS="<<lastCS*millibarn<<
"(mb)"<<
G4endl;
190 return lastCS*millibarn;
195 G4cout<<
"G4QKpCS::GetCS: Update lastI="<<lastI<<
",j="<<j<<
G4endl;
201 else if(pMom<=lastTH)
204 G4cout<<
"G4QKpCS::GetCS: Current P="<<pMom<<
" < Threshold="<<lastTH<<
", CS=0"<<
G4endl;
208 else if(std::fabs(lastP-pMom)<
tolerance*pMom)
212 G4cout<<
"..G4QPCS::GetCS:OldNZ&P="<<lastP<<
"="<<pMom<<
",CS="<<lastCS*millibarn<<
G4endl;
214 return lastCS*millibarn;
219 G4cout<<
"-!-G4QPCS::GetCS:UseCur P="<<pMom<<
",f="<<fCS<<
",I="<<lastI<<
",j="<<j<<
G4endl;
225 G4cout<<
"==>G4QKpCS::GetCroSec: P="<<pMom<<
"(MeV),CS="<<lastCS*millibarn<<
"(mb)"<<
G4endl;
227 return lastCS*millibarn;
235 static const G4double THmiG=THmin*.001;
238 static const G4int nL=105;
239 static const G4double Pmin=THmin+(nL-1)*dP;
241 static const G4int nH=224;
242 static const G4double milP=std::log(Pmin);
243 static const G4double malP=std::log(Pmax);
244 static const G4double dlP=(malP-milP)/(nH-1);
245 static const G4double milPG=std::log(.001*Pmin);
247 G4cout<<
"G4QKpNucCS::CalCS:N="<<targN<<
",Z="<<targZ<<
",P="<<Momentum<<
">"<<THmin<<
G4endl;
253 G4cout<<
"G4QKpNucCS::CalCS: A="<<A<<
",F="<<F<<
",I="<<I<<
",nL="<<nL<<
",nH="<<nH<<
G4endl;
259 G4int sync=LEN->size();
260 if(sync<=I)
G4cerr<<
"*!*G4QPiMinusNuclCS::CalcCrosSect:Sync="<<sync<<
"<="<<I<<
G4endl;
270 for(
G4int n=0; n<nL; n++)
272 lastLEN[n] = CrossSectionLin(targZ, targN, P);
276 for(
G4int n=0; n<nH; n++)
278 lastHEN[n] = CrossSectionLog(targZ, targN, lP);
282 G4cout<<
"-*->G4QKpNucCS::CalcCS:Tab for Z="<<targZ<<
",N="<<targN<<
",I="<<I<<
G4endl;
286 G4int sync=LEN->size();
289 G4cerr<<
"***G4QPiMinusNuclCS::CalcCrossSect: Sinc="<<sync<<
"#"<<I<<
", Z=" <<targZ
290 <<
", N="<<targN<<
", F="<<F<<
G4endl;
293 LEN->push_back(lastLEN);
294 HEN->push_back(lastHEN);
299 G4cout<<
"G4QKpNCS::CalcCS:lTH="<<lastTH<<
",Pmi="<<Pmin<<
",dP="<<dP<<
",dlP="<<dlP<<
G4endl;
301 if (Momentum<lastTH)
return 0.;
302 else if (Momentum<Pmin)
305 G4cout<<
"G4QKpNCS::CalcCS:bLEN A="<<A<<
", nL="<<nL<<
", P="<<Momentum<<
G4endl;
307 if(A<=1. && Momentum < 600.) sigma=0.;
311 G4cout<<
"G4QKpNuCS::CalcCS: E="<<Momentum<<
",T="<<THmin<<
",dP="<<dP<<
G4endl;
314 else if (Momentum<Pmax)
318 G4cout<<
"G4QKpNucCS::CalcCS: before HEN nH="<<nH<<
",iE="<<milP<<
",dlP="<<dlP<<
G4endl;
325 sigma=CrossSectionFormula(targZ, targN, P, std::log(P));
328 G4cout<<
"G4QKaonPlusNuclearCrossSection::CalcCS: CS="<<sigma<<
G4endl;
330 if(sigma<0.)
return 0.;
343 if(tZ<.99 || tN<0.)
return 0.;
346 if(tZ==1 && tN==0) tM=prM;
347 else dE=tZ/(1.+std::pow(tA,third));
350 return std::sqrt(T*(tpM+T));
357 return CrossSectionFormula(tZ, tN, P, lP);
364 return CrossSectionFormula(tZ, tN, P, lP);
380 G4double El=(.0557*ld2+2.23)/(1.-.7/sp+.1/p4);
381 G4double To=(.3*ld2+19.5)/(1.+.46/sp+1.6/p4);
384 else if(tZ<97 && tN<152)
410 c=52.*std::exp(al*.6)*(1.+95./a2)/(1.+9./a)/(1.+46./a2);
411 s_value=(40.+.14*a)/(1.+12./a);
413 t=.185*y/(1.+.00012*y);
414 u=(1.+80./asa)/(1.+200./asa);
415 v=(1.+3.E-6*a4*(1.+6.E-7*a3+4.E10/a12))/a3/20000.;
422 sigma=(f*d*d+c)/(1.+r/std::sqrt(P)+1./p4)+(rD+rR)/(1+v/p4/p4);
424 G4cout<<
"G4QKaonPlusNucCS::CSForm: A="<<a<<
",P="<<P<<
",CS="<<sigma<<
",c="<<c<<
",g="<<g_value
425 <<
",d="<<d<<
",r="<<r<<
",h="<<h<<
G4endl;
430 G4cerr<<
"-Warning-G4QKaonPlusNuclearCroSect::CSForm:Bad A, Z="<<tZ<<
", N="<<tN<<
G4endl;
433 if(sigma<0.)
return 0.;
G4DLLIMPORT std::ostream G4cerr
G4DLLIMPORT std::ostream G4cout
virtual G4double GetCrossSection(G4bool fCS, G4double pMom, G4int tgZ, G4int tgN, G4int pPDG=321)
~G4QKaonPlusNuclearCrossSection()
static G4VQCrossSection * GetPointer()
G4double CalculateCrossSection(G4bool CS, G4int F, G4int I, G4int PDG, G4int Z, G4int N, G4double Momentum)
G4double EquLinearFit(G4double X, G4int N, G4double X0, G4double DX, G4double *Y)
virtual G4double ThresholdEnergy(G4int Z, G4int N, G4int PDG=0)
static G4double tolerance