lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 7.0.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-09 11:11:55 +02:00
parent e083ffb441
commit 516dbf1a58
5914 changed files with 202605 additions and 71141 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/processes/hadronic/models/radioactive_decay/src/G4BetaFermiFunction.cc
+8 -8
View File
@@ -36,13 +36,13 @@ G4double G4BetaFermiFunction::GetFF( const G4double E0)
G4double P, U, S, Y;
G4double F2;
G4double E = E0+1.;
P=sqrt(E*E-1.0) ;
P=std::sqrt(E*E-1.0) ;
U=Z/137.0;
S=sqrt(1.0-U*U) - 1.;
S=std::sqrt(1.0-U*U) - 1.;
Y = 2*PI*U*E/P;
A1 = U*U*E*E + P*P/4.;
A2 = fabs(Y/(1-exp(-Y)));
F2 = pow(A1,S) * A2;
A2 = std::fabs(Y/(1-std::exp(-Y)));
F2 = std::pow(A1,S) * A2;
return F2;
}
@@ -59,15 +59,15 @@ G4double G4BetaFermiFunction::GetFFN(const G4double E0)
G4double F2,E;
G4double EE = E0/100.;
U=Z/137.0;
S=sqrt(1.0-U*U) - 1.;
S=std::sqrt(1.0-U*U) - 1.;
G4double F1 = 1E-10;
for (G4int i = 1; i<=100 ; i++) {
E = G4double(i)*EE + 1.;
P=sqrt(E*E-1.0) ;
P=std::sqrt(E*E-1.0) ;
Y = 2*PI*U*E/P;
A1 = U*U*E*E + P*P/4.;
A2 = fabs(Y/(1-exp(-Y)));
F2 = pow(A1,S) * A2;
A2 = std::fabs(Y/(1-std::exp(-Y)));
F2 = std::pow(A1,S) * A2;
if (F2 > F1) F1 = F2;
}
return F1;