| Geant4 Cross Reference |
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 // INCL++ intra-nuclear cascade model
27 // Alain Boudard, CEA-Saclay, France
28 // Joseph Cugnon, University of Liege, Belgium
29 // Jean-Christophe David, CEA-Saclay, France
30 // Pekka Kaitaniemi, CEA-Saclay, France, and Helsinki Institute of Physics, Finland
31 // Sylvie Leray, CEA-Saclay, France
32 // Davide Mancusi, CEA-Saclay, France
33 //
34 #define INCLXX_IN_GEANT4_MODE 1
35
36 #include "globals.hh"
37
38 /** \file G4INCLNDFWoodsSaxon.hh
39 * \brief Class for Woods-Saxon density
40 *
41 * \date 16 July 2012
42 * \author Davide Mancusi
43 */
44
45 #ifndef G4INCLNDFWOODSSAXON_HH_
46 #define G4INCLNDFWOODSSAXON_HH_
47
48 #include "G4INCLIFunction1D.hh"
49 #include <cmath>
50
51 namespace G4INCL {
52
53 namespace NuclearDensityFunctions {
54
55 class WoodsSaxonRP : public IFunction1D {
56 public:
57 WoodsSaxonRP(G4double radiusParameter, G4double maximumRadius, G4double diffusenessParameter) :
58 IFunction1D(0., maximumRadius),
59 theRadiusParameter(radiusParameter),
60 theDiffusenessParameter(diffusenessParameter)
61 {}
62
63 inline G4double operator()(const G4double r) const {
64 G4double wsax = std::pow(r,3)
65 *std::exp((r - theRadiusParameter)/theDiffusenessParameter)
66 /std::pow((1.0 + std::exp((r - theRadiusParameter)/theDiffusenessParameter)),2);
67 return wsax/theDiffusenessParameter;
68 }
69
70 inline G4double getRadiusParameter() { return theRadiusParameter; };
71 inline G4double getDiffusenessParameter() { return theDiffusenessParameter; };
72
73 inline void setRadiusParameter(G4double r) { theRadiusParameter = r; };
74 inline void setDiffusenessParameter(G4double a) { theDiffusenessParameter = a; };
75
76 protected:
77 G4double theRadiusParameter, theDiffusenessParameter;
78 };
79
80 class WoodsSaxon : public IFunction1D {
81 public:
82 WoodsSaxon(G4double radiusParameter, G4double maximumRadius, G4double diffusenessParameter) :
83 IFunction1D(0., maximumRadius),
84 theRadiusParameter(radiusParameter),
85 theDiffusenessParameter(diffusenessParameter)
86 {}
87
88 inline G4double operator()(const G4double r) const {
89 return r * r / (1.0 + std::exp((r - theRadiusParameter)/theDiffusenessParameter));
90 }
91
92 inline G4double getRadiusParameter() { return theRadiusParameter; };
93 inline G4double getDiffusenessParameter() { return theDiffusenessParameter; };
94
95 inline void setRadiusParameter(G4double r) { theRadiusParameter = r; };
96 inline void setDiffusenessParameter(G4double a) { theDiffusenessParameter = a; };
97
98 protected:
99 G4double theRadiusParameter, theDiffusenessParameter;
100 };
101
102 }
103
104 }
105
106 #endif // G4INCLNDFWOODSSAXON_HH_
107