Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/models/pre_equilibrium/exciton_model/src/G4HETCNeutron.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 "G4HETCNeutron.hh"
 34 #include "G4PhysicalConstants.hh"
 35 #include "G4SystemOfUnits.hh"
 36 #include "G4Neutron.hh"
 37 #include "G4NuclearLevelData.hh"
 38 
 39 G4HETCNeutron::G4HETCNeutron() 
 40   : G4HETCFragment(G4Neutron::Neutron())
 41 {}
 42 
 43 G4double G4HETCNeutron::GetAlpha() const
 44 {
 45   return 0.76+2.2/theResA13;
 46 }
 47   
 48 G4double G4HETCNeutron::GetBeta() const
 49 {
 50   return (2.12/(theResA13*theResA13)-0.05)/GetAlpha(); // in MeV
 51 }
 52 
 53 G4double G4HETCNeutron::GetSpinFactor() const
 54 {
 55   // (2s+1)
 56   return 2.0;
 57 }
 58   
 59 G4double G4HETCNeutron::K(const G4Fragment& aFragment) const
 60 {
 61   // Number of protons in emitted fragment
 62   G4int Pa = theZ;
 63   // Number of neutrons in emitted fragment 
 64   G4int Na = theA - Pa;
 65 
 66   G4double r = G4double(theResZ)/G4double(theResA);
 67   
 68   G4int P = aFragment.GetNumberOfParticles();
 69   G4int H = aFragment.GetNumberOfHoles();
 70   
 71   G4double result = (P > 0) ? (H + Na/(1.0 - r))/P : 0.0;
 72   return result;
 73 }
 74 
 75 G4double G4HETCNeutron::SampleKineticEnergy(const G4Fragment& frag)
 76 {
 77   G4int H = frag.GetNumberOfHoles();
 78   G4int Pb = frag.GetNumberOfParticles();
 79   G4int Nb = Pb + H;
 80   G4double U = frag.GetExcitationEnergy();
 81   G4double g0 = 
 82     (6.0/CLHEP::pi2)*fNucData->GetLevelDensity(theFragZ,theFragA,U);
 83   
 84   G4double Ab = std::max(0.0, (G4double)(Pb*Pb+H*H+Pb-3*H)/(4.0*g0));
 85   G4double Emax = theMaxKinEnergy - Ab;
 86   
 87   G4double cut = GetBeta() / (GetBeta()+Emax/G4double(Nb+1));
 88   G4double x = (G4UniformRand() <= cut) ? BetaRand(Nb,1) : BetaRand(Nb,2);
 89 
 90   return Emax * (1.0 - x);
 91 }
 92