Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-01-18 09:58:27

0001 //
0002 // ********************************************************************
0003 // * License and Disclaimer                                           *
0004 // *                                                                  *
0005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
0006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
0007 // * conditions of the Geant4 Software License,  included in the file *
0008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
0009 // * include a list of copyright holders.                             *
0010 // *                                                                  *
0011 // * Neither the authors of this software system, nor their employing *
0012 // * institutes,nor the agencies providing financial support for this *
0013 // * work  make  any representation or  warranty, express or implied, *
0014 // * regarding  this  software system or assume any liability for its *
0015 // * use.  Please see the license in the file  LICENSE  and URL above *
0016 // * for the full disclaimer and the limitation of liability.         *
0017 // *                                                                  *
0018 // * This  code  implementation is the result of  the  scientific and *
0019 // * technical work of the GEANT4 collaboration.                      *
0020 // * By using,  copying,  modifying or  distributing the software (or *
0021 // * any work based  on the software)  you  agree  to acknowledge its *
0022 // * use  in  resulting  scientific  publications,  and indicate your *
0023 // * acceptance of all terms of the Geant4 Software license.          *
0024 // ********************************************************************
0025 //
0026 // INCL++ intra-nuclear cascade model
0027 // Alain Boudard, CEA-Saclay, France
0028 // Joseph Cugnon, University of Liege, Belgium
0029 // Jean-Christophe David, CEA-Saclay, France
0030 // Pekka Kaitaniemi, CEA-Saclay, France, and Helsinki Institute of Physics, Finland
0031 // Sylvie Leray, CEA-Saclay, France
0032 // Davide Mancusi, CEA-Saclay, France
0033 //
0034 #define INCLXX_IN_GEANT4_MODE 1
0035 
0036 #include "globals.hh"
0037 
0038 /** \file G4INCLNDFModifiedHarmonicOscillator.hh
0039  * \brief Class for modified harmonic oscillator density
0040  *
0041  * \date 16 July 2012
0042  * \author Davide Mancusi
0043  */
0044 
0045 #ifndef G4INCLNDFMODIFIEDHARMONICOSCILLATOR_HH_
0046 #define G4INCLNDFMODIFIEDHARMONICOSCILLATOR_HH_
0047 
0048 #include "G4INCLIFunction1D.hh"
0049 #include <cmath>
0050 #include <algorithm>
0051 
0052 namespace G4INCL {
0053 
0054   namespace NuclearDensityFunctions {
0055 
0056     class ModifiedHarmonicOscillatorRP : public IFunction1D {
0057       public:
0058         ModifiedHarmonicOscillatorRP(G4double radiusParameter, G4double maximumRadius, G4double diffusenessParameter) :
0059           IFunction1D(0., maximumRadius),
0060           theRadiusParameter(radiusParameter),
0061           theDiffusenessParameter(diffusenessParameter)
0062       {}
0063 
0064         inline G4double operator()(const G4double r) const {
0065           const G4double arg = std::pow((r/theDiffusenessParameter),2);
0066           return std::max(0., -2.0* r*r *arg * (theRadiusParameter - 1.0 - theRadiusParameter*arg)*std::exp(-arg));
0067         }
0068 
0069         inline G4double getRadiusParameter() { return theRadiusParameter; };
0070         inline G4double getDiffusenessParameter() { return theDiffusenessParameter; };
0071 
0072         inline void setRadiusParameter(G4double r) { theRadiusParameter = r; };
0073         inline void setDiffusenessParameter(G4double a) { theDiffusenessParameter = a; };
0074 
0075       protected:
0076         G4double theRadiusParameter, theDiffusenessParameter;
0077     };
0078 
0079     class ModifiedHarmonicOscillator : public IFunction1D {
0080       public:
0081         ModifiedHarmonicOscillator(G4double radiusParameter, G4double maximumRadius, G4double diffusenessParameter) :
0082           IFunction1D(0., maximumRadius),
0083           theRadiusParameter(radiusParameter),
0084           theDiffusenessParameter(diffusenessParameter),
0085           normalisation(2./((theDiffusenessParameter+theRadiusParameter)*std::pow(theDiffusenessParameter,2.)))
0086       {}
0087 
0088         inline G4double operator()(const G4double r) const {
0089           const G4double arg = std::pow((r/theDiffusenessParameter),2);
0090           return r*r*( 1. + theRadiusParameter * arg) * std::exp(-arg);
0091         }
0092 
0093         inline G4double getRadiusParameter() { return theRadiusParameter; };
0094         inline G4double getDiffusenessParameter() { return theDiffusenessParameter; };
0095 
0096         inline void setRadiusParameter(G4double r) { theRadiusParameter = r; };
0097         inline void setDiffusenessParameter(G4double a) { theDiffusenessParameter = a; };
0098 
0099       protected:
0100         G4double theRadiusParameter, theDiffusenessParameter;
0101         const G4double normalisation;
0102     };
0103 
0104   }
0105 
0106 }
0107 
0108 #endif // G4INCLNDFMODIFIEDHARMONICOSCILLATOR_HH_
0109