Gabriele Cosmo
739 lines
23 KiB
C++
739 lines
23 KiB
C++
//
|
|
// ********************************************************************
|
|
// * 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. *
|
|
// * 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. *
|
|
// ********************************************************************
|
|
//
|
|
//
|
|
// $Id: G4VXrayTRmodel.cc,v 1.5 2001/09/18 09:02:04 gcosmo Exp $
|
|
// GEANT4 tag $Name: geant4-04-00 $
|
|
//
|
|
|
|
#include "G4Timer.hh"
|
|
|
|
#include "G4VXrayTRmodel.hh"
|
|
#include "Randomize.hh"
|
|
#include "G4Material.hh"
|
|
#include "G4MaterialTable.hh"
|
|
#include "globals.hh"
|
|
#include "g4std/complex"
|
|
#include "G4PhysicsTable.hh"
|
|
#include "G4PhysicsVector.hh"
|
|
#include "G4PhysicsLinearVector.hh"
|
|
#include "G4PhysicsLogVector.hh"
|
|
#include "G4Integrator.hh"
|
|
#include "G4Gamma.hh"
|
|
|
|
// Initialization of local constants
|
|
|
|
G4double G4VXrayTRmodel::fTheMinEnergyTR = 1.0*keV ;
|
|
G4double G4VXrayTRmodel::fTheMaxEnergyTR = 100.0*keV ;
|
|
G4double G4VXrayTRmodel::fTheMaxAngle = 1.0e-3 ;
|
|
G4double G4VXrayTRmodel::fTheMinAngle = 5.0e-6 ;
|
|
G4int G4VXrayTRmodel::fBinTR = 50 ;
|
|
|
|
G4double G4VXrayTRmodel::fMinProtonTkin = 100.0*GeV ;
|
|
G4double G4VXrayTRmodel::fMaxProtonTkin = 100.0*TeV ;
|
|
G4int G4VXrayTRmodel::fTotBin = 50 ;
|
|
// Proton energy vector initialization
|
|
|
|
G4PhysicsLogVector* G4VXrayTRmodel::
|
|
fProtonEnergyVector = new G4PhysicsLogVector(fMinProtonTkin,
|
|
fMaxProtonTkin,
|
|
fTotBin ) ;
|
|
|
|
G4double G4VXrayTRmodel::fPlasmaCof = 4.0*pi*fine_structure_const*
|
|
hbarc*hbarc*hbarc/electron_mass_c2 ;
|
|
|
|
G4double G4VXrayTRmodel::fCofTR = fine_structure_const/pi ;
|
|
|
|
|
|
|
|
|
|
|
|
////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Constructor, destructor
|
|
|
|
G4VXrayTRmodel::G4VXrayTRmodel(G4Envelope *anEnvelope, G4double a, G4double b) :
|
|
G4VFastSimulationModel("G4VXrayTRmodel",anEnvelope)
|
|
// , G4ForwardXrayTR("G4VXrayTRmodel")
|
|
{
|
|
fPlateNumber = anEnvelope->GetNoDaughters() ;
|
|
G4cout<<"the number of TR radiator plates = "<<fPlateNumber<<G4endl ;
|
|
if(fPlateNumber == 0)
|
|
{
|
|
G4Exception("No plates in X-ray TR radiator") ;
|
|
}
|
|
// Mean thicknesses of plates and gas gaps
|
|
|
|
fPlateThick = a ;
|
|
fGasThick = b ;
|
|
|
|
// index of plate material
|
|
fMatIndex1 = anEnvelope->GetDaughter(0)->GetLogicalVolume()->
|
|
GetMaterial()->GetIndex() ;
|
|
G4cout<<"plate material = "<<anEnvelope->GetDaughter(0)->GetLogicalVolume()->
|
|
GetMaterial()->GetName()<<G4endl ;
|
|
|
|
// index of gas material
|
|
fMatIndex2 = anEnvelope->GetMaterial()->GetIndex() ;
|
|
G4cout<<"gas material = "<<anEnvelope->
|
|
GetMaterial()->GetName()<<G4endl ;
|
|
|
|
// plasma energy squared for plate material
|
|
|
|
fSigma1 = fPlasmaCof*anEnvelope->GetDaughter(0)->GetLogicalVolume()->
|
|
GetMaterial()->GetElectronDensity() ;
|
|
// fSigma1 = (20.9*eV)*(20.9*eV) ;
|
|
G4cout<<"plate plasma energy = "<<sqrt(fSigma1)/eV<<" eV"<<G4endl ;
|
|
|
|
// plasma energy squared for gas material
|
|
|
|
fSigma2 = fPlasmaCof*anEnvelope->GetMaterial()->GetElectronDensity() ;
|
|
G4cout<<"gas plasma energy = "<<sqrt(fSigma2)/eV<<" eV"<<G4endl ;
|
|
|
|
// Compute cofs for preparation of linear photo absorption
|
|
|
|
ComputePlatePhotoAbsCof() ;
|
|
ComputeGasPhotoAbsCof() ;
|
|
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
|
|
G4VXrayTRmodel::~G4VXrayTRmodel()
|
|
{
|
|
G4int i ;
|
|
for(i=0;i<fGasIntervalNumber;i++)
|
|
{
|
|
delete[] fGasPhotoAbsCof[i] ;
|
|
}
|
|
delete[] fGasPhotoAbsCof ;
|
|
|
|
for(i=0;i<fPlateIntervalNumber;i++)
|
|
{
|
|
delete[] fPlatePhotoAbsCof[i] ;
|
|
}
|
|
delete[] fPlatePhotoAbsCof ;
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Returns condition for application of the model depending on particle type
|
|
|
|
|
|
G4bool G4VXrayTRmodel::IsApplicable(const G4ParticleDefinition& particle)
|
|
{
|
|
return ( particle.GetPDGCharge() != 0.0 ) ;
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////
|
|
//
|
|
// UserTrigger() method: method which has to decide if
|
|
// the parameterisation has to be applied.
|
|
// Here ModelTrigger() asks the user (ie you) a 0/1 answer.
|
|
//
|
|
// Note that quantities like the local/global position/direction etc..
|
|
// are available at this level via the fastTrack parameter (allowing
|
|
// to check distance from boundaries, see below to allow the decision)
|
|
//
|
|
|
|
G4bool G4VXrayTRmodel::ModelTrigger(const G4FastTrack& fastTrack)
|
|
{
|
|
// G4double mass = fastTrack.GetPrimaryTrack()->GetDefinition()->GetPDGMass() ;
|
|
// G4double kinEnergy = fastTrack.GetPrimaryTrack()->GetKineticEnergy() ;
|
|
// G4double gamma = 1.0 + kinEnergy/mass ; // Lorentz factor
|
|
// G4cout << "gamma = " << gamma << G4endl ;
|
|
// if (gamma >= 100.0) return true ;
|
|
// else return false ;
|
|
|
|
return true ;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// User method to code the parameterisation properly
|
|
// said. This is simple example of creation of one X-ray photon with the
|
|
// energy in the range of around 5 keV produced by relativistic charged
|
|
// particle
|
|
//
|
|
|
|
void G4VXrayTRmodel::ExampleDoIt( const G4FastTrack& fastTrack ,
|
|
G4FastStep& fastStep )
|
|
{
|
|
|
|
// The primary track continues along its direction.
|
|
// One secondary (a photon) is added:
|
|
|
|
// G4cout << " TR `model' applied \n " << endl;
|
|
|
|
// Primary: idem as in "DefaultModel":
|
|
//
|
|
|
|
G4double distance = fastTrack.GetEnvelopeSolid()->
|
|
DistanceToOut(fastTrack.GetPrimaryTrackLocalPosition(),
|
|
fastTrack.GetPrimaryTrackLocalDirection()) ;
|
|
|
|
G4ThreeVector position = fastTrack.GetPrimaryTrackLocalPosition() +
|
|
distance*fastTrack.GetPrimaryTrackLocalDirection() ;
|
|
|
|
// Set final position:
|
|
|
|
fastStep.SetPrimaryTrackFinalPosition(position);
|
|
|
|
//---------------------------
|
|
// Secondary: Adds one "secondary":
|
|
//
|
|
// First, user has to say how many secondaries will be created:
|
|
|
|
fastStep.SetNumberOfSecondaryTracks(1);
|
|
|
|
// Build the secondary direction:
|
|
|
|
G4ParticleMomentum direction(fastTrack.GetPrimaryTrackLocalDirection());
|
|
// direction.setZ(direction.z()*0.5);
|
|
// direction.setY(direction.y()+direction.z()*0.1);
|
|
direction = direction.unit(); // necessary !?
|
|
|
|
// Dynamics (Note that many constructors exists for G4DynamicParticle
|
|
|
|
G4double gammaEnergy = 3.0*keV + G4UniformRand()*2*keV ;
|
|
|
|
G4DynamicParticle dynamique(G4Gamma::GammaDefinition(),
|
|
direction,
|
|
// fastTrack.GetPrimaryTrack()->GetKineticEnergy()/2.
|
|
gammaEnergy );
|
|
// -- position:
|
|
|
|
G4double Dist = fastTrack.GetEnvelopeSolid()->
|
|
DistanceToOut(fastTrack.GetPrimaryTrackLocalPosition(),direction) ;
|
|
|
|
G4ThreeVector posi = fastTrack.GetPrimaryTrackLocalPosition() + Dist*direction ;
|
|
|
|
// Creation of the secondary Track:
|
|
|
|
fastStep.CreateSecondaryTrack( dynamique,
|
|
posi,
|
|
fastTrack.GetPrimaryTrack()->GetGlobalTime());
|
|
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates formation zone for plates. Omega is energy !!!
|
|
|
|
G4double G4VXrayTRmodel::GetPlateFormationZone( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
G4double cof, lambda ;
|
|
lambda = 1.0/gamma/gamma + varAngle + fSigma1/omega/omega ;
|
|
cof = 2.0*hbarc/omega/lambda ;
|
|
return cof ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates complex formation zone for plates. Omega is energy !!!
|
|
|
|
G4complex G4VXrayTRmodel::GetPlateComplexFZ( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
G4double cof, length,delta, real, image ;
|
|
|
|
length = 0.5*GetPlateFormationZone(omega,gamma,varAngle) ;
|
|
delta = length*GetPlateLinearPhotoAbs(omega) ;
|
|
cof = 1.0/(1.0 + delta*delta) ;
|
|
|
|
real = length*cof ;
|
|
image = real*delta ;
|
|
|
|
G4complex zone(real,image);
|
|
return zone ;
|
|
}
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Computes matrix of Sandia photo absorption cross section coefficients for
|
|
// plate material
|
|
|
|
void G4VXrayTRmodel::ComputePlatePhotoAbsCof()
|
|
{
|
|
G4int i, j, numberOfElements ;
|
|
static const G4MaterialTable*
|
|
theMaterialTable = G4Material::GetMaterialTable();
|
|
|
|
G4SandiaTable thisMaterialSandiaTable(fMatIndex1) ;
|
|
numberOfElements = (*theMaterialTable)[fMatIndex1]->GetNumberOfElements() ;
|
|
G4int* thisMaterialZ = new G4int[numberOfElements] ;
|
|
|
|
for(i=0;i<numberOfElements;i++)
|
|
{
|
|
thisMaterialZ[i] = (G4int)(*theMaterialTable)[fMatIndex1]->
|
|
GetElement(i)->GetZ() ;
|
|
}
|
|
fPlateIntervalNumber = thisMaterialSandiaTable.SandiaIntervals
|
|
(thisMaterialZ,numberOfElements) ;
|
|
|
|
fPlateIntervalNumber = thisMaterialSandiaTable.SandiaMixing
|
|
( thisMaterialZ ,
|
|
(*theMaterialTable)[fMatIndex1]->GetFractionVector() ,
|
|
numberOfElements,fPlateIntervalNumber) ;
|
|
|
|
fPlatePhotoAbsCof = new G4double*[fPlateIntervalNumber] ;
|
|
|
|
for(i=0;i<fPlateIntervalNumber;i++)
|
|
{
|
|
fPlatePhotoAbsCof[i] = new G4double[5] ;
|
|
}
|
|
for(i=0;i<fPlateIntervalNumber;i++)
|
|
{
|
|
fPlatePhotoAbsCof[i][0] = thisMaterialSandiaTable.
|
|
GetPhotoAbsorpCof(i+1,0) ;
|
|
|
|
for(j=1;j<5;j++)
|
|
{
|
|
fPlatePhotoAbsCof[i][j] = thisMaterialSandiaTable.
|
|
GetPhotoAbsorpCof(i+1,j)*
|
|
(*theMaterialTable)[fMatIndex1]->GetDensity() ;
|
|
}
|
|
}
|
|
delete[] thisMaterialZ ;
|
|
return ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Returns the value of linear photo absorption coefficient (in reciprocal
|
|
// length) for plate for given energy of X-ray photon omega
|
|
|
|
G4double G4VXrayTRmodel::GetPlateLinearPhotoAbs(G4double omega)
|
|
{
|
|
G4int i ;
|
|
G4double omega2, omega3, omega4 ;
|
|
|
|
omega2 = omega*omega ;
|
|
omega3 = omega2*omega ;
|
|
omega4 = omega2*omega2 ;
|
|
|
|
for(i=0;i<fPlateIntervalNumber;i++)
|
|
{
|
|
if( omega < fPlatePhotoAbsCof[i][0] ) break ;
|
|
}
|
|
if( i == 0 )
|
|
{
|
|
G4Exception("Invalid (<I1) energy in G4VXrayTRmodel::GetPlateLinearPhotoAbs");
|
|
}
|
|
else i-- ;
|
|
|
|
return fPlatePhotoAbsCof[i][1]/omega + fPlatePhotoAbsCof[i][2]/omega2 +
|
|
fPlatePhotoAbsCof[i][3]/omega3 + fPlatePhotoAbsCof[i][4]/omega4 ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates formation zone for gas. Omega is energy !!!
|
|
|
|
G4double G4VXrayTRmodel::GetGasFormationZone( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
G4double cof, lambda ;
|
|
lambda = 1.0/gamma/gamma + varAngle + fSigma2/omega/omega ;
|
|
cof = 2.0*hbarc/omega/lambda ;
|
|
return cof ;
|
|
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates complex formation zone for gas gaps. Omega is energy !!!
|
|
|
|
G4complex G4VXrayTRmodel::GetGasComplexFZ( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
G4double cof, length,delta, real, image ;
|
|
|
|
length = 0.5*GetGasFormationZone(omega,gamma,varAngle) ;
|
|
delta = length*GetGasLinearPhotoAbs(omega) ;
|
|
cof = 1.0/(1.0 + delta*delta) ;
|
|
|
|
real = length*cof ;
|
|
image = real*delta ;
|
|
|
|
G4complex zone(real,image);
|
|
return zone ;
|
|
}
|
|
|
|
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Computes matrix of Sandia photo absorption cross section coefficients for
|
|
// gas material
|
|
|
|
void G4VXrayTRmodel::ComputeGasPhotoAbsCof()
|
|
{
|
|
G4int i, j, numberOfElements ;
|
|
static const G4MaterialTable*
|
|
theMaterialTable = G4Material::GetMaterialTable();
|
|
|
|
G4SandiaTable thisMaterialSandiaTable(fMatIndex2) ;
|
|
numberOfElements = (*theMaterialTable)[fMatIndex2]->GetNumberOfElements() ;
|
|
G4int* thisMaterialZ = new G4int[numberOfElements] ;
|
|
|
|
for(i=0;i<numberOfElements;i++)
|
|
{
|
|
thisMaterialZ[i] = (G4int)(*theMaterialTable)[fMatIndex2]->
|
|
GetElement(i)->GetZ() ;
|
|
}
|
|
fGasIntervalNumber = thisMaterialSandiaTable.SandiaIntervals
|
|
(thisMaterialZ,numberOfElements) ;
|
|
|
|
fGasIntervalNumber = thisMaterialSandiaTable.SandiaMixing
|
|
( thisMaterialZ ,
|
|
(*theMaterialTable)[fMatIndex2]->GetFractionVector() ,
|
|
numberOfElements,fGasIntervalNumber) ;
|
|
|
|
fGasPhotoAbsCof = new G4double*[fGasIntervalNumber] ;
|
|
|
|
for(i=0;i<fGasIntervalNumber;i++)
|
|
{
|
|
fGasPhotoAbsCof[i] = new G4double[5] ;
|
|
}
|
|
for(i=0;i<fGasIntervalNumber;i++)
|
|
{
|
|
fGasPhotoAbsCof[i][0] = thisMaterialSandiaTable.
|
|
GetPhotoAbsorpCof(i+1,0) ;
|
|
|
|
for(j=1;j<5;j++)
|
|
{
|
|
fGasPhotoAbsCof[i][j] = thisMaterialSandiaTable.
|
|
GetPhotoAbsorpCof(i+1,j)*
|
|
(*theMaterialTable)[fMatIndex2]->GetDensity() ;
|
|
}
|
|
}
|
|
delete[] thisMaterialZ ;
|
|
return ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Returns the value of linear photo absorption coefficient (in reciprocal
|
|
// length) for gas
|
|
|
|
G4double G4VXrayTRmodel::GetGasLinearPhotoAbs(G4double omega)
|
|
{
|
|
G4int i ;
|
|
G4double omega2, omega3, omega4 ;
|
|
|
|
omega2 = omega*omega ;
|
|
omega3 = omega2*omega ;
|
|
omega4 = omega2*omega2 ;
|
|
|
|
for(i=0;i<fGasIntervalNumber;i++)
|
|
{
|
|
if( omega < fGasPhotoAbsCof[i][0] ) break ;
|
|
}
|
|
if( i == 0 )
|
|
{
|
|
G4Exception("Invalid (<I1) energy in G4VXrayTRmodel::GetGasLinearPhotoAbs");
|
|
}
|
|
else i-- ;
|
|
|
|
return fGasPhotoAbsCof[i][1]/omega + fGasPhotoAbsCof[i][2]/omega2 +
|
|
fGasPhotoAbsCof[i][3]/omega3 + fGasPhotoAbsCof[i][4]/omega4 ;
|
|
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates the product of linear cof by formation zone for plate.
|
|
// Omega is energy !!!
|
|
|
|
G4double G4VXrayTRmodel::GetPlateZmuProduct( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
return GetPlateFormationZone(omega,gamma,varAngle)*GetPlateLinearPhotoAbs(omega) ;
|
|
}
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates the product of linear cof by formation zone for plate.
|
|
// G4cout and output in file in some energy range.
|
|
|
|
void G4VXrayTRmodel::GetPlateZmuProduct()
|
|
{
|
|
G4std::ofstream outPlate("plateZmu.dat", G4std::ios::out ) ;
|
|
outPlate.setf( G4std::ios::scientific, G4std::ios::floatfield );
|
|
|
|
G4int i ;
|
|
G4double omega, varAngle, gamma ;
|
|
gamma = 10000. ;
|
|
varAngle = 1/gamma/gamma ;
|
|
G4cout<<"energy, keV"<<"\t"<<"Zmu for plate"<<G4endl ;
|
|
for(i=0;i<100;i++)
|
|
{
|
|
omega = (1.0 + i)*keV ;
|
|
G4cout<<omega/keV<<"\t"<<GetPlateZmuProduct(omega,gamma,varAngle)<<"\t" ;
|
|
outPlate<<omega/keV<<"\t\t"<<GetPlateZmuProduct(omega,gamma,varAngle)<<G4endl ;
|
|
}
|
|
return ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates the product of linear cof by formation zone for gas.
|
|
// Omega is energy !!!
|
|
|
|
G4double G4VXrayTRmodel::GetGasZmuProduct( G4double omega ,
|
|
G4double gamma ,
|
|
G4double varAngle )
|
|
{
|
|
return GetGasFormationZone(omega,gamma,varAngle)*GetGasLinearPhotoAbs(omega) ;
|
|
}
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Calculates the product of linear cof byformation zone for gas.
|
|
// G4cout and output in file in some energy range.
|
|
|
|
void G4VXrayTRmodel::GetGasZmuProduct()
|
|
{
|
|
G4std::ofstream outGas("gasZmu.dat", G4std::ios::out ) ;
|
|
outGas.setf( G4std::ios::scientific, G4std::ios::floatfield );
|
|
G4int i ;
|
|
G4double omega, varAngle, gamma ;
|
|
gamma = 10000. ;
|
|
varAngle = 1/gamma/gamma ;
|
|
G4cout<<"energy, keV"<<"\t"<<"Zmu for gas"<<G4endl ;
|
|
for(i=0;i<100;i++)
|
|
{
|
|
omega = (1.0 + i)*keV ;
|
|
G4cout<<omega/keV<<"\t"<<GetGasZmuProduct(omega,gamma,varAngle)<<"\t" ;
|
|
outGas<<omega/keV<<"\t\t"<<GetGasZmuProduct(omega,gamma,varAngle)<<G4endl ;
|
|
}
|
|
return ;
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////
|
|
//
|
|
// This function returns the spectral and angle density of TR quanta
|
|
// in X-ray energy region generated forward when a relativistic
|
|
// charged particle crosses interface between two materials.
|
|
// The high energy small theta approximation is applied.
|
|
// (matter1 -> matter2, or 2->1)
|
|
// varAngle =2* (1 - cos(theta)) or approximately = theta*theta
|
|
//
|
|
|
|
G4double
|
|
G4VXrayTRmodel::OneBoundaryXTRNdensity( G4double energy,G4double gamma,
|
|
G4double varAngle ) const
|
|
{
|
|
G4double formationLength1, formationLength2 ;
|
|
formationLength1 = 1.0/
|
|
(1.0/(gamma*gamma)
|
|
+ fSigma1/(energy*energy)
|
|
+ varAngle) ;
|
|
formationLength2 = 1.0/
|
|
(1.0/(gamma*gamma)
|
|
+ fSigma2/(energy*energy)
|
|
+ varAngle) ;
|
|
return (varAngle/energy)*(formationLength1 - formationLength2)
|
|
*(formationLength1 - formationLength2) ;
|
|
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// For photon energy distribution tables. Integrate first over angle
|
|
//
|
|
|
|
G4double G4VXrayTRmodel::XTRNSpectralAngleDensity(G4double varAngle)
|
|
{
|
|
return OneBoundaryXTRNdensity(fEnergy,fGamma,varAngle)*
|
|
GetStackFactor(fEnergy,fGamma,varAngle) ;
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// For second integration over energy
|
|
|
|
G4double G4VXrayTRmodel::XTRNSpectralDensity(G4double energy)
|
|
{
|
|
fEnergy = energy ;
|
|
G4Integrator<G4VXrayTRmodel,G4double(G4VXrayTRmodel::*)(G4double)> integral ;
|
|
return integral.Legendre96(this,&G4VXrayTRmodel::XTRNSpectralAngleDensity,
|
|
0.0,0.2*fMaxThetaTR) +
|
|
integral.Legendre10(this,&G4VXrayTRmodel::XTRNSpectralAngleDensity,
|
|
0.2*fMaxThetaTR,fMaxThetaTR) ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// for photon angle distribution tables
|
|
//
|
|
|
|
G4double G4VXrayTRmodel::XTRNAngleSpectralDensity(G4double energy)
|
|
{
|
|
return OneBoundaryXTRNdensity(energy,fGamma,fVarAngle)*
|
|
GetStackFactor(energy,fGamma,fVarAngle) ;
|
|
}
|
|
|
|
///////////////////////////////////////////////////////////////////////////
|
|
//
|
|
//
|
|
|
|
G4double G4VXrayTRmodel::XTRNAngleDensity(G4double varAngle)
|
|
{
|
|
fVarAngle = varAngle ;
|
|
G4Integrator<G4VXrayTRmodel,G4double(G4VXrayTRmodel::*)(G4double)> integral ;
|
|
return integral.Legendre96(this,&G4VXrayTRmodel::XTRNAngleSpectralDensity,
|
|
fMinEnergyTR,fMaxEnergyTR) ;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Check number of photons for a range of Lorentz factors from both energy
|
|
// and angular tables
|
|
|
|
void G4VXrayTRmodel::GetNumberOfPhotons()
|
|
{
|
|
G4int iTkin ;
|
|
G4double gamma, numberE ;
|
|
|
|
G4std::ofstream outEn("numberE.dat", G4std::ios::out ) ;
|
|
outEn.setf( G4std::ios::scientific, G4std::ios::floatfield );
|
|
|
|
G4std::ofstream outAng("numberAng.dat", G4std::ios::out ) ;
|
|
outAng.setf( G4std::ios::scientific, G4std::ios::floatfield );
|
|
|
|
for(iTkin=0;iTkin<fTotBin;iTkin++) // Lorentz factor loop
|
|
{
|
|
gamma = 1.0 + (fProtonEnergyVector->
|
|
GetLowEdgeEnergy(iTkin)/proton_mass_c2) ;
|
|
numberE = (*(*fEnergyDistrTable)(iTkin))(0) ;
|
|
// numberA = (*(*fAngleDistrTable)(iTkin))(0) ;
|
|
G4cout<<gamma<<"\t\t"<<numberE<<"\t" // <<numberA
|
|
<<G4endl ;
|
|
outEn<<gamma<<"\t\t"<<numberE<<G4endl ;
|
|
// outAng<<gamma<<"\t\t"<<numberA<<G4endl ;
|
|
}
|
|
return ;
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Returns randon energy of a X-ray TR photon for given scaled kinetic energy
|
|
// of a charged particle
|
|
|
|
G4double G4VXrayTRmodel::GetXTRrandomEnergy( G4double scaledTkin, G4int iTkin )
|
|
{
|
|
G4int iTransfer, iPlace ;
|
|
G4double transfer = 0.0, position, E1, E2, W1, W2, W ;
|
|
|
|
iPlace = iTkin - 1 ;
|
|
|
|
// G4cout<<"iPlace = "<<iPlace<<endl ;
|
|
|
|
if(iTkin == fTotBin) // relativistic plato, try from left
|
|
{
|
|
position = (*(*fEnergyDistrTable)(iPlace))(0)*G4UniformRand() ;
|
|
|
|
for(iTransfer=0;;iTransfer++)
|
|
{
|
|
if(position >= (*(*fEnergyDistrTable)(iPlace))(iTransfer)) break ;
|
|
}
|
|
transfer = GetXTRenergy(iPlace,position,iTransfer);
|
|
}
|
|
else
|
|
{
|
|
E1 = fProtonEnergyVector->GetLowEdgeEnergy(iTkin - 1) ;
|
|
E2 = fProtonEnergyVector->GetLowEdgeEnergy(iTkin) ;
|
|
W = 1.0/(E2 - E1) ;
|
|
W1 = (E2 - scaledTkin)*W ;
|
|
W2 = (scaledTkin - E1)*W ;
|
|
|
|
position =( (*(*fEnergyDistrTable)(iPlace))(0)*W1 +
|
|
(*(*fEnergyDistrTable)(iPlace+1))(0)*W2 )*G4UniformRand() ;
|
|
|
|
// G4cout<<position<<"\t" ;
|
|
|
|
for(iTransfer=0;;iTransfer++)
|
|
{
|
|
if( position >=
|
|
( (*(*fEnergyDistrTable)(iPlace))(iTransfer)*W1 +
|
|
(*(*fEnergyDistrTable)(iPlace+1))(iTransfer)*W2) ) break ;
|
|
}
|
|
transfer = GetXTRenergy(iPlace,position,iTransfer);
|
|
|
|
}
|
|
// G4cout<<"XTR transfer = "<<transfer/keV<<" keV"<<endl ;
|
|
if(transfer < 0.0 ) transfer = 0.0 ;
|
|
return transfer ;
|
|
}
|
|
|
|
////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Returns approximate position of X-ray photon energy during random sampling
|
|
// over integral energy distribution
|
|
|
|
G4double G4VXrayTRmodel::GetXTRenergy( G4int iPlace,
|
|
G4double position,
|
|
G4int iTransfer )
|
|
{
|
|
G4double x1, x2, y1, y2, result ;
|
|
|
|
if(iTransfer == 0)
|
|
{
|
|
result = (*fEnergyDistrTable)(iPlace)->GetLowEdgeEnergy(iTransfer) ;
|
|
}
|
|
else
|
|
{
|
|
y1 = (*(*fEnergyDistrTable)(iPlace))(iTransfer-1) ;
|
|
y2 = (*(*fEnergyDistrTable)(iPlace))(iTransfer) ;
|
|
|
|
x1 = (*fEnergyDistrTable)(iPlace)->GetLowEdgeEnergy(iTransfer-1) ;
|
|
x2 = (*fEnergyDistrTable)(iPlace)->GetLowEdgeEnergy(iTransfer) ;
|
|
|
|
if ( x1 == x2 ) result = x2 ;
|
|
else
|
|
{
|
|
if ( y1 == y2 ) result = x1 + (x2 - x1)*G4UniformRand() ;
|
|
else
|
|
{
|
|
result = x1 + (position - y1)*(x2 - x1)/(y2 - y1) ;
|
|
}
|
|
}
|
|
}
|
|
return result ;
|
|
}
|
|
|
|
|
|
|
|
//
|
|
//
|
|
///////////////////////////////////////////////////////////////////////
|
|
|