Geant4 11.3.0
Toolkit for the simulation of the passage of particles through matter
All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
G4ChatterjeeCrossSection.cc
Go to the documentation of this file.
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//
28// V.Ivanchenko 26.02.2018
29//
30
33#include "G4Pow.hh"
34
35static const G4double emax = 50*CLHEP::MeV;
36
37// index: 0-neutron, 1-proton, 2-deuteron, 3-triton, 4-He3, 5-He4
38// parameters: p0, p1, p2, landa0, landa1, mu0, mu1, nu0, nu1, nu2, ra
39
40static const G4double paramC[6][11] = {
41 // n from Becchetti and Greenlees
42 { 0., 0., 0., 18.57, -22.93, 381.7, 24.31, 0.172, -15.39, 804.8, 0.0},
43 // p from Bechetti and Greenlees
44 {15.72, 9.65, -449., 0.00437,-16.58, 244.7, 0.503, 273.1, -182.4, -1.872, 0.0},
45 // d from Lohr and Haeberli
46 {-38.21,922.6,-2804.,-0.0323, -5.48, 336.1, 0.48, 524.3, -371.8, -5.924, 1.2},
47 // t from Becchetti and Greenlees
48 {-11.04,619.1,-2147., 0.0426, -10.33, 601.9, 0.37, 583.0, -546.2, 1.718, 1.2},
49 // 3he from Becchetti and Greenlees
50 {-3.06, 278.5,-1389.,-0.00535,-11.16, 555.5, 0.4, 687.4, -476.3, 0.509, 1.2},
51 // alpha from huizenga and igo
52 {10.95, -85.2, 1146., 0.0643, -13.96, 781.2, 0.29, -304.7, -470.0, -8.58, 1.2}
53};
54
57 G4double resA13, G4double amu1,
58 G4int idx, G4int Z, G4int resA)
59{
60 G4double sig;
61 G4double Kc = std::min(K, emax);
62
63 // parameterisation for neutron
64 if(0 == Z) {
65 G4double landa = paramC[idx][3]/resA13 + paramC[idx][4];
66 G4double mu = (paramC[idx][5] + paramC[idx][6]*resA13)*resA13;
67 G4double nu = std::abs((paramC[idx][7]*resA + paramC[idx][8]*resA13)*resA13
68 + paramC[idx][9]);
69 sig = landa*Kc + mu + nu/Kc;
70
71 // parameterisation for charged
72 } else {
73 //JMQ 20.04.2015 1.5 F
74 G4double ec = cb;
75 //G4double ec = 1.44 * Z * resZ / (1.5*resA13 + paramC[idx][10]);
76 G4double ecsq = ec*ec;
77 G4double p = paramC[idx][0] + paramC[idx][1]/ec + paramC[idx][2]/(ecsq);
78 G4double landa = paramC[idx][3]*resA + paramC[idx][4];
79 G4double mu = paramC[idx][5]*amu1;
80 G4double nu = amu1* (paramC[idx][7] + paramC[idx][8]*ec + paramC[idx][9]*ecsq);
81 G4double q = landa - nu/ecsq - 2*p*ec;
82 G4double r = mu + 2*nu/ec + p*ecsq;
83 G4double ji= std::max(Kc, ec);
84 if(Kc < ec) { sig = p*Kc*Kc + q*Kc + r; }
85 else { sig = p*(Kc - ji)*(Kc - ji) + landa*Kc + mu + nu*(2 - Kc/ji)/ji; }
86 }
87 sig = std::max(sig, 0.0);
88 //G4cout << "Kc= " << Kc << " A= " << resA << " A13= " << resA13 << " cb= " << cb
89 // << " idx= " << idx << " Z= " << Z << " amu1= " << amu1 << " sig= " << sig <<G4endl;
90 return sig;
91}
double G4double
Definition G4Types.hh:83
int G4int
Definition G4Types.hh:85
static G4double ComputeCrossSection(G4double K, G4double cb, G4double resA13, G4double amu1, G4int idx, G4int Z, G4int resA)