1 | // |
---|
2 | // ******************************************************************** |
---|
3 | // * License and Disclaimer * |
---|
4 | // * * |
---|
5 | // * The Geant4 software is copyright of the Copyright Holders of * |
---|
6 | // * the Geant4 Collaboration. It is provided under the terms and * |
---|
7 | // * conditions of the Geant4 Software License, included in the file * |
---|
8 | // * LICENSE and available at http://cern.ch/geant4/license . These * |
---|
9 | // * include a list of copyright holders. * |
---|
10 | // * * |
---|
11 | // * Neither the authors of this software system, nor their employing * |
---|
12 | // * institutes,nor the agencies providing financial support for this * |
---|
13 | // * work make any representation or warranty, express or implied, * |
---|
14 | // * regarding this software system or assume any liability for its * |
---|
15 | // * use. Please see the license in the file LICENSE and URL above * |
---|
16 | // * for the full disclaimer and the limitation of liability. * |
---|
17 | // * * |
---|
18 | // * This code implementation is the result of the scientific and * |
---|
19 | // * technical work of the GEANT4 collaboration. * |
---|
20 | // * By using, copying, modifying or distributing the software (or * |
---|
21 | // * any work based on the software) you agree to acknowledge its * |
---|
22 | // * use in resulting scientific publications, and indicate your * |
---|
23 | // * acceptance of all terms of the Geant4 Software license. * |
---|
24 | // ******************************************************************** |
---|
25 | // |
---|
26 | // $Id: G4StopElementSelector.cc,v 1.16 2007/10/02 18:27:43 vnivanch Exp $ |
---|
27 | // GEANT4 tag $Name: geant4-09-03 $ |
---|
28 | // |
---|
29 | // File: G4StopElementSelector |
---|
30 | // |
---|
31 | // Author: V.Ivanchenko (Vladimir.Ivanchenko@cern.ch) |
---|
32 | // |
---|
33 | // Creation date: 2 April 2000 |
---|
34 | // |
---|
35 | // Modifications: |
---|
36 | // 18/08/2000 V.Ivanchenko Update description |
---|
37 | // 17/05/2006 V.Ivanchenko Cleanup |
---|
38 | // 02/10/2007 V.Ivanchenko Fixed typo in computation of Lambda-factor |
---|
39 | // proposed by Victor Pec |
---|
40 | // |
---|
41 | //--------------------------------------------------------------------- |
---|
42 | |
---|
43 | #include "G4StopElementSelector.hh" |
---|
44 | #include "Randomize.hh" |
---|
45 | #include "G4Material.hh" |
---|
46 | |
---|
47 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
48 | |
---|
49 | // constructor |
---|
50 | G4StopElementSelector::G4StopElementSelector() |
---|
51 | { } |
---|
52 | |
---|
53 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
54 | |
---|
55 | // destructor |
---|
56 | G4StopElementSelector::~G4StopElementSelector() |
---|
57 | { } |
---|
58 | |
---|
59 | |
---|
60 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
61 | |
---|
62 | G4Element* G4StopElementSelector::GetElement(const G4Material* aMaterial) |
---|
63 | { |
---|
64 | // Fermi-Teller Z-low of mu- capture and exceptions |
---|
65 | // for halogens and oxigen. |
---|
66 | // N.C.Mukhopadhyay Phys. Rep. 30 (1977) 1. |
---|
67 | G4int i; |
---|
68 | G4double Z; |
---|
69 | const G4int numberOfElements = aMaterial->GetNumberOfElements(); |
---|
70 | const G4ElementVector* theElementVector = aMaterial->GetElementVector(); |
---|
71 | |
---|
72 | if(1 == numberOfElements) return (*theElementVector)[0]; |
---|
73 | |
---|
74 | const G4double* theAtomicNumberDensity = aMaterial->GetAtomicNumDensityVector(); |
---|
75 | |
---|
76 | G4double sum = 0.0; |
---|
77 | for ( i=0; i < numberOfElements; i++ ) { |
---|
78 | |
---|
79 | Z = (*theElementVector)[i]->GetZ(); |
---|
80 | |
---|
81 | // Halogens |
---|
82 | if( (9.0 == Z) || (17.0 == Z) || (35.0 == Z) || (53.0 == Z) || (85.0 == Z) ) { |
---|
83 | sum += 0.66 * Z * theAtomicNumberDensity[i] ; |
---|
84 | |
---|
85 | // Oxigen |
---|
86 | } else if( 8.0 == Z ) { |
---|
87 | sum += 0.56 * Z * theAtomicNumberDensity[i] ; |
---|
88 | |
---|
89 | // Others |
---|
90 | } else { |
---|
91 | sum += Z * theAtomicNumberDensity[i] ; |
---|
92 | } |
---|
93 | } |
---|
94 | |
---|
95 | G4double random = G4UniformRand() * sum; |
---|
96 | sum = 0.0 ; |
---|
97 | i = -1; |
---|
98 | |
---|
99 | // Selection of element |
---|
100 | do { |
---|
101 | i++; |
---|
102 | Z = (*theElementVector)[i]->GetZ(); |
---|
103 | |
---|
104 | // Galogens |
---|
105 | if( (9.0 == Z) || (17.0 == Z) || (35.0 == Z) || (53.0 == Z) || (85.0 == Z) ) { |
---|
106 | sum += 0.66 * Z * theAtomicNumberDensity[i] ; |
---|
107 | |
---|
108 | // Oxigen |
---|
109 | } else if( 8.0 == Z ) { |
---|
110 | sum += 0.56 * Z * theAtomicNumberDensity[i] ; |
---|
111 | |
---|
112 | // Others |
---|
113 | } else { |
---|
114 | sum += Z * theAtomicNumberDensity[i] ; |
---|
115 | } |
---|
116 | } while ( (sum < random) && (i < numberOfElements - 1) ); |
---|
117 | |
---|
118 | return (*theElementVector)[i]; |
---|
119 | } |
---|
120 | |
---|
121 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
122 | |
---|
123 | G4double G4StopElementSelector::GetMuonCaptureRate(G4double Z, G4double A) |
---|
124 | { |
---|
125 | // Initialized data |
---|
126 | |
---|
127 | // static std::vector<G4double> zeff(100); |
---|
128 | static G4double zeff[100] = { |
---|
129 | 1.,1.98,2.95,3.89,4.8,5.72,6.61,7.49,8.32,9.12,9.95,10.69,11.48,12.22, |
---|
130 | 12.91,13.64,14.24,14.89,15.53,16.15,16.75,17.38,18.04,18.49, |
---|
131 | 19.06,19.59,20.1,20.66,21.12,21.61,22.02,22.43,22.84,23.24, |
---|
132 | 23.65,24.06,24.47,24.85,25.23,25.61,25.99,26.37,26.69,27., |
---|
133 | 27.32,27.63,27.95,28.2,28.42,28.64,28.79,29.03,29.27,29.51, |
---|
134 | 29.75,29.99,30.2,30.36,30.53,30.69,30.85,31.01,31.18,31.34, |
---|
135 | 31.48,31.62,31.76,31.9,32.05,32.19,32.33,32.47,32.61,32.76, |
---|
136 | 32.94,33.11,33.29,33.46,33.64,33.81,34.21,34.18,34.,34.1, |
---|
137 | 34.21,34.31,34.42,34.52,34.63,34.73,34.84,34.94,35.04,35.15, |
---|
138 | 35.25,35.36,35.46,35.57,35.67,35.78 }; |
---|
139 | |
---|
140 | // Mu- capture data from B.B.Balashov, G.Ya.Korenman, P.A.Eramgan |
---|
141 | // Atomizdat, 1978. (Experimental capture velocities) |
---|
142 | |
---|
143 | const size_t ListZE = 65; |
---|
144 | static G4int ListZExp[ListZE] = { |
---|
145 | 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, |
---|
146 | 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, |
---|
147 | 24, 25, 26, 27, 28, 31, 32, 33, 34, 37, |
---|
148 | 38, 39, 40, 41, 42, 45, 46, 47, 48, 49, |
---|
149 | 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, |
---|
150 | 62, 64, 65, 67, 72, 73, 74, 80, 81, 82, |
---|
151 | 83, 90, 92, 93}; |
---|
152 | |
---|
153 | static G4double ListCaptureVel[ListZE] = { |
---|
154 | 0.0057, 0.010, 0.0258, 0.0371, 0.0644, |
---|
155 | 0.0974, 0.144, 0.250, 0.386, 0.479, |
---|
156 | 0.700, 0.849, 1.119, 1.338, 1.40, |
---|
157 | 1.30, 1.98, 2.45, 2.60, 3.19, |
---|
158 | 3.29, 3.91, 4.41, 4.96, 5.74, |
---|
159 | 5.68, 5.53, 6.06, 5.69, 6.89, |
---|
160 | 7.25, 7.89, 8.59, 10.40, 9.22, |
---|
161 | 10.01, 10.00, 10.88, 10.62, 11.37, |
---|
162 | 10.68, 10.49, 9.06, 11.20, 10.98, |
---|
163 | 10.18, 10.71, 11.44, 13.45, 12.32, |
---|
164 | 12.22, 12.09, 12.73, 12.95, 13.03, |
---|
165 | 12.86, 13.13, 13.39, 12.74, 13.78, |
---|
166 | 13.02, 13.26, 13.10, 14.00, 14.70}; |
---|
167 | |
---|
168 | |
---|
169 | // Local variables |
---|
170 | G4double zeff2, xmu, a2ze, r1, r2; |
---|
171 | G4double lambda; |
---|
172 | |
---|
173 | // == Effective charges from Ford and Wills Nucl Phys 35(1962)295. |
---|
174 | // == Untabulated charges are interpolated. |
---|
175 | // == Mu capture lifetime (Goulard and Primakoff PRC10(1974)2034. |
---|
176 | |
---|
177 | G4int i = G4int(Z) - 1 ; |
---|
178 | if(i > 99) i = 99; |
---|
179 | |
---|
180 | const G4double b0a = -.03; |
---|
181 | const G4double b0b = -.25; |
---|
182 | const G4double b0c = 3.24; |
---|
183 | const G4double t1 = 875.e-10; |
---|
184 | r1 = zeff[i]; |
---|
185 | zeff2 = r1 * r1; |
---|
186 | // ^-4 -> ^-5 suggested by user |
---|
187 | xmu = zeff2 * 2.663e-5; |
---|
188 | a2ze = 0.5 * A / Z; |
---|
189 | r2 = 1.0 - xmu; |
---|
190 | lambda = t1 * zeff2 * zeff2 * (r2 * r2) * (1.0 - (1.0 - xmu) * .75704) * |
---|
191 | (a2ze * b0a + 1.0 - (a2ze - 1.0) * b0b - |
---|
192 | (2.0 * (A - Z) + std::abs(a2ze - 1.) ) * b0c / (A * 4.) ); |
---|
193 | |
---|
194 | // == Mu capture data are taken if exist |
---|
195 | for (unsigned int j = 0; j < ListZE; j++) { |
---|
196 | if( ListZExp[j] == i + 1) { |
---|
197 | lambda = ListCaptureVel[j] / microsecond; |
---|
198 | break; |
---|
199 | } |
---|
200 | } |
---|
201 | |
---|
202 | return lambda; |
---|
203 | } |
---|
204 | |
---|
205 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
206 | |
---|
207 | G4double G4StopElementSelector::GetMuonDecayRate(G4double Z, G4double /* A */) |
---|
208 | { |
---|
209 | // Decay time on K-shell |
---|
210 | // N.C.Mukhopadhyay Phys. Rep. 30 (1977) 1. |
---|
211 | |
---|
212 | G4double lambda = 1.0 - 2.5 * Z * Z / (137.0*137.0); |
---|
213 | if( 0.5 > lambda ) lambda = 0.5; |
---|
214 | return lambda * 0.445 / microsecond; |
---|
215 | } |
---|
216 | |
---|
217 | |
---|
218 | |
---|
219 | |
---|
220 | |
---|
221 | |
---|
222 | |
---|
223 | |
---|
224 | |
---|
225 | |
---|
226 | |
---|
227 | |
---|
228 | |
---|
229 | |
---|
230 | |
---|
231 | |
---|
232 | |
---|
233 | |
---|
234 | |
---|
235 | |
---|
236 | |
---|
237 | |
---|
238 | |
---|
239 | |
---|
240 | |
---|
241 | |
---|
242 | |
---|
243 | |
---|
244 | |
---|
245 | |
---|
246 | |
---|
247 | |
---|
248 | |
---|
249 | |
---|
250 | |
---|
251 | |
---|
252 | |
---|
253 | |
---|
254 | |
---|
255 | |
---|
256 | |
---|
257 | |
---|
258 | |
---|
259 | |
---|
260 | |
---|
261 | |
---|
262 | |
---|
263 | |
---|
264 | |
---|
265 | |
---|
266 | |
---|
267 | |
---|
268 | |
---|
269 | |
---|
270 | |
---|
271 | |
---|
272 | |
---|
273 | |
---|
274 | |
---|
275 | |
---|
276 | |
---|
277 | |
---|
278 | |
---|
279 | |
---|
280 | |
---|
281 | |
---|
282 | |
---|
283 | |
---|