G4INCLPauliGlobal.cc

Go to the documentation of this file.
00001 //
00002 // ********************************************************************
00003 // * License and Disclaimer                                           *
00004 // *                                                                  *
00005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
00006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
00007 // * conditions of the Geant4 Software License,  included in the file *
00008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
00009 // * include a list of copyright holders.                             *
00010 // *                                                                  *
00011 // * Neither the authors of this software system, nor their employing *
00012 // * institutes,nor the agencies providing financial support for this *
00013 // * work  make  any representation or  warranty, express or implied, *
00014 // * regarding  this  software system or assume any liability for its *
00015 // * use.  Please see the license in the file  LICENSE  and URL above *
00016 // * for the full disclaimer and the limitation of liability.         *
00017 // *                                                                  *
00018 // * This  code  implementation is the result of  the  scientific and *
00019 // * technical work of the GEANT4 collaboration.                      *
00020 // * By using,  copying,  modifying or  distributing the software (or *
00021 // * any work based  on the software)  you  agree  to acknowledge its *
00022 // * use  in  resulting  scientific  publications,  and indicate your *
00023 // * acceptance of all terms of the Geant4 Software license.          *
00024 // ********************************************************************
00025 //
00026 // INCL++ intra-nuclear cascade model
00027 // Pekka Kaitaniemi, CEA and Helsinki Institute of Physics
00028 // Davide Mancusi, CEA
00029 // Alain Boudard, CEA
00030 // Sylvie Leray, CEA
00031 // Joseph Cugnon, University of Liege
00032 //
00033 #define INCLXX_IN_GEANT4_MODE 1
00034 
00035 #include "globals.hh"
00036 
00037 #include "G4INCLPauliGlobal.hh"
00038 #include "G4INCLRandom.hh"
00039 
00040 namespace G4INCL {
00041 
00042   PauliGlobal::PauliGlobal() {}
00043   PauliGlobal::~PauliGlobal() {}
00044 
00045   G4bool PauliGlobal::isBlocked(ParticleList const pL, Nucleus const * const n) const {
00046     for(ParticleIter p=pL.begin(); p!=pL.end(); ++p) {
00047       // Pauli blocking only applies to nucleons
00048       if(!(*p)->isNucleon()) continue;
00049 
00050       // If the particle is above T_F, it is never blocked
00051       const ParticleType t = (*p)->getType();
00052       const G4double pFermi = n->getPotential()->getFermiMomentum(t);
00053       const G4double pFermiSquared = pFermi*pFermi;
00054       if((*p)->getMomentum().mag2() > pFermiSquared) continue;
00055 
00056       // Count particles of the same type as p below the Fermi sea
00057       const ParticleList particles = n->getStore()->getParticles();
00058       G4int nSea = 0;
00059       for(ParticleIter i=particles.begin(); i!=particles.end(); ++i) {
00060         if((*i)->getType() != t) continue;
00061         const G4double pmod2 = (*i)->getMomentum().mag2();
00062         if(pmod2<pFermiSquared) nSea++;
00063       }
00064 
00065       // Compute the blocking probability
00066       G4double probBlocking;
00067       if(t==Proton)
00068         probBlocking = ((G4double) nSea)/((G4double) n->getInitialZ());
00069       else
00070         probBlocking = ((G4double) nSea)/((G4double) (n->getInitialA() - n->getInitialZ()));
00071 
00072       // The avatar is blocked if any particle is blocked
00073       if(Random::shoot() < probBlocking) return true;
00074 
00075     }
00076 
00077     // Not blocked
00078     return false;
00079 
00080   }
00081 }

Generated on Mon May 27 17:48:36 2013 for Geant4 by  doxygen 1.4.7