source: trunk/source/processes/hadronic/models/chiral_inv_phase_space/interface/include/G4QTauNuclearCrossSection.hh @ 836

Last change on this file since 836 was 819, checked in by garnier, 16 years ago

import all except CVS
File size: 7.8 KB
Line 
1//
2// ********************************************************************
3// * License and Disclaimer                                           *
4// *                                                                  *
5// * The  Geant4 software  is  copyright of the Copyright Holders  of *
6// * the Geant4 Collaboration.  It is provided  under  the terms  and *
7// * conditions of the Geant4 Software License,  included in the file *
8// * LICENSE and available at  http://cern.ch/geant4/license .  These *
9// * include a list of copyright holders.                             *
10// *                                                                  *
11// * Neither the authors of this software system, nor their employing *
12// * institutes,nor the agencies providing financial support for this *
13// * work  make  any representation or  warranty, express or implied, *
14// * regarding  this  software system or assume any liability for its *
15// * use.  Please see the license in the file  LICENSE  and URL above *
16// * for the full disclaimer and the limitation of liability.         *
17// *                                                                  *
18// * This  code  implementation is the result of  the  scientific and *
19// * technical work of the GEANT4 collaboration.                      *
20// * By using,  copying,  modifying or  distributing the software (or *
21// * any work based  on the software)  you  agree  to acknowledge its *
22// * use  in  resulting  scientific  publications,  and indicate your *
23// * acceptance of all terms of the Geant4 Software license.          *
24// ********************************************************************
25//
26//
27// $Id: G4QTauNuclearCrossSection.hh,v 1.5 2006/12/01 10:57:46 mkossov Exp $
28// GEANT4 tag $Name:  $
29//
30//
31// GEANT4 physics class: G4QTauNuclearCrossSection -- header file
32// M.V. Kossov, CERN-ITEP(Moscow), 4-FEB-2004
33// The last update: M.V. Kossov, CERN/ITEP (Moscow) 4-Feb-04
34//
35// Short description: this G4 singletone class calculates tau-lepton-nuclear cross section
36// for the particular isotope (GetCrossSection member function)
37// ****************************************************************************************
38// ********* This HEADER is temporary moved from the photolepton_hadron directory *********
39// ******* DO NOT MAKE ANY CHANGE! With time it'll move back to photolepton...(M.K.) ******
40// ****************************************************************************************
41
42#ifndef G4QTauNuclearCrossSection_h
43#define G4QTauNuclearCrossSection_h 1
44
45#include "G4ParticleTable.hh"
46#include "G4NucleiProperties.hh"
47#include "G4NucleiPropertiesTable.hh"
48#include <vector>
49#include "Randomize.hh"
50#include "G4MuonPlus.hh"
51#include "G4MuonMinus.hh"
52#include "G4VQCrossSection.hh"
53
54class G4QTauNuclearCrossSection : public G4VQCrossSection
55{
56protected:
57
58  G4QTauNuclearCrossSection()  {};
59
60public:
61
62  ~G4QTauNuclearCrossSection()  {};
63
64  static G4VQCrossSection* GetPointer(); // Gives a pointer to this singletone
65
66  G4double ThresholdEnergy(G4int Z, G4int N, G4int PDG=15);
67
68  // At present momentum (pMom) must be in GeV (@@ Units)
69  virtual G4double GetCrossSection(G4bool fCS, G4double pMom, G4int tgZ, G4int tgN,
70                                                                             G4int pPDG=0);
71
72  G4double CalculateCrossSection(G4bool CS, G4int F, G4int I, G4int PDG, G4int Z, G4int N,
73                                                                        G4double Momentum);
74
75  G4int    GetExchangePDGCode();
76
77  G4double GetExchangeEnergy();
78
79  G4double GetVirtualFactor(G4double nu, G4double Q2);
80
81  G4double GetExchangeQ2(G4double nu);
82
83private:
84  G4int    GetFunctions(G4double a, G4double* x, G4double* y, G4double* z);
85  G4double HighEnergyJ1(G4double lE);
86  G4double HighEnergyJ2(G4double lE);
87  G4double HighEnergyJ3(G4double lE);
88  G4double SolveTheEquation(G4double f);
89  G4double Fun(G4double x);
90  G4double DFun(G4double x);
91
92// Body
93private:
94  static G4bool    onlyCS;   // flag to calculate only CS
95  static G4double  lastSig;  // Last calculated cross section
96  static G4int     lastL;    // Last used in the cross section TheLastBin
97  static G4double  lastE;    // Last used in the cross section Energy
98  static G4int     lastF;    // Last used in the cross section TheFirstBin
99  static G4double  lastG;    // Last value of gamma=lnE-ln(m)
100  static G4double  lastH;    // Last value of the High energy A-dependence
101  static G4double* lastJ1;   // Pointer to the last array of the J1 function
102  static G4double* lastJ2;   // Pointer to the last array of the J2 function
103  static G4double* lastJ3;   // Pointer to the last array of the J3 function
104  static G4int     lastPDG;  // The last projectile PDG
105  static G4int     lastN;    // The last N of calculated nucleus
106  static G4int     lastZ;    // The last Z of calculated nucleus
107  static G4double  lastP;    // Last used in the cross section Momentum
108  static G4double  lastTH;   // Last value of the Momentum Threshold
109  static G4double  lastCS;   // Last value of the Cross Section
110  static G4int     lastI;    // The last position in the DAMDB
111};
112
113inline G4double G4QTauNuclearCrossSection::DFun(G4double x)// Parametrization of PhotNucCS
114{
115  static const G4double shd=1.0734;                    // HE PomShadowing(D)
116  static const G4double poc=0.0375;                    // HE Pomeron coefficient
117  static const G4double pos=16.5;                      // HE Pomeron shift
118  static const G4double reg=.11;                       // HE Reggeon slope
119  static const G4double mtu=1777.;                     // Mass of a muon in MeV
120  static const G4double lmtu=std::log(mtu);            // Log of a muon mass
121  G4double y=std::exp(x-lastG-lmtu);                   // y for the x
122  G4double flux=lastG*(2.-y*(2.-y))-1.;                // flux factor
123  return (poc*(x-pos)+shd*std::exp(-reg*x))*flux;
124}
125
126inline G4double G4QTauNuclearCrossSection::Fun(G4double x) // Integrated PhoNucCS
127{
128  G4double dlg1=lastG+lastG-1.;
129  G4double lgoe=lastG/lastE;
130  G4double HE2=HighEnergyJ2(x);
131  return dlg1*HighEnergyJ1(x)-lgoe*(HE2+HE2-HighEnergyJ3(x)/lastE);
132}
133
134inline G4double G4QTauNuclearCrossSection::HighEnergyJ1(G4double lEn)
135{
136  static const G4double le=std::log(50000.); // log(E0)
137  static const G4double le2=le*le;           // log(E0)^2
138  static const G4double a=.0375;             // a
139  static const G4double ha=a*.5;             // a/2
140  static const G4double ab=a*16.5;           // a*b
141  static const G4double d=0.11;              // d
142  static const G4double cd=1.0734/d;         // c/d
143  static const G4double ele=std::exp(-d*le); // E0^(-d)
144  return ha*(lEn*lEn-le2)-ab*(lEn-le)-cd*(std::exp(-d*lEn)-ele);
145}
146
147inline G4double G4QTauNuclearCrossSection::HighEnergyJ2(G4double lEn)
148{
149  static const G4double e=50000.;            // E0
150  static const G4double le=std::log(e);      // log(E0)
151  static const G4double le1=(le-1.)*e;       // (log(E0)-1)*E0
152  static const G4double a=.0375;             // a
153  static const G4double ab=a*16.5;           // a*b
154  static const G4double d=1.-0.11;           // 1-d
155  static const G4double cd=1.0734/d;         // c/(1-d)
156  static const G4double ele=std::exp(d*le);  // E0^(1-d)
157  G4double En=std::exp(lEn);
158  return a*((lEn-1.)*En-le1)-ab*(En-e)+cd*(std::exp(d*lEn)-ele);
159}
160
161inline G4double G4QTauNuclearCrossSection::HighEnergyJ3(G4double lEn)
162{
163  static const G4double e=50000.;            // E0
164  static const G4double le=std::log(e);      // log(E0)
165  static const G4double e2=e*e;              // E0^2
166  static const G4double leh=(le-.5)*e2;      // (log(E0)-.5)*E0^2
167  static const G4double ha=.0375*.5;         // a/2
168  static const G4double hab=ha*16.5;         // a*b/2
169  static const G4double d=2.-.11;            // 2-d
170  static const G4double cd=1.0734/d;         // c/(2-d)
171  static const G4double ele=std::exp(d*le);  // E0^(2-d)
172  G4double lastE2=std::exp(lEn+lEn);
173  return ha*((lEn-.5)*lastE2-leh)-hab*(lastE2-e2)+cd*(std::exp(d*lEn)-ele);
174}
175
176#endif
Note: See TracBrowser for help on using the repository browser.