Geant4 Cross Reference |
1 // 1 // 2 // ******************************************* 2 // ******************************************************************** 3 // * License and Disclaimer 3 // * License and Disclaimer * 4 // * 4 // * * 5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. 9 // * include a list of copyright holders. * 10 // * 10 // * * 11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. * 17 // * 17 // * * 18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************* 24 // ******************************************************************** 25 // 25 // 26 // INCL++ intra-nuclear cascade model 26 // INCL++ intra-nuclear cascade model 27 // Alain Boudard, CEA-Saclay, France << 27 // Pekka Kaitaniemi, CEA and Helsinki Institute of Physics 28 // Joseph Cugnon, University of Liege, Belgium << 28 // Davide Mancusi, CEA 29 // Jean-Christophe David, CEA-Saclay, France << 29 // Alain Boudard, CEA 30 // Pekka Kaitaniemi, CEA-Saclay, France, and H << 30 // Sylvie Leray, CEA 31 // Sylvie Leray, CEA-Saclay, France << 31 // Joseph Cugnon, University of Liege 32 // Davide Mancusi, CEA-Saclay, France << 32 // >> 33 // INCL++ revision: v5.1.8 33 // 34 // 34 #define INCLXX_IN_GEANT4_MODE 1 35 #define INCLXX_IN_GEANT4_MODE 1 35 36 36 #include "globals.hh" 37 #include "globals.hh" 37 38 38 /** \file G4INCLDeuteronDensity.cc 39 /** \file G4INCLDeuteronDensity.cc 39 * \brief Deuteron density in r and p accordin 40 * \brief Deuteron density in r and p according to the Paris potential. 40 * 41 * 41 * \date 6 March 2012 42 * \date 6 March 2012 42 * \author Davide Mancusi 43 * \author Davide Mancusi 43 */ 44 */ 44 45 45 #include "G4INCLDeuteronDensity.hh" 46 #include "G4INCLDeuteronDensity.hh" 46 #include "G4INCLGlobals.hh" 47 #include "G4INCLGlobals.hh" 47 // #include <cassert> 48 // #include <cassert> 48 #include <algorithm> 49 #include <algorithm> 49 50 50 namespace G4INCL { 51 namespace G4INCL { 51 52 52 namespace DeuteronDensity { << 53 /// \brief Coefficients for the deuteron wave function 53 << 54 const G4double DeuteronDensity::coeff1[coeffTableSize] = { 54 namespace { << 55 0.88688076e+0, 55 << 56 -0.34717093e+0, 56 const G4int coeffTableSize = 13; << 57 -0.30502380e+1, 57 << 58 0.56207766e+2, 58 /// \brief Coefficients for the deuteron << 59 -0.74957334e+3, 59 const G4double coeff1[coeffTableSize] = << 60 0.53365279e+4, 60 0.88688076e+0, << 61 -0.22706863e+5, 61 -0.34717093e+0, << 62 0.60434469e+5, 62 -0.30502380e+1, << 63 -0.10292058e+6, 63 0.56207766e+2, << 64 0.11223357e+6, 64 -0.74957334e+3, << 65 -0.75925226e+5, 65 0.53365279e+4, << 66 0.29059715e+5, 66 -0.22706863e+5, << 67 -0.48157368e+4 67 0.60434469e+5, << 68 }; 68 -0.10292058e+6, << 69 69 0.11223357e+6, << 70 /// \brief Coefficients for the deuteron wave function 70 -0.75925226e+5, << 71 const G4double DeuteronDensity::coeff2[coeffTableSize] = { 71 0.29059715e+5, << 72 0.23135193e-1, 72 -0.48157368e+4 << 73 -0.85604572e+0, 73 }; << 74 0.56068193e+1, 74 << 75 -0.69462922e+2, 75 /// \brief Coefficients for the deuteron << 76 0.41631118e+3, 76 const G4double coeff2[coeffTableSize] = << 77 -0.12546621e+4, 77 0.23135193e-1, << 78 0.12387830e+4, 78 -0.85604572e+0, << 79 0.33739172e+4, 79 0.56068193e+1, << 80 -0.13041151e+5, 80 -0.69462922e+2, << 81 0.19512524e+5, 81 0.41631118e+3, << 82 -0.15634324e+5, 82 -0.12546621e+4, << 83 0.66231089e+4, 83 0.12387830e+4, << 84 -0.11698185e+4 84 0.33739172e+4, << 85 }; 85 -0.13041151e+5, << 86 86 0.19512524e+5, << 87 /// \brief Normalisation coefficient for the r-space deuteron wave function 87 -0.15634324e+5, << 88 const G4double DeuteronDensity::normalisationR = std::sqrt(32. * Math::pi) * 0.28212; 88 0.66231089e+4, << 89 89 -0.11698185e+4 << 90 /// \brief Normalisation coefficient for the p-space deuteron wave function 90 }; << 91 const G4double DeuteronDensity::normalisationP = normalisationR / (std::sqrt(4. * Math::pi) * std::pow(PhysicalConstants::hc,1.5)); 91 << 92 92 /// \brief Normalisation coefficient for << 93 /// \brief Mysterious coefficient that appears in the wavefunctions 93 const G4double normalisationR = std::sqr << 94 const G4double DeuteronDensity::al = 0.23162461; 94 << 95 95 /// \brief Normalisation coefficient for << 96 G4double DeuteronDensity::densityR(const G4double r) { 96 const G4double normalisationP = normalis << 97 const G4double sWave = wavefunctionR(0, r); 97 << 98 const G4double dWave = wavefunctionR(2, r); 98 /// \brief Mysterious coefficient that a << 99 return r*r*(sWave*sWave + dWave*dWave); 99 const G4double al = 0.23162461; << 100 } 100 << 101 } << 102 << 103 G4double densityR(const G4double r) { << 104 const G4double sWave = wavefunctionR(0, << 105 const G4double dWave = wavefunctionR(2, << 106 return r*r*(sWave*sWave + dWave*dWave); << 107 } << 108 101 109 G4double derivDensityR(const G4double r) { << 102 G4double DeuteronDensity::derivDensityR(const G4double r) { 110 const G4double sWave = wavefunctionR(0, << 103 const G4double sWave = wavefunctionR(0, r); 111 const G4double dWave = wavefunctionR(2, << 104 const G4double dWave = wavefunctionR(2, r); 112 const G4double sWaveDeriv = derivWavefun << 105 const G4double sWaveDeriv = derivWavefunctionR(0, r); 113 const G4double dWaveDeriv = derivWavefun << 106 const G4double dWaveDeriv = derivWavefunctionR(2, r); 114 return (sWave*sWaveDeriv + dWave*dWaveDe << 107 return (sWave*sWaveDeriv + dWave*dWaveDeriv) / Math::twoPi; 115 } << 108 } 116 109 117 G4double densityP(const G4double p) { << 110 G4double DeuteronDensity::densityP(const G4double p) { 118 const G4double sWave = wavefunctionP(0, << 111 const G4double sWave = wavefunctionP(0, p); 119 const G4double dWave = wavefunctionP(2, << 112 const G4double dWave = wavefunctionP(2, p); 120 return p*p*(sWave*sWave + dWave*dWave); << 113 return p*p*(sWave*sWave + dWave*dWave); 121 } << 114 } 122 115 123 G4double wavefunctionR(const G4int l, cons << 116 G4double DeuteronDensity::wavefunctionR(const G4int l, const G4double theR) { 124 // assert(l==0 || l==2); // only s- and d-wave 117 // assert(l==0 || l==2); // only s- and d-waves in a deuteron 125 const G4double r = 2. * std::max(theR, 1 << 118 const G4double r = 2. * std::max(theR, 1.e-4); 126 119 127 G4double result = 0.; << 120 G4double result = 0.; 128 G4double fmr; << 121 G4double fmr; 129 122 130 for(G4int i=0; i<coeffTableSize; ++i) { << 123 for(G4int i=0; i<coeffTableSize; ++i) { 131 fmr = r * (al+i); << 124 fmr = r * (al+i); 132 if(l==0) { // s-wave << 125 if(l==0) { // s-wave 133 result += coeff1[i] * std::exp(-fmr) << 126 result += coeff1[i] * std::exp(-fmr); 134 } else { // d-wave << 127 } else { // d-wave 135 result += coeff2[i] * std::exp(-fmr) << 128 result += coeff2[i] * std::exp(-fmr) * (1.+3./fmr+3./(fmr*fmr)); 136 } << 137 } 129 } 138 << 139 result *= normalisationR/r; << 140 return result; << 141 } 130 } 142 131 143 G4double derivWavefunctionR(const G4int l, << 132 result *= normalisationR/r; >> 133 return result; >> 134 } >> 135 >> 136 G4double DeuteronDensity::derivWavefunctionR(const G4int l, const G4double theR) { 144 // assert(l==0 || l==2); // only s- and d-wave 137 // assert(l==0 || l==2); // only s- and d-waves in a deuteron 145 const G4double r = 2. * std::max(theR, 1 << 138 const G4double r = 2. * std::max(theR, 1.e-4); 146 139 147 G4double result = 0.; << 140 G4double result = 0.; 148 G4double fmr; << 141 G4double fmr; 149 142 150 for(G4int i=0; i<coeffTableSize; ++i) { << 143 for(G4int i=0; i<coeffTableSize; ++i) { 151 fmr = r * (al+i); << 144 fmr = r * (al+i); 152 if(l==0) { // s-wave << 145 if(l==0) { // s-wave 153 result += coeff1[i] * std::exp(-fmr) << 146 result += coeff1[i] * std::exp(-fmr) * (fmr + 1.); 154 } else { // d-wave << 147 } else { // d-wave 155 result += coeff2[i] * std::exp(-fmr) << 148 result += coeff2[i] * std::exp(-fmr) * (fmr + 4. + 9./fmr + 9./(fmr*fmr)); 156 } << 157 } 149 } 158 << 159 result *= -normalisationR/(r*r); << 160 return result; << 161 } 150 } 162 151 163 G4double wavefunctionP(const G4int l, cons << 152 result *= -normalisationR/(r*r); >> 153 return result; >> 154 } >> 155 >> 156 G4double DeuteronDensity::wavefunctionP(const G4int l, const G4double theQ) { 164 // assert(l==0 || l==2); // only s- and d-wave 157 // assert(l==0 || l==2); // only s- and d-waves in a deuteron 165 const G4double q = theQ / PhysicalConsta << 158 const G4double q = theQ / PhysicalConstants::hc; 166 const G4double q2 = q*q; << 159 const G4double q2 = q*q; 167 G4double result=0.; << 160 G4double result=0.; 168 G4double fmq, alPlusI; << 161 G4double fmq, alPlusI; 169 for(G4int i=0; i<coeffTableSize; ++i) { << 162 for(G4int i=0; i<coeffTableSize; ++i) { 170 alPlusI = al+i; << 163 alPlusI = al+i; 171 fmq = q2 + alPlusI*alPlusI; << 164 fmq = q2 + alPlusI*alPlusI; 172 if(l==0) { // s-wave << 165 if(l==0) { // s-wave 173 result += coeff1[i] / fmq; << 166 result += coeff1[i] / fmq; 174 } else { // d-wave << 167 } else { // d-wave 175 result += coeff2[i] / fmq; << 168 result += coeff2[i] / fmq; 176 } << 177 } 169 } 178 << 179 result *= normalisationP; << 180 return result; << 181 } 170 } 182 171 >> 172 result *= normalisationP; >> 173 return result; 183 } 174 } 184 175 185 } 176 } >> 177 186 178