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