Gabriele Cosmo
227 lines
8.7 KiB
C++
227 lines
8.7 KiB
C++
//
|
|
// ********************************************************************
|
|
// * License and Disclaimer *
|
|
// * *
|
|
// * The Geant4 software is copyright of the Copyright Holders of *
|
|
// * the Geant4 Collaboration. It is provided under the terms and *
|
|
// * conditions of the Geant4 Software License, included in the file *
|
|
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
|
// * include a list of copyright holders. *
|
|
// * *
|
|
// * 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. Please see the license in the file LICENSE and URL above *
|
|
// * for the full disclaimer and the limitation of liability. *
|
|
// * *
|
|
// * This code implementation is the result of the scientific and *
|
|
// * technical work of the GEANT4 collaboration. *
|
|
// * By using, copying, modifying or distributing the software (or *
|
|
// * any work based on the software) you agree to acknowledge its *
|
|
// * use in resulting scientific publications, and indicate your *
|
|
// * acceptance of all terms of the Geant4 Software license. *
|
|
// ********************************************************************
|
|
//
|
|
//
|
|
// $Id: G4IntegrHadrNucleus.cc,v 1.14 2006/06/29 20:09:31 gunter Exp $
|
|
// GEANT4 tag $Name: geant4-08-01 $
|
|
//
|
|
// IntegrHadrNucleus.cc
|
|
|
|
#include "globals.hh"
|
|
#include "G4IntegrHadrNucleus.hh"
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
void G4IntegrHadrNucleus::
|
|
GetIntegralCrSec(G4Nucleus * aNucleus)
|
|
{
|
|
G4int i, l;
|
|
G4double N, N1, N2, N3, N4, Delta, Inel1;
|
|
G4double Tot0, Inel0, Prod0, Prod1,
|
|
ak, Delt, Delt2, Delt3;
|
|
G4double Rnucl, R0, Stot, Bhad, Asq, MbToB, Pi1;
|
|
G4double Dtot, Dprod, Rnuc2, RB, R2B, bk, bd;
|
|
|
|
G4int Anucleus = (int) aNucleus->GetN();
|
|
|
|
if(Anucleus==2 || Anucleus==3)
|
|
G4Exception(" This nucleus is very light for this model !!!");
|
|
|
|
if(Anucleus>238)
|
|
G4Exception(" This nucleus is very heavy for this model !!!");
|
|
|
|
MbToB = 2.568;
|
|
Pi1 = 3.1416;
|
|
|
|
Stot = HadrTot*MbToB; //{In GeV-2}
|
|
Bhad = HadrSlope; //{In GeV-2}
|
|
Asq = 1+HadrReIm*HadrReIm;
|
|
|
|
R0 = std::sqrt(0.99); //{ This is fermi}
|
|
|
|
if (Anucleus >10) R0 = std::sqrt(0.84);
|
|
if (Anucleus >20) R0 = std::sqrt((35.34+0.5*Anucleus)
|
|
/(40.97+Anucleus));
|
|
if (Anucleus == 16) R0 = std::sqrt(0.75);
|
|
if (Anucleus == 58) R0 = std::sqrt(0.6);
|
|
// R0 = std::sqrt(0.64);
|
|
|
|
Rnucl = R0*std::pow(static_cast<double>(Anucleus),0.3333); //{In Fermi }
|
|
|
|
if(Anucleus == 4) Rnucl = 1.2;
|
|
|
|
Rnuc2 = Rnucl*Rnucl*MbToB*10; //{ In GeV-2}
|
|
RB = Rnuc2+Bhad;
|
|
R2B = RB+Bhad;
|
|
Delta = Stot/R2B/2/Pi1;
|
|
Delt = Delta*Asq*0.5;
|
|
Delt2 = Delta*2;
|
|
Delt3 = Stot/RB/Bhad/16/Pi1*Asq*R2B;
|
|
|
|
Tot0 = 0;
|
|
Inel0 = 0;
|
|
Inel1=0;
|
|
N = N1 = -1/Delta;
|
|
N3 = -1/Delt2;
|
|
Prod0 = 0;
|
|
|
|
for (i=1; i<= Anucleus; i++)
|
|
|
|
{
|
|
N = -N*Delta*(Anucleus-i+1)/i;
|
|
N1 = -N1*Delta*(2*Anucleus-i+1)/i;
|
|
N3 = -N3*Delt2*(Anucleus-i+1)/i;
|
|
Tot0 = Tot0+N/i;
|
|
Inel0 = Inel0+N1/i;
|
|
N2 = 1;
|
|
N4 = 1;
|
|
Inel1 = 0;
|
|
Prod1 = 0;
|
|
|
|
for (l=0; l<= i; l++)
|
|
|
|
{
|
|
// Inel1 = Inel1+N2/(i+l);
|
|
Prod1 = Prod1+N4*RB/(i*RB+l*Bhad);
|
|
// N2 = -N2*Delt*(i-l)/(l+1);
|
|
N4 = -N4*Delt3*(i-l)/(l+1);
|
|
} // l
|
|
|
|
// Inel2 = Inel2+Inel1*N3;
|
|
Prod0 = Prod0+Prod1*N3;
|
|
if(std::fabs(N1/i/Inel0) < 0.0001) break;
|
|
} // i
|
|
|
|
Tot0 = Tot0*HadrTot;
|
|
Inel0 = Inel0*HadrTot*0.5;
|
|
// Inel2 = Inel2*HadrTot;
|
|
Prod0 = Prod0*HadrTot;
|
|
Tot00 = Tot0;
|
|
|
|
ak = (Rnuc2*2*Pi1/Stot);
|
|
G4double DDSect1 = (DDSect2+DDSect3*std::log(1.06*2*HadrEnergy
|
|
/Rnucl/std::sqrt(25.68)/4));
|
|
|
|
Dtot = 8*Pi1*ak/HadrTot*(1-(1+Anucleus/ak)
|
|
*std::exp(-Anucleus/ak))*DDSect1/MbToB;
|
|
DTot00 = Dtot;
|
|
|
|
bk = (1-1/ak)/Stot/(1-1/ak/4);
|
|
|
|
bd = bk*bk*DDSect1*(1-(1+Anucleus/ak*(1-1/ak/4))*
|
|
std::exp(-Anucleus/ak*(1-1/4/ak)))*Rnuc2;
|
|
|
|
Dprod = bd*4*Pi1*Pi1*MbToB;
|
|
|
|
TotalCrSec = Tot0-Dtot;
|
|
InelCrSec = Inel0-Dprod;
|
|
// InelCrSec1 = Inel2;
|
|
ProdCrSec = Prod0-Dprod;
|
|
ElasticCrSec = TotalCrSec-InelCrSec;
|
|
QuasyElasticCrSec = InelCrSec-ProdCrSec;
|
|
}
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
G4double
|
|
G4IntegrHadrNucleus::GetElasticCrossSection(
|
|
const G4DynamicParticle * aHadron,
|
|
G4Nucleus * aNucleus)
|
|
|
|
{
|
|
HadrEnergy = aHadron->GetTotalEnergy()/1000;
|
|
G4double MassH = aHadron->GetMass()/1000;
|
|
if(HadrEnergy-MassH < 1.0)
|
|
G4Exception(" The hadron energy is very low for this model !!!");
|
|
|
|
G4HadronValues::GetHadronValues(aHadron);
|
|
GetIntegralCrSec(aNucleus);
|
|
return(ElasticCrSec);
|
|
}
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
G4double
|
|
G4IntegrHadrNucleus::GetTotalCrossSection(
|
|
const G4DynamicParticle * aHadron,
|
|
G4Nucleus * aNucleus)
|
|
{
|
|
HadrEnergy = aHadron->GetTotalEnergy()/1000;
|
|
G4double MassH = aHadron->GetMass()/1000;
|
|
if(HadrEnergy-MassH < 1.0)
|
|
G4Exception(" The hadron energy is very low for this model !!!");
|
|
|
|
G4HadronValues::GetHadronValues(aHadron);
|
|
GetIntegralCrSec(aNucleus);
|
|
return(TotalCrSec);
|
|
}
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
G4double
|
|
G4IntegrHadrNucleus::GetInelasticCrossSection(
|
|
const G4DynamicParticle * aHadron,
|
|
G4Nucleus * aNucleus)
|
|
{
|
|
HadrEnergy = aHadron->GetTotalEnergy()/1000;
|
|
G4double MassH = aHadron->GetMass()/1000;
|
|
if(HadrEnergy-MassH < 1.0)
|
|
G4Exception(" The hadron energy is very low for this model !!!");
|
|
|
|
G4HadronValues::GetHadronValues(aHadron);
|
|
GetIntegralCrSec(aNucleus);
|
|
return(InelCrSec);
|
|
}
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
G4double
|
|
G4IntegrHadrNucleus::GetProductionCrossSection(
|
|
const G4DynamicParticle * aHadron,
|
|
G4Nucleus * aNucleus)
|
|
{
|
|
HadrEnergy = aHadron->GetTotalEnergy()/1000;
|
|
G4double MassH = aHadron->GetMass()/1000;
|
|
if(HadrEnergy-MassH < 1.0)
|
|
G4Exception(" The hadron energy is very low for this model !!!");
|
|
|
|
G4HadronValues::GetHadronValues(aHadron);
|
|
GetIntegralCrSec(aNucleus);
|
|
return(ProdCrSec);
|
|
}
|
|
|
|
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
G4double
|
|
G4IntegrHadrNucleus::GetQuasyElasticCrossSection(
|
|
const G4DynamicParticle * aHadron,
|
|
G4Nucleus * aNucleus)
|
|
{
|
|
HadrEnergy = aHadron->GetTotalEnergy()/1000;
|
|
G4double MassH = aHadron->GetMass()/1000;
|
|
if(HadrEnergy-MassH < 1.0)
|
|
G4Exception(" The hadron energy is very low for this model !!!");
|
|
|
|
G4HadronValues::GetHadronValues(aHadron);
|
|
GetIntegralCrSec(aNucleus);
|
|
return(QuasyElasticCrSec);
|
|
}
|
|
|
|
/* end of file */
|