| 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 // Author: Mathieu Fontaine, Rachi
27 // fontaine@lps.umontreal.
28 //
29 // Language: C++
30 // Tested on: g++
31 // Prerequisites: None
32 // Purpose: This is the place, wher
33 // Instead of coding those
34 // are needed, it is much
35 // all materials for a det
36 // Everybody who needs som
37 // query the FCALMaterialC
38 // --> This class is made a si
39 // constructor private and
40 // construct() method, whi
41 // if it does not exist. T
42 // copies of this consulta
43 // contents (once the data
44 // can be changed by user
45 // --> The method Material is
46 // stored, a routine ShowM
47 // dump the entire knowled
48 //
49 // * Ideas on how the theFCA
50 // is made static are borr
51 //
52 //--------------------------------------------
53
54 #include "FCALMaterialConsultant.hh"
55
56 #include "globals.hh"
57 #include "G4PhysicalConstants.hh"
58 #include "G4SystemOfUnits.hh"
59
60 FCALMaterialConsultant *FCALMaterialConsultant
61
62 FCALMaterialConsultant::FCALMaterialConsultant
63 {
64 G4double a,z,density,fractionmass;
65 G4String name,symbol;
66 G4int nel,natoms;
67
68 //------------
69 // elements
70 //------------
71
72 a=1.01*g/mole;
73 elH=new G4Element(name="Hydrogen",symbol="H2
74
75 a=2.01*g/mole;
76 elD=new G4Element(name="Deuterium",symbol="D
77
78 a=4.*g/mole;
79 elHe=new G4Element(name="Helium",symbol="He"
80
81 a=6.94*g/mole;
82 elLi=new G4Element(name="Lithium",symbol="Li
83
84 a=9.01*g/mole;
85 elBe=new G4Element(name="Berillium",symbol="
86
87 a=12.01*g/mole;
88 elC=new G4Element(name="Carbon",symbol="C",z
89
90 a=14.01*g/mole;
91 elN=new G4Element(name="Nitrogen",symbol="N2
92
93 a=16.*g/mole;
94 elO=new G4Element(name="Oxygen",symbol="O2",
95
96 a=20.18*g/mole;
97 elNe=new G4Element(name="Neon",symbol="Ne",z
98
99 a=22.99*g/mole;
100 elNa=new G4Element(name="Sodium",symbol="Na"
101
102 a=26.98*g/mole;
103 elAl=new G4Element(name="Aluminium",symbol="
104
105 a=28.085*g/mole;
106 elSi=new G4Element(name="Silicon",symbol="Si
107
108 a=40.08*g/mole;
109 elCa=new G4Element(name="Calcium",symbol="Ca
110
111 a=55.850*g/mole;
112 elFe=new G4Element(name="Iron",symbol="Fe",z
113
114 a=63.54*g/mole;
115 elCu=new G4Element(name="Copper",symbol="Cu"
116
117 a=183.85*g/mole;
118 elW=new G4Element(name="Tungstenm",symbol="W
119
120 a=207.19*g/mole;
121 elPb=new G4Element(name="Lead",symbol="Pb",z
122
123 a=238.03*g/mole;
124 elU=new G4Element(name="Uranium",symbol="U",
125
126
127 //-------------------
128 // simple materials
129 //-------------------
130
131 density = 2.7*g/cm3;
132 a = 26.98*g/mole;
133 Aluminium = new G4Material(name="Aluminium",
134
135 density = 7.87*g/cm3;
136 a = 55.85*g/mole;
137 Iron = new G4Material(name="Iron",z=26.,a,de
138
139 density = 8.96*g/cm3;
140 a = 63.54*g/mole;
141 Copper = new G4Material(name="Copper",z=29.,
142
143 density = 19.3*g/cm3;
144 a = 183.85*g/mole;
145 Tungsten = new G4Material(name="Tungsten",z=
146
147 density = 11.35*g/cm3;
148 a = 207.19*g/mole;
149 Lead = new G4Material(name="Lead",z=82.,a,de
150
151 density = 1.4*g/cm3;
152 a = 39.95*g/mole;
153 LiquidArgon = new G4Material(name="LiquidArg
154
155 density = 0.002*g/cm3;
156 a = 39.95*g/mole;
157 ArgonGas = new G4Material(name="ArgonGas",z=
158
159 density = 8.96*g/cm3;
160 a = 58.69*g/mole;
161 Nickel = new G4Material(name="Nickel",z=28.,
162
163
164 //------------------
165 // mixtures
166 //------------------
167
168 density = 1.290*mg/cm3;
169 Air = new G4Material(name="Air",density, nel
170 Air->AddElement(elN, 0.7);
171 Air->AddElement(elO, 0.3);
172
173 RhoaCell = Air;
174
175
176 density = 1.e-5*g/cm3;
177 G4double pressure = 2.e-2*bar;
178 G4double temperature = STP_Temperature;
179 Vacuum = new G4Material(name="Vacuum", densi
180 kStateGas,temperature,pressure);
181 Vacuum->AddMaterial(Air, fractionmass=1.);
182
183
184 density = 0.002*g/cm3;
185 CO2 = new G4Material(name="CO2",density,nel=
186 CO2->AddElement(elC, natoms=1);
187 CO2->AddElement(elO, natoms=2);
188
189 density = 1.42*g/cm3;
190 Kapton = new G4Material(name="Kapton",densit
191 Kapton->AddElement(elH, fractionmass = 0.027
192 Kapton->AddElement(elC, fractionmass = 0.721
193 Kapton->AddElement(elN, fractionmass = 0.076
194 Kapton->AddElement(elO, fractionmass = 0.174
195
196 density = 1.032*g/cm3;
197 Polystyrene = new G4Material(name="Polystyre
198 Polystyrene->AddElement(elC, natoms=8);
199 Polystyrene->AddElement(elH, natoms=8);
200
201 density = 5.185*g/cm3;
202 FCAL1CuArKap = new G4Material(name="FCAL1CuA
203 FCAL1CuArKap->AddMaterial(Copper, fractionma
204 FCAL1CuArKap->AddMaterial(Kapton, fractionma
205 FCAL1CuArKap->AddMaterial(LiquidArgon, fract
206
207 density = 8.701*g/cm3;
208 FCAL1CuAr = new G4Material(name="FCAL1CuAr",
209 FCAL1CuAr->AddMaterial(Copper, fractionmass
210 FCAL1CuAr->AddMaterial(LiquidArgon, fraction
211
212 density = 5.185*g/cm3;
213 FCAL2CuArKap = new G4Material(name="FCAL2CuA
214 FCAL2CuArKap->AddMaterial(Copper, fractionma
215 FCAL2CuArKap->AddMaterial(Kapton, fractionma
216 FCAL2CuArKap->AddMaterial(LiquidArgon, fract
217
218 density = 18.6*g/cm3;
219 FCAL2WFeNi = new G4Material(name="FCAL2WFeNi
220 FCAL2WFeNi->AddMaterial(Tungsten, fractionma
221 FCAL2WFeNi->AddMaterial(Iron, fractionmass =
222 FCAL2WFeNi->AddMaterial(Nickel, fractionmass
223
224 density = 15.366*g/cm3;
225 FCAL2WFeNiCuAr = new G4Material(name="FCAL2W
226 FCAL2WFeNiCuAr->AddMaterial(FCAL2WFeNi, frac
227 FCAL2WFeNiCuAr->AddMaterial(Copper, fraction
228 FCAL2WFeNiCuAr->AddMaterial(LiquidArgon, fra
229
230 density = 0.002*g/cm3;
231 MWPCArCO2 = new G4Material(name="MWPCArCO2",
232 MWPCArCO2->AddMaterial(CO2, fractionmass = 0
233 MWPCArCO2->AddMaterial(ArgonGas, fractionmas
234
235
236 // must check recipe for concrete
237
238 density = 2.5*g/cm3;
239 ShieldingConcrete = new G4Material(name="Shi
240 ShieldingConcrete->AddElement(elO, fractionm
241 ShieldingConcrete->AddElement(elSi, fraction
242 ShieldingConcrete->AddElement(elCa, fraction
243 ShieldingConcrete->AddElement(elNa, fraction
244 ShieldingConcrete->AddElement(elFe, fraction
245 ShieldingConcrete->AddElement(elAl, fraction
246
247 // must have the right composition for stain
248
249 density = 8.96*g/cm3;
250 StainlessSteel = new G4Material(name="Stainl
251 StainlessSteel->AddElement(elO, fractionmass
252
253 }
254
255 FCALMaterialConsultant * FCALMaterialConsultan
256 {
257 if (theFCALMaterialConsultant == NULL) {
258 theFCALMaterialConsultant = new FCALMateri
259 }
260 return theFCALMaterialConsultant;
261 }
262
263 G4Material * FCALMaterialConsultant::Material(
264 {
265 G4Material* material = 0;
266 if(what == "Air") material = A
267 if(what == "Vacuum") material = V
268 if(what == "LiquidArgon") material = L
269 if(what == "Aluminium") material = A
270 if(what == "Iron") material = I
271 if(what == "Copper") material = C
272 if(what == "Tungsten") material = T
273 if(what == "Lead") material = L
274 if(what == "CO2") material = C
275 if(what == "ArgonGas") material = A
276 if(what == "ShieldingConcrete") material = S
277 if(what == "Polystyrene") material = P
278 if(what == "StainlessSteel") material = S
279 if(what == "Nickel") material = N
280 if(what == "FCAL1CuArKap") material = F
281 if(what == "FCAL1CuAr") material = F
282 if(what == "FCAL2CuArKap") material = F
283 if(what == "FCAL2WFeNi") material = F
284 if(what == "FCAL2WFeNiCuAr") material = F
285 if(what == "MWPCArCO2") material = M
286 if(what == "RhoaCell") material = R
287
288 return material;
289 }
290
291