66 const G4int n_kmpel=36;
68 const G4double kmp_el[n_kmpel]={5.2,.0557,3.5,2.23,.7,.075,.004,.39,.000156,.15,1.,.0156,5.,
69 74.,3.,3.4,.2,.17,.001,8.,.055,3.64,5.e-5,4000.,1500.,.46,
70 1.2e6,3.5e6,5.e-5,1.e10,8.5e8,1.e10,1.1,3.4e6,6.8e6,0.};
73 const G4double HGeVSQ=gigaelectronvolt*gigaelectronvolt/2.;
122 std::vector<G4double*>::iterator
pos;
123 for (pos=
CST.begin(); pos<
CST.end(); pos++)
126 for (pos=
PAR.begin(); pos<
PAR.end(); pos++)
129 for (pos=
SST.begin(); pos<
SST.end(); pos++)
132 for (pos=
S1T.begin(); pos<
S1T.end(); pos++)
135 for (pos=
B1T.begin(); pos<
B1T.end(); pos++)
138 for (pos=
S2T.begin(); pos<
S2T.end(); pos++)
141 for (pos=
B2T.begin(); pos<
B2T.end(); pos++)
144 for (pos=
S3T.begin(); pos<
S3T.end(); pos++)
147 for (pos=
B3T.begin(); pos<
B3T.end(); pos++)
150 for (pos=
S4T.begin(); pos<
S4T.end(); pos++)
153 for (pos=
B4T.begin(); pos<
B4T.end(); pos++)
161 outFile <<
"G4ChipsKaonMinusElasticXS provides the elastic cross\n"
162 <<
"section for K- nucleus scattering as a function of incident\n"
163 <<
"momentum. The cross section is calculated using M. Kossov's\n"
164 <<
"CHIPS parameterization of cross section data.\n";
221 if(lastCS<=0. && pEn>
lastTH)
242 colP.push_back(pMom);
325 G4int blast=
static_cast<int>(shift);
344 G4int blast=
static_cast<int>(shift);
399 if ( tgZ == 1 && tgN == 0 )
401 for (
G4int ip=0; ip<n_kmpel; ip++)
lastPAR[ip]=kmp_el[ip];
425 lastPAR[0]=.06*asa/(1.+a*(.01+.1/ssa));
427 lastPAR[2]=.1*a2*ssa/(1.+.0015*a2/ssa);
441 lastPAR[11]=.7/(1.+4.e-12*a16);
442 lastPAR[12]=2.5/a8/(a4+1.e-16*a32);
449 lastPAR[18]=9.e-7/(1.+.035*a5);
450 lastPAR[19]=(42.+2.7e-11*a16)/(1.+.14*a);
454 lastPAR[22]=2.4e-3*a8/(1.+2.6e-4*a7);
455 lastPAR[23]=3.5e-36*a32*a8/(1.+5.e-15*a32/
a);
457 lastPAR[24]=1.e5/(a8+2.5e12/a16);
458 lastPAR[25]=8.e7/(a12+1.e-27*a28*a28);
467 lastPAR[32]=1.5e-4/(1.+5.e-6*a12);
475 lastPAR[38]=1.e8*std::exp(.32*asa);
476 lastPAR[39]=20.*std::exp(.45*asa);
478 lastPAR[41]=2.5e5*std::exp(.085*a3);
492 lastPAR[ 9]=4.5*std::pow(a,1.15);
493 lastPAR[10]=.06*std::pow(a,.6);
494 lastPAR[11]=.6*a/(1.+2.e15/a16);
495 lastPAR[12]=.17/(a+9.e5/a3+1.5e33/a32);
496 lastPAR[13]=(.001+7.e-11*a5)/(1.+4.4
e-11*a5);
497 lastPAR[14]=(p1a10*p1a10+2.e-29)/(1.+2.
e-22*a12);
499 lastPAR[15]=400./a12+2.e-22*a9;
500 lastPAR[16]=1.e-32*a12/(1.+5.e22/a14);
501 lastPAR[17]=1000./a2+9.5*sa*ssa;
502 lastPAR[18]=4.e-6*a*asa+1.e11/a16;
503 lastPAR[19]=(120./a+.002*a2)/(1.+2.e14/a16);
510 lastPAR[24]=.0011*asa/(1.+3.e34/a32/a4);
511 lastPAR[25]=1.e-5*a2+2.e14/a16;
512 lastPAR[26]=1.2e-11*a2/(1.+1.5e19/a12);
513 lastPAR[27]=.016*asa/(1.+5.e16/a16);
515 lastPAR[28]=.002*a4/(1.+7.e7/std::pow(a-6.83,14));
516 lastPAR[29]=2.e6/a6+7.2/std::pow(a,.11);
517 lastPAR[30]=11.*a3/(1.+7.e23/a16/a8);
520 lastPAR[32]=(.1+4.4e-5*a2)/(1.+5.e5/a4);
521 lastPAR[33]=3.5e-4*a2/(1.+1.e8/a8);
524 lastPAR[36]=1.e-9/a+s4a16*s4a16;
541 lastPAR[50]=900.*sa/(1.+500./a3);
544 lastPAR[51]=1.e15+2.e27/a4/(1.+2.e-18*a16);
593 else G4cout<<
"*Warning*G4ChipsKaonMinusElasticXS::GetPTables: PDG="<<PDG
594 <<
", Z="<<tgZ<<
", N="<<tgN<<
", i="<<ini<<
" > fin="<<fin<<
", LP="<<LP
595 <<
" > ILP="<<ILP<<
" nothing is done!"<<
G4endl;
597 else G4cout<<
"*Warning*G4ChipsKaonMinusElasticXS::GetPTables: PDG="<<PDG
598 <<
", Z="<<tgZ<<
", N="<<tgN<<
", i="<<ini<<
">= max="<<
nPoints<<
", LP="<<LP
599 <<
" > ILP="<<ILP<<
", lPMax="<<
lPMax<<
" nothing is done!"<<
G4endl;
608 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
609 <<
", while it is defined only for PDG=-321 (K-) " <<
G4endl;
610 G4Exception(
"G4ChipsKaonMinusElasticXS::GetPTables()",
"HAD_CHPS_0000",
619 if(PDG==310 || PDG==130) PDG=-321;
620 if(PDG!=-321)
G4cout<<
"*Warning*G4ChipsKaonMinusElasticXS::GetET:PDG="<<PDG<<
G4endl;
629 G4double R2=(1.-std::exp(-E2*E2*E2));
641 q2=-std::log(1.-ran)/
theB1;
647 q2=-std::log(1.-ran);
649 q2=std::pow(q2,third)/
theB2;
655 q2=-std::log(1.-ran)/
theB3;
669 if(a>6.5)E3*=tm2*tm2*tm2;
684 q2=-std::log(1.-ran)/
theB1;
685 if(std::fabs(tss)>1.
e-7) q2=(std::sqrt(
theB1*(
theB1+(tss+tss)*q2))-
theB1)/tss;
691 q2=-std::log(1.-ran)/
theB2;
693 if(a<6.5) q2=std::pow(q2,third);
694 else q2=std::pow(q2,fifth);
700 q2=-std::log(1.-ran)/
theB3;
702 if(a>6.5) q2=std::pow(q2,sevth);
708 q2=-std::log(1.-ran)/
theB4;
709 if(a<6.5) q2=lastTM-q2;
713 if(!(q2>=-1.||q2<=1.))
G4cout<<
"*NAN*G4QKaonMinusElasticCS::GetExchT: -t="<<q2<<
G4endl;
725 if(
lastLP<-4.3)
return 0.;
732 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
733 <<
", while it is defined only for PDG=-321 (K-)" <<
G4endl;
750 if(PDG!=-321)
G4cout<<
"*Warning*G4ChipsKaonMinusElasticXS::GetTV:PDG="<<PDG<<
G4endl;
753 const G4bool isHeavyElementAllowed =
true;
754 if(tgZ<0 || ( !isHeavyElementAllowed && tgZ>92))
756 G4cout<<
"*Warning*G4QKaonMinusElasticCS::GetTabV:(1-92)NoIsotopes for Z="<<tgZ<<
G4endl;
772 if ( tgZ == 1 && tgN == 0 )
776 theS1=(lastPAR[13]+lastPAR[14]*dl2*dl2)/(1.+lastPAR[15]/p4/p)+
777 (lastPAR[16]/p2+lastPAR[17]*
p)/(p4+lastPAR[18]*sp);
778 theB1=lastPAR[19]*std::pow(p,lastPAR[20])/(1.+lastPAR[21]/p3);
779 theS2=lastPAR[22]+lastPAR[23]/(p4+lastPAR[24]*
p);
780 theB2=lastPAR[25]+lastPAR[26]/(p4+lastPAR[27]/
sp);
781 theS3=lastPAR[28]+lastPAR[29]/(p4*p4+lastPAR[30]*p2+lastPAR[31]);
782 theB3=lastPAR[32]+lastPAR[33]/(p4+lastPAR[34]);
787 return lastPAR[0]/psp+(lastPAR[1]*dp*dp+lastPAR[3])/(1.-lastPAR[4]/sp+lastPAR[5]/p4)+
788 lastPAR[6]/(
sqr(p-lastPAR[7])+lastPAR[8])+lastPAR[9]/(
sqr(p-lastPAR[10])+lastPAR[11]);
815 lastPAR[40]/(1.+lastPAR[41]*std::pow(p,lastPAR[42])));
816 theB4=lastPAR[43]*pa/p2/(1.+pa*lastPAR[44]);
837 return (lastPAR[0]*dlp*dlp+lastPAR[1]+lastPAR[2]/p3)/(1.+lastPAR[3]/p2/
sp);
852 G4double mds=dmt*std::sqrt(pP2+mK2)+mK2+mt*mt;
853 return dmt*dmt*pP2/mds;
858 ed <<
"PDG = " << PDG <<
", Z = " << tgZ <<
", N = " << tgN
859 <<
", while it is defined only for p projectiles & Z_target>0" <<
G4endl;
860 G4Exception(
"G4ChipsKaonMinusElasticXS::GetQ2max()",
"HAD_CHPS_0000",
std::vector< G4double * > S4T
std::ostringstream G4ExceptionDescription
std::vector< ExP01TrackerHit * > a
static const G4double pos
static G4ParticleTable * GetParticleTable()
std::vector< G4double * > B3T
virtual void CrossSectionDescription(std::ostream &) const
std::vector< G4double * > SST
G4IonTable * GetIonTable() const
G4double GetQ2max(G4int pPDG, G4int tgZ, G4int tgN, G4double pP)
virtual G4double GetIsoCrossSection(const G4DynamicParticle *, G4int tgZ, G4int A, const G4Isotope *iso=0, const G4Element *elm=0, const G4Material *mat=0)
std::vector< G4double * > B4T
static G4KaonMinus * KaonMinus()
G4double GetPDGMass() const
std::vector< G4double * > S3T
std::vector< G4double * > B1T
static constexpr double gigaelectronvolt
G4double GetSlope(G4int tZ, G4int tN, G4int pPDG)
virtual G4double GetChipsCrossSection(G4double momentum, G4int Z, G4int N, G4int pdg)
#define G4MUTEX_INITIALIZER
static constexpr double millibarn
G4ChipsKaonMinusElasticXS()
virtual G4bool IsIsoApplicable(const G4DynamicParticle *Pt, G4int Z, G4int A, const G4Element *elm, const G4Material *mat)
std::vector< G4double * > S1T
std::vector< G4double * > CST
G4double GetTabValues(G4double lp, G4int pPDG, G4int tgZ, G4int tgN)
std::vector< G4int > colN
double A(double temperature)
std::vector< G4double > colP
std::vector< G4double > PIN
std::vector< G4double * > S2T
#define G4_DECLARE_XS_FACTORY(cross_section)
~G4ChipsKaonMinusElasticXS()
std::vector< G4double > colTH
std::vector< G4double * > B2T
void G4Exception(const char *originOfException, const char *exceptionCode, G4ExceptionSeverity severity, const char *description)
G4double GetExchangeT(G4int tZ, G4int tN, G4int pPDG)
std::vector< G4double * > PAR
G4GLOB_DLL std::ostream G4cout
std::vector< G4int > colZ
G4double GetPTables(G4double lpP, G4double lPm, G4int PDG, G4int tZ, G4int tN)
G4double GetTotalMomentum() const
G4ParticleDefinition * GetIon(G4int Z, G4int A, G4int lvl=0)
G4double CalculateCrossSection(G4bool CS, G4int F, G4int I, G4int pPDG, G4int Z, G4int N, G4double pP)
std::vector< G4double > colCS
static constexpr double GeV