Geant4  v4-10.4-release
 모두 클래스 네임스페이스들 파일들 함수 변수 타입정의 열거형 타입 열거형 멤버 Friends 매크로 그룹들 페이지들
G4INCLPauliStandard.cc
이 파일의 문서화 페이지로 가기
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 #include "G4INCLPauliStandard.hh"
39 #include "G4INCLPauliBlocking.hh"
40 #include "G4INCLGlobals.hh"
41 #include "G4INCLRandom.hh"
42 
43 namespace G4INCL {
44 
45 
47  cellSize(std::pow(2.38*4.5*Math::pi,1./6.)*std::sqrt(PhysicalConstants::hc))
48  {
49  INCL_DEBUG("Initialising PauliStandard. cellSize=" << cellSize << '\n');
50  }
51 
53 
55  for(ParticleIter p=pL.begin(), e=pL.end(); p!=e; ++p) {
56  if( !(*p)->isNucleon() ) continue;
57  if(getBlockingProbability(*p, n) > Random::shoot()) return true;
58  }
59  return false;
60  }
61 
62  G4double PauliStandard::getBlockingProbability(Particle const * const particle, Nucleus const * const nucleus) const {
63  const G4double r0 = ParticleTable::getNuclearRadius(particle->getType(), nucleus->getA(), nucleus->getZ());
64  const G4double pFermi = nucleus->getPotential()->getFermiMomentum(particle);
65 
66  const G4double pbl = cellSize * std::sqrt(pFermi/r0);
67  const G4double rbl = pbl * r0/pFermi;
68  const G4double maxVolR = rbl;
69  const G4double maxVolP = pbl;
70  G4double vol = std::pow(4.*Math::pi/3.0, 2)
71  * std::pow(maxVolR*maxVolP/(Math::twoPi*PhysicalConstants::hc), 3);
72 
73  const G4double rdeq = nucleus->getUniverseRadius();
74  const G4double rs = particle->getPosition().mag();
75 
76  if(rs - maxVolR > rdeq) {
77  return 0.0;
78  }
79 
80  if(rs + maxVolR > rdeq) {
81  vol = vol * 0.5 * (rdeq - rs + maxVolR) / maxVolR;
82  }
83 
84  // Get the list of particles that are currently inside the
85  // nucleus.
86  ParticleList const &particles = nucleus->getStore()->getParticles();
87 
88  G4int nl = 0;
89  for(ParticleIter it=particles.begin(), e=particles.end(); it!=e; ++it) {
90  // Skip comparing with the same particle
91  if( (*it)->getID() == particle->getID() ) continue;
92 
93  if((*it)->getType() == particle->getType()) {
94  const ThreeVector dx2v = particle->getPosition() - (*it)->getPosition();
95  const G4double dx2 = dx2v.mag2();
96  if(dx2 > maxVolR * maxVolR) continue;
97 
98  const ThreeVector dp2v = particle->getMomentum() - (*it)->getMomentum();
99  const G4double dp2 = dp2v.mag2();
100  if(dp2 > maxVolP * maxVolP) continue;
101 
102  nl++;
103  }
104  }
105  const G4double blockingProbability = ((G4double) nl) / vol / 2.0;
106 
107  if(blockingProbability > 1.0) return 1.0;
108  else if(blockingProbability < 0.0) return 0.0;
109  else return blockingProbability;
110  }
111 }
ParticleList::const_iterator ParticleIter
NuclearPotential::INuclearPotential const * getPotential() const
Getter for thePotential.
const G4INCL::ThreeVector & getPosition() const
ParticleList const & getParticles() const
Definition: G4INCLStore.hh:253
G4bool isBlocked(ParticleList const &, Nucleus const *const)
const G4INCL::ThreeVector & getMomentum() const
const char * p
Definition: xmltok.h:285
long getID() const
G4double getBlockingProbability(Particle const *const, Nucleus const *const) const
G4double getFermiMomentum(const Particle *const p) const
Return the Fermi momentum for a particle.
#define INCL_DEBUG(x)
double G4double
Definition: G4Types.hh:76
bool G4bool
Definition: G4Types.hh:79
G4double shoot()
Definition: G4INCLRandom.cc:93
const G4double cellSize
Phase-space blocking cell.
G4int getZ() const
Returns the charge number.
G4double getUniverseRadius() const
Getter for theUniverseRadius.
G4int getA() const
Returns the baryon number.
const G4double pi
const G4double twoPi
int G4int
Definition: G4Types.hh:78
G4INCL::ParticleType getType() const
G4double mag2() const
G4double mag() const
Char_t n[5]
static constexpr double pi
Definition: G4SIunits.hh:75
Store * getStore() const
G4double getNuclearRadius(const ParticleType t, const G4int A, const G4int Z)
const G4double hc
[MeV*fm]