| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 // History:
28 // -----------
29 // 21 Apr 2008 H. Abdelohauwed - 1st implem
30 // 29 Apr 2009 ALF Major Design Revision
31 // 22 Oct 2011 ALF Warning removals and Z
32 // 29 Oct 2011 ALF Changed name to G4PAulK
33 //
34 // -------------------------------------------
35
36 // Class description:
37 // Low Energy Electromagnetic Physics, Cross s
38 // Further documentation available from http:/
39
40 // -------------------------------------------
41
42 #include <fstream>
43 #include <iomanip>
44
45 #include "G4PaulKxsModel.hh"
46
47 #include "globals.hh"
48 #include "G4SystemOfUnits.hh"
49 #include "G4ios.hh"
50 #include "G4EMDataSet.hh"
51 #include "G4LogLogInterpolation.hh"
52 #include "G4Proton.hh"
53 #include "G4Alpha.hh"
54
55 // -------------------------------------------
56
57 G4PaulKxsModel::G4PaulKxsModel()
58 {
59 interpolation = new G4LogLogInterpolation();
60
61 for (G4int i=4; i<93; i++) {
62 protonDataSetMap[i] = new G4EMDataSet(i,
63 protonDataSetMap[i]->LoadData("pixe/kpcs
64 }
65 for (G4int i=6; i<93; i++) {
66 alphaDataSetMap[i] = new G4EMDataSet(i,i
67 alphaDataSetMap[i]->LoadData("pixe/kacsP
68 }
69 }
70
71 G4PaulKxsModel::~G4PaulKxsModel()
72 {
73 protonDataSetMap.clear();
74 alphaDataSetMap.clear();
75 delete interpolation;
76 }
77
78 // -------------------------------------------
79 G4double G4PaulKxsModel::CalculateKCrossSectio
80 G4double massIncident, G4double en
81 {
82
83 G4Proton* aProtone = G4Proton::Proton();
84 G4Alpha* aAlpha = G4Alpha::Alpha();
85 G4double sigma = 0;
86
87 if (massIncident == aProtone->GetPDGMass() &
88 {
89 if (energyIncident > protonDataSetMap[zT
90 energyIncident < protonDataSetMap[zTarget]
91 {sigma = 0;}
92 else {
93 sigma = protonDataSetMap[zTarget]->FindValue
94 }
95 }
96 else
97 {
98 if (massIncident == aAlpha->GetPDGMass()
99 {
100 if (energyIncident > alphaDataSetMap[zTarg
101 energyIncident < alphaDataSetMap[zTarg
102 {sigma = 0;}
103 else {
104 sigma = alphaDataSetMap[zTarget]->FindVa
105 }
106 }
107 else
108 {
109 sigma = 0.;
110 }
111 }
112
113 // sigma is in internal units (mm^2)
114 return sigma;
115 }
116
117
118
119
120
121
122
123
124
125
126
127
128