| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. *
24 // ******************************************* 24 // ********************************************************************
25 // 25 //
26 // 26 //
27 // 27 //
28 // V.Ivanchenko 26.02.2018 28 // V.Ivanchenko 26.02.2018
29 // 29 //
30 30
31 #include "G4ChatterjeeCrossSection.hh" 31 #include "G4ChatterjeeCrossSection.hh"
32 #include <CLHEP/Units/SystemOfUnits.h> 32 #include <CLHEP/Units/SystemOfUnits.h>
33 #include "G4Pow.hh" 33 #include "G4Pow.hh"
34 34
35 static const G4double emax = 50*CLHEP::MeV; 35 static const G4double emax = 50*CLHEP::MeV;
36 36
37 // index: 0-neutron, 1-proton, 2-deuteron, 3-t 37 // index: 0-neutron, 1-proton, 2-deuteron, 3-triton, 4-He3, 5-He4
38 // parameters: p0, p1, p2, landa0, landa1, mu0 38 // parameters: p0, p1, p2, landa0, landa1, mu0, mu1, nu0, nu1, nu2, ra
39 39
40 static const G4double paramC[6][11] = { 40 static const G4double paramC[6][11] = {
41 // n from Becchetti and Greenlees 41 // n from Becchetti and Greenlees
42 { 0., 0., 0., 18.57, -22.93, 381.7, 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 43 // p from Bechetti and Greenlees
44 {15.72, 9.65, -449., 0.00437,-16.58, 244.7, 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 45 // d from Lohr and Haeberli
46 {-38.21,922.6,-2804.,-0.0323, -5.48, 336.1, 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 47 // t from Becchetti and Greenlees
48 {-11.04,619.1,-2147., 0.0426, -10.33, 601.9, 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 49 // 3he from Becchetti and Greenlees
50 {-3.06, 278.5,-1389.,-0.00535,-11.16, 555.5, 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 51 // alpha from huizenga and igo
52 {10.95, -85.2, 1146., 0.0643, -13.96, 781.2, 52 {10.95, -85.2, 1146., 0.0643, -13.96, 781.2, 0.29, -304.7, -470.0, -8.58, 1.2}
53 }; 53 };
54 54
55 G4double 55 G4double
56 G4ChatterjeeCrossSection::ComputeCrossSection( 56 G4ChatterjeeCrossSection::ComputeCrossSection(G4double K, G4double cb,
57 57 G4double resA13, G4double amu1,
58 G4int idx, G4int Z, G4in 58 G4int idx, G4int Z, G4int resA)
59 { 59 {
60 G4double sig; 60 G4double sig;
61 G4double Kc = std::min(K, emax); 61 G4double Kc = std::min(K, emax);
62 62
63 // parameterisation for neutron 63 // parameterisation for neutron
64 if(0 == Z) { 64 if(0 == Z) {
65 G4double landa = paramC[idx][3]/resA13 + p 65 G4double landa = paramC[idx][3]/resA13 + paramC[idx][4];
66 G4double mu = (paramC[idx][5] + paramC[idx 66 G4double mu = (paramC[idx][5] + paramC[idx][6]*resA13)*resA13;
67 G4double nu = std::abs((paramC[idx][7]*res 67 G4double nu = std::abs((paramC[idx][7]*resA + paramC[idx][8]*resA13)*resA13
68 + paramC[idx][9]); 68 + paramC[idx][9]);
69 sig = landa*Kc + mu + nu/Kc; 69 sig = landa*Kc + mu + nu/Kc;
70 70
71 // parameterisation for charged 71 // parameterisation for charged
72 } else { 72 } else {
73 //JMQ 20.04.2015 1.5 F 73 //JMQ 20.04.2015 1.5 F
74 G4double ec = cb; 74 G4double ec = cb;
75 //G4double ec = 1.44 * Z * resZ / (1.5*res 75 //G4double ec = 1.44 * Z * resZ / (1.5*resA13 + paramC[idx][10]);
76 G4double ecsq = ec*ec; 76 G4double ecsq = ec*ec;
77 G4double p = paramC[idx][0] + paramC[idx][ 77 G4double p = paramC[idx][0] + paramC[idx][1]/ec + paramC[idx][2]/(ecsq);
78 G4double landa = paramC[idx][3]*resA + par 78 G4double landa = paramC[idx][3]*resA + paramC[idx][4];
79 G4double mu = paramC[idx][5]*amu1; 79 G4double mu = paramC[idx][5]*amu1;
80 G4double nu = amu1* (paramC[idx][7] + para 80 G4double nu = amu1* (paramC[idx][7] + paramC[idx][8]*ec + paramC[idx][9]*ecsq);
81 G4double q = landa - nu/ecsq - 2*p*ec; 81 G4double q = landa - nu/ecsq - 2*p*ec;
82 G4double r = mu + 2*nu/ec + p*ecsq; 82 G4double r = mu + 2*nu/ec + p*ecsq;
83 G4double ji= std::max(Kc, ec); 83 G4double ji= std::max(Kc, ec);
84 if(Kc < ec) { sig = p*Kc*Kc + q*Kc + r; } 84 if(Kc < ec) { sig = p*Kc*Kc + q*Kc + r; }
85 else { sig = p*(Kc - ji)*(Kc - ji) + landa 85 else { sig = p*(Kc - ji)*(Kc - ji) + landa*Kc + mu + nu*(2 - Kc/ji)/ji; }
86 } 86 }
87 sig = std::max(sig, 0.0); 87 sig = std::max(sig, 0.0);
88 //G4cout << "Kc= " << Kc << " A= " << resA < 88 //G4cout << "Kc= " << Kc << " A= " << resA << " A13= " << resA13 << " cb= " << cb
89 // << " idx= " << idx << " Z= " << Z << " 89 // << " idx= " << idx << " Z= " << Z << " amu1= " << amu1 << " sig= " << sig <<G4endl;
90 return sig; 90 return sig;
91 } 91 }
92 92