Geant4  v4-10.4-release
 모두 클래스 네임스페이스들 파일들 함수 변수 타입정의 열거형 타입 열거형 멤버 Friends 매크로 그룹들 페이지들
G4ChatterjeeCrossSection.cc
이 파일의 문서화 페이지로 가기
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: G4ChatterjeeCrossSection.hh 66241 2012-12-13 18:34:42Z gunter $
28 //
29 // V.Ivanchenko 26.02.2018
30 //
31 
34 #include "G4Pow.hh"
35 
36 static const G4double emax = 50*CLHEP::MeV;
37 
38 // index: 0-neutron, 1-proton, 2-deuteron, 3-triton, 4-He3, 5-He4
39 // parameters: p0, p1, p2, landa0, landa1, mu0, mu1, nu0, nu1, nu2, ra
40 
41 static const G4double paramC[6][11] = {
42  // n from Becchetti and Greenlees
43  { 0., 0., 0., 18.57, -22.93, 381.7, 24.31, 0.172, -15.39, 804.8, 0.0},
44  // p from Bechetti and Greenlees
45  {15.72, 9.65, -449., 0.00437,-16.58, 244.7, 0.503, 273.1, -182.4, -1.872, 0.0},
46  // d from Lohr and Haeberli
47  {-38.21,922.6,-2804.,-0.0323, -5.48, 336.1, 0.48, 524.3, -371.8, -5.924, 1.2},
48  // t from Becchetti and Greenlees
49  {-11.04,619.1,-2147., 0.0426, -10.33, 601.9, 0.37, 583.0, -546.2, 1.718, 1.2},
50  // 3he from Becchetti and Greenlees
51  {-3.06, 278.5,-1389.,-0.00535,-11.16, 555.5, 0.4, 687.4, -476.3, 0.509, 1.2},
52  // alpha from huizenga and igo
53  {10.95, -85.2, 1146., 0.0643, -13.96, 781.2, 0.29, -304.7, -470.0, -8.58, 1.2}
54 };
55 
56 G4double
58  G4double resA13, G4double amu1,
59  G4int idx, G4int Z, G4int resA)
60 {
61  G4double sig;
62  G4double Kc = std::min(K, emax);
63 
64  // parameterisation for neutron
65  if(0 == Z) {
66  G4double landa = paramC[idx][3]/resA13 + paramC[idx][4];
67  G4double mu = (paramC[idx][5] + paramC[idx][6]*resA13)*resA13;
68  G4double nu = std::abs((paramC[idx][7]*resA + paramC[idx][8]*resA13)*resA13
69  + paramC[idx][9]);
70  sig = landa*Kc + mu + nu/Kc;
71 
72  // parameterisation for charged
73  } else {
74  //JMQ 20.04.2015 1.5 F
75  G4double ec = cb;
76  //G4double ec = 1.44 * Z * resZ / (1.5*resA13 + paramC[idx][10]);
77  G4double ecsq = ec*ec;
78  G4double p = paramC[idx][0] + paramC[idx][1]/ec + paramC[idx][2]/(ecsq);
79  G4double landa = paramC[idx][3]*resA + paramC[idx][4];
80  G4double mu = paramC[idx][5]*amu1;
81  G4double nu = amu1* (paramC[idx][7] + paramC[idx][8]*ec + paramC[idx][9]*ecsq);
82  G4double q = landa - nu/ecsq - 2*p*ec;
83  G4double r = mu + 2*nu/ec + p*ecsq;
84  G4double ji= std::max(Kc, ec);
85  if(Kc < ec) { sig = p*Kc*Kc + q*Kc + r; }
86  else { sig = p*(Kc - ji)*(Kc - ji) + landa*Kc + mu + nu*(2 - Kc/ji)/ji; }
87  }
88  sig = std::max(sig, 0.0);
89  //G4cout << "Kc= " << Kc << " A= " << resA << " A13= " << resA13 << " cb= " << cb
90  // << " idx= " << idx << " Z= " << Z << " amu1= " << amu1 << " sig= " << sig <<G4endl;
91  return sig;
92 }
T max(const T t1, const T t2)
brief Return the largest of the two arguments
static const G4double paramC[6][11]
const char * p
Definition: xmltok.h:285
static G4double ComputeCrossSection(G4double K, G4double cb, G4double resA13, G4double amu1, G4int idx, G4int Z, G4int resA)
static const G4double emax
Double_t K
Float_t Z
double G4double
Definition: G4Types.hh:76
static constexpr double MeV
int G4int
Definition: G4Types.hh:78
T min(const T t1, const T t2)
brief Return the smallest of the two arguments