Geant4  10.03.p03
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
G4HETCAlpha.cc
Go to the documentation of this file.
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: G4HETCAlpha.cc 90337 2015-05-26 08:34:27Z gcosmo $
27 //
28 // by V. Lara
29 //
30 // Modified:
31 // 23.08.2010 V.Ivanchenko general cleanup, move constructor and destructor
32 // the source, use G4Pow
33 
34 #include "G4HETCAlpha.hh"
35 #include "G4Alpha.hh"
36 
38  : G4HETCChargedFragment(G4Alpha::Alpha(), &theAlphaCoulombBarrier)
39 {}
40 
42 {}
43 
45 {
46  G4double C = 0.0;
47  if (theFragZ <= 30)
48  {
49  C = 0.10;
50  }
51  else if (theFragZ <= 50)
52  {
53  C = 0.1 + -((theFragZ-50.)/20.)*0.02;
54  }
55  else if (theFragZ < 70)
56  {
57  C = 0.08 + -((theFragZ-70.)/20.)*0.02;
58  }
59  else
60  {
61  C = 0.06;
62  }
63  return 1.0+C;
64 }
65 
67 {
68  return theCoulombBarrier;
69 }
70 
72 {
73  return 1.0;
74 }
75 
77 {
78  // Number of protons in emitted fragment
79  G4int Pa = theZ;
80  // Number of neutrons in emitted fragment
81  G4int Na = theA - Pa;
82 
84 
85  G4int P = aFragment.GetNumberOfParticles();
86  G4int H = aFragment.GetNumberOfHoles();
87 
88  G4double result = 0.0;
89  if (P > 3)
90  {
91  result = 3.0/(P*(P-1.0)*(P-2.0)*(P-3.0)) *
92  (H*(H-1.0)*(H-2.0)*(H-3.0)*r*r*(r-1.0)*(r-1.0) +
93  2.0*H*(H-1.0)*(H-2.0)*(Pa*r*(1.0-r)*(1.0-r)+Na*r*r*(1.0-r)) +
94  H*(H-1.0)*(Pa*(Pa-1.0)*(1.0-r)*(1.0-r)+4.0*Na*Pa*r*(1.0-r)+Na*(Na-1.0)*r*r) +
95  2*H*(Pa*Na*(Na-1.0)*r+Pa*(Pa-1.0)*Na*(1.0-r)) +
96  Pa*(Pa-1.0)*Na*(Na-1.0));
97 
98  result /= 6.0*r*r*(1. - r) *(1. - r);
99  }
100  return std::max(0.0,result);
101 }
G4double G4ParticleHPJENDLHEData::G4double result
virtual G4double GetBeta() const
Definition: G4HETCAlpha.cc:66
G4int GetNumberOfParticles() const
Definition: G4Fragment.hh:345
double C(double temp)
int G4int
Definition: G4Types.hh:78
virtual G4double GetAlpha() const
Definition: G4HETCAlpha.cc:44
static double P[]
G4int GetNumberOfHoles() const
Definition: G4Fragment.hh:365
virtual G4double GetSpinFactor() const
Definition: G4HETCAlpha.cc:71
T max(const T t1, const T t2)
brief Return the largest of the two arguments
virtual G4double K(const G4Fragment &aFragment)
Definition: G4HETCAlpha.cc:76
double G4double
Definition: G4Types.hh:76