Geant4-11
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}
static const G4double paramC[6][11]
static const G4double emax
double G4double
Definition: G4Types.hh:83
int G4int
Definition: G4Types.hh:85
const G4int Z[17]
static G4double ComputeCrossSection(G4double K, G4double cb, G4double resA13, G4double amu1, G4int idx, G4int Z, G4int resA)
static constexpr double MeV
T max(const T t1, const T t2)
brief Return the largest of the two arguments
T min(const T t1, const T t2)
brief Return the smallest of the two arguments