| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 // -------------------------------------------
28 //
29 // GEANT4 Class file
30 //
31 //
32 // File name: G4hNuclearStoppingModel
33 //
34 // Author: V.Ivanchenko (Vladimir.Ivanc
35 //
36 // Creation date: 20 July 2000
37 //
38 // Modifications:
39 // 20/07/2000 V.Ivanchenko First implementati
40 // 22/08/2000 V.Ivanchenko Bug fixed in call
41 // 03/10/2000 V.Ivanchenko CodeWizard clean u
42 //
43 // Class Description:
44 //
45 // Low energy protons/ions nuclear stopping pa
46 //
47 // Class Description: End
48 //
49 // -------------------------------------------
50 //
51 //....oooOO0OOooo........oooOO0OOooo........oo
52 //....oooOO0OOooo........oooOO0OOooo........oo
53
54 #include "G4hNuclearStoppingModel.hh"
55
56 #include "globals.hh"
57 #include "G4PhysicalConstants.hh"
58 #include "G4SystemOfUnits.hh"
59 #include "G4UnitsTable.hh"
60 #include "G4hZiegler1985Nuclear.hh"
61 #include "G4hICRU49Nuclear.hh"
62 #include "G4DynamicParticle.hh"
63 #include "G4ParticleDefinition.hh"
64 #include "G4ElementVector.hh"
65 #include "G4Material.hh"
66
67 //....oooOO0OOooo........oooOO0OOooo........oo
68
69 G4hNuclearStoppingModel::G4hNuclearStoppingMod
70 :G4VLowEnergyModel(name), modelName(name)
71 {
72 InitializeMe() ;
73 }
74
75 //....oooOO0OOooo........oooOO0OOooo........oo
76
77 void G4hNuclearStoppingModel::InitializeMe()
78 {
79 // Constants
80 highEnergyLimit = 100.*MeV ;
81 lowEnergyLimit = 1.*eV ;
82 factorPDG2AMU = 1.007276/proton_mass_c2 ;
83 theZieglerFactor= eV*cm2*1.0e-15 ;
84
85 // Registration of parametrisation models of
86 G4String blank = G4String(" ") ;
87 G4String ir49 = G4String("ICRU_R49") ;
88 G4String zi85 = G4String("Ziegler1985") ;
89 if(ir49 == modelName || blank == modelName)
90 nStopingPowerTable = new G4hICRU49Nuclea
91
92 } else if(zi85 == modelName) {
93 nStopingPowerTable = new G4hZiegler1985N
94
95 } else {
96 G4cout <<
97 "G4hLowEnergyIonisation warning: There is
98 << modelName << ">"
99 << " for nuclear stopping, <ICRU_R49> is
100 << G4endl;
101 nStopingPowerTable = new G4hICRU49Nuclear(
102 }
103
104 // Default is nuclear stopping fluctuations
105 // nStopingPowerTable->SetNuclearStoppingFl
106 nStopingPowerTable->SetNuclearStoppingFluctu
107 }
108
109 //....oooOO0OOooo........oooOO0OOooo........oo
110
111 G4hNuclearStoppingModel::~G4hNuclearStoppingMo
112 {
113 delete nStopingPowerTable;
114 }
115
116 //....oooOO0OOooo........oooOO0OOooo........oo
117
118 G4double G4hNuclearStoppingModel::TheValue(
119 const G4DynamicParti
120 const G4Material* material
121 {
122 // Projectile nucleus
123 G4double energy = particle->GetKineticEnergy
124 G4double z1 = std::abs((particle->GetCharge(
125 G4double m1 = (particle->GetMass())*factorPD
126
127 G4double nloss = StoppingPower(material, ene
128
129 return nloss;
130 }
131
132 //....oooOO0OOooo........oooOO0OOooo........oo
133
134 G4double G4hNuclearStoppingModel::TheValue(
135 const G4ParticleDefi
136 const G4Material* material,
137 G4double kinet
138 {
139 // Projectile nucleus
140 G4double z1 = std::abs((aParticle->GetPDGCha
141 G4double m1 = (aParticle->GetPDGMass())*fact
142
143 G4double nloss = StoppingPower(material, kin
144 * theZieglerFactor;
145
146 return nloss;
147 }
148
149 //....oooOO0OOooo........oooOO0OOooo........oo
150
151 G4double G4hNuclearStoppingModel::StoppingPowe
152 const G4Material* ma
153 G4double kinet
154 G4double z1, G
155 {
156 // Target nucleus
157 std::size_t NumberOfElements = material->Get
158 if(0 == NumberOfElements) return 0.0 ;
159
160 const G4ElementVector* theElementVector =
161 material->Get
162 const G4double* theAtomicNumDensityVector =
163 material->Get
164
165 // loop for the elements in the material
166
167 G4double nloss = 0.0;
168
169 for (std::size_t iel=0; iel<NumberOfElements
170 const G4Element* element = (*theElementVec
171 G4double z2 = element->GetZ();
172 G4double m2Local = element->GetA()*mole/g
173 nloss += (nStopingPowerTable->
174 NuclearStoppingPower(kineticEner
175 * theAtomicNumDensityVector[iel] ;
176 }
177
178 return nloss;
179 }
180
181 //....oooOO0OOooo........oooOO0OOooo........oo
182