| 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: G4BGGNucleonInelasticXS.cc 93682 2015-10-28 10:09:49Z gcosmo $
>> 27 //
26 // ------------------------------------------- 28 // -------------------------------------------------------------------
27 // 29 //
28 // GEANT4 Class file 30 // GEANT4 Class file
29 // 31 //
30 // 32 //
31 // File name: G4BGGNucleonInelasticXS 33 // File name: G4BGGNucleonInelasticXS
32 // 34 //
33 // Author: Vladimir Ivanchenko 35 // Author: Vladimir Ivanchenko
34 // 36 //
35 // Creation date: 13.03.2007 37 // Creation date: 13.03.2007
36 // Modifications: 38 // Modifications:
37 // 39 //
38 // 40 //
39 // ------------------------------------------- 41 // -------------------------------------------------------------------
40 // 42 //
41 43
42 #include "G4BGGNucleonInelasticXS.hh" 44 #include "G4BGGNucleonInelasticXS.hh"
43 #include "G4SystemOfUnits.hh" 45 #include "G4SystemOfUnits.hh"
44 #include "G4ComponentGGHadronNucleusXsc.hh" 46 #include "G4ComponentGGHadronNucleusXsc.hh"
45 #include "G4NucleonNuclearCrossSection.hh" 47 #include "G4NucleonNuclearCrossSection.hh"
46 #include "G4HadronNucleonXsc.hh" 48 #include "G4HadronNucleonXsc.hh"
47 #include "G4ComponentSAIDTotalXS.hh" 49 #include "G4ComponentSAIDTotalXS.hh"
48 #include "G4Proton.hh" 50 #include "G4Proton.hh"
49 #include "G4Neutron.hh" 51 #include "G4Neutron.hh"
50 #include "G4NistManager.hh" 52 #include "G4NistManager.hh"
51 #include "G4Material.hh" 53 #include "G4Material.hh"
52 #include "G4Element.hh" 54 #include "G4Element.hh"
53 #include "G4Isotope.hh" 55 #include "G4Isotope.hh"
54 #include "G4Log.hh" 56 #include "G4Log.hh"
55 #include "G4Exp.hh" 57 #include "G4Exp.hh"
56 #include "G4NuclearRadii.hh" <<
57 58
58 //....oooOO0OOooo........oooOO0OOooo........oo << 59 #include "G4CrossSectionDataSetRegistry.hh"
59 60
60 namespace << 61 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
61 { <<
62 const G4double llog10 = G4Log(10.); <<
63 } <<
64 62
65 G4double G4BGGNucleonInelasticXS::theGlauberFa << 63 const G4double llog10 = G4Log(10.);
66 G4double G4BGGNucleonInelasticXS::theCoulombFa <<
67 G4double G4BGGNucleonInelasticXS::theGlauberFa <<
68 G4double G4BGGNucleonInelasticXS::theCoulombFa <<
69 G4int G4BGGNucleonInelasticXS::theA[93] = {0}; <<
70 64
71 G4BGGNucleonInelasticXS::G4BGGNucleonInelastic 65 G4BGGNucleonInelasticXS::G4BGGNucleonInelasticXS(const G4ParticleDefinition* p)
72 : G4VCrossSectionDataSet("BarashenkovGlauberG << 66 : G4VCrossSectionDataSet("Barashenkov-Glauber")
73 { 67 {
74 verboseLevel = 0; 68 verboseLevel = 0;
75 fGlauberEnergy = 91.*CLHEP::GeV; << 69 fGlauberEnergy = 91.*GeV;
76 fLowEnergy = 14.*CLHEP::MeV; << 70 fLowEnergy = 14.*MeV;
77 << 71 fHighEnergy = 5.*GeV;
78 fNucleon = new G4NucleonNuclearCrossSection( << 72 fSAIDHighEnergyLimit = 1.3*GeV;
79 fGlauber = new G4ComponentGGHadronNucleusXsc << 73 fLowestXSection = millibarn;
80 fHadron = new G4HadronNucleonXsc(); << 74 for (G4int i = 0; i < 93; ++i) {
>> 75 theGlauberFac[i] = 0.0;
>> 76 theCoulombFac[i] = 0.0;
>> 77 theA[i] = 1;
>> 78 }
>> 79 fNucleon = 0;
>> 80 fGlauber = 0;
>> 81 fHadron = 0;
>> 82 fSAID = 0;
81 83
>> 84 particle = p;
82 theProton= G4Proton::Proton(); 85 theProton= G4Proton::Proton();
83 isProton = (theProton == p); << 86 isProton = false;
84 SetForAllAtomsAndEnergies(true); << 87 isInitialized = false;
85 <<
86 if (0 == theA[0]) { Initialise(); } <<
87 } 88 }
88 89
89 //....oooOO0OOooo........oooOO0OOooo........oo 90 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
90 91
91 G4BGGNucleonInelasticXS::~G4BGGNucleonInelasti 92 G4BGGNucleonInelasticXS::~G4BGGNucleonInelasticXS()
92 { 93 {
>> 94 delete fSAID;
93 delete fHadron; 95 delete fHadron;
>> 96 // The cross section registry will delete fNucleon
>> 97 delete fGlauber;
94 } 98 }
95 99
96 //....oooOO0OOooo........oooOO0OOooo........oo 100 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
97 101
98 G4bool G4BGGNucleonInelasticXS::IsElementAppli 102 G4bool G4BGGNucleonInelasticXS::IsElementApplicable(const G4DynamicParticle*,
99 << 103 G4int, const G4Material*)
100 { 104 {
101 return true; 105 return true;
102 } 106 }
103 107
104 //....oooOO0OOooo........oooOO0OOooo........oo 108 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
105 109
106 G4bool G4BGGNucleonInelasticXS::IsIsoApplicabl 110 G4bool G4BGGNucleonInelasticXS::IsIsoApplicable(const G4DynamicParticle*,
107 << 111 G4int Z, G4int,
108 << 112 const G4Element*,
109 << 113 const G4Material*)
110 { 114 {
111 return (1 == Z); 115 return (1 == Z);
112 } 116 }
113 117
114 //....oooOO0OOooo........oooOO0OOooo........oo 118 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
115 119
116 G4double 120 G4double
117 G4BGGNucleonInelasticXS::GetElementCrossSectio 121 G4BGGNucleonInelasticXS::GetElementCrossSection(const G4DynamicParticle* dp,
118 << 122 G4int ZZ, const G4Material*)
119 { 123 {
>> 124 // this method should be called only for Z > 1
>> 125
120 G4double cross = 0.0; 126 G4double cross = 0.0;
121 G4double ekin = dp->GetKineticEnergy(); 127 G4double ekin = dp->GetKineticEnergy();
122 G4int Z = std::min(ZZ, 92); << 128 G4int Z = ZZ;
123 if (1 == Z) { << 129 if(1 == Z) {
124 cross = 1.0115*GetIsoCrossSection(dp,1,1); 130 cross = 1.0115*GetIsoCrossSection(dp,1,1);
>> 131 } else if(2 == Z) {
>> 132 if(ekin > fGlauberEnergy) {
>> 133 cross = theGlauberFac[Z]*fGlauber->GetInelasticGlauberGribov(dp, Z, theA[Z]);
>> 134 } else {
>> 135 cross = fNucleon->GetElementCrossSection(dp, Z);
>> 136 }
>> 137
125 } else { 138 } else {
126 if (ekin <= fLowEnergy) { << 139 if(Z > 92) { Z = 92; }
127 cross = CoulombFactor(ekin, Z); << 140
128 cross *= (isProton) ? theCoulombFacP[Z] << 141 if(ekin <= fLowEnergy) {
129 } else if (ekin > fGlauberEnergy) { << 142 cross = theCoulombFac[Z]*CoulombFactor(ekin, Z);
130 cross = fGlauber->GetInelasticGlauberGri << 143 } else if(ekin > fGlauberEnergy) {
131 cross *= (isProton) ? theGlauberFacP[Z] << 144 cross = theGlauberFac[Z]*fGlauber->GetInelasticGlauberGribov(dp, Z, theA[Z]);
132 } else { 145 } else {
133 cross = fNucleon->GetElementCrossSection 146 cross = fNucleon->GetElementCrossSection(dp, Z);
134 } 147 }
135 } 148 }
136 149
137 #ifdef G4VERBOSE << 150 if(verboseLevel > 1) {
138 if (verboseLevel > 1) { <<
139 G4cout << "G4BGGNucleonInelasticXS::GetCro 151 G4cout << "G4BGGNucleonInelasticXS::GetCrossSection for "
140 << dp->GetDefinition()->GetParticle << 152 << dp->GetDefinition()->GetParticleName()
141 << " Ekin(GeV)= " << dp->GetKineti << 153 << " Ekin(GeV)= " << dp->GetKineticEnergy()/CLHEP::GeV
142 << " in nucleus Z= " << Z << " A= << 154 << " in nucleus Z= " << Z << " A= " << theA[Z]
143 << " XS(b)= " << cross/barn << 155 << " XS(b)= " << cross/barn
144 << G4endl; << 156 << G4endl;
145 } 157 }
146 #endif << 158 //AR-18Dec2013 if(cross <= fLowestXSection) { cross = 0.0; }
147 return cross; 159 return cross;
148 } 160 }
149 161
150 //....oooOO0OOooo........oooOO0OOooo........oo 162 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
151 163
152 G4double 164 G4double
153 G4BGGNucleonInelasticXS::GetIsoCrossSection(co 165 G4BGGNucleonInelasticXS::GetIsoCrossSection(const G4DynamicParticle* dp,
154 G4int, << 166 G4int Z, G4int A,
155 const G << 167 const G4Isotope*,
156 const G << 168 const G4Element*,
157 const G << 169 const G4Material*)
158 { 170 {
159 // this method should be called only for Z = 171 // this method should be called only for Z = 1
160 fHadron->HadronNucleonXscNS(dp->GetDefinitio <<
161 dp->GetKineticEnerg <<
162 G4double cross = A*fHadron->GetInelasticHadr <<
163 172
164 #ifdef G4VERBOSE << 173 G4double cross = 0.0;
>> 174 G4double ekin = dp->GetKineticEnergy();
>> 175
>> 176 if(ekin <= fSAIDHighEnergyLimit) {
>> 177 cross = fSAID->GetInelasticIsotopeCrossSection(particle, ekin, 1, 1);
>> 178 } else if(ekin < fHighEnergy) {
>> 179 fHadron->GetHadronNucleonXscNS(dp, theProton);
>> 180 cross = (theCoulombFac[0]/ekin + 1)*fHadron->GetInelasticHadronNucleonXsc();
>> 181 } else {
>> 182 fHadron->GetHadronNucleonXscPDG(dp, theProton);
>> 183 cross = (theCoulombFac[1]/ekin + 1)*fHadron->GetInelasticHadronNucleonXsc();
>> 184 }
>> 185 cross *= A;
>> 186
165 if(verboseLevel > 1) { 187 if(verboseLevel > 1) {
166 G4cout << "G4BGGNucleonInelasticXS::GetIso << 188 G4cout << "G4BGGNucleonInelasticXS::GetCrossSection for "
167 << dp->GetDefinition()->GetParticle << 189 << dp->GetDefinition()->GetParticleName()
168 << " Ekin(GeV)= " << dp->GetKineti << 190 << " Ekin(GeV)= " << dp->GetKineticEnergy()/CLHEP::GeV
169 << " in nucleus Z=1 A=" << A << 191 << " in nucleus Z= " << Z << " A= " << A
170 << " XS(b)= " << cross/barn << 192 << " XS(b)= " << cross/barn
171 << G4endl; << 193 << G4endl;
172 } 194 }
173 #endif << 195 //AR-18Dec2013 if(cross <= fLowestXSection) { cross = 0.0; }
174 return cross; 196 return cross;
175 } 197 }
176 198
177 //....oooOO0OOooo........oooOO0OOooo........oo 199 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
178 200
179 void G4BGGNucleonInelasticXS::BuildPhysicsTabl 201 void G4BGGNucleonInelasticXS::BuildPhysicsTable(const G4ParticleDefinition& p)
180 { 202 {
181 if(&p == theProton || &p == G4Neutron::Neutr 203 if(&p == theProton || &p == G4Neutron::Neutron()) {
182 isProton = (theProton == &p); << 204 particle = &p;
183 } else { 205 } else {
184 G4ExceptionDescription ed; << 206 G4cout << "### G4BGGNucleonInelasticXS WARNING: is not applicable to "
185 ed << "This BGG cross section is applicabl << 207 << p.GetParticleName()
186 << p.GetParticleName() << G4endl; << 208 << G4endl;
187 G4Exception("G4BGGNucleonInelasticXS::Buil << 209 throw G4HadronicException(__FILE__, __LINE__,
188 FatalException, ed); << 210 "G4BGGNucleonElasticXS::BuildPhysicsTable is used for wrong particle");
189 return; 211 return;
190 } 212 }
191 } <<
192 213
193 //....oooOO0OOooo........oooOO0OOooo........oo << 214 if(isInitialized) { return; }
>> 215 isInitialized = true;
>> 216
>> 217 fNucleon = (G4NucleonNuclearCrossSection*)G4CrossSectionDataSetRegistry::Instance()->GetCrossSectionDataSet(G4NucleonNuclearCrossSection::Default_Name());
>> 218 fGlauber = new G4ComponentGGHadronNucleusXsc();
>> 219 fHadron = new G4HadronNucleonXsc();
>> 220 fSAID = new G4ComponentSAIDTotalXS();
>> 221
>> 222 fNucleon->BuildPhysicsTable(*particle);
>> 223 fGlauber->BuildPhysicsTable(*particle);
>> 224
>> 225 if(particle == theProton) {
>> 226 isProton = true;
>> 227 fSAIDHighEnergyLimit = 2*GeV;
>> 228 fHighEnergy = 2*GeV;
>> 229 }
194 230
195 void G4BGGNucleonInelasticXS::Initialise() <<
196 { <<
197 theA[0] = theA[1] = 1; <<
198 G4ThreeVector mom(0.0,0.0,1.0); 231 G4ThreeVector mom(0.0,0.0,1.0);
199 G4DynamicParticle dp(theProton, mom, fGlaube << 232 G4DynamicParticle dp(particle, mom, fGlauberEnergy);
200 233
201 G4NistManager* nist = G4NistManager::Instanc 234 G4NistManager* nist = G4NistManager::Instance();
>> 235 G4int A;
>> 236
202 G4double csup, csdn; 237 G4double csup, csdn;
203 238
204 for (G4int iz=2; iz<93; ++iz) { << 239 if(verboseLevel > 0) {
>> 240 G4cout << "### G4BGGNucleonInelasticXS::Initialise for "
>> 241 << particle->GetParticleName() << G4endl;
>> 242 }
>> 243 for(G4int iz=2; iz<93; iz++) {
205 244
206 G4int A = G4lrint(nist->GetAtomicMassAmu(i << 245 A = G4lrint(nist->GetAtomicMassAmu(iz));
207 theA[iz] = A; 246 theA[iz] = A;
208 247
209 csup = fGlauber->GetInelasticGlauberGribov 248 csup = fGlauber->GetInelasticGlauberGribov(&dp, iz, A);
210 csdn = fNucleon->GetElementCrossSection(&d 249 csdn = fNucleon->GetElementCrossSection(&dp, iz);
211 theGlauberFacP[iz] = csdn/csup; <<
212 } <<
213 <<
214 dp.SetDefinition(G4Neutron::Neutron()); <<
215 for (G4int iz=2; iz<93; ++iz) { <<
216 csup = fGlauber->GetInelasticGlauberGribov <<
217 csdn = fNucleon->GetElementCrossSection(&d <<
218 theGlauberFacN[iz] = csdn/csup; <<
219 250
220 if(verboseLevel > 1) { << 251 theGlauberFac[iz] = csdn/csup;
221 G4cout << "G4BGGNucleonInelasticXS::Init << 252 if(verboseLevel > 0) {
222 << " GFactorP= " << theGlauberFacP[iz] << 253 G4cout << "Z= " << iz << " A= " << A
223 << " GFactorN= " << theGlauberFacN[iz] << 254 << " GlauberFactor= " << theGlauberFac[iz] << G4endl;
224 } 255 }
225 } 256 }
>> 257 //const G4Material* mat = 0;
226 258
227 theCoulombFacP[1] = theCoulombFacN[1] = 1.0; << 259 dp.SetKineticEnergy(fSAIDHighEnergyLimit);
228 dp.SetDefinition(theProton); << 260 fHadron->GetHadronNucleonXscNS(&dp, theProton);
229 dp.SetKineticEnergy(fLowEnergy); << 261 theCoulombFac[0] = fSAIDHighEnergyLimit*
230 for (G4int iz=2; iz<93; ++iz) { << 262 (fSAID->GetInelasticIsotopeCrossSection(particle,fSAIDHighEnergyLimit,1,1)
231 theCoulombFacP[iz] = fNucleon->GetElementC << 263 /fHadron->GetInelasticHadronNucleonXsc() - 1);
232 /CoulombFactor(fLowEnergy, iz); << 264
>> 265 //G4cout << "Z=1 E(GeV)= " << fSAIDHighEnergyLimit/GeV
>> 266 // << " xsNS(b)= " << fHadron->GetInelasticHadronNucleonXsc()/barn;
>> 267 fHadron->GetHadronNucleonXscPDG(&dp, theProton);
>> 268 //G4cout << " xsPDG(b)= " << fHadron->GetInelasticHadronNucleonXsc()/barn;
>> 269 //G4cout << " xsSAID(b)= " << fSAID->GetInelasticIsotopeCrossSection(particle,fSAIDHighEnergyLimit,1,1)/barn << G4endl;
>> 270
>> 271 dp.SetKineticEnergy(fHighEnergy);
>> 272 fHadron->GetHadronNucleonXscPDG(&dp, theProton);
>> 273 G4double x = fHadron->GetInelasticHadronNucleonXsc();
>> 274
>> 275 //G4cout << "Z=1 E(GeV)= " << fHighEnergy/GeV
>> 276 // << " xsPDG(b)= " << fHadron->GetInelasticHadronNucleonXsc()/barn;
>> 277
>> 278 fHadron->GetHadronNucleonXscNS(&dp, theProton);
>> 279 theCoulombFac[1] = fHighEnergy*((theCoulombFac[0]/fHighEnergy + 1)
>> 280 *fHadron->GetInelasticHadronNucleonXsc()/x - 1);
>> 281
>> 282 fHadron->GetHadronNucleonXscNS(&dp, theProton);
>> 283 //G4cout <<" xsNS(b)= "<<fHadron->GetInelasticHadronNucleonXsc()/barn<<G4endl;
>> 284
>> 285 if(verboseLevel > 0) {
>> 286 G4cout << "Z=1 A=1" << " CoulombFactor[0]= " << theCoulombFac[0]
>> 287 << " CoulombFactor[1]= " << theCoulombFac[1] << G4endl;
233 } 288 }
234 dp.SetDefinition(G4Neutron::Neutron()); << 289 theCoulombFac[2] = 1.0;
235 for (G4int iz=2; iz<93; ++iz) { << 290
236 theCoulombFacN[iz] = fNucleon->GetElementC << 291 dp.SetKineticEnergy(fLowEnergy);
237 /CoulombFactor(fLowEnergy, iz); << 292 for(G4int iz=3; iz<93; iz++) {
238 << 293 theCoulombFac[iz] =
239 if (verboseLevel > 1) { << 294 fNucleon->GetElementCrossSection(&dp, iz)/CoulombFactor(fLowEnergy, iz);
240 G4cout << "G4BGGNucleonInelasticXS::Init << 295
241 << " CFactorP= " << theCoulombFacP[iz] << 296 if(verboseLevel > 0) {
242 << " CFactorN= " << theCoulombFacN[iz] << 297 G4cout << "Z= " << iz << " A= " << theA[iz]
>> 298 << " CoulombFactor= " << theCoulombFac[iz] << G4endl;
243 } 299 }
244 } 300 }
245 } 301 }
246 302
247 //....oooOO0OOooo........oooOO0OOooo........oo 303 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
248 304
249 G4double G4BGGNucleonInelasticXS::CoulombFacto 305 G4double G4BGGNucleonInelasticXS::CoulombFactor(G4double kinEnergy, G4int Z)
250 { 306 {
251 G4double res = 0.0; << 307 G4double res= 0.0;
252 <<
253 if(kinEnergy <= 0.0) { return res; } 308 if(kinEnergy <= 0.0) { return res; }
254 << 309 else if (Z <= 1) { return kinEnergy*kinEnergy; }
>> 310
255 G4double elog = G4Log(kinEnergy/GeV)/llog10; 311 G4double elog = G4Log(kinEnergy/GeV)/llog10;
256 G4double aa = theA[Z]; 312 G4double aa = theA[Z];
257 <<
258 if(isProton) { <<
259 313
260 res = G4NuclearRadii::CoulombFactor(Z, aa, << 314 // from G4ProtonInelasticCrossSection
>> 315 if(isProton) {
>> 316
>> 317 G4double ff1 = 5.6 - 0.016*aa; // slope of the drop at medium energies.
>> 318 G4double ff2 = 1.37 + 1.37/aa; // start of the slope.
>> 319 G4double ff3 = 0.8 + 18./aa - 0.002*aa; // stephight
>> 320 res = 1.0 + ff3*(1.0 - (1.0/(1+G4Exp(-ff1*(elog + ff2)))));
>> 321
>> 322 ff1 = 8. - 8./aa - 0.008*aa; // slope of the rise
>> 323 ff2 = 2.34 - 5.4/aa - 0.0028*aa; // start of the rise
>> 324 res /= (1.0 + G4Exp(-ff1*(elog + ff2)));
261 325
262 // from G4ProtonInelasticCrossSection <<
263 if(res > 0.0) { <<
264 G4double ff1 = 5.6 - 0.016*aa; // slope <<
265 G4double ff2 = 1.37 + 1.37/aa; // start <<
266 G4double ff3 = 0.8 + 18./aa - 0.002*aa; <<
267 res *= (1.0 + ff3*(1.0 - (1.0/(1+G4Exp(- <<
268 ff1 = 8. - 8./aa - 0.008*aa; // slope <<
269 ff2 = 2.34 - 5.4/aa - 0.0028*aa; // star <<
270 res /= (1.0 + G4Exp(-ff1*(elog + ff2))); <<
271 } <<
272 } else { 326 } else {
>> 327
273 // from G4NeutronInelasticCrossSection 328 // from G4NeutronInelasticCrossSection
274 G4double p3 = 0.6 + 13./aa - 0.0005*aa; 329 G4double p3 = 0.6 + 13./aa - 0.0005*aa;
275 G4double p4 = 7.2449 - 0.018242*aa; 330 G4double p4 = 7.2449 - 0.018242*aa;
276 G4double p5 = 1.36 + 1.8/aa + 0.0005*aa; 331 G4double p5 = 1.36 + 1.8/aa + 0.0005*aa;
277 G4double p6 = 1. + 200./aa + 0.02*aa; 332 G4double p6 = 1. + 200./aa + 0.02*aa;
278 G4double p7 = 3.0 - (aa-70.)*(aa-200.)/110 333 G4double p7 = 3.0 - (aa-70.)*(aa-200.)/11000.;
279 334
280 G4double firstexp = G4Exp(-p4*(elog + p5) 335 G4double firstexp = G4Exp(-p4*(elog + p5));
281 G4double secondexp = G4Exp(-p6*(elog + p7) 336 G4double secondexp = G4Exp(-p6*(elog + p7));
282 337
283 res = (1. + p3*firstexp/(1. + firstexp))/( << 338 res = (1.+p3*firstexp/(1. + firstexp))/(1. + secondexp);
>> 339
284 } 340 }
285 return res; 341 return res;
286 } 342 }
287 343
288 //....oooOO0OOooo........oooOO0OOooo........oo 344 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
289 345
290 void G4BGGNucleonInelasticXS::CrossSectionDesc 346 void G4BGGNucleonInelasticXS::CrossSectionDescription(std::ostream& outFile) const
291 { 347 {
292 outFile << "The Barashenkov-Glauber-Gribov c 348 outFile << "The Barashenkov-Glauber-Gribov cross section calculates inelastic\n"
293 << "scattering of protons and neutro 349 << "scattering of protons and neutrons from nuclei using the\n"
294 << "Barashenkov parameterization bel 350 << "Barashenkov parameterization below 91 GeV and the Glauber-Gribov\n"
295 << "parameterization above 91 GeV. 351 << "parameterization above 91 GeV. It uses the G4HadronNucleonXsc\n"
296 << "cross section component for hydr 352 << "cross section component for hydrogen targets, and the\n"
297 << "G4ComponentGGHadronNucleusXsc co 353 << "G4ComponentGGHadronNucleusXsc component for other targets.\n";
298 } 354 }
299 355
300 //....oooOO0OOooo........oooOO0OOooo........oo 356 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
301 357