lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 6.2.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-09 10:56:29 +02:00
parent 1d812b78b1
commit e083ffb441
1415 changed files with 111223 additions and 21207 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/processes/hadronic/cross_sections/src/G4EMDissociationCrossSection.cc
+243
View File
@@ -0,0 +1,243 @@
//
// ********************************************************************
// * DISCLAIMER *
// * *
// * The following disclaimer summarizes all the specific disclaimers *
// * of contributors to this software. The specific disclaimers,which *
// * govern, are listed with their locations in: *
// * http://cern.ch/geant4/license *
// * *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work make any representation or warranty, express or implied, *
// * regarding this software system or assume any liability for its *
// * use. *
// * *
// * This code implementation is the intellectual property of the *
// * GEANT4 collaboration. *
// * *
// * Parts of this code which have been developed by QinetiQ Ltd *
// * under contract to the European Space Agency (ESA) are the *
// * intellectual property of ESA. Rights to use, copy, modify and *
// * redistribute this software for general public use are granted *
// * in compliance with any licensing, distribution and development *
// * policy adopted by the Geant4 Collaboration. This code has been *
// * written by QinetiQ Ltd for the European Space Agency, under ESA *
// * contract 17191/03/NL/LvH (Aurora Programme). *
// * *
// * By copying, distributing or modifying the Program (or any work *
// * based on the Program) you indicate your acceptance of this *
// * statement, and all its terms. *
// ********************************************************************
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// MODULE: G4EMDissociationCrossSection.cc
//
// Version: B.1
// Date: 15/04/04
// Author: P R Truscott
// Organisation: QinetiQ Ltd, UK
// Customer: ESA/ESTEC, NOORDWIJK
// Contract: 17191/03/NL/LvH
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// CHANGE HISTORY
// --------------
//
// 17 October 2003, P R Truscott, QinetiQ Ltd, UK
// Created.
//
// 15 March 2004, P R Truscott, QinetiQ Ltd, UK
// Beta release
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
////////////////////////////////////////////////////////////////////////////////
//
#include "G4EMDissociationCrossSection.hh"
#include "G4PhysicsFreeVector.hh"
#include "G4ParticleTable.hh"
#include "G4IonTable.hh"
#include "globals.hh"
////////////////////////////////////////////////////////////////////////////////
//
G4EMDissociationCrossSection::G4EMDissociationCrossSection ()
{
//
//
// This function makes use of the class which can sample the virtual photon
// spectrum, G4EMDissociationSpectrum.
//
thePhotonSpectrum = new G4EMDissociationSpectrum();
//
//
// Define other constants.
//
r0 = 1.18 * fermi;
J = 36.8 * MeV;
Qprime = 17.0 * MeV;
epsilon = 0.0768;
xd = 0.25;
}
////////////////////////////////////////////////////////////////////////////////
//
G4EMDissociationCrossSection::~G4EMDissociationCrossSection()
{
delete thePhotonSpectrum;
}
////////////////////////////////////////////////////////////////////////////////
//
G4bool G4EMDissociationCrossSection::IsApplicable
(const G4DynamicParticle *theDynamicParticle, const G4Element* theElement)
{
//
//
// The condition for the applicability of this class is that the projectile
// must be an ion and the target must have more than one nucleon. In reality
// the value of A for either the projectile or target could be much higher,
// since for cases where both he projectile and target are medium to small
// Z, the probability of the EMD process is, I think, VERY small.
//
if (G4ParticleTable::GetParticleTable()->GetIonTable()->
IsIon(theDynamicParticle->GetDefinition()) && theElement->GetN() > 1.0)
return true;
else
return false;
}
////////////////////////////////////////////////////////////////////////////////
//
G4double G4EMDissociationCrossSection::GetCrossSection
(const G4DynamicParticle *theDynamicParticle, const G4Element* theElement,
G4double )
{
//
//
// Get relevant information about the projectile and target (A, Z) and
// velocity of the projectile.
//
G4ParticleDefinition *definitionP = theDynamicParticle->GetDefinition();
G4double AP = definitionP->GetBaryonNumber();
G4double ZP = definitionP->GetPDGCharge();
G4double b = theDynamicParticle->Get4Momentum().beta();
// G4double bsq = b * b;
G4double AT = theElement->GetN();
G4double ZT = theElement->GetZ();
G4double bmin = thePhotonSpectrum->GetClosestApproach(AP, ZP, AT, ZT, b);
//
//
// Calculate the cross-section for the projectile and then the target. The
// information is returned in a G4PhysicsFreeVector, which separates out the
// cross-sections for the E1 and E2 moments of the virtual photon field, and
// the energies (GDR and GQR).
//
G4PhysicsFreeVector *theProjectileCrossSections =
GetCrossSectionForProjectile (AP, ZP, AT, ZT, b, bmin);
G4double crossSection =
(*theProjectileCrossSections)[0]+(*theProjectileCrossSections)[1];
delete theProjectileCrossSections;
G4PhysicsFreeVector *theTargetCrossSections =
GetCrossSectionForTarget (AP, ZP, AT, ZT, b, bmin);
crossSection +=
(*theTargetCrossSections)[0]+(*theTargetCrossSections)[1];
delete theTargetCrossSections;
return crossSection;
}
////////////////////////////////////////////////////////////////////////////////
//
G4PhysicsFreeVector *
G4EMDissociationCrossSection::GetCrossSectionForProjectile (G4double AP,
G4double ZP, G4double AT, G4double ZT, G4double b, G4double bmin)
{
//
//
// Use Wilson et al's approach to calculate the cross-sections due to the E1
// and E2 moments of the field at the giant dipole and quadrupole resonances
// respectively, Note that the algorithm is traditionally applied to the
// EMD break-up of the projectile in the field of the target, as is implemented
// here.
//
// Initialise variables and calculate the energies for the GDR and GQR.
//
G4double AProot3 = pow(AP,1.0/3.0);
G4double u = 3.0 * J / Qprime / AProot3;
G4double R0 = r0 * AProot3;
G4double E_GDR = hbarc / sqrt(0.7*amu_c2*R0*R0/8.0/J*
(1.0 + u - (1.0 + epsilon + 3.0*u)/(1.0 + epsilon + u)*epsilon));
G4double E_GQR = 63.0 * MeV / AProot3;
//
//
// Determine the virtual photon spectra at these energies.
//
G4double ZTsq = ZT * ZT;
G4double nE1 = ZTsq *
thePhotonSpectrum->GetGeneralE1Spectrum(E_GDR, b, bmin);
G4double nE2 = ZTsq *
thePhotonSpectrum->GetGeneralE2Spectrum(E_GQR, b, bmin);
//
//
// Now calculate the cross-section of the projectile for interaction with the
// E1 and E2 fields.
//
G4double sE1 = 60.0 * millibarn * MeV * (AP-ZP)*ZP/AP;
G4double sE2 = 0.22 * microbarn / MeV * ZP * AProot3 * AProot3;
if (AP > 100.0) sE2 *= 0.9;
else if (AP > 40.0) sE2 *= 0.6;
else sE2 *= 0.3;
//
//
// ... and multiply with the intensity of the virtual photon spectra to get
// the probability of interaction.
//
G4PhysicsFreeVector *theCrossSectionVector = new G4PhysicsFreeVector(2);
theCrossSectionVector->PutValue(0, E_GDR, sE1*nE1);
theCrossSectionVector->PutValue(1, E_GQR, sE2*nE2*E_GQR*E_GQR);
return theCrossSectionVector;
}
////////////////////////////////////////////////////////////////////////////////
//
G4PhysicsFreeVector *
G4EMDissociationCrossSection::GetCrossSectionForTarget (G4double AP,
G4double ZP, G4double AT, G4double ZT, G4double b, G4double bmin)
{
//
//
// This is a cheaky little member function to calculate the probability of
// EMD for the target in the field of the projectile ... just by reversing the
// A and Z's for the participants.
//
return GetCrossSectionForProjectile (AT, ZT, AP, ZP, b, bmin);
}
////////////////////////////////////////////////////////////////////////////////
//
G4double
G4EMDissociationCrossSection::GetWilsonProbabilityForProtonDissociation
(G4double A, G4double Z)
{
//
//
// This is a simple algorithm to choose whether a proton or neutron is ejected
// from the nucleus in the EMD interaction.
//
G4double p = 0.0;
if (Z < 6.0)
p = 0.5;
else if (Z < 8.0)
p = 0.6;
else if (Z < 14.0)
p = 0.7;
else
{
G4double p1 = (G4double) Z / (G4double) A;
G4double p2 = 1.95*exp(-0.075*Z);
if (p1 < p2) p = p1;
else p = p2;
}
return p;
}
////////////////////////////////////////////////////////////////////////////////
//
source/processes/hadronic/cross_sections/src/G4EMDissociationSpectrum.cc
+118
View File
@@ -0,0 +1,118 @@
//
// ********************************************************************
// * DISCLAIMER *
// * *
// * The following disclaimer summarizes all the specific disclaimers *
// * of contributors to this software. The specific disclaimers,which *
// * govern, are listed with their locations in: *
// * http://cern.ch/geant4/license *
// * *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work make any representation or warranty, express or implied, *
// * regarding this software system or assume any liability for its *
// * use. *
// * *
// * This code implementation is the intellectual property of the *
// * GEANT4 collaboration. *
// * *
// * Parts of this code which have been developed by QinetiQ Ltd *
// * under contract to the European Space Agency (ESA) are the *
// * intellectual property of ESA. Rights to use, copy, modify and *
// * redistribute this software for general public use are granted *
// * in compliance with any licensing, distribution and development *
// * policy adopted by the Geant4 Collaboration. This code has been *
// * written by QinetiQ Ltd for the European Space Agency, under ESA *
// * contract 17191/03/NL/LvH (Aurora Programme). *
// * *
// * By copying, distributing or modifying the Program (or any work *
// * based on the Program) you indicate your acceptance of this *
// * statement, and all its terms. *
// ********************************************************************
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// MODULE: G4EMDissociationSpectrum.cc
//
// Version: B.1
// Date: 15/04/04
// Author: P R Truscott
// Organisation: QinetiQ Ltd, UK
// Customer: ESA/ESTEC, NOORDWIJK
// Contract: 17191/03/NL/LvH
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// CHANGE HISTORY
// --------------
//
// 6 October 2003, P R Truscott, QinetiQ Ltd, UK
// Created.
//
// 15 March 2004, P R Truscott, QinetiQ Ltd, UK
// Beta release
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
////////////////////////////////////////////////////////////////////////////////
//
#include "G4EMDissociationSpectrum.hh"
#include "globals.hh"
////////////////////////////////////////////////////////////////////////////////
//
G4EMDissociationSpectrum::G4EMDissociationSpectrum ()
{
bessel = new G4Bessel();
}
////////////////////////////////////////////////////////////////////////////////
//
G4EMDissociationSpectrum::~G4EMDissociationSpectrum ()
{
delete bessel;
}
////////////////////////////////////////////////////////////////////////////////
//
G4double G4EMDissociationSpectrum::GetGeneralE1Spectrum
(G4double Eg, G4double b, G4double bmin)
{
G4double b2 = b*b;
G4double g = 1.0/sqrt(1.0-b2);
G4double xi = Eg * bmin / g / b / hbarc;
G4double K0 = bessel->K0(xi);
G4double K1 = bessel->K1(xi);
G4double n = 2.0 * fine_structure_const / pi / b2 / Eg *
(xi*K0*K1 - xi*xi*b2/2.0*(K1*K1-K0*K0));
return n;
}
////////////////////////////////////////////////////////////////////////////////
//
G4double G4EMDissociationSpectrum::GetGeneralE2Spectrum
(G4double Eg, G4double b, G4double bmin)
{
G4double b2 = b * b;
G4double b4 = b2 * b2;
G4double g = 1.0/sqrt(1.0-b2);
G4double xi = Eg * bmin / g / b / hbarc;
G4double K0 = bessel->K0(xi);
G4double K1 = bessel->K1(xi);
G4double n = 2.0 * fine_structure_const / pi / b4 / Eg *
(2.0*(1.0-b2)*K1*K1 + xi*pow((2.0-b2),2.0)*K0*K1 -
xi*xi*b4/2.0*(K1*K1-K0*K0));
return n;
}
////////////////////////////////////////////////////////////////////////////////
//
G4double G4EMDissociationSpectrum::GetClosestApproach
(const G4double AP, const G4double ZP, G4double AT, G4double ZT, G4double b)
{
G4double bsq = b * b;
G4double g = 1.0/sqrt(1-bsq);
G4double AProot3 = pow(AP,1.0/3.0);
G4double ATroot3 = pow(AT,1.0/3.0);
G4double bc = 1.34 * fermi * (AProot3+ATroot3 - 0.75 *(1.0/AProot3+1.0/ATroot3));
// G4double a0 = ZP * ZT * classic_electr_radius/bsq;
G4double a0 = ZP * ZT * elm_coupling / (AT*AP*amu_c2/(AT+AP)) / bsq;
G4double bmin = 1.25 * bc + halfpi*a0/g;
return bmin;
}
////////////////////////////////////////////////////////////////////////////////
//
source/processes/hadronic/cross_sections/src/G4GeneralSpaceNNCrossSection.cc
+197
View File
@@ -0,0 +1,197 @@
//
// ********************************************************************
// * DISCLAIMER *
// * *
// * The following disclaimer summarizes all the specific disclaimers *
// * of contributors to this software. The specific disclaimers,which *
// * govern, are listed with their locations in: *
// * http://cern.ch/geant4/license *
// * *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work make any representation or warranty, express or implied, *
// * regarding this software system or assume any liability for its *
// * use. *
// * *
// * This code implementation is the intellectual property of the *
// * GEANT4 collaboration. *
// * *
// * Parts of this code which have been developed by QinetiQ Ltd *
// * under contract to the European Space Agency (ESA) are the *
// * intellectual property of ESA. Rights to use, copy, modify and *
// * redistribute this software for general public use are granted *
// * in compliance with any licensing, distribution and development *
// * policy adopted by the Geant4 Collaboration. This code has been *
// * written by QinetiQ Ltd for the European Space Agency, under ESA *
// * contract 17191/03/NL/LvH (Aurora Programme). *
// * *
// * By copying, distributing or modifying the Program (or any work *
// * based on the Program) you indicate your acceptance of this *
// * statement, and all its terms. *
// ********************************************************************
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// MODULE: G4GeneralSpaceNNCrossSection.cc
//
// Version: B.1
// Date: 15/04/04
// Author: P R Truscott
// Organisation: QinetiQ Ltd, UK
// Customer: ESA/ESTEC, NOORDWIJK
// Contract: 17191/03/NL/LvH
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// CHANGE HISTORY
// --------------
//
// 6 October 2003, P R Truscott, QinetiQ Ltd, UK
// Created.
//
// 15 March 2004, P R Truscott, QinetiQ Ltd, UK
// Beta release
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
////////////////////////////////////////////////////////////////////////////////
//
#include "G4GeneralSpaceNNCrossSection.hh"
#include "G4DynamicParticle.hh"
#include "G4Element.hh"
#include "G4ParticleDefinition.hh"
#include "G4ParticleTable.hh"
#include "G4IonTable.hh"
#include <iomanip>
////////////////////////////////////////////////////////////////////////////////
//
G4GeneralSpaceNNCrossSection::G4GeneralSpaceNNCrossSection ()
{
protonInelastic = new G4ProtonInelasticCrossSection();
ionProton = new G4IonProtonCrossSection();
TripathiGeneral = new G4TripathiCrossSection();
TripathiLight = new G4TripathiLightCrossSection();
Shen = new G4IonsShenCrossSection();
return;
}
////////////////////////////////////////////////////////////////////////////////
//
G4GeneralSpaceNNCrossSection::~G4GeneralSpaceNNCrossSection ()
{
delete protonInelastic;
delete ionProton;
delete TripathiGeneral;
delete TripathiLight;
delete Shen;
}
////////////////////////////////////////////////////////////////////////////////
//
G4bool G4GeneralSpaceNNCrossSection::IsApplicable
(const G4DynamicParticle* theProjectile, const G4Element* theTarget)
{
G4bool result = protonInelastic->IsApplicable(theProjectile, theTarget);
if (!result)
{
result = ionProton->IsApplicable(theProjectile, theTarget);
if (!result)
{
result = TripathiGeneral->IsApplicable(theProjectile, theTarget);
if (!result)
result = Shen->IsApplicable(theProjectile, theTarget);
}
}
return result;
}
////////////////////////////////////////////////////////////////////////////////
//
G4double G4GeneralSpaceNNCrossSection::GetCrossSection
(const G4DynamicParticle* theProjectile, const G4Element* theTarget,
G4double theTemperature)
{
G4double result = 0.0;
const G4double AT = theTarget->GetN();
const G4double ZT = theTarget->GetZ();
const G4double AP = theProjectile->GetDefinition()->GetBaryonNumber();
const G4double ZP = theProjectile->GetDefinition()->GetPDGCharge();
if (verboseLevel >= 2)
{
G4cout <<"In G4GeneralSpaceNNCrossSection::GetCrossSection" <<G4endl;
G4cout <<"Projectile A = " <<std::setw(8) <<AP
<<" Z = " <<std::setw(8) <<ZP
<<" Energy = " <<theProjectile->GetKineticEnergy()/AP
<<" MeV/nuc" <<G4endl;
G4cout <<"Target A = " <<std::setw(8) <<AT
<<" Z = " <<std::setw(8) <<ZT
<<G4endl;
}
if (theProjectile->GetDefinition()==G4Proton::Proton())
{
if (ZT>5)
{
result = protonInelastic->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4ProtonInelasticCrossSection" <<G4endl;
}
else
{
result = TripathiLight->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4TripathiLightCrossSection" <<G4endl;
}
}
else if (AT==1 && ZT==1)
{
if (ZP>5)
{
result = ionProton->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4IonProtonCrossSection" <<G4endl;
}
else
{
result = TripathiLight->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4TripathiLightCrossSection" <<G4endl;
}
}
else
{
if (TripathiLight->IsApplicable(theProjectile, theTarget))
{
result = TripathiLight->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4TripathiLightCrossSection" <<G4endl;
}
else if (TripathiGeneral->IsApplicable(theProjectile, theTarget))
{
result = TripathiGeneral->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4TripathiCrossSection" <<G4endl;
}
else if (Shen->IsApplicable(theProjectile, theTarget))
{
result = Shen->
GetCrossSection(theProjectile, theTarget, theTemperature);
if (verboseLevel >= 2)
G4cout <<"Selecting G4IonsShenCrossSection" <<G4endl;
}
}
if (verboseLevel >= 2)
{
G4cout <<"Cross-section = " <<result/millibarn <<" mbarn" <<G4endl;
G4cout <<G4endl;
}
return result;
}
////////////////////////////////////////////////////////////////////////////////
//
source/processes/hadronic/cross_sections/src/G4HadronCrossSections.cc
+2 -2
View File
@@ -21,7 +21,7 @@
// ********************************************************************
//
//
// GEANT4 tag $Name: geant4-06-00-patch-01 $
// GEANT4 tag $Name: geant4-06-02 $
//
//
// G4 Hadron Physics class G4HadronCrossSections
@@ -582,7 +582,7 @@ G4float G4HadronCrossSections::csin[PSIZE][TSIZE] = {
22.000 , 23.500 , 24.800 , 25.800 , 26.500 ,
27.000 , 27.500 , 28.000 , 30.000 , 31.000 ,
32.000 , 32.500 , 32.500 , 33.000 , 33.500 ,
34.000} ,
33.500} ,
{1500.0 , 1160.0 , 310.00 , 230.00 , 178.00 , //15
153.00 , 134.00 , 124.00 , 113.00 , 106.00 ,
source/processes/hadronic/cross_sections/src/G4PiNuclearCrossSection.cc
+60 -33
View File
@@ -22,6 +22,8 @@
//
#include "G4PiNuclearCrossSection.hh"
#include "G4HadronicException.hh"
#include "G4HadTmpUtil.hh"
#include "G4ping.hh"
// by J.P Wellisch, Sun Sep 15 2002.
// Implements P2-90-158;
@@ -52,7 +54,7 @@
const G4double G4PiNuclearCrossSection::na_p_t[22] = {210, 320, 530, 795, 960, 1035, 1050, 1040, 1007, 957, 918, 865, 773, 685, 636, 598, 575, 565, 578, 590, 598, 610};
const G4double G4PiNuclearCrossSection::na_p_in[22] = {115, 210, 340, 495, 585, 630, 645, 637, 605, 572, 550, 505, 455, 410, 401, 388, 383, 393, 405, 414, 418, 422};
const G4double G4PiNuclearCrossSection::e3_1[31] = {.02, .04, .06, .08, .1, .12, .14, .16, .18, .2, .22, .25, .3, .35, .4, .45, .5, .6, .7, .8, .9, 1., 2., 3., 5., 10., 20., 50., 100., 500., 1000.};
const G4double G4PiNuclearCrossSection::e3_1[31] = {.02, .04, .06, .08, .1, .12, .14, .16, .18, .2, .22, .25, .3, .35, .4, .45, .5, .6, .7, .8, .9, 1., 2., 3., 5., 10., 20., 50., 100., 500., 1000.};
const G4double G4PiNuclearCrossSection::al_m_t[31] = {532, 637, 832, 1057, 1207, 1230, 1210, 1174, 1133, 1095, 1038, 970, 890, 807, 750, 710, 675, 665, 670, 673, 678, 682, 618, 574, 546, 520, 507, 495, 488, 488, 488};
const G4double G4PiNuclearCrossSection::al_m_in[31] = {300, 360, 495, 665, 750, 765, 750, 730, 700, 660, 615, 570, 520, 490, 470, 450, 448, 450, 450, 452, 456, 460, 408, 392, 376, 356, 347, 338, 332, 332, 332};
const G4double G4PiNuclearCrossSection::al_p_t[21] = {225, 350, 616, 945, 1122, 1175, 1157, 1128, 1088, 1045, 988, 935, 870, 787, 730, 690, 660, 652, 660, 668, 678};
@@ -60,44 +62,47 @@
const G4double G4PiNuclearCrossSection::ca_m_t[31] = {800, 980, 1240, 1460, 1570, 1600, 1580, 1535, 1475, 1425, 1375, 1295, 1200, 1083, 1000, 948, 915, 895, 900, 908, 915, 922, 856, 795, 740, 705, 682, 660, 660, 660, 660};
const G4double G4PiNuclearCrossSection::ca_m_in[31] = {470, 550, 620, 860, 955, 960, 920, 860, 820, 780, 740, 665, 637, 615, 600, 590, 600, 608, 610, 615, 550, 525, 510, 488, 470, 450, 450, 450, 450};
const G4double G4PiNuclearCrossSection::ca_p_t[23] = {275, 445, 790, 1195, 1440, 1485, 1475, 1435, 1385, 1335, 1295, 1245, 1160, 1050, 970, 923, 895, 877, 887, 897, 904, 913, 855};
const G4double G4PiNuclearCrossSection::ca_p_in[23] = {160, 315, 500, 745, 870, 905, 900, 860, 810, 770, 740, 710, 640, 617, 595, 585, 575, 575, 590, 600, 602, 608, 550};
const G4double G4PiNuclearCrossSection::ca_p_in[23] = {160, 315, 500, 745, 870, 905, 900, 860, 810, 770, 740, 710, 640, 617, 595, 585, 575, 575, 590, 600, 602, 608, 510}; // last number is 500 in org, changed to make things smooth.
const G4double G4PiNuclearCrossSection::e4[32] = {0.02, 0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::fe_m_t[32] = {1175, 1363, 1670, 1950, 2050, 2040, 1975, 1886, 1834, 1773, 1720, 1635, 1474, 1380, 1269, 1225, 1182, 1162, 1159, 1162, 1178, 1190, 1197, 1102, 1035, 975, 945, 925, 905, 905, 905, 905};
const G4double G4PiNuclearCrossSection::fe_m_in[32] = {625, 725, 910, 1180, 1275, 1250, 1200, 1150, 1100, 1040, 995, 925, 825, 810, 780, 760, 745, 740, 740, 740, 750, 760, 765, 690, 660, 635, 615, 600, 585, 585, 585, 585};
const G4double G4PiNuclearCrossSection::fe_p_t[25] = {330, 575, 1010, 1500, 1837, 1875, 1820, 1751, 1691, 1636, 1690, 1450, 1396, 1305, 1219, 1190, 1148, 1138, 1134, 1144, 1163, 1175, 1183, 1198, 1135};
const G4double G4PiNuclearCrossSection::fe_p_in[25] = {210, 410, 707, 1010, 1125, 1150, 1100, 1070, 1010, 960, 920, 776, 780, 760, 750, 740, 720, 725, 725, 730, 740, 750, 755, 690, 660};
const G4double G4PiNuclearCrossSection::e4[32] = {0.02, 0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::fe_m_t[32] = {1175, 1363, 1670, 1950, 2050, 2040, 1975, 1886, 1834, 1773, 1720, 1635, 1474, 1380, 1269, 1225, 1182, 1162, 1159, 1162, 1178, 1190, 1197, 1102, 1135, 975, 945, 925, 905, 905, 905, 905};
const G4double G4PiNuclearCrossSection::fe_m_in[32] = {625, 725, 910, 1180, 1275, 1250, 1200, 1150, 1100, 1040, 995, 925, 825, 810, 780, 760, 745, 740, 740, 740, 750, 760, 765, 690, 660, 635, 615, 600, 585, 585, 585, 585};
const G4double G4PiNuclearCrossSection::fe_p_t[25] = {330, 575, 1010, 1500, 1837, 1875, 1820, 1751, 1691, 1636, 1690, 1450, 1396, 1305, 1219, 1190, 1148, 1138, 1134, 1144, 1163, 1175, 1183, 1198, 1135};
const G4double G4PiNuclearCrossSection::fe_p_in[25] = {210, 410, 707, 1010, 1125, 1150, 1100, 1070, 1010, 960, 920, 776, 780, 760, 750, 740, 720, 725, 725, 730, 740, 750, 755, 690, 660};
const G4double G4PiNuclearCrossSection::cu_m_t[32] = {1400, 1600, 1875, 2088, 2200, 2220, 2175, 2125, 2075, 2012, 1950, 1855, 1670, 1530, 1430, 1370, 1315, 1315, 1315, 1330, 1345, 1360, 1365, 1250, 1185, 1128, 1070, 1035, 1010, 1010, 1010, 1010};
const G4double G4PiNuclearCrossSection::cu_m_in[32] = {725, 840, 1020, 1200, 1295, 1300, 1267, 1240, 1213, 1175, 1125, 1042, 950, 900, 860, 840, 830, 832, 835, 840, 850, 860, 865, 785, 735, 705, 680, 650, 630, 630, 630, 630};
const G4double G4PiNuclearCrossSection::cu_p_t[25] = {355, 605, 1120, 1630, 1940, 2010, 2010, 1980, 1925, 1895, 1830, 1730, 1585, 1490, 1400, 1340, 1290, 1290, 1290, 1310, 1330, 1345, 1350, 1240, 1185};
const G4double G4PiNuclearCrossSection::cu_p_in[25] = {230, 425, 780, 1025, 1155, 1190, 1190, 1180, 1125, 1100, 1050, 1000, 900, 870, 835, 815, 810, 812, 815, 825, 840, 850, 855, 780, 735};
const G4double G4PiNuclearCrossSection::e5[34] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::cu_m_in[32] = {725, 840, 1020, 1200, 1295, 1300, 1267, 1240, 1213, 1175, 1125, 1042, 950, 900, 860, 840, 830, 832, 835, 840, 850, 860, 865, 785, 735, 705, 680, 650, 630, 630, 630, 630};
const G4double G4PiNuclearCrossSection::cu_p_t[25] = {355, 605, 1120, 1630, 1940, 2010, 2010, 1980, 1925, 1895, 1830, 1730, 1585, 1490, 1400, 1340, 1290, 1290, 1290, 1310, 1330, 1345, 1350, 1240, 1185};
const G4double G4PiNuclearCrossSection::cu_p_in[25] = {230, 425, 780, 1025, 1155, 1190, 1190, 1180, 1125, 1100, 1050, 1000, 900, 870, 835, 815, 810, 812, 815, 825, 840, 850, 855, 780, 735};
const G4double G4PiNuclearCrossSection::e5[34] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::mo_m_t[34] = {2430, 2610, 2710, 2790, 2880, 2940, 2965, 2970, 2970, 2920, 2840, 2720, 2570, 2500, 2365, 2200, 2050, 1926, 1825, 1768, 1749, 1750, 1778, 1789, 1808, 1690, 1645, 1530, 1492, 1450, 1425, 1425, 1425, 1425};
const G4double G4PiNuclearCrossSection::mo_m_in[34] = {925, 1125, 1250, 1375, 1500, 1600, 1680, 1750, 1770, 1730, 1660, 1580, 1500, 1450, 1330, 1250, 1190, 1140, 1100, 1075, 1075, 1070, 1088, 1095, 1110, 1035, 1005, 940, 917, 880, 860, 860, 860, 860};
const G4double G4PiNuclearCrossSection::mo_p_t[27] = {410, 730, 1110, 1530, 1920, 2200, 2385, 2520, 2600, 2630, 2575, 2470, 2320, 2285, 2185, 2053, 1945, 1852, 1776, 1719, 1710, 1716, 1746, 1759, 1778, 1675, 1645};
const G4double G4PiNuclearCrossSection::mo_p_in[27] = {270, 540, 825, 975, 1140, 1285, 1400, 1480, 1555, 1580, 1525, 1470, 1360, 1340, 1255, 1160, 1120, 1085, 1060, 1045, 1045, 1045, 1065, 1075, 1090, 1025, 1005};
const G4double G4PiNuclearCrossSection::mo_p_t[27] = {410, 730, 1110, 1530, 1920, 2200, 2385, 2520, 2600, 2630, 2575, 2470, 2320, 2285, 2185, 2053, 1945, 1852, 1776, 1719, 1710, 1716, 1746, 1759, 1778, 1675, 1645};
const G4double G4PiNuclearCrossSection::mo_p_in[27] = {270, 540, 825, 975, 1140, 1285, 1400, 1480, 1555, 1580, 1525, 1470, 1360, 1340, 1255, 1160, 1120, 1085, 1060, 1045, 1045, 1045, 1065, 1075, 1090, 1025, 1005};
const G4double G4PiNuclearCrossSection::cd_m_t[34] = {3060, 3125, 3170, 3220, 3255, 3280, 3290, 3260, 3270, 3200, 3120, 3080, 3090, 2920, 2810, 2640, 2362, 2230, 2115, 2050, 2020, 2025, 2040, 2070, 2100, 1900, 1795, 1740, 1675, 1645, 1625, 1620, 1620, 1620};
const G4double G4PiNuclearCrossSection::cd_m_in[34] = {1025, 1275, 1440, 1625, 1740, 1800, 1880, 1920, 1980, 1920, 1850, 1810, 1720, 1650, 1560, 1450, 1330, 1290, 1245, 1210, 1200, 1200, 1205, 1205, 1230, 1130, 1085, 1060, 1000, 985, 975, 970, 970, 970};
const G4double G4PiNuclearCrossSection::cd_p_t[28] = {455, 780, 1170, 1700, 2120, 2400, 2600, 2720, 2820, 2840, 2800, 2760, 2720, 2640, 2560, 2450, 2252, 2130, 2035, 1985, 1970, 1975, 2005, 2035, 2070, 1880, 1785, 1740};
const G4double G4PiNuclearCrossSection::cd_p_in[28] = {310, 580, 880, 1060, 1270, 1400, 1530, 1610, 1660, 1680, 1640, 1600, 1560, 1500, 1430, 1330, 1280, 1230, 1200, 1180, 1170, 1175, 1180, 1180, 1210, 1120, 1080, 1060};
const G4double G4PiNuclearCrossSection::e6[35] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.8, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::sn_m_t[35] = {3000, 3180, 3250, 3300, 3300, 3410, 3470, 3450, 3410, 3350, 3280, 3200, 3120, 3050, 2900, 2630, 2500, 2325, 2190, 2100, 2060, 2055, 2055, 2055, 2067, 2085, 2000, 1900, 1835, 1770, 1720, 1700, 1695, 1695, 1695};
const G4double G4PiNuclearCrossSection::cd_m_in[34]= {1025, 1275, 1440, 1625, 1740, 1800, 1880, 1920, 1980, 1920, 1850, 1810, 1720, 1650, 1560, 1450, 1330, 1290, 1245, 1210, 1200, 1200, 1205, 1205, 1230, 1130, 1085, 1060, 1000, 985, 975, 970, 970, 970};
const G4double G4PiNuclearCrossSection::cd_p_t[28] = {455, 780, 1170, 1700, 2120, 2400, 2600, 2720, 2820, 2840, 2800, 2760, 2720, 2640, 2560, 2450, 2252, 2130, 2035, 1985, 1970, 1975, 2005, 2035, 2070, 1880, 1795, 1740};
const G4double G4PiNuclearCrossSection::cd_p_in[28] = {310, 580, 880, 1060, 1270, 1400, 1530, 1610, 1660, 1680, 1640, 1600, 1560, 1500, 1430, 1330, 1280, 1230, 1200, 1180, 1170, 1175, 1180, 1180, 1210, 1120, 1085, 1060};
const G4double G4PiNuclearCrossSection::e6[35] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::sn_m_t[35] = {3000, 3180, 3250, 3300, 3300, 3410, 3470, 3450, 3410, 3350, 3280, 3200, 3120, 3050, 2900, 2630, 2500, 2325, 2190, 2100, 2060, 2055, 2055, 2055, 2067, 2085, 2000, 1900, 1835, 1770, 1720, 1700, 1695, 1695, 1695};
const G4double G4PiNuclearCrossSection::sn_m_in[35] = {1050, 1350, 1520, 1650, 1800, 1980, 2070, 2120, 2090, 2050, 1980, 1920, 1830, 1770, 1670, 1500, 1435, 1350, 1300, 1230, 1220, 1235, 1235, 1235, 1237, 1240, 1160, 1120, 1090, 1065, 1040, 1020, 1015, 1015, 1015};
const G4double G4PiNuclearCrossSection::sn_p_t[29] = {465, 800, 1200, 1760, 2170, 2480, 2730, 2885, 2970, 2980, 2970, 2890, 2840, 2790, 2620, 2450, 2335, 2205, 2080, 2020, 2010, 1990, 1990, 2015, 2030, 2045, 1980, 1890, 1835};
const G4double G4PiNuclearCrossSection::sn_p_in[29] = {315, 590, 880, 1220, 1460, 1580, 1700, 1770, 1810, 1810, 1800, 1730, 1680, 1630, 1530, 1400, 1335, 1270, 1210, 1180, 1190, 1190, 1190, 1205, 1210, 1210, 1150, 1115, 1090};
const G4double G4PiNuclearCrossSection::w_m_t[35] = {5200, 5115, 5025, 4975, 4900, 4850, 4780, 4725, 4600, 4490, 4355, 4255, 4125, 4040, 3830, 3580, 3330, 3110, 2955, 2860, 2852, 2845, 2885, 2900, 2915, 2940, 2800, 2660, 2580, 2490, 2460, 2425, 2420, 2420, 2420};
const G4double G4PiNuclearCrossSection::w_m_in[35] = {1450, 1850, 2100, 2350, 2550, 2700, 2825, 2900, 2850, 2750, 2630, 2525, 2400, 2300, 2200, 2070, 1880, 1770, 1715, 1680, 1680, 1680, 1685, 1690, 1700, 1720, 1635, 1560, 1530, 1460, 1440, 1410, 1410, 1410, 1410};
const G4double G4PiNuclearCrossSection::w_p_t[30] = {480, 900, 1500, 2350, 3020, 3420, 3650, 3775, 3875, 3830, 3750, 3700, 3630, 3550, 3550, 3290, 3070, 2890, 2840, 2730, 2725, 2720, 2770, 2805, 2828, 2865, 2770, 2640, 2570, 2490};
const G4double G4PiNuclearCrossSection::w_p_in[30] = {325, 680, 990, 1500, 1850, 2150, 2250, 2300, 2350, 233, 2280, 2230, 2200, 2120, 2130, 900, 1780, 1670, 1635, 1600, 1602, 1605, 1610, 1615, 1630, 1660, 1620, 1550, 1525, 1460};
const G4double G4PiNuclearCrossSection::e7[35] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::pb_m_t[35] = {5890, 5700, 5610, 5580, 5550, 5480, 5400, 5300, 5100, 4930, 4750, 4600, 4400, 4280, 4170, 3915, 3650, 3470, 3260, 3150, 3120, 3070, 3085, 3100, 3120, 3160, 3070, 2930, 2820, 2750, 2710, 2655, 2640, 2640, 2640};
const G4double G4PiNuclearCrossSection::sn_p_t[29] = { 465, 800, 1200, 1760, 2170, 2480, 2730, 2885, 2970, 2980, 2970, 2890, 2840, 2790, 2620, 2450, 2335, 2205, 2080, 2020, 2010, 1990, 1990, 2015, 2030, 2045, 1980, 1890, 1835};
const G4double G4PiNuclearCrossSection::sn_p_in[29] = { 315, 590, 880, 1220, 1460, 1580, 1700, 1770, 1810, 1810, 1800, 1730, 1680, 1630, 1530, 1400, 1335, 1270, 1210, 1180, 1190, 1190, 1190, 1205, 1210, 1210, 1150, 1115, 1090};
const G4double G4PiNuclearCrossSection::w_m_t[35] = {5200, 5115, 5025, 4975, 4900, 4850, 4780, 4725, 4600, 4490, 4355, 4255, 4125, 4040, 3830, 3580, 3330, 3110, 2955, 2860, 2852, 2845, 2885, 2900, 2915, 2940, 2800, 2660, 2570, 2490, 2460, 2425, 2420, 2420, 2420};
const G4double G4PiNuclearCrossSection::w_m_in[35] = {1450, 1850, 2100, 2350, 2550, 2700, 2825, 2900, 2850, 2750, 2630, 2525, 2400, 2300, 2200, 2070, 1880, 1770, 1715, 1680, 1680, 1680, 1685, 1690, 1700, 1720, 1635, 1560, 1530, 1460, 1440, 1410, 1410, 1410, 1410};
const G4double G4PiNuclearCrossSection::w_p_t[30] = { 480, 900, 1500, 2350, 3020, 3420, 3650, 3775, 3875, 3830, 3750, 3700, 3630, 3550, 3550, 3290, 3070, 2890, 2840, 2730, 2725, 2720, 2770, 2805, 2828, 2865, 2770, 2640, 2570, 2490};
const G4double G4PiNuclearCrossSection::w_p_in[30] = { 325, 680, 990, 1500, 1850, 2150, 2250, 2300, 2350, 2330, 2280, 2230, 2200, 2120, 2130, 1900, 1780, 1670, 1635, 1600, 1602, 1605, 1610, 1615, 1630, 1660, 1620, 1550, 1530, 1460};
const G4double G4PiNuclearCrossSection::e7[35] = {0.02, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1, 2, 3, 5, 10, 20, 50, 100, 500, 1000};
const G4double G4PiNuclearCrossSection::pb_m_t[35] = {5890, 5700, 5610, 5580, 5550, 5480, 5400, 5300, 5100, 4930, 4750, 4600, 4400, 4280, 4170, 3915, 3650, 3470, 3260, 3150, 3120, 3070, 3085, 3100, 3120, 3160, 3070, 2930, 2820, 2750, 2710, 2655, 2640, 2640, 2640};
const G4double G4PiNuclearCrossSection::pb_m_in[35] = {1575, 2025, 2300, 2575, 2850, 3000, 3115, 3180, 3080, 2940, 2800, 2670, 2550, 2450, 2370, 2220, 2110, 2000, 1920, 1880, 1850, 1800, 1805, 1810, 1820, 1840, 1800, 1720, 1640, 1620, 1570, 1530, 1530, 1530, 1530};
const G4double G4PiNuclearCrossSection::pb_p_t[30] = {515, 940, 1500, 2400, 3270, 3750, 4050, 4140, 4260, 4200, 4080, 3990, 3990, 3810, 3730, 3520, 3370, 3186, 3110, 3010, 2990, 2985, 3005, 3020, 3040, 3080, 3020, 2905, 2790, 2790};
const G4double G4PiNuclearCrossSection::pb_p_in[30] = {348, 707, 1040, 1650, 2100, 2400, 2580, 2640, 2650, 2520, 2410, 230, 2250, 2190, 2130, 2000, 1930, 1870, 1830, 1790, 1770, 1765, 1775, 1780, 1790, 1800, 1775, 1710, 1620, 1620};
const G4double G4PiNuclearCrossSection::u_m_t[35] = {7080, 6830, 6650, 6530, 6400, 6280, 6100, 5840, 5660, 5520, 5330, 5160, 4990, 4810, 4630, 4323, 4130, 3870, 3700, 3550, 3490, 3465, 3467, 3475, 3495, 3515, 3440, 3360, 3150, 3040, 2985, 2955, 2940, 2940, 2940};
const G4double G4PiNuclearCrossSection::u_m_in[35] = {1740, 2220, 2500, 2820, 3080, 3300, 3420, 3500, 3420, 3330, 3200, 3060, 2940, 2850, 2710, 2470, 2380, 2250, 2160, 2080, 2040, 2045, 2047, 2050, 2055, 2060, 2010, 1980, 1830, 1780, 1735, 1710, 1700, 1700, 1700};
const G4double G4PiNuclearCrossSection::u_p_t[30] = {485, 960, 1580, 2700, 3550, 4050, 4320, 4420, 4620, 4660, 4580, 4470, 4350, 4295, 4187, 3938, 3755, 3573, 3450, 3342, 3310, 3295, 3310, 3330, 3375, 3405, 3350, 3338, 3135, 3040};
const G4double G4PiNuclearCrossSection::u_p_in[30] = {334, 720, 1020, 1560, 2100, 2300, 2550, 2700, 2880, 2880, 2760, 2660, 2550, 2510, 2430, 2270, 2130, 2060, 2000, 1970, 1950, 1950, 1960, 1960, 1970, 1980, 1950, 1978, 1830, 1780};
const G4double G4PiNuclearCrossSection::pb_p_t[30] = { 515, 940, 1500, 2400, 3270, 3750, 4050, 4140, 4260, 4200, 4080, 3990, 3990, 3810, 3730, 3520, 3370, 3186, 3110, 3010, 2990, 2985, 3005, 3020, 3040, 3080, 3020, 2905, 2790, 2750};
const G4double G4PiNuclearCrossSection::pb_p_in[30] = { 348, 707, 1040, 1650, 2100, 2400, 2580, 2640, 2650, 2520, 2410, 2300, 2250, 2190, 2130, 2000, 1930, 1870, 1830, 1790, 1770, 1765, 1775, 1780, 1790, 1800, 1775, 1710, 1620, 1620};
const G4double G4PiNuclearCrossSection::u_m_t[35] = {7080, 6830, 6650, 6530, 6400, 6280, 6100, 5840, 5660, 5520, 5330, 5160, 4990, 4810, 4630, 4323, 4130, 3870, 3700, 3550, 3490, 3465, 3467, 3475, 3495, 3515, 3440, 3360, 3150, 3040, 2985, 2955, 2940, 2940, 2940};
const G4double G4PiNuclearCrossSection::u_m_in[35] = {1740, 2220, 2500, 2820, 3080, 3300, 3420, 3500, 3420, 3330, 3200, 3060, 2940, 2850, 2710, 2470, 2380, 2250, 2160, 2080, 2040, 2045, 2047, 2050, 2055, 2060, 2010, 1980, 1830, 1780, 1735, 1710, 1700, 1700, 1700};
const G4double G4PiNuclearCrossSection::u_p_t[30] = { 485, 960, 1580, 2700, 3550, 4050, 4320, 4420, 4620, 4660, 4580, 4470, 4350, 4295, 4187, 3938, 3755, 3573, 3450, 3342, 3310, 3295, 3310, 3330, 3375, 3405, 3350, 3338, 3135, 3040};
const G4double G4PiNuclearCrossSection::u_p_in[30] = { 334, 720, 1020, 1560, 2100, 2300, 2550, 2700, 2880, 2880, 2760, 2660, 2550, 2510, 2430, 2270, 2130, 2060, 2000, 1970, 1950, 1950, 1960, 1960, 1970, 1980, 1950, 1978, 1830, 1780};
G4PiNuclearCrossSection::
G4PiNuclearCrossSection()
@@ -167,6 +172,8 @@ GetCrossSection(const G4DynamicParticle* aParticle,
G4double )
{
// precondition
G4ping debug("debug_PiNuclearCrossSection");
using namespace std;
G4bool ok = false;
if(aParticle->GetDefinition() == G4PionMinus::PionMinus()) ok=true;
if(aParticle->GetDefinition() == G4PionPlus::PionPlus()) ok=true;
@@ -180,9 +187,12 @@ GetCrossSection(const G4DynamicParticle* aParticle,
// body
G4double result = 0;
G4int Z=static_cast<G4int>(anElement->GetZ()+.001);
G4int Z=G4lrint(anElement->GetZ());
debug.push_back(Z);
size_t it=0;
while(it<theZ.size() && Z>theZ[it]) it++;
debug.push_back(theZ[it]);
debug.push_back(kineticEnergy);
if(Z > theZ[it])
{
throw G4HadronicException(__FILE__, __LINE__,
@@ -195,6 +205,8 @@ GetCrossSection(const G4DynamicParticle* aParticle,
if(theZ[it]==Z)
{
result = thePimData[it]->ReactionXSection(kineticEnergy);
debug.push_back("D1 ");
debug.push_back(result);
}
else
{
@@ -203,6 +215,12 @@ GetCrossSection(const G4DynamicParticle* aParticle,
x2 = thePimData[it]->ReactionXSection(kineticEnergy);
Z2 = theZ[it];
result = Interpolate(Z1, Z2, Z, x1, x2);
debug.push_back("D2 ");
debug.push_back(x1);
debug.push_back(x2);
debug.push_back(Z1);
debug.push_back(Z2);
debug.push_back(result);
}
}
else
@@ -215,6 +233,8 @@ GetCrossSection(const G4DynamicParticle* aParticle,
theData = &thePipData;
}
result = theData->operator[](it)->ReactionXSection(kineticEnergy);
debug.push_back("D3 ");
debug.push_back(result);
}
else
{
@@ -233,9 +253,16 @@ GetCrossSection(const G4DynamicParticle* aParticle,
x2 = theHData->operator[](it)->ReactionXSection(kineticEnergy);
Z2 = theZ[it];
result = Interpolate(Z1, Z2, Z, x1, x2);
debug.push_back("D4 ");
debug.push_back(x1);
debug.push_back(x2);
debug.push_back(Z1);
debug.push_back(Z2);
debug.push_back(result);
}
}
debug.dump();
return result;
}
source/processes/hadronic/cross_sections/src/G4TripathiCrossSection.cc
+26 -3
View File
@@ -72,9 +72,32 @@ GetCrossSection(const G4DynamicParticle* aPart,
G4double Energy = kineticEnergy/projectileAtomicNumber;
// done
G4double D = 2.77-(8.0E-3*targetAtomicNumber)+(1.8E-5*targetAtomicNumber*targetAtomicNumber)
//
// Note that this correction to G4TripathiCrossSection is just to accurately
// reflect Tripathi's algorithm. However, if you're using alpha particles/protons
// consider using the more accurate G4TripathiLightCrossSection, which
// Tripathi developed specifically for light systems.
//
G4double D;
if (nProjProtons==1 && projectileAtomicNumber==1)
{
D = 2.05;
}
else if (nProjProtons==2 && projectileAtomicNumber==4)
{
D = 2.77-(8.0E-3*targetAtomicNumber)+(1.8E-5*targetAtomicNumber*targetAtomicNumber)
- 0.8/(1+exp((250.-Energy)/75.));
D = 1.75;
}
else
{
//
// This is the original value used in the G4TripathiCrossSection implementation,
// and was used for all projectile/target conditions. I'm not touching this,
// althoughJudging from Tripathi's paper, this is valid for cases where the
// nucleon density changes little with A.
//
D = 1.75;
}
// done
G4double C_E = D * (1-exp(-Energy/40.)) - 0.292*exp(-Energy/792.)*cos(0.229*pow(Energy, 0.453));
@@ -94,5 +117,5 @@ GetCrossSection(const G4DynamicParticle* aPart,
if(result < 0) result = 0;
return result*m2;
}
source/processes/hadronic/cross_sections/src/G4TripathiLightCrossSection.cc
+307
View File
@@ -0,0 +1,307 @@
//
// ********************************************************************
// * DISCLAIMER *
// * *
// * The following disclaimer summarizes all the specific disclaimers *
// * of contributors to this software. The specific disclaimers,which *
// * govern, are listed with their locations in: *
// * http://cern.ch/geant4/license *
// * *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work make any representation or warranty, express or implied, *
// * regarding this software system or assume any liability for its *
// * use. *
// * *
// * This code implementation is the intellectual property of the *
// * GEANT4 collaboration. *
// * *
// * Parts of this code which have been developed by QinetiQ Ltd *
// * under contract to the European Space Agency (ESA) are the *
// * intellectual property of ESA. Rights to use, copy, modify and *
// * redistribute this software for general public use are granted *
// * in compliance with any licensing, distribution and development *
// * policy adopted by the Geant4 Collaboration. This code has been *
// * written by QinetiQ Ltd for the European Space Agency, under ESA *
// * contract 17191/03/NL/LvH (Aurora Programme). *
// * *
// * By copying, distributing or modifying the Program (or any work *
// * based on the Program) you indicate your acceptance of this *
// * statement, and all its terms. *
// ********************************************************************
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// MODULE: G4TripathiLightCrossSection.cc
//
// Version: B.1
// Date: 15/04/04
// Author: P R Truscott
// Organisation: QinetiQ Ltd, UK
// Customer: ESA/ESTEC, NOORDWIJK
// Contract: 17191/03/NL/LvH
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//
// CHANGE HISTORY
// --------------
//
// 6 October 2003, P R Truscott, QinetiQ Ltd, UK
// Created.
//
// 15 March 2004, P R Truscott, QinetiQ Ltd, UK
// Beta release
//
// %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
///////////////////////////////////////////////////////////////////////////////
//
#include "G4TripathiLightCrossSection.hh"
#include "G4WilsonRadius.hh"
#include "G4ParticleTable.hh"
#include "G4IonTable.hh"
///////////////////////////////////////////////////////////////////////////////
//
G4TripathiLightCrossSection::G4TripathiLightCrossSection ()
{
//
//
// Constructor only needs to instantiate the object which provides functions
// to calculate the nuclear radius, and some other constants used to
// calculate cross-sections.
//
theWilsonRadius = new G4WilsonRadius();
r_0 = 1.1 * fermi;
third = 1.0/3.0;
//
//
// The following variable is set to true if
// G4TripathiLightCrossSection::GetCrossSection is going to be called from
// within G4TripathiLightCrossSection::GetCrossSection to check whether the
// cross-section is behaviing anomalously in the low-energy region.
//
lowEnergyCheck = false;
}
///////////////////////////////////////////////////////////////////////////////
//
G4TripathiLightCrossSection::~G4TripathiLightCrossSection ()
{
//
//
// Destructor just needs to delete the pointer to the G4WilsonRadius object.
//
delete theWilsonRadius;
}
///////////////////////////////////////////////////////////////////////////////
//
G4bool G4TripathiLightCrossSection::IsApplicable
(const G4DynamicParticle* theProjectile, const G4Element* theTarget)
{
G4bool result = false;
const G4double AT = theTarget->GetN();
const G4double ZT = theTarget->GetZ();
const G4double ZP = theProjectile->GetDefinition()->GetPDGCharge();
const G4double AP = theProjectile->GetDefinition()->GetBaryonNumber();
if (theProjectile->GetKineticEnergy()/
theProjectile->GetDefinition()->GetBaryonNumber()<10.0*GeV &&
((AT==1 && ZT==1) || (AP==1 && ZP==1) ||
(AT==1 && ZT==0) || (AP==1 && ZP==0) ||
(AT==2 && ZT==1) || (AP==2 && ZP==1) ||
(AT==3 && ZT==2) || (AP==3 && ZP==2) ||
(AT==4 && ZT==2) || (AP==4 && ZP==2))) result = true;
return result;
}
///////////////////////////////////////////////////////////////////////////////
//
G4double G4TripathiLightCrossSection::GetCrossSection
(const G4DynamicParticle* theProjectile, const G4Element* theTarget,
G4double /* theTemperature*/)
{
//
//
// Initialise the result.
G4double result = 0.0;
//
//
// Get details of the projectile and target (nucleon number, atomic number,
// kinetic enery and energy/nucleon.
//
const G4double AT = theTarget->GetN();
const G4double ZT = theTarget->GetZ();
const G4double EA = theProjectile->GetKineticEnergy()/MeV;
const G4double AP = theProjectile->GetDefinition()->GetBaryonNumber();
const G4double ZP = theProjectile->GetDefinition()->GetPDGCharge();
G4double E = EA / AP;
//
//
// Determine target mass and energy within the centre-of-mass frame.
//
G4double mT = G4ParticleTable::GetParticleTable()
->GetIonTable()
->GetIonMass(static_cast<G4int>(ZT), static_cast<G4int>(AT));
G4LorentzVector pT(0.0, 0.0, 0.0, mT);
G4LorentzVector pP(theProjectile->Get4Momentum());
pT = pT + pP;
G4double E_cm = (pT.mag()-mT-pP.m())/MeV;
//
//
// Determine nuclear radii. Note that the r_p and r_T are defined differently
// from Wilson et al.
//
G4WilsonRadius theWilsonNuclearRadius;
G4double r_rms_p = theWilsonRadius->GetWilsonRMSRadius(AP);
G4double r_rms_t = theWilsonRadius->GetWilsonRMSRadius(AT);
G4double r_p = 1.29*r_rms_p;
G4double r_t = 1.29*r_rms_t;
G4double Radius = (r_p + r_t)/fermi + 1.2*(pow(AT, third) + pow(AP, third))/
pow(E_cm, third);
G4double B = 1.44 * ZP * ZT / Radius;
//
//
// Now determine other parameters associated with the parametric
// formula, depending upon the projectile and target.
//
G4double T1 = 0.0;
G4double D = 0.0;
G4double G = 0.0;
if ((AT==1 && ZT==1) || (AP==1 && ZP==1))
{
T1 = 23.0;
D = 1.85 + 0.16/(1+exp((500.0-E)/200.0));
}
else if ((AT==1 && ZT==0) || (AP==1 && ZP==0))
{
T1 = 18.0;
D = 1.85 + 0.16/(1+exp((500.0-E)/200.0));
}
else if ((AT==2 && ZT==1) || (AP==2 && ZP==1))
{
T1 = 23.0;
D = 1.65 + 0.1/(1+exp((500.0-E)/200.0));
}
else if ((AT==3 && ZT==2) || (AP==3 && ZP==2))
{
T1 = 40.0;
D = 1.55;
}
else if (AP==4 && ZP==2)
{
if (AT==4 && ZT==2) {T1 = 40.0; G = 300.0;}
else if (ZT==4) {T1 = 25.0; G = 300.0;}
else if (ZT==7) {T1 = 40.0; G = 500.0;}
else if (ZT==13) {T1 = 25.0; G = 300.0;}
else if (ZT==26) {T1 = 40.0; G = 300.0;}
else {T1 = 40.0; G = 75.0;}
D = 2.77 - 8.0E-3*AT + 1.8E-5*AT*AT-0.8/(1.0+exp((250.0-E)/G));
}
else if (AT==4 && ZT==2)
{
if (AP==4 && ZP==2) {T1 = 40.0; G = 300.0;}
else if (ZP==4) {T1 = 25.0; G = 300.0;}
else if (ZP==7) {T1 = 40.0; G = 500.0;}
else if (ZP==13) {T1 = 25.0; G = 300.0;}
else if (ZP==26) {T1 = 40.0; G = 300.0;}
else {T1 = 40.0; G = 75.0;}
D = 2.77 - 8.0E-3*AP + 1.8E-5*AP*AP-0.8/(1.0+exp((250.0-E)/G));
}
//
//
// C_E, S, deltaE, X1, S_L and X_m correspond directly with the original
// formulae of Tripathi et al in his report.
//
G4double C_E = D*(1.0-exp(-E/T1)) -
0.292*exp(-E/792.0)*cos(0.229*pow(E,0.453));
G4double S = pow(AP,third)*pow(AT,third)/(pow(AP,third) + pow(AT,third));
G4double deltaE = 0.0;
G4double X1 = 0.0;
if (AT >= AP)
{
deltaE = 1.85*S + 0.16*S/pow(E_cm,third) - C_E + 0.91*(AT-2.0*ZT)*ZP/AT/AP;
X1 = 2.83 - 3.1E-2*AT + 1.7E-4*AT*AT;
}
else
{
deltaE = 1.85*S + 0.16*S/pow(E_cm,third) - C_E + 0.91*(AP-2.0*ZP)*ZT/AT/AP;
X1 = 2.83 - 3.1E-2*AP + 1.7E-4*AP*AP;
}
G4double S_L = 1.2 + 1.6*(1.0-exp(-E/15.0));
G4double X_m = 1.0 - X1*exp(-E/X1*S_L);
//
//
// R_c is also highly dependent upon the A and Z of the projectile and
// target.
//
G4double R_c = 1.0;
if (AP==1 && ZP==1)
{
if (AT==2 && ZT==1) R_c = 13.5;
else if (AT==3 && ZT==2) R_c = 21.0;
else if (AT==4 && ZT==2) R_c = 27.0;
else if (ZT==3) R_c = 2.2;
}
else if (AT==1 && ZT==1)
{
if (AP==2 && ZP==1) R_c = 13.5;
else if (AP==3 && ZP==2) R_c = 21.0;
else if (AP==4 && ZP==2) R_c = 27.0;
else if (ZP==3) R_c = 2.2;
}
else if (AP==2 && ZP==1)
{
if (AT==2 && ZT==1) R_c = 13.5;
else if (AT==4 && ZT==2) R_c = 13.5;
else if (AT==12 && ZT==6) R_c = 6.0;
}
else if (AT==2 && ZT==1)
{
if (AP==2 && ZP==1) R_c = 13.5;
else if (AP==4 && ZP==2) R_c = 13.5;
else if (AP==12 && ZP==6) R_c = 6.0;
}
else if ((AP==4 && ZP==2 && (ZT==73 || ZT==79)) ||
(AT==4 && ZT==2 && (ZP==73 || ZP==79))) R_c = 0.6;
//
//
// Find the total cross-section. Check that it's value is positive, and if
// the energy is less that 10 MeV/nuc, find out if the cross-section is
// increasing with decreasing energy. If so this is a sign that the function
// is behaving badly at low energies, and the cross-section should be
// set to zero.
//
result = pi * r_0*r_0 *
pow((pow(AT,third) + pow(AP,third) + deltaE),2.0) *
(1.0 - R_c*B/E_cm) * X_m;
if (!lowEnergyCheck)
{
if (result < 0.0)
result = 0.0;
else if (E < 6.0*MeV)
{
G4double f = 0.95;
G4DynamicParticle slowerProjectile = *theProjectile;
slowerProjectile.SetKineticEnergy(f * EA * MeV);
G4TripathiLightCrossSection theTripathiLightCrossSection;
theTripathiLightCrossSection.SetLowEnergyCheck(true);
G4double resultp =
theTripathiLightCrossSection.GetCrossSection
(&slowerProjectile, theTarget, 0.0);
if (resultp >result) result = 0.0;
}
}
return result;
}
///////////////////////////////////////////////////////////////////////////////
//
void G4TripathiLightCrossSection::SetLowEnergyCheck (G4bool aLowEnergyCheck)
{
lowEnergyCheck = aLowEnergyCheck;
}
///////////////////////////////////////////////////////////////////////////////
//