| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer << 3 // * DISCLAIMER *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th << 5 // * The following disclaimer summarizes all the specific disclaimers *
6 // * the Geant4 Collaboration. It is provided << 6 // * of contributors to this software. The specific disclaimers,which *
7 // * conditions of the Geant4 Software License << 7 // * govern, are listed with their locations in: *
8 // * LICENSE and available at http://cern.ch/ << 8 // * http://cern.ch/geant4/license *
9 // * include a list of copyright holders. <<
10 // * 9 // * *
11 // * Neither the authors of this software syst 10 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 11 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 12 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 13 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file << 14 // * use. *
16 // * for the full disclaimer and the limitatio <<
17 // * 15 // * *
18 // * This code implementation is the result << 16 // * This code implementation is the intellectual property of the *
19 // * technical work of the GEANT4 collaboratio << 17 // * GEANT4 collaboration. *
20 // * By using, copying, modifying or distri << 18 // * By copying, distributing or modifying the Program (or any work *
21 // * any work based on the software) you ag << 19 // * based on the Program) you indicate your acceptance of this *
22 // * use in resulting scientific publicati << 20 // * statement, and all its terms. *
23 // * acceptance of all terms of the Geant4 Sof <<
24 // ******************************************* 21 // ********************************************************************
25 // 22 //
26 // 23 //
>> 24 // $Id: G4StatMFParameters.cc,v 1.3 2005/06/04 13:27:49 jwellisc Exp $
>> 25 // GEANT4 tag $Name: geant4-07-01-patch-01 $
27 // 26 //
28 // Hadronic Process: Nuclear De-excitations 27 // Hadronic Process: Nuclear De-excitations
29 // by V. Lara 28 // by V. Lara
30 29
31 30
32 #include "G4StatMFParameters.hh" 31 #include "G4StatMFParameters.hh"
33 #include "G4SystemOfUnits.hh" <<
34 #include "G4PhysicalConstants.hh" <<
35 32
36 const G4double G4StatMFParameters::fKappa = 1. <<
37 33
38 const G4double G4StatMFParameters::fKappaCoulo << 34 const G4double G4StatMFParameters::_Kappa = 1.0; // dimensionless
39 35
40 const G4double G4StatMFParameters::fEpsilon0 = << 36 const G4double G4StatMFParameters::_KappaCoulomb = 2.0; // dimensionless
>> 37
>> 38 const G4double G4StatMFParameters::_Epsilon0 = 16.0*MeV;
41 39
42 // Bethe-Weizsacker coefficients 40 // Bethe-Weizsacker coefficients
43 const G4double G4StatMFParameters::fE0 = 16.0* << 41 const G4double G4StatMFParameters::_E0 = 16.0*MeV;
44 42
45 const G4double G4StatMFParameters::fBeta0 = 18 << 43 const G4double G4StatMFParameters::_Beta0 = 18.0*MeV;
46 44
47 const G4double G4StatMFParameters::fGamma0 = 2 << 45 const G4double G4StatMFParameters::_Gamma0 = 25.0*MeV;
48 46
49 // Critical temperature (for liquid-gas phase 47 // Critical temperature (for liquid-gas phase transitions)
50 const G4double G4StatMFParameters::fCriticalTe << 48 const G4double G4StatMFParameters::_CriticalTemp = 18.0*MeV;
51 49
52 // Nuclear radius 50 // Nuclear radius
53 const G4double G4StatMFParameters::fr0 = 1.17* << 51 const G4double G4StatMFParameters::_r0 = 1.17*fermi;
54 <<
55 const G4double G4StatMFParameters::fCoulomb = <<
56 (1.0 - 1.0/std::pow(1.0+fKappaCoulomb,1./3.) <<
57 <<
58 G4StatMFParameters::G4StatMFParameters() <<
59 {} <<
60 <<
61 G4StatMFParameters::~G4StatMFParameters() <<
62 {} <<
63 <<
64 G4double G4StatMFParameters::GetKappa() <<
65 { <<
66 return fKappa; <<
67 } <<
68 <<
69 G4double G4StatMFParameters::GetKappaCoulomb() <<
70 { <<
71 return fKappaCoulomb; <<
72 } <<
73 <<
74 G4double G4StatMFParameters::GetEpsilon0() <<
75 { <<
76 return fEpsilon0; <<
77 } <<
78 <<
79 G4double G4StatMFParameters::GetE0() <<
80 { <<
81 return fE0; <<
82 } <<
83 <<
84 G4double G4StatMFParameters::GetBeta0() <<
85 { <<
86 return fBeta0; <<
87 } <<
88 <<
89 G4double G4StatMFParameters::GetGamma0() <<
90 { <<
91 return fGamma0; <<
92 } <<
93 <<
94 G4double G4StatMFParameters::GetCriticalTemp() <<
95 { <<
96 return fCriticalTemp; <<
97 } <<
98 <<
99 G4double G4StatMFParameters::Getr0() <<
100 { <<
101 return fr0; <<
102 } <<
103 <<
104 G4double G4StatMFParameters::GetCoulomb() <<
105 { <<
106 return fCoulomb; <<
107 } <<
108 52
109 G4double G4StatMFParameters::Beta(G4double T) << 53 G4double G4StatMFParameters::Beta(const G4double T)
110 { 54 {
111 G4double res = 0.0; << 55 if (T > _CriticalTemp) return 0.0;
112 if (T < fCriticalTemp) { << 56 else {
113 G4double CriticalTempSqr = fCriticalTemp*f << 57 G4double CriticalTempSqr = _CriticalTemp*_CriticalTemp;
114 G4double TempSqr = T*T; 58 G4double TempSqr = T*T;
115 G4double tmp = (CriticalTempSqr-TempSqr)/( 59 G4double tmp = (CriticalTempSqr-TempSqr)/(CriticalTempSqr+TempSqr);
116 60
117 res = fBeta0*tmp*std::pow(tmp,0.25); << 61 return _Beta0*tmp*std::pow(tmp,1.0/4.0);
118 } 62 }
119 return res; <<
120 } 63 }
121 64
122 G4double G4StatMFParameters::DBetaDT(G4double << 65 G4double G4StatMFParameters::DBetaDT(const G4double T)
123 { 66 {
124 G4double res = 0.0; << 67 if (T > _CriticalTemp) return 0.0;
125 if (T < fCriticalTemp) { << 68 else {
126 G4double CriticalTempSqr = fCriticalTemp*f << 69 G4double CriticalTempSqr = _CriticalTemp*_CriticalTemp;
127 G4double TempSqr = T*T; 70 G4double TempSqr = T*T;
128 G4double tmp = (CriticalTempSqr-TempSqr)/( 71 G4double tmp = (CriticalTempSqr-TempSqr)/(CriticalTempSqr+TempSqr);
129 72
130 res = -5.0*fBeta0*std::pow(tmp,0.25)*(Crit << 73 return -5.0*_Beta0*std::pow(tmp,1.0/4.0)*(CriticalTempSqr*T)/
131 ((CriticalTempSqr+TempSqr)*(CriticalTemp 74 ((CriticalTempSqr+TempSqr)*(CriticalTempSqr+TempSqr));
132 } 75 }
133 return res; <<
134 } 76 }
135 77
136 G4double << 78 G4double G4StatMFParameters::GetMaxAverageMultiplicity(const G4int A)
137 G4StatMFParameters::GetMaxAverageMultiplicity( <<
138 { 79 {
139 // Maximun average multiplicity: M_0 = 2.6 f 80 // Maximun average multiplicity: M_0 = 2.6 for A ~ 200
140 // and M_0 = 3.3 for A <= 110 81 // and M_0 = 3.3 for A <= 110
141 G4double MaxAverageMultiplicity = 2.6; 82 G4double MaxAverageMultiplicity = 2.6;
142 if (A <= 110) { MaxAverageMultiplicity = 3.3 << 83 if (A <= 110) MaxAverageMultiplicity = 3.3;
143 return MaxAverageMultiplicity; 84 return MaxAverageMultiplicity;
144 } 85 }
>> 86
>> 87 G4StatMFParameters G4StatMFParameters::theStatMFParameters;
>> 88
>> 89
>> 90 G4StatMFParameters * G4StatMFParameters::GetAddress()
>> 91 { return &theStatMFParameters; }
145 92
146 93