Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/processes/hadronic/models/de_excitation/util/src/G4CoulombBarrier.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 ]

Diff markup

Differences between /processes/hadronic/models/de_excitation/util/src/G4CoulombBarrier.cc (Version 11.3.0) and /processes/hadronic/models/de_excitation/util/src/G4CoulombBarrier.cc (Version 9.5.p2)


  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 // $Id: G4CoulombBarrier.cc,v 1.10 2010-11-15 12:44:06 vnivanch Exp $
                                                   >>  27 // GEANT4 tag $Name: not supported by cvs2svn $
 26 //                                                 28 //
 27 // Hadronic Process: Nuclear De-excitations        29 // Hadronic Process: Nuclear De-excitations
 28 // by V. Lara (Dec 1999)                           30 // by V. Lara (Dec 1999)
 29 //                                                 31 //
 30 // 14-11-2007 modified barrier by JMQ (test30)     32 // 14-11-2007 modified barrier by JMQ (test30) 
 31 // 15-11-2010 V.Ivanchenko use G4Pow and clean     33 // 15-11-2010 V.Ivanchenko use G4Pow and cleanup 
 32                                                    34 
 33 #include "G4CoulombBarrier.hh"                     35 #include "G4CoulombBarrier.hh"
 34 #include "G4PhysicalConstants.hh"              <<  36 #include "G4HadronicException.hh"
 35 #include "G4SystemOfUnits.hh"                  <<  37 #include "G4Pow.hh"
 36 #include "G4NuclearRadii.hh"                   <<  38 #include <sstream>
 37                                                    39 
 38 G4CoulombBarrier::G4CoulombBarrier(G4int A, G4 <<  40 G4CoulombBarrier::G4CoulombBarrier(): G4VCoulombBarrier(1,0) 
 39   : G4VCoulombBarrier(A, Z)                    <<  41 {}
 40 {                                              <<  42 
 41   factor = CLHEP::elm_coupling*Z;              <<  43 G4CoulombBarrier::G4CoulombBarrier(G4int anA, G4int aZ)
 42   SetParameters(0.4*G4NuclearRadii::RadiusCB(Z <<  44   : G4VCoulombBarrier(anA,aZ) 
 43 }                                              <<  45 {}
                                                   >>  46 
                                                   >>  47 G4CoulombBarrier::~G4CoulombBarrier() 
                                                   >>  48 {}
 44                                                    49 
 45 G4double G4CoulombBarrier::GetCoulombBarrier(  <<  50 G4double G4CoulombBarrier::BarrierPenetrationFactor(G4double ) const 
 46          G4int ARes, G4int ZRes, G4double U) c << 
 47 {                                                  51 {
 48   if (0 == theZ) { return 0.0; }               <<  52   return 1.0;
 49   G4double cb = factor*ZRes/(G4NuclearRadii::R << 
 50   if (U > 0.0) { cb /= (1.0 + std::sqrt( U/((2 << 
 51   return cb;                                   << 
 52 }                                                  53 }
 53                                                    54 
 54 G4double G4CoulombBarrier::BarrierPenetrationF <<  55 G4double G4CoulombBarrier::GetCoulombBarrier(const G4int ARes, const G4int ZRes, const G4double) const 
                                                   >>  56   // Calculation of Coulomb potential energy (barrier) for outgoing fragment
 55 {                                                  57 {
 56   // Data comes from                           <<  58   G4double Barrier = 0.0;
 57   // Dostrovsky, Fraenkel and Friedlander      <<  59   if (ZRes > ARes || ARes < 1) {
 58   // Physical Review, vol 116, num. 3 1959     <<  60     std::ostringstream errOs;
 59   //                                           <<  61     errOs << "G4CoulombBarrier::GetCoulombBarrier: ";
 60   // const G4int size = 5;                     <<  62     errOs << "Wrong values for ";
 61   // const G4double Zlist[size] = {10.0, 20.0, <<  63     errOs << "residual nucleus A = " << ARes << " ";
 62   // const G4double Kprot[size] = {0.42, 0.58, <<  64     errOs << "and residual nucleus Z = " << ZRes << G4endl;
 63   //                                           <<  65 
 64   G4double res = 1.0;                          <<  66     throw G4HadronicException(__FILE__, __LINE__, errOs.str());
 65   if(theZ == 1) {                              <<  67   }
 66     res = (aZ >= 70) ? 0.80 :                  <<  68   if (GetA() == 1 && GetZ() == 0) {
 67     (((0.2357e-5*aZ) - 0.42679e-3)*aZ + 0.2703 <<  69     Barrier = 0.0;   // Neutron Coulomb Barrier is 0
 68     res += 0.06*(theA - 1);                    <<  70   } else {
 69                                                <<  71 
 70   } else if(theZ == 2 && theA <= 4) {          <<  72     // JMQ: old coulomb barrier commented since it does not agree with Dostrovski's prescription
 71     res = (aZ >= 70) ? 0.98 :                  <<  73     // and too low  barriers are obtained (for protons at least)
 72     (((0.23684e-5*aZ) - 0.42143e-3)*aZ + 0.252 <<  74     // calculation of K penetration factor is correct
 73     res += 0.12*(4 - theA);                    <<  75     //    G4double CompoundRadius = CalcCompoundRadius(static_cast<G4double>(ZRes));
                                                   >>  76     //    Barrier = elm_coupling/CompoundRadius * static_cast<G4double>(GetZ())*static_cast<G4double>(ZRes)/
                                                   >>  77     //      (std::pow(static_cast<G4double>(GetA()),1./3.) + std::pow(static_cast<G4double>(ARes),1./3.));
                                                   >>  78 
                                                   >>  79     ///New coulomb Barrier according to original Dostrovski's paper 
                                                   >>  80     G4double rho=1.2*fermi; 
                                                   >>  81     if(GetA()==1 && GetZ()==1){  rho=0.0;}  
                                                   >>  82 
                                                   >>  83     G4double RN=1.5*fermi;  
                                                   >>  84     // VI cleanup 
                                                   >>  85     Barrier=elm_coupling*(GetZ()*ZRes)/(RN * G4Pow::GetInstance()->Z13(ARes) + rho);
                                                   >>  86 
                                                   >>  87     // Barrier penetration coeficient
                                                   >>  88     G4double K = BarrierPenetrationFactor(ZRes);
                                                   >>  89 
                                                   >>  90     Barrier *= K;
                                                   >>  91     
                                                   >>  92     // JMQ : the following statement has unknown origin and dimensionally is meaningless( energy divided by mass number in argument of sqrt function). Energy dependence of Coulomb barrier penetrability should be included in proper way (if needed..)
                                                   >>  93     //   Barrier /= (1.0 + std::sqrt(U/(2.0*static_cast<G4double>(ARes))));
                                                   >>  94     //
 74   }                                                95   }
 75   return res;                                  <<  96   return Barrier;
 76 }                                                  97 }
                                                   >>  98 
                                                   >>  99 
                                                   >> 100 
 77                                                   101