G4BetaFermiFunction.cc

Go to the documentation of this file.
00001 //
00002 // ********************************************************************
00003 // * License and Disclaimer                                           *
00004 // *                                                                  *
00005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
00006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
00007 // * conditions of the Geant4 Software License,  included in the file *
00008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
00009 // * include a list of copyright holders.                             *
00010 // *                                                                  *
00011 // * Neither the authors of this software system, nor their employing *
00012 // * institutes,nor the agencies providing financial support for this *
00013 // * work  make  any representation or  warranty, express or implied, *
00014 // * regarding  this  software system or assume any liability for its *
00015 // * use.  Please see the license in the file  LICENSE  and URL above *
00016 // * for the full disclaimer and the limitation of liability.         *
00017 // *                                                                  *
00018 // * This  code  implementation is the result of  the  scientific and *
00019 // * technical work of the GEANT4 collaboration.                      *
00020 // * By using,  copying,  modifying or  distributing the software (or *
00021 // * any work based  on the software)  you  agree  to acknowledge its *
00022 // * use  in  resulting  scientific  publications,  and indicate your *
00023 // * acceptance of all terms of the Geant4 Software license.          *
00024 // ********************************************************************
00025 //
00026 //
00027 #include "globals.hh"
00028 #include "G4BetaFermiFunction.hh"
00029 
00030 const G4double G4BetaFermiFunction::PI=3.14159;
00031 
00033 //
00034 // calculate the Fermi Function foe energy E0
00035 //
00036 G4double G4BetaFermiFunction::GetFF( const G4double E0)
00037 {
00038   G4double A1, A2;
00039   G4double P, U, S, Y;
00040   G4double F2;
00041   G4double E = E0+1.;  
00042   P=std::sqrt(E*E-1.0) ;
00043   U=Z/137.0;
00044   S=std::sqrt(1.0-U*U) - 1.;
00045   Y = 2*PI*U*E/P;
00046   A1 = U*U*E*E + P*P/4.;
00047   A2 = std::fabs(Y/(1-std::exp(-Y)));
00048   F2 = std::pow(A1,S) * A2; 
00049   return F2;
00050 }
00051 
00053 //
00054 //  calculate the Fermi normalization factor 
00055 //  here E0 is the end point energy of the beta decay
00056 //
00057 G4double G4BetaFermiFunction::GetFFN(const G4double E0)
00058 {
00059 
00060   G4double A1, A2;
00061   G4double P, U, S, Y;
00062   G4double F2,E;
00063   G4double EE = E0/100.;
00064   U=Z/137.0;
00065   S=std::sqrt(1.0-U*U) - 1.;
00066   G4double F1 = 1E-10;
00067   for (G4int i = 1; i<=100 ; i++) {
00068     E = G4double(i)*EE + 1.;
00069     P=std::sqrt(E*E-1.0) ;
00070     Y = 2*PI*U*E/P;
00071     A1 = U*U*E*E + P*P/4.;
00072     A2 = std::fabs(Y/(1-std::exp(-Y)));
00073     F2 = std::pow(A1,S) * A2; 
00074     if (F2 > F1) F1 = F2;
00075   }                
00076   return F1;
00077 }
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 

Generated on Mon May 27 17:47:44 2013 for Geant4 by  doxygen 1.4.7