Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/models/pre_equilibrium/exciton_model/src/G4HETCFragment.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

  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 //
 27 // by V. Lara
 28 //
 29 // Modified:
 30 // 23.08.2010 V.Ivanchenko general cleanup, move constructor and destructor 
 31 //            the source, use G4Pow
 32  
 33 #include "G4HETCFragment.hh"
 34 #include "G4DeexPrecoParameters.hh"
 35 #include "G4NuclearLevelData.hh"
 36 #include "G4PhysicalConstants.hh"
 37 
 38 G4HETCFragment::G4HETCFragment(const G4ParticleDefinition* part,
 39                          G4VCoulombBarrier* aCoulombBarrier)
 40   : G4VPreCompoundFragment(part, aCoulombBarrier)
 41 {
 42   G4double r0 = theParameters->GetR0();
 43   r2norm = r0*r0/(CLHEP::pi*CLHEP::hbarc*CLHEP::hbarc*CLHEP::hbarc);
 44 }
 45 
 46 G4double G4HETCFragment::CalcEmissionProbability(const G4Fragment& fp)
 47 {
 48   if (GetEnergyThreshold() <= 0.0) {
 49     theEmissionProbability = 0.0;
 50     return 0.0;
 51   }    
 52   // Coulomb barrier is the lower limit 
 53   // of integration over kinetic energy
 54   theEmissionProbability =
 55     IntegrateEmissionProbability(theCoulombBarrier, theMaxKinEnergy, fp);
 56     
 57   return theEmissionProbability;
 58 }
 59 
 60 G4double 
 61 G4HETCFragment::IntegrateEmissionProbability(G4double Low, G4double Up,
 62                                              const G4Fragment& frag)
 63 {    
 64   G4double U = frag.GetExcitationEnergy();
 65 
 66   G4int P  = frag.GetNumberOfParticles();
 67   G4int H  = frag.GetNumberOfHoles();
 68   G4int N  = P + H;
 69   G4int Pb = P - theA;
 70   G4int Nb = Pb + H;
 71   if (Nb <= 0.0) { return 0.0; }
 72 
 73   G4double ga = (6.0/pi2)*fNucData->GetLevelDensity(theFragZ,theFragA,U);
 74   G4double gb = (6.0/pi2)*fNucData->GetLevelDensity(theResZ,theResA,U);
 75 
 76   G4double A  = G4double(P*P+H*H+P-3*H)/(4.0*ga);
 77   G4double Ab = G4double(Pb*Pb+H*H+Pb-3*H)/(4.0*gb);
 78   U = std::max(U-A,0.0);
 79   if (U <= 0.0) { return 0.0; }
 80 
 81   G4int Pf = P;
 82   G4int Hf = H;
 83   G4int Nf = N-1;
 84   for (G4int i = 1; i < theA; ++i) {
 85     Pf *= (P-i);
 86     Hf *= (H-i);
 87     Nf *= (N-1-i);
 88   }
 89 
 90   G4double X = std::max(Up - Ab + GetBeta(),0.0);
 91   G4double Y = std::max(Up - Ab - Low, 0.0);
 92 
 93   G4double Probability = r2norm*GetSpinFactor()*theReducedMass*GetAlpha() 
 94     *g4calc->Z23(theResA)*Pf*Hf*Nf*K(frag)*(X/Nb - Y/(Nb+1))
 95     *U*g4calc->powN(gb*Y,Nb)/g4calc->powN(ga*U,N);
 96 
 97   return Probability;
 98 }
 99