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 // 26 // 27 // P. Arce, June-2014 Conversion neutron_hp to 27 // P. Arce, June-2014 Conversion neutron_hp to particle_hp 28 // 28 // 29 #ifndef G4ParticleHPSimpleEvapSpectrum_h 29 #ifndef G4ParticleHPSimpleEvapSpectrum_h 30 #define G4ParticleHPSimpleEvapSpectrum_h 1 30 #define G4ParticleHPSimpleEvapSpectrum_h 1 31 31 >> 32 #include <fstream> >> 33 #include <CLHEP/Units/SystemOfUnits.h> >> 34 >> 35 #include "globals.hh" >> 36 #include "G4ios.hh" >> 37 #include "Randomize.hh" 32 #include "G4Exp.hh" 38 #include "G4Exp.hh" 33 #include "G4Log.hh" 39 #include "G4Log.hh" 34 #include "G4ParticleHPVector.hh" 40 #include "G4ParticleHPVector.hh" 35 #include "G4VParticleHPEDis.hh" 41 #include "G4VParticleHPEDis.hh" 36 #include "G4ios.hh" << 37 #include "Randomize.hh" << 38 #include "globals.hh" << 39 << 40 #include <CLHEP/Units/SystemOfUnits.h> << 41 << 42 #include <fstream> << 43 42 44 // we will need a List of these .... one per t 43 // we will need a List of these .... one per term. 45 44 46 class G4ParticleHPSimpleEvapSpectrum : public 45 class G4ParticleHPSimpleEvapSpectrum : public G4VParticleHPEDis 47 { 46 { 48 public: 47 public: 49 G4ParticleHPSimpleEvapSpectrum() { expm1 = << 48 G4ParticleHPSimpleEvapSpectrum() 50 ~G4ParticleHPSimpleEvapSpectrum() override << 49 { 51 << 50 expm1 = G4Exp(-1.); 52 inline void Init(std::istream& aDataFile) << 51 } 53 { << 52 ~G4ParticleHPSimpleEvapSpectrum() 54 theFractionalProb.Init(aDataFile, CLHEP: << 53 { 55 theThetaDist.Init(aDataFile, CLHEP::eV); << 54 } 56 } << 55 57 << 56 inline void Init(std::istream & aDataFile) 58 inline G4double GetFractionalProbability(G << 57 { 59 { << 58 theFractionalProb.Init(aDataFile, CLHEP::eV); 60 return theFractionalProb.GetY(anEnergy); << 59 theThetaDist.Init(aDataFile, CLHEP::eV); 61 } << 60 } 62 << 61 63 inline G4double Sample(G4double anEnergy) << 62 inline G4double GetFractionalProbability(G4double anEnergy) >> 63 { >> 64 return theFractionalProb.GetY(anEnergy); >> 65 } >> 66 >> 67 inline G4double Sample(G4double anEnergy) >> 68 { >> 69 G4double theta = theThetaDist.GetY(anEnergy)*CLHEP::eV; >> 70 G4double random, cut, max, result; >> 71 max = 10.*theta; >> 72 G4int icounter=0; >> 73 G4int icounter_max=1024; >> 74 do 64 { 75 { 65 G4double theta = theThetaDist.GetY(anEne << 76 icounter++; 66 G4double random, cut, max, result = 0.; << 77 if ( icounter > icounter_max ) { 67 max = 10. * theta; << 78 G4cout << "Loop-counter exceeded the threshold value at " << __LINE__ << "th line of " << __FILE__ << "." << G4endl; 68 G4int icounter = 0; << 79 break; 69 G4int icounter_max = 1024; << 80 } 70 do { << 81 random = G4UniformRand(); 71 icounter++; << 82 result = -theta*G4Log(random); 72 if (icounter > icounter_max) { << 83 cut = G4UniformRand(); 73 G4cout << "Loop-counter exceeded the << 74 << __FILE__ << "." << G4endl; << 75 break; << 76 } << 77 random = G4UniformRand(); << 78 result = -theta * G4Log(random); << 79 cut = G4UniformRand(); << 80 } while (cut > result / max); // Loop c << 81 return result; << 82 } 84 } 83 << 85 while(cut>result/max); // Loop checking, 11.05.2015, T. Koi >> 86 return result; >> 87 } >> 88 84 private: 89 private: 85 inline G4double Evapo(G4double anEnergy, G << 90 86 { << 91 inline G4double Evapo(G4double anEnergy, G4double theta) 87 G4double result = (anEnergy * CLHEP::eV) << 92 { 88 return result; << 93 G4double result = (anEnergy*CLHEP::eV)*G4Exp(-anEnergy*CLHEP::eV/theta); 89 } << 94 return result; 90 << 95 } >> 96 91 private: 97 private: 92 G4double expm1; << 98 93 << 99 G4double expm1; 94 G4ParticleHPVector theFractionalProb; << 100 95 << 101 G4ParticleHPVector theFractionalProb; 96 G4ParticleHPVector theThetaDist; << 102 >> 103 G4ParticleHPVector theThetaDist; >> 104 97 }; 105 }; 98 106 99 #endif 107 #endif 100 108