Geant4 Cross Reference |
1 // 1 // 2 // ******************************************* 2 // ******************************************************************** 3 // * License and Disclaimer 3 // * License and Disclaimer * 4 // * 4 // * * 5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. 9 // * include a list of copyright holders. * 10 // * 10 // * * 11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. * 17 // * 17 // * * 18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************* 24 // ******************************************************************** 25 // 25 // >> 26 // $Id: G4HadronElastic.cc,v 1.55 2007/12/10 09:56:01 vnivanch Exp $ >> 27 // GEANT4 tag $Name: geant4-09-01 $ 26 // 28 // 27 // Geant4 Header : G4HadronElastic << 28 // 29 // 29 // Author : V.Ivanchenko 29 June 2009 (redesig << 30 // Physics model class G4HadronElastic (derived from G4LElastic) 30 // << 31 // >> 32 // >> 33 // G4 Model: Low-energy Elastic scattering with 4-momentum balance >> 34 // F.W. Jones, TRIUMF, 04-JUN-96 >> 35 // Uses G4ElasticHadrNucleusHE and G4VQCrossSection >> 36 // >> 37 // >> 38 // 25-JUN-98 FWJ: replaced missing Initialize for ParticleChange. >> 39 // 09-Set-05 V.Ivanchenko HARP version of the model: fix scattering >> 40 // on hydrogen, use relativistic Lorentz transformation >> 41 // 24-Nov-05 V.Ivanchenko sample cost in center of mass reference system >> 42 // 03-Dec-05 V.Ivanchenko add protection to initial momentum 20 MeV/c in >> 43 // center of mass system (before it was in lab system) >> 44 // below model is not valid >> 45 // 14-Dec-05 V.Ivanchenko change protection to cos(theta) < -1 and >> 46 // rename the class >> 47 // 13-Apr-06 V.Ivanchenko move to coherent_elastic subdirectory; remove >> 48 // charge exchange; remove limitation on incident momentum; >> 49 // add s-wave regim below some momentum >> 50 // 24-Apr-06 V.Ivanchenko add neutron scattering on hydrogen from CHIPS >> 51 // 07-Jun-06 V.Ivanchenko fix problem of rotation >> 52 // 25-Jul-06 V.Ivanchenko add 19 MeV low energy, below which S-wave is sampled >> 53 // 02-Aug-06 V.Ivanchenko introduce energy cut on the aria of S-wave for pions >> 54 // 24-Aug-06 V.Ivanchenko switch on G4ElasticHadrNucleusHE >> 55 // 31-Aug-06 V.Ivanchenko do not sample sacttering for particles with kinetic >> 56 // energy below 10 keV >> 57 // 16-Nov-06 V.Ivanchenko Simplify logic of choosing of the model for sampling >> 58 // 30-Mar-07 V.Ivanchenko lowEnergyLimitQ=0, lowEnergyLimitHE = 1.0*GeV, >> 59 // lowestEnergyLimit= 0 >> 60 // 04-May-07 V.Ivanchenko do not use HE model for hydrogen target to avoid NaN; >> 61 // use QElastic for p, n incident for any energy for >> 62 // p and He targets only >> 63 // 11-May-07 V.Ivanchenko remove unused method Defs1 >> 64 // 31 65 32 #include "G4HadronElastic.hh" 66 #include "G4HadronElastic.hh" 33 #include "G4SystemOfUnits.hh" << 34 #include "G4ParticleTable.hh" 67 #include "G4ParticleTable.hh" 35 #include "G4ParticleDefinition.hh" 68 #include "G4ParticleDefinition.hh" 36 #include "G4IonTable.hh" 69 #include "G4IonTable.hh" >> 70 #include "G4QElasticCrossSection.hh" >> 71 #include "G4VQCrossSection.hh" >> 72 #include "G4ElasticHadrNucleusHE.hh" 37 #include "Randomize.hh" 73 #include "Randomize.hh" 38 #include "G4Proton.hh" 74 #include "G4Proton.hh" 39 #include "G4Neutron.hh" 75 #include "G4Neutron.hh" 40 #include "G4Deuteron.hh" 76 #include "G4Deuteron.hh" 41 #include "G4Alpha.hh" 77 #include "G4Alpha.hh" 42 #include "G4Pow.hh" << 78 #include "G4PionPlus.hh" 43 #include "G4Exp.hh" << 79 #include "G4PionMinus.hh" 44 #include "G4Log.hh" << 45 #include "G4HadronicParameters.hh" << 46 #include "G4PhysicsModelCatalog.hh" << 47 << 48 80 49 G4HadronElastic::G4HadronElastic(const G4Strin << 81 G4HadronElastic::G4HadronElastic(G4ElasticHadrNucleusHE* HModel) 50 : G4HadronicInteraction(name), secID(-1) << 82 : G4HadronicInteraction("G4HadronElastic"), hElastic(HModel) 51 { 83 { 52 SetMinEnergy( 0.0*GeV ); 84 SetMinEnergy( 0.0*GeV ); 53 SetMaxEnergy( G4HadronicParameters::Instance << 85 SetMaxEnergy( 100.*TeV ); 54 lowestEnergyLimit= 1.e-6*eV; << 86 verboseLevel= 0; 55 pLocalTmax = 0.0; << 87 lowEnergyRecoilLimit = 100.*keV; 56 nwarn = 0; << 88 lowEnergyLimitQ = 0.0*GeV; >> 89 lowEnergyLimitHE = DBL_MAX; >> 90 lowestEnergyLimit= 0.0*keV; >> 91 plabLowLimit = 20.0*MeV; >> 92 >> 93 qCManager = G4QElasticCrossSection::GetPointer(); >> 94 if(!hElastic) hElastic = new G4ElasticHadrNucleusHE(); 57 95 58 theProton = G4Proton::Proton(); 96 theProton = G4Proton::Proton(); 59 theNeutron = G4Neutron::Neutron(); 97 theNeutron = G4Neutron::Neutron(); 60 theDeuteron = G4Deuteron::Deuteron(); 98 theDeuteron = G4Deuteron::Deuteron(); 61 theAlpha = G4Alpha::Alpha(); 99 theAlpha = G4Alpha::Alpha(); 62 << 100 thePionPlus = G4PionPlus::PionPlus(); 63 secID = G4PhysicsModelCatalog::GetModelID( " << 101 thePionMinus= G4PionMinus::PionMinus(); 64 } 102 } 65 103 66 G4HadronElastic::~G4HadronElastic() 104 G4HadronElastic::~G4HadronElastic() 67 {} << 105 { >> 106 delete hElastic; >> 107 } 68 108 >> 109 G4VQCrossSection* G4HadronElastic::GetCS() >> 110 { >> 111 return qCManager; >> 112 } 69 113 70 void G4HadronElastic::ModelDescription(std::os << 114 G4ElasticHadrNucleusHE* G4HadronElastic::GetHElastic() 71 { 115 { 72 outFile << "G4HadronElastic is the base clas << 116 return hElastic; 73 << "elastic scattering models except << 74 << "By default it uses the Gheisha t << 75 << "transfer parameterization. The model << 76 << "as opposed to the original Gheisha mod << 77 << "This model may be used for all long-li << 78 << "incident energies but fit the data onl << 79 } 117 } 80 118 81 G4HadFinalState* G4HadronElastic::ApplyYoursel 119 G4HadFinalState* G4HadronElastic::ApplyYourself( 82 const G4HadProjectile& aTrack, G4Nucleus& 120 const G4HadProjectile& aTrack, G4Nucleus& targetNucleus) 83 { 121 { 84 theParticleChange.Clear(); 122 theParticleChange.Clear(); 85 123 86 const G4HadProjectile* aParticle = &aTrack; 124 const G4HadProjectile* aParticle = &aTrack; 87 G4double ekin = aParticle->GetKineticEnergy( 125 G4double ekin = aParticle->GetKineticEnergy(); 88 << 89 // no scattering below the limit << 90 if(ekin <= lowestEnergyLimit) { 126 if(ekin <= lowestEnergyLimit) { 91 theParticleChange.SetEnergyChange(ekin); 127 theParticleChange.SetEnergyChange(ekin); 92 theParticleChange.SetMomentumChange(0.,0., << 128 theParticleChange.SetMomentumChange(aTrack.Get4Momentum().vect().unit()); 93 return &theParticleChange; 129 return &theParticleChange; 94 } 130 } 95 131 96 G4int A = targetNucleus.GetA_asInt(); << 132 G4double aTarget = targetNucleus.GetN(); 97 G4int Z = targetNucleus.GetZ_asInt(); << 133 G4double zTarget = targetNucleus.GetZ(); >> 134 >> 135 G4double plab = aParticle->GetTotalMomentum(); >> 136 if (verboseLevel >1) >> 137 G4cout << "G4HadronElastic::DoIt: Incident particle plab=" >> 138 << plab/GeV << " GeV/c " >> 139 << " ekin(MeV) = " << ekin/MeV << " " >> 140 << aParticle->GetDefinition()->GetParticleName() << G4endl; 98 141 99 // Scattered particle referred to axis of in 142 // Scattered particle referred to axis of incident particle 100 const G4ParticleDefinition* theParticle = aP 143 const G4ParticleDefinition* theParticle = aParticle->GetDefinition(); 101 G4double m1 = theParticle->GetPDGMass(); 144 G4double m1 = theParticle->GetPDGMass(); 102 G4double plab = std::sqrt(ekin*(ekin + 2.0*m << 103 145 104 if (verboseLevel>1) { << 146 G4int Z = static_cast<G4int>(zTarget+0.5); 105 G4cout << "G4HadronElastic: " << 147 G4int A = static_cast<G4int>(aTarget+0.5); 106 << aParticle->GetDefinition()->GetParticl << 148 G4int N = A - Z; 107 << " Plab(GeV/c)= " << plab/GeV << 149 G4int projPDG = theParticle->GetPDGEncoding(); 108 << " Ekin(MeV) = " << ekin/MeV << 150 if (verboseLevel>1) 109 << " scattered off Z= " << Z << 151 G4cout << "G4HadronElastic for " << theParticle->GetParticleName() 110 << " A= " << A << 152 << " PDGcode= " << projPDG << " on nucleus Z= " << Z >> 153 << " A= " << A << " N= " << N 111 << G4endl; 154 << G4endl; 112 } << 113 155 114 G4double mass2 = G4NucleiProperties::GetNucl << 156 G4ParticleDefinition * theDef = 0; 115 G4double e1 = m1 + ekin; << 116 G4LorentzVector lv(0.0,0.0,plab,e1+mass2); << 117 G4ThreeVector bst = lv.boostVector(); << 118 G4double momentumCMS = plab*mass2/std::sqrt( << 119 157 120 pLocalTmax = 4.0*momentumCMS*momentumCMS; << 158 if(Z == 1 && A == 1) theDef = theProton; >> 159 else if (Z == 1 && A == 2) theDef = theDeuteron; >> 160 else if (Z == 1 && A == 3) theDef = G4Triton::Triton(); >> 161 else if (Z == 2 && A == 3) theDef = G4He3::He3(); >> 162 else if (Z == 2 && A == 4) theDef = theAlpha; >> 163 else theDef = G4ParticleTable::GetParticleTable()->FindIon(Z,A,0,Z); >> 164 >> 165 G4double m2 = theDef->GetPDGMass(); >> 166 G4LorentzVector lv1 = aParticle->Get4Momentum(); >> 167 G4LorentzVector lv(0.0,0.0,0.0,m2); >> 168 lv += lv1; 121 169 122 // Sampling in CM system << 170 G4ThreeVector bst = lv.boostVector(); 123 G4double t = SampleInvariantT(theParticle, p << 171 lv1.boost(-bst); 124 172 125 if(t < 0.0 || t > pLocalTmax) { << 173 G4ThreeVector p1 = lv1.vect(); 126 // For the very rare cases where cos(theta << 174 G4double ptot = p1.mag(); 127 // print some debugging information via a << 175 G4double tmax = 4.0*ptot*ptot; 128 // using the default algorithm << 176 G4double t = 0.0; 129 #ifdef G4VERBOSE << 177 130 if(nwarn < 2) { << 178 // Choose generator 131 G4ExceptionDescription ed; << 179 G4ElasticGenerator gtype = fLElastic; 132 ed << GetModelName() << " wrong sampling << 180 133 << " for " << aParticle->GetDefinition()->G << 181 // Q-elastic for p,n scattering on H and He 134 << " ekin=" << ekin << " MeV" << 182 if (theParticle == theProton || theParticle == theNeutron) 135 << " off (Z,A)=(" << Z << "," << A << ") - << 183 // && Z <= 2 && ekin >= lowEnergyLimitQ) 136 G4Exception( "G4HadronElastic::ApplyYour << 184 gtype = fQElastic; 137 ++nwarn; << 185 >> 186 else { >> 187 // S-wave for very low energy >> 188 if(plab < plabLowLimit) gtype = fSWave; >> 189 // HE-elastic for energetic projectile mesons >> 190 // else if(ekin >= lowEnergyLimitHE && theParticle->GetBaryonNumber() == 0) >> 191 else if(ekin >= lowEnergyLimitHE && (theParticle == thePionPlus || theParticle == thePionMinus)) >> 192 gtype = fHElastic; >> 193 } >> 194 >> 195 // >> 196 // Sample t >> 197 // >> 198 if(gtype == fQElastic) { >> 199 if (verboseLevel >1) >> 200 G4cout << "G4HadronElastic: Z= " << Z << " N= " >> 201 << N << " pdg= " << projPDG >> 202 << " mom(GeV)= " << plab/GeV << " " << qCManager << G4endl; >> 203 if(Z == 1 && N == 2) N = 1; >> 204 else if(Z == 2 && N == 1) N = 2; >> 205 G4double cs = qCManager->GetCrossSection(false,plab,Z,N,projPDG); >> 206 >> 207 // check if cross section is reasonable >> 208 if(cs > 0.0) t = qCManager->GetExchangeT(Z,N,projPDG); >> 209 else if(plab > plabLowLimit) gtype = fLElastic; >> 210 else gtype = fSWave; >> 211 } >> 212 >> 213 if(gtype == fLElastic) { >> 214 t = GeV*GeV*SampleT(ptot,m1,m2,aTarget); >> 215 } >> 216 >> 217 // use mean atomic number >> 218 if(gtype == fHElastic) { >> 219 t = hElastic->SampleT(theParticle,plab,Z,A); >> 220 } >> 221 >> 222 // NaN finder >> 223 if(!(t < 0.0 || t >= 0.0)) { >> 224 if (verboseLevel > 0) { >> 225 G4cout << "G4HadronElastic:WARNING: Z= " << Z << " N= " >> 226 << N << " pdg= " << projPDG >> 227 << " mom(GeV)= " << plab/GeV >> 228 << " the model type " << gtype; >> 229 if(gtype == fQElastic) G4cout << " CHIPS "; >> 230 else if(gtype == fLElastic) G4cout << " LElastic "; >> 231 else if(gtype == fHElastic) G4cout << " HElastic "; >> 232 G4cout << " S-wave will be sampled" >> 233 << G4endl; 138 } 234 } 139 #endif << 235 t = 0.0; 140 t = G4HadronElastic::SampleInvariantT(theP << 141 } 236 } 142 237 143 G4double phi = G4UniformRand()*CLHEP::twopi << 238 if(gtype == fSWave) t = G4UniformRand()*tmax; 144 G4double cost = 1. - 2.0*t/pLocalTmax; << 145 239 146 if (cost > 1.0) { cost = 1.0; } << 240 if(verboseLevel>1) 147 else if(cost < -1.0) { cost = -1.0; } << 241 G4cout <<"type= " << gtype <<" t= " << t << " tmax= " << tmax >> 242 << " ptot= " << ptot << G4endl; 148 243 149 G4double sint = std::sqrt((1.0-cost)*(1.0+co << 244 // Sampling in CM system >> 245 G4double phi = G4UniformRand()*twopi; >> 246 G4double cost = 1. - 2.0*t/tmax; >> 247 G4double sint; 150 248 151 if (verboseLevel>1) { << 249 if( cost >= 1.0 ) 152 G4cout << " t= " << t << " tmax(GeV^2)= " << 250 { 153 << " Pcms(GeV)= " << momentumCMS/GeV << " << 251 cost = 1.0; 154 << " sin(t)=" << sint << G4endl; << 252 sint = 0.0; >> 253 } >> 254 else if( cost <= -1.0) >> 255 { >> 256 cost = -1.0; >> 257 sint = 0.0; 155 } 258 } 156 G4LorentzVector nlv1(momentumCMS*sint*std::c << 259 else 157 momentumCMS*sint*std::sin(phi), << 260 { 158 momentumCMS*cost, << 261 sint = std::sqrt((1.0-cost)*(1.0+cost)); 159 std::sqrt(momentumCMS*momentumCMS + << 262 } >> 263 if (verboseLevel>1) >> 264 G4cout << "cos(t)=" << cost << " std::sin(t)=" << sint << G4endl; >> 265 >> 266 G4ThreeVector v1(sint*std::cos(phi),sint*std::sin(phi),cost); >> 267 v1 *= ptot; >> 268 G4LorentzVector nlv1(v1.x(),v1.y(),v1.z(),std::sqrt(ptot*ptot + m1*m1)); 160 269 161 nlv1.boost(bst); 270 nlv1.boost(bst); 162 271 163 G4double eFinal = nlv1.e() - m1; 272 G4double eFinal = nlv1.e() - m1; 164 if (verboseLevel > 1) { << 273 if (verboseLevel > 1) 165 G4cout <<"G4HadronElastic: m= " << m1 << " << 274 G4cout << "Scattered: " 166 << " 4-M Final: " << nlv1 << 275 << nlv1<<" m= " << m1 << " ekin(MeV)= " << eFinal >> 276 << " Proj: 4-mom " << lv1 >> 277 <<G4endl; >> 278 if(eFinal < 0.0) { >> 279 G4cout << "G4HadronElastic WARNING ekin= " << eFinal >> 280 << " after scattering of " >> 281 << aParticle->GetDefinition()->GetParticleName() >> 282 << " p(GeV/c)= " << plab >> 283 << " on " << theDef->GetParticleName() 167 << G4endl; 284 << G4endl; >> 285 eFinal = 0.0; >> 286 nlv1.setE(m1); 168 } 287 } 169 288 170 if(eFinal <= 0.0) { << 289 theParticleChange.SetMomentumChange(nlv1.vect().unit()); 171 theParticleChange.SetMomentumChange(0.0,0. << 290 theParticleChange.SetEnergyChange(eFinal); 172 theParticleChange.SetEnergyChange(0.0); << 291 173 } else { << 292 G4LorentzVector nlv0 = lv - nlv1; 174 theParticleChange.SetMomentumChange(nlv1.v << 293 G4double erec = nlv0.e() - m2; 175 theParticleChange.SetEnergyChange(eFinal); << 294 if (verboseLevel > 1) 176 } << 295 G4cout << "Recoil: " 177 lv -= nlv1; << 296 << nlv0<<" m= " << m2 << " ekin(MeV)= " << erec 178 G4double erec = std::max(lv.e() - mass2, 0. << 297 <<G4endl; 179 if (verboseLevel > 1) { << 298 180 G4cout << "Recoil: " <<" m= " << mass2 << << 299 if(erec > lowEnergyRecoilLimit) { 181 << " 4-mom: " << lv << 300 G4DynamicParticle * aSec = new G4DynamicParticle(theDef, nlv0); 182 << G4endl; << 301 theParticleChange.AddSecondary(aSec); 183 } << 184 << 185 // the recoil is created if kinetic energy a << 186 if(erec > GetRecoilEnergyThreshold()) { << 187 G4ParticleDefinition * theDef = nullptr; << 188 if(Z == 1 && A == 1) { theDef = theP << 189 else if (Z == 1 && A == 2) { theDef = theD << 190 else if (Z == 1 && A == 3) { theDef = G4Tr << 191 else if (Z == 2 && A == 3) { theDef = G4He << 192 else if (Z == 2 && A == 4) { theDef = theA << 193 else { << 194 theDef = << 195 G4ParticleTable::GetParticleTable()->GetIonT << 196 } << 197 G4DynamicParticle * aSec = new G4DynamicPa << 198 theParticleChange.AddSecondary(aSec, secID << 199 } else { 302 } else { >> 303 if(erec < 0.0) erec = 0.0; 200 theParticleChange.SetLocalEnergyDeposit(er 304 theParticleChange.SetLocalEnergyDeposit(erec); 201 } 305 } 202 306 203 return &theParticleChange; 307 return &theParticleChange; 204 } 308 } 205 309 206 // sample momentum transfer in the CMS system << 207 G4double 310 G4double 208 G4HadronElastic::SampleInvariantT(const G4Part << 311 G4HadronElastic::SampleT(G4double, G4double, G4double, G4double atno2) 209 G4double mom, G4int, G4int A) << 210 { 312 { 211 const G4double plabLowLimit = 400.0*CLHEP::M << 313 // G4cout << "Entering elastic scattering 2"<<G4endl; 212 const G4double GeV2 = GeV*GeV; << 314 // Compute the direction of elastic scattering. 213 const G4double z07in13 = std::pow(0.7, 0.333 << 315 // It is planned to replace this code with a method based on 214 const G4double numLimit = 18.; << 316 // parameterized functions and a Monte Carlo method to invert the CDF. 215 << 317 216 G4int pdg = std::abs(part->GetPDGEncoding()) << 318 G4double ran = G4UniformRand(); 217 G4double tmax = pLocalTmax/GeV2; << 319 G4double aa, bb, cc, dd, rr; 218 << 320 if (atno2 <= 62.) { 219 G4double aa, bb, cc, dd; << 321 aa = std::pow(atno2, 1.63); 220 G4Pow* g4pow = G4Pow::GetInstance(); << 322 bb = 14.5*std::pow(atno2, 0.66); 221 if (A <= 62) { << 323 cc = 1.4*std::pow(atno2, 0.33); 222 if (pdg == 211){ //Pions << 324 dd = 10.; 223 if(mom >= plabLowLimit){ //High ener << 325 } else { 224 bb = 14.5*g4pow->Z23(A);/*14.5*/ << 326 aa = std::pow(atno2, 1.33); 225 dd = 10.; << 327 bb = 60.*std::pow(atno2, 0.33); 226 cc = 0.075*g4pow->Z13(A)/dd;//1.4 << 328 cc = 0.4*std::pow(atno2, 0.40); 227 //aa = g4pow->powZ(A, 1.93)/bb;//1.63 << 329 dd = 10.; 228 aa = (A*A)/bb;//1.63 << 330 } 229 } else { //Low ene << 331 aa = aa/bb; 230 bb = 29.*z07in13*z07in13*g4pow->Z23(A); << 332 cc = cc/dd; 231 dd = 15.; << 333 rr = (aa + cc)*ran; 232 cc = 0.04*g4pow->Z13(A)/dd;//1.4 << 334 if (verboseLevel > 1) { 233 aa = g4pow->powZ(A, 1.63)/bb;//1.63 << 335 G4cout << "DoIt: aa,bb,cc,dd,rr" << G4endl; 234 } << 336 G4cout << aa << " " << bb << " " << cc << " " << dd << " " << rr << G4endl; 235 } else { //Other particles << 236 bb = 14.5*g4pow->Z23(A); << 237 dd = 20.; << 238 aa = (A*A)/bb;//1.63 << 239 cc = 1.4*g4pow->Z13(A)/dd; << 240 } << 241 //=========================== << 242 } else { //(A>62) << 243 if (pdg == 211) { << 244 if(mom >= plabLowLimit){ //high << 245 bb = 60.*z07in13*g4pow->Z13(A);//60 << 246 dd = 30.; << 247 aa = 0.5*(A*A)/bb;//1.33 << 248 cc = 4.*g4pow->powZ(A,0.4)/dd;//1:0.4 -- << 249 } else { //low << 250 bb = 120.*z07in13*g4pow->Z13(A);//60 << 251 dd = 30.; << 252 aa = 2.*g4pow->powZ(A,1.33)/bb; << 253 cc = 4.*g4pow->powZ(A,0.4)/dd;//1:0.4 -- << 254 } << 255 } else { << 256 bb = 60.*g4pow->Z13(A); << 257 dd = 25.; << 258 aa = g4pow->powZ(A,1.33)/bb;//1.33 << 259 cc = 0.2*g4pow->powZ(A,0.4)/dd;//1:0.4 << 260 } << 261 } 337 } 262 G4double q1 = 1.0 - G4Exp(-std::min(bb*tmax, << 338 G4double t1 = -std::log(ran)/bb; 263 G4double q2 = 1.0 - G4Exp(-std::min(dd*tmax, << 339 G4double t2 = -std::log(ran)/dd; 264 G4double s1 = q1*aa; << 340 if (verboseLevel > 1) { 265 G4double s2 = q2*cc; << 341 G4cout << "t1,Fctcos " << t1 << " " << Fctcos(t1, aa, bb, cc, dd, rr) << G4endl; 266 if((s1 + s2)*G4UniformRand() < s2) { << 342 G4cout << "t2,Fctcos " << t2 << " " << Fctcos(t2, aa, bb, cc, dd, rr) << G4endl; 267 q1 = q2; << 343 } 268 bb = dd; << 344 G4double eps = 0.001; >> 345 G4int ind1 = 10; >> 346 G4double t = 0.0; >> 347 G4int ier1; >> 348 ier1 = Rtmi(&t, t1, t2, eps, ind1, >> 349 aa, bb, cc, dd, rr); >> 350 if (verboseLevel > 1) { >> 351 G4cout << "From Rtmi, ier1=" << ier1 << G4endl; >> 352 G4cout << "t, Fctcos " << t << " " << Fctcos(t, aa, bb, cc, dd, rr) << G4endl; >> 353 } >> 354 if (ier1 != 0) t = 0.25*(3.*t1 + t2); >> 355 if (verboseLevel > 1) { >> 356 G4cout << "t, Fctcos " << t << " " << Fctcos(t, aa, bb, cc, dd, rr) << >> 357 G4endl; 269 } 358 } 270 return -GeV2*G4Log(1.0 - G4UniformRand()*q1) << 359 return t; 271 } 360 } 272 361 273 ////////////////////////////////////////////// << 362 // The following is a "translation" of a root-finding routine 274 // << 363 // from GEANT3.21/GHEISHA. Some of the labelled block structure has 275 // Cofs for s-,c-,b-particles ds/dt slopes << 364 // been retained for clarity. This routine will not be needed after 276 << 365 // the planned revisions to DoIt(). 277 G4double G4HadronElastic::GetSlopeCof(const G4 << 366 >> 367 G4int >> 368 G4HadronElastic::Rtmi(G4double* x, G4double xli, G4double xri, G4double eps, >> 369 G4int iend, >> 370 G4double aa, G4double bb, G4double cc, G4double dd, >> 371 G4double rr) 278 { 372 { 279 // The input parameter "pdg" should be the a << 373 G4int ier = 0; 280 // (i.e. the same value for a particle and i << 374 G4double xl = xli; 281 << 375 G4double xr = xri; 282 G4double coeff = 1.0; << 376 *x = xl; 283 << 377 G4double tol = *x; 284 // heavy barions << 378 G4double f = Fctcos(tol, aa, bb, cc, dd, rr); >> 379 if (f == 0.) return ier; >> 380 G4double fl, fr; >> 381 fl = f; >> 382 *x = xr; >> 383 tol = *x; >> 384 f = Fctcos(tol, aa, bb, cc, dd, rr); >> 385 if (f == 0.) return ier; >> 386 fr = f; >> 387 >> 388 // Error return in case of wrong input data >> 389 if (fl*fr >= 0.) { >> 390 ier = 2; >> 391 return ier; >> 392 } >> 393 >> 394 // Basic assumption fl*fr less than 0 is satisfied. >> 395 // Generate tolerance for function values. >> 396 G4int i = 0; >> 397 G4double tolf = 100.*eps; >> 398 >> 399 // Start iteration loop >> 400 label4: >> 401 i++; >> 402 >> 403 // Start bisection loop >> 404 for (G4int k = 1; k <= iend; k++) { >> 405 *x = 0.5*(xl + xr); >> 406 tol = *x; >> 407 f = Fctcos(tol, aa, bb, cc, dd, rr); >> 408 if (f == 0.) return 0; >> 409 if (f*fr < 0.) { // Interchange xl and xr in order to get the >> 410 tol = xl; // same Sign in f and fr >> 411 xl = xr; >> 412 xr = tol; >> 413 tol = fl; >> 414 fl = fr; >> 415 fr = tol; >> 416 } >> 417 tol = f - fl; >> 418 G4double a = f*tol; >> 419 a = a + a; >> 420 if (a < fr*(fr - fl) && i <= iend) goto label17; >> 421 xr = *x; >> 422 fr = f; >> 423 >> 424 // Test on satisfactory accuracy in bisection loop >> 425 tol = eps; >> 426 a = std::abs(xr); >> 427 if (a > 1.) tol = tol*a; >> 428 if (std::abs(xr - xl) <= tol && std::abs(fr - fl) <= tolf) goto label14; >> 429 } >> 430 // End of bisection loop >> 431 >> 432 // No convergence after iend iteration steps followed by iend >> 433 // successive steps of bisection or steadily increasing function >> 434 // values at right bounds. Error return. >> 435 ier = 1; >> 436 >> 437 label14: >> 438 if (std::abs(fr) > std::abs(fl)) { >> 439 *x = xl; >> 440 f = fl; >> 441 } >> 442 return ier; >> 443 >> 444 // Computation of iterated x-value by inverse parabolic interp >> 445 label17: >> 446 G4double a = fr - f; >> 447 G4double dx = (*x - xl)*fl*(1. + f*(a - tol)/(a*(fr - fl)))/tol; >> 448 G4double xm = *x; >> 449 G4double fm = f; >> 450 *x = xl - dx; >> 451 tol = *x; >> 452 f = Fctcos(tol, aa, bb, cc, dd, rr); >> 453 if (f == 0.) return ier; >> 454 >> 455 // Test on satisfactory accuracy in iteration loop >> 456 tol = eps; >> 457 a = std::abs(*x); >> 458 if (a > 1) tol = tol*a; >> 459 if (std::abs(dx) <= tol && std::abs(f) <= tolf) return ier; >> 460 >> 461 // Preparation of next bisection loop >> 462 if (f*fl < 0.) { >> 463 xr = *x; >> 464 fr = f; >> 465 } >> 466 else { >> 467 xl = *x; >> 468 fl = f; >> 469 xr = xm; >> 470 fr = fm; >> 471 } >> 472 goto label4; >> 473 } 285 474 286 static const G4double lBarCof1S = 0.88; << 475 // Test function for root-finder 287 static const G4double lBarCof2S = 0.76; << 476 G4double 288 static const G4double lBarCof3S = 0.64; << 477 G4HadronElastic::Fctcos(G4double t, 289 static const G4double lBarCof1C = 0.784378 << 478 G4double aa, G4double bb, G4double cc, G4double dd, 290 static const G4double lBarCofSC = 0.664378 << 479 G4double rr) 291 static const G4double lBarCof2SC = 0.544378 << 480 { 292 static const G4double lBarCof1B = 0.740659 << 481 const G4double expxl = -82.; 293 static const G4double lBarCofSB = 0.620659 << 482 const G4double expxu = 82.; 294 static const G4double lBarCof2SB = 0.500659 << 295 << 296 if( pdg == 3122 || pdg == 3222 || pdg == 31 << 297 { << 298 coeff = lBarCof1S; // Lambda, Sigma+, Sigm << 299 483 300 } else if( pdg == 3322 || pdg == 3312 ) << 484 G4double test1 = -bb*t; 301 { << 485 if (test1 > expxu) test1 = expxu; 302 coeff = lBarCof2S; // Xi-, Xi0 << 486 if (test1 < expxl) test1 = expxl; 303 } << 487 304 else if( pdg == 3324) << 488 G4double test2 = -dd*t; 305 { << 489 if (test2 > expxu) test2 = expxu; 306 coeff = lBarCof3S; // Omega << 490 if (test2 < expxl) test2 = expxl; 307 } << 308 else if( pdg == 4122 || pdg == 4212 || pd << 309 { << 310 coeff = lBarCof1C; // LambdaC+, SigmaC+, S << 311 } << 312 else if( pdg == 4332 ) << 313 { << 314 coeff = lBarCof2SC; // OmegaC << 315 } << 316 else if( pdg == 4232 || pdg == 4132 ) << 317 { << 318 coeff = lBarCofSC; // XiC+, XiC0 << 319 } << 320 else if( pdg == 5122 || pdg == 5222 || pdg = << 321 { << 322 coeff = lBarCof1B; // LambdaB, SigmaB+, Si << 323 } << 324 else if( pdg == 5332 ) << 325 { << 326 coeff = lBarCof2SB; // OmegaB- << 327 } << 328 else if( pdg == 5132 || pdg == 5232 ) // XiB << 329 { << 330 coeff = lBarCofSB; << 331 } << 332 // heavy mesons Kaons? << 333 static const G4double lMesCof1S = 0.82; // K << 334 static const G4double llMesCof1C = 0.676568; << 335 static const G4double llMesCof1B = 0.610989; << 336 static const G4double llMesCof2C = 0.353135; << 337 static const G4double llMesCof2B = 0.221978; << 338 static const G4double llMesCofSC = 0.496568; << 339 static const G4double llMesCofSB = 0.430989; << 340 static const G4double llMesCofCB = 0.287557; << 341 static const G4double llMesCofEtaP = 0.88; << 342 static const G4double llMesCofEta = 0.76; << 343 491 344 if( pdg == 321 || pdg == 311 || pdg == 310 ) << 492 return aa*std::exp(test1) + cc*std::exp(test2) - rr; 345 { << 346 coeff = lMesCof1S; //K+-0 << 347 } << 348 else if( pdg == 511 || pdg == 521 ) << 349 { << 350 coeff = llMesCof1B; // BMeson0, BMeson+ << 351 } << 352 else if(pdg == 421 || pdg == 411 ) << 353 { << 354 coeff = llMesCof1C; // DMeson+, DMeson0 << 355 } << 356 else if( pdg == 531 ) << 357 { << 358 coeff = llMesCofSB; // BSMeson0 << 359 } << 360 else if( pdg == 541 ) << 361 { << 362 coeff = llMesCofCB; // BCMeson+- << 363 } << 364 else if(pdg == 431 ) << 365 { << 366 coeff = llMesCofSC; // DSMeson+- << 367 } << 368 else if(pdg == 441 || pdg == 443 ) << 369 { << 370 coeff = llMesCof2C; // Etac, JPsi << 371 } << 372 else if(pdg == 553 ) << 373 { << 374 coeff = llMesCof2B; // Upsilon << 375 } << 376 else if(pdg == 221 ) << 377 { << 378 coeff = llMesCofEta; // Eta << 379 } << 380 else if(pdg == 331 ) << 381 { << 382 coeff = llMesCofEtaP; // Eta' << 383 } << 384 return coeff; << 385 } 493 } 386 494 387 495 388 496