Geant4_10
G4AlphaCoulombBarrier.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 //
27 // $Id: G4AlphaCoulombBarrier.cc 67983 2013-03-13 10:42:03Z gcosmo $
28 //
29 // Hadronic Process: Nuclear De-excitations
30 // by V. Lara (Dec 1999)
31 
32 
33 #include "G4AlphaCoulombBarrier.hh"
34 #include "G4HadronicException.hh"
35 
38 
39 
40 G4double G4AlphaCoulombBarrier::BarrierPenetrationFactor(G4double aZ) const
41 {
42  // Data comes from
43  // Dostrovsky, Fraenkel and Friedlander
44  // Physical Review, vol 116, num. 3 1959
45  //
46  // const G4int size = 5;
47  // const G4double Zlist[size] = {10.0, 20.0, 30.0, 50.0, 70.0};
48  // const G4double Kalpha[size] = {0.68, 0.82, 0.91, 0.97, 0.98};
49  G4double K = 1.0;
50  if (aZ>=70.0) {
51  K = 0.98;
52  } else {
53  K = (((0.23684e-5*aZ) - 0.42143e-3)*aZ + 0.25222e-1)*aZ + 0.46699;
54  }
55  return K;
56 }
double G4double
Definition: G4Types.hh:76