Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/electromagnetic/dna/models/src/G4DNADingfelderChargeIncreaseModel.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

Diff markup

Differences between /processes/electromagnetic/dna/models/src/G4DNADingfelderChargeIncreaseModel.cc (Version 11.3.0) and /processes/electromagnetic/dna/models/src/G4DNADingfelderChargeIncreaseModel.cc (Version 9.1.p1)


  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 #include "G4DNADingfelderChargeIncreaseModel.h    
 29 #include "G4PhysicalConstants.hh"                 
 30 #include "G4SystemOfUnits.hh"                     
 31 #include "G4DNAMolecularMaterial.hh"              
 32 #include "G4Log.hh"                               
 33 #include "G4Pow.hh"                               
 34 #include "G4Alpha.hh"                             
 35                                                   
 36 static G4Pow * gpow = G4Pow::GetInstance();       
 37                                                   
 38 //....oooOO0OOooo........oooOO0OOooo........oo    
 39                                                   
 40 using namespace std;                              
 41                                                   
 42 //....oooOO0OOooo........oooOO0OOooo........oo    
 43                                                   
 44 G4DNADingfelderChargeIncreaseModel::G4DNADingf    
 45                                                   
 46 G4VEmModel(nam)                                   
 47 {                                                 
 48   if (verboseLevel > 0)                           
 49   {                                               
 50     G4cout << "Dingfelder charge increase mode    
 51   }                                               
 52 }                                                 
 53                                                   
 54 //....oooOO0OOooo........oooOO0OOooo........oo    
 55                                                   
 56 void G4DNADingfelderChargeIncreaseModel::Initi    
 57                                                   
 58 {                                                 
 59                                                   
 60   if (verboseLevel > 3)                           
 61   {                                               
 62     G4cout << "Calling G4DNADingfelderChargeIn    
 63         << G4endl;                                
 64   }                                               
 65                                                   
 66   // Energy limits                                
 67                                                   
 68   G4DNAGenericIonsManager *instance;              
 69   instance = G4DNAGenericIonsManager::Instance    
 70   hydrogenDef = instance->GetIon("hydrogen");     
 71   alphaPlusPlusDef = G4Alpha::Alpha();            
 72   alphaPlusDef = instance->GetIon("alpha+");      
 73   heliumDef = instance->GetIon("helium");         
 74                                                   
 75   G4String hydrogen;                              
 76   G4String alphaPlus;                             
 77   G4String helium;                                
 78                                                   
 79   // Limits                                       
 80                                                   
 81   hydrogen = hydrogenDef->GetParticleName();      
 82   lowEnergyLimit[hydrogen] = 100. * eV;           
 83   highEnergyLimit[hydrogen] = 100. * MeV;         
 84                                                   
 85   alphaPlus = alphaPlusDef->GetParticleName();    
 86   lowEnergyLimit[alphaPlus] = 1. * keV;           
 87   highEnergyLimit[alphaPlus] = 400. * MeV;        
 88                                                   
 89   helium = heliumDef->GetParticleName();          
 90   lowEnergyLimit[helium] = 1. * keV;              
 91   highEnergyLimit[helium] = 400. * MeV;           
 92                                                   
 93   //                                              
 94                                                   
 95   if (particle==hydrogenDef)                      
 96   {                                               
 97     SetLowEnergyLimit(lowEnergyLimit[hydrogen]    
 98     SetHighEnergyLimit(highEnergyLimit[hydroge    
 99   }                                               
100                                                   
101   if (particle==alphaPlusDef)                     
102   {                                               
103     SetLowEnergyLimit(lowEnergyLimit[alphaPlus    
104     SetHighEnergyLimit(highEnergyLimit[alphaPl    
105   }                                               
106                                                   
107   if (particle==heliumDef)                        
108   {                                               
109     SetLowEnergyLimit(lowEnergyLimit[helium]);    
110     SetHighEnergyLimit(highEnergyLimit[helium]    
111   }                                               
112                                                   
113   // Final state                                  
114                                                   
115   //ALPHA+                                        
116                                                   
117   f0[0][0]=1.;                                    
118   a0[0][0]=2.25;                                  
119   a1[0][0]=-0.75;                                 
120   b0[0][0]=-32.10;                                
121   c0[0][0]=0.600;                                 
122   d0[0][0]=2.40;                                  
123   x0[0][0]=4.60;                                  
124                                                   
125   x1[0][0]=-1.;                                   
126   b1[0][0]=-1.;                                   
127                                                   
128   numberOfPartialCrossSections[0]=1;              
129                                                   
130   //HELIUM                                        
131                                                   
132   f0[0][1]=1.;                                    
133   a0[0][1]=2.25;                                  
134   a1[0][1]=-0.75;                                 
135   b0[0][1]=-30.93;                                
136   c0[0][1]=0.590;                                 
137   d0[0][1]=2.35;                                  
138   x0[0][1]=4.29;                                  
139                                                   
140   f0[1][1]=1.;                                    
141   a0[1][1]=2.25;                                  
142   a1[1][1]=-0.75;                                 
143   b0[1][1]=-32.61;                                
144   c0[1][1]=0.435;                                 
145   d0[1][1]=2.70;                                  
146   x0[1][1]=4.45;                                  
147                                                   
148   x1[0][1]=-1.;                                   
149   b1[0][1]=-1.;                                   
150                                                   
151   x1[1][1]=-1.;                                   
152   b1[1][1]=-1.;                                   
153                                                   
154   numberOfPartialCrossSections[1]=2;              
155                                                   
156   //                                              
157                                                   
158   if( verboseLevel>0 )                            
159   {                                               
160     G4cout << "Dingfelder charge increase mode    
161     << "Energy range: "                           
162     << LowEnergyLimit() / keV << " keV - "        
163     << HighEnergyLimit() / MeV << " MeV for "     
164     << particle->GetParticleName()                
165     << G4endl;                                    
166   }                                               
167                                                   
168   // Initialize water density pointer             
169   fpMolWaterDensity = G4DNAMolecularMaterial::    
170                                                   
171   if (isInitialised) return;                      
172                                                   
173   fParticleChangeForGamma = GetParticleChangeF    
174   isInitialised = true;                           
175 }                                                 
176                                                   
177 //....oooOO0OOooo........oooOO0OOooo........oo    
178                                                   
179 G4double G4DNADingfelderChargeIncreaseModel::C    
180                                                   
181                                                   
182                                                   
183                                                   
184 {                                                 
185   if (verboseLevel > 3)                           
186   {                                               
187     G4cout                                        
188         << "Calling CrossSectionPerVolume() of    
189         << G4endl;                                
190   }                                               
191                                                   
192   // Calculate total cross section for model      
193                                                   
194   if (                                            
195       particleDefinition != hydrogenDef           
196       &&                                          
197       particleDefinition != alphaPlusDef          
198       &&                                          
199       particleDefinition != heliumDef             
200   )                                               
201                                                   
202   return 0;                                       
203                                                   
204   G4double lowLim = 0;                            
205   G4double highLim = 0;                           
206   G4double totalCrossSection = 0.;                
207                                                   
208   G4double waterDensity = (*fpMolWaterDensity)    
209                                                   
210   const G4String& particleName = particleDefin    
211                                                   
212   std::map< G4String,G4double,std::less<G4Stri    
213   pos1 = lowEnergyLimit.find(particleName);       
214                                                   
215   if (pos1 != lowEnergyLimit.end())               
216   {                                               
217     lowLim = pos1->second;                        
218   }                                               
219                                                   
220   std::map< G4String,G4double,std::less<G4Stri    
221   pos2 = highEnergyLimit.find(particleName);      
222                                                   
223   if (pos2 != highEnergyLimit.end())              
224   {                                               
225     highLim = pos2->second;                       
226   }                                               
227                                                   
228   if (k >= lowLim && k <= highLim)                
229   {                                               
230     //HYDROGEN                                    
231     if (particleDefinition == hydrogenDef)        
232     {                                             
233       const G4double aa = 2.835;                  
234       const G4double bb = 0.310;                  
235       const G4double cc = 2.100;                  
236       const G4double dd = 0.760;                  
237       const G4double fac = 1.0e-18;               
238       const G4double rr = 13.606 * eV;            
239                                                   
240       G4double t = k / (proton_mass_c2/electro    
241       G4double x = t / rr;                        
242       G4double temp = 4.0 * pi * Bohr_radius/n    
243       G4double sigmal = temp * cc * (gpow->pow    
244       G4double sigmah = temp * (aa * G4Log(1.0    
245       totalCrossSection = 1.0/(1.0/sigmal + 1.    
246     }                                             
247     else                                          
248     {                                             
249       totalCrossSection = Sum(k,particleDefini    
250     }                                             
251   }                                               
252                                                   
253   if (verboseLevel > 2)                           
254   {                                               
255     G4cout << "_______________________________    
256     G4cout << "G4DNADingfelderChargeIncreaseMo    
257     G4cout << "Kinetic energy(eV)=" << k/eV <<    
258     G4cout << "Cross section per water molecul    
259     G4cout << "Cross section per water molecul    
260     //  G4cout << " - Cross section per water     
261     //  << sigma*material->GetAtomicNumDensity    
262     G4cout << "G4DNADingfelderChargeIncreaseMo    
263   }                                               
264                                                   
265   return totalCrossSection*waterDensity;          
266   // return totalCrossSection*material->GetAto    
267                                                   
268 }                                                 
269                                                   
270 //....oooOO0OOooo........oooOO0OOooo........oo    
271                                                   
272 void G4DNADingfelderChargeIncreaseModel::Sampl    
273                                                   
274                                                   
275                                                   
276                                                   
277                                                   
278 {                                                 
279   if (verboseLevel > 3)                           
280   {                                               
281     G4cout                                        
282         << "Calling SampleSecondaries() of G4D    
283         << G4endl;                                
284   }                                               
285                                                   
286   if (!statCode) fParticleChangeForGamma->Prop    
287                                                   
288   G4ParticleDefinition* definition = aDynamicP    
289                                                   
290   G4double particleMass = definition->GetPDGMa    
291                                                   
292   G4double inK = aDynamicParticle->GetKineticE    
293                                                   
294   G4int finalStateIndex = RandomSelect(inK,def    
295                                                   
296   G4int n = NumberOfFinalStates(definition,fin    
297                                                   
298   G4double outK = 0.;                             
299                                                   
300   if (!statCode) outK = inK - IncomingParticle    
301                                                   
302   else outK = inK;                                
303                                                   
304   if (statCode)                                   
305     fParticleChangeForGamma->                     
306       ProposeLocalEnergyDeposit(IncomingPartic    
307                                                   
308   fParticleChangeForGamma->ProposeTrackStatus(    
309                                                   
310   G4double electronK;                             
311   if (definition == hydrogenDef) electronK = i    
312   else electronK = inK*electron_mass_c2/(parti    
313                                                   
314   if (outK<0)                                     
315   {                                               
316     G4Exception("G4DNADingfelderChargeIncrease    
317         FatalException,"Final kinetic energy i    
318   }                                               
319                                                   
320   auto dp = new G4DynamicParticle(OutgoingPart    
321       aDynamicParticle->GetMomentumDirection()    
322       outK);                                      
323                                                   
324   fvect->push_back(dp);                           
325                                                   
326   n = n - 1;                                      
327                                                   
328   while (n>0)                                     
329   {                                               
330     n--;                                          
331     fvect->push_back(new G4DynamicParticle        
332         (G4Electron::Electron(), aDynamicParti    
333   }                                               
334 }                                                 
335                                                   
336 //....oooOO0OOooo........oooOO0OOooo........oo    
337                                                   
338 G4int G4DNADingfelderChargeIncreaseModel::Numb    
339                                                   
340                                                   
341 {                                                 
342                                                   
343   if (particleDefinition == hydrogenDef)          
344     return 2;                                     
345                                                   
346   if (particleDefinition == alphaPlusDef)         
347     return 2;                                     
348                                                   
349   if (particleDefinition == heliumDef)            
350   {                                               
351     if (finalStateIndex == 0)                     
352       return 2;                                   
353     return 3;                                     
354   }                                               
355                                                   
356   return 0;                                       
357 }                                                 
358                                                   
359 //....oooOO0OOooo........oooOO0OOooo........oo    
360                                                   
361 G4ParticleDefinition* G4DNADingfelderChargeInc    
362                                                   
363 {                                                 
364                                                   
365   if (particleDefinition == hydrogenDef)          
366     return G4Proton::Proton();                    
367                                                   
368   if (particleDefinition == alphaPlusDef)         
369     return alphaPlusPlusDef;                      
370                                                   
371   if (particleDefinition == heliumDef)            
372   {                                               
373     if (finalStateIndex == 0)                     
374       return alphaPlusDef;                        
375     return alphaPlusPlusDef;                      
376   }                                               
377                                                   
378   return nullptr;                                 
379 }                                                 
380                                                   
381 //....oooOO0OOooo........oooOO0OOooo........oo    
382                                                   
383 G4double G4DNADingfelderChargeIncreaseModel::I    
384                                                   
385 {                                                 
386                                                   
387   if (particleDefinition == hydrogenDef)          
388     return 13.6 * eV;                             
389                                                   
390   if (particleDefinition == alphaPlusDef)         
391   {                                               
392     // Binding energy for    He+ -> He++ + e-     
393     // Binding energy for    He  -> He+  + e-     
394     return 54.509 * eV;                           
395   }                                               
396                                                   
397   if (particleDefinition == heliumDef)            
398   {                                               
399     // Binding energy for    He+ -> He++ + e-     
400     // Binding energy for    He  -> He+  + e-     
401                                                   
402     if (finalStateIndex == 0)                     
403       return 24.587 * eV;                         
404     return (54.509 + 24.587) * eV;                
405   }                                               
406                                                   
407   return 0;                                       
408 }                                                 
409                                                   
410 //....oooOO0OOooo........oooOO0OOooo........oo    
411                                                   
412 G4double G4DNADingfelderChargeIncreaseModel::P    
413                                                   
414                                                   
415 {                                                 
416   G4int particleTypeIndex = 0;                    
417                                                   
418   if (particleDefinition == alphaPlusDef)         
419     particleTypeIndex = 0;                        
420                                                   
421   if (particleDefinition == heliumDef)            
422     particleTypeIndex = 1;                        
423                                                   
424   //                                              
425   // sigma(T) = f0 10 ^ y(log10(T/eV))            
426   //                                              
427   //         /  a0 x + b0                    x    
428   //         |                                    
429   // y(x) = <   a0 x + b0 - c0 (x - x0)^d0   x    
430   //         |                                    
431   //         \  a1 x + b1                    x    
432   //                                              
433   //                                              
434   // f0, a0, a1, b0, b1, c0, d0, x0, x1 are pa    
435   //                                              
436   // f0 has been added to the code in order to    
437   // (if no shell dependence is present. f0=1.    
438   //                                              
439   // From Rad. Phys. and Chem. 59 (2000) 255-2    
440   // Inelastic-collision cross sections of liq    
441   //                                              
442                                                   
443   if (x1[index][particleTypeIndex] < x0[index]    
444   {                                               
445     //                                            
446     // if x1 < x0 means that x1 and b1 will be    
447     // (this piece of code is run on all alpha    
448     //                                            
449     // x1 = x0 + ((a0 - a1)/(c0 * d0)) ^ (1 /     
450     //                                            
451     // b1 = (a0 - a1) * x1 + b0 - c0 * (x1 - x    
452     //                                            
453                                                   
454     x1[index][particleTypeIndex] = x0[index][p    
455         + gpow->powA((a0[index][particleTypeIn    
456                        / (c0[index][particleTy    
457                            * d0[index][particl    
458                    1. / (d0[index][particleTyp    
459     b1[index][particleTypeIndex] = (a0[index][    
460         - a1[index][particleTypeIndex]) * x1[i    
461         + b0[index][particleTypeIndex]            
462         - c0[index][particleTypeIndex]            
463             * gpow->powA(x1[index][particleTyp    
464                            - x0[index][particl    
465                        d0[index][particleTypeI    
466   }                                               
467                                                   
468   G4double x(G4Log(k / eV)/gpow->logZ(10));       
469   G4double y;                                     
470                                                   
471   if (x < x0[index][particleTypeIndex])           
472     y = a0[index][particleTypeIndex] * x + b0[    
473   else if (x < x1[index][particleTypeIndex])      
474     y = a0[index][particleTypeIndex] * x + b0[    
475         - c0[index][particleTypeIndex]            
476             * gpow->powA(x - x0[index][particl    
477                        d0[index][particleTypeI    
478   else                                            
479     y = a1[index][particleTypeIndex] * x + b1[    
480                                                   
481   return f0[index][particleTypeIndex] * gpow->    
482                                                   
483 }                                                 
484                                                   
485 //....oooOO0OOooo........oooOO0OOooo........oo    
486                                                   
487 G4int G4DNADingfelderChargeIncreaseModel::Rand    
488                                                   
489 {                                                 
490   G4int particleTypeIndex = 0;                    
491                                                   
492   if (particleDefinition == hydrogenDef)          
493     return 0;                                     
494                                                   
495   if (particleDefinition == alphaPlusDef)         
496     particleTypeIndex = 0;                        
497                                                   
498   if (particleDefinition == heliumDef)            
499     particleTypeIndex = 1;                        
500                                                   
501   const G4int n = numberOfPartialCrossSections    
502   auto values(new G4double[n]);                   
503   G4double value = 0;                             
504   G4int i = n;                                    
505                                                   
506   while (i > 0)                                   
507   {                                               
508     i--;                                          
509     values[i] = PartialCrossSection(k, i, part    
510     value += values[i];                           
511   }                                               
512                                                   
513   value *= G4UniformRand();                       
514                                                   
515   i = n;                                          
516   while (i > 0)                                   
517   {                                               
518     i--;                                          
519                                                   
520     if (values[i] > value)                        
521       break;                                      
522                                                   
523     value -= values[i];                           
524   }                                               
525                                                   
526   delete[] values;                                
527                                                   
528   return i;                                       
529 }                                                 
530                                                   
531 //....oooOO0OOooo........oooOO0OOooo........oo    
532                                                   
533 G4double G4DNADingfelderChargeIncreaseModel::S    
534                                                   
535 {                                                 
536   G4int particleTypeIndex = 0;                    
537                                                   
538   if (particleDefinition == alphaPlusDef)         
539     particleTypeIndex = 0;                        
540                                                   
541   if (particleDefinition == heliumDef)            
542     particleTypeIndex = 1;                        
543                                                   
544   G4double totalCrossSection = 0.;                
545                                                   
546   for (G4int i = 0; i < numberOfPartialCrossSe    
547   {                                               
548     totalCrossSection += PartialCrossSection(k    
549   }                                               
550                                                   
551   return totalCrossSection;                       
552 }                                                 
553