Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
Qmaterials.cc
Go to the documentation of this file.
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 // $Id: Qmaterials.cc,v 1.4 2006-06-29 15:29:37 gunter Exp $
27 // $Name: not supported by cvs2svn $
28 // ====================================================================
29 // Qmaterials.cc
30 //
31 // 2005 Q
32 // ====================================================================
33 #include "G4Material.hh"
34 #include "G4SystemOfUnits.hh"
35 #include "G4PhysicalConstants.hh"
36 
38 void Construct()
40 {
41  G4double A, Z;
42 
43  // ------------------------------------------------------------------------
44  // Elements
45  // ------------------------------------------------------------------------
46  G4Element* elH = new G4Element("Hydrogen","H", Z=1., A=1.00794*g/mole);
47  G4Element* elC = new G4Element("Carbon", "C", Z=6., A= 12.011 *g/mole);
48  G4Element* elN = new G4Element("Nitrogen","N", Z=7., A= 14.00674*g/mole);
49  G4Element* elO = new G4Element("Oxygen", "O", Z=8., A= 15.9994*g/mole);
50  G4Element* elNa = new G4Element("Sodium", "Na", Z=11., A= 22.989768*g/mole);
51  G4Element* elSi = new G4Element("Silicon", "Si", Z=14., A= 28.0855*g/mole);
52  G4Element* elAr = new G4Element("Argon", "Ar", Z=18., A= 39.948*g/mole);
53  G4Element* elI = new G4Element("Iodine", "I", Z=53., A= 126.90447*g/mole);
54  G4Element* elCs = new G4Element("Cesium", "Cs", Z=55., A= 132.90543*g/mole);
55 
56  // ------------------------------------------------------------------------
57  // Materials
58  // ------------------------------------------------------------------------
59  G4double density, massfraction;
60  G4int natoms, nel;
61 
62  // temperature of experimental hall is controlled at 20 degree.
63  const G4double expTemp= STP_Temperature+20.*kelvin;
64 
65  // vacuum
66  density= universe_mean_density;
67  G4Material* Vacuum= new G4Material("Vacuum", density, nel=2);
68  Vacuum-> AddElement(elN, .7);
69  Vacuum-> AddElement(elO, .3);
70 
71  // air
72  density= 1.2929e-03 *g/cm3; // at 20 degree
73  G4Material* Air= new G4Material("Air", density, nel=3,
74  kStateGas, expTemp);
75  G4double ttt= 75.47+23.20+1.28;
76  Air-> AddElement(elN, massfraction= 75.47/ttt);
77  Air-> AddElement(elO, massfraction= 23.20/ttt);
78  Air-> AddElement(elAr, massfraction= 1.28/ttt);
79 
80  // Ar gas
81  A= 39.948 *g/mole;
82  const G4double denAr= 1.782e-03 *g/cm3 * STP_Temperature/expTemp;
83  G4Material* Ar= new G4Material("ArgonGas", Z=18., A, denAr,
84  kStateGas, expTemp);
85 
86  // ethane (C2H6)
87  const G4double denEthane= 1.356e-3 *g/cm3 * STP_Temperature/expTemp;
88  G4Material* Ethane= new G4Material("Ethane", denEthane, nel=2,
89  kStateGas, expTemp);
90  Ethane-> AddElement(elC, natoms=2);
91  Ethane-> AddElement(elH, natoms=6);
92 
93  // Ar(50%) + ethane(50%) mixture
94  density= (denAr+denEthane)/2.;
95  G4Material* ArEthane= new G4Material("ArEthane", density, nel=2,
96  kStateGas, expTemp);
97  ArEthane-> AddMaterial(Ar, massfraction= denAr/density/2.);
98  ArEthane-> AddMaterial(Ethane, massfraction= denEthane/density/2.);
99 
100  // silicon
101  A= 28.0855 *g/mole;
102  density= 2.33 *g/cm3;
103  G4Material* Si= new G4Material("SiliconWafer", Z=14., A, density);
104 
105  // alminium
106  A= 26.98 *g/mole;
107  density= 2.70 *g/cm3;
108  G4Material* Al= new G4Material("Al", Z=13., A, density);
109 
110  // iron
111  A= 55.847 *g/mole;
112  density= 7.87 *g/cm3;
113  G4Material* Fe= new G4Material("Iron", Z=26., A, density);
114 
115  // lead
116  A= 207.2 *g/mole;
117  density= 11.35 *g/cm3;
118  G4Material* Pb= new G4Material("Lead", Z=82., A, density);
119 
120  // scintillator (Polystyene(C6H5CH=CH2))
121  density= 1.032 *g/cm3;
122  G4Material* Scinti= new G4Material("Scinti", density, nel=2);
123  Scinti-> AddElement(elC, natoms=8);
124  Scinti-> AddElement(elH, natoms=8);
125 
126  // quartz (SiO2, crystalline)
127  density= 2.64 *g/cm3;
128  G4Material* Quartz= new G4Material("Quartz", density, nel= 2);
129  Quartz-> AddElement(elSi, natoms=1);
130  Quartz-> AddElement(elO, natoms=2);
131 
132  // NaI crystal
133  density= 3.67 *g/cm3;
134  G4Material* NaI= new G4Material("NaI", density, nel= 2);
135  NaI-> AddElement(elNa, natoms=1);
136  NaI-> AddElement(elI, natoms=1);
137 
138  // CsI crystal
139  density= 4.51 *g/cm3;
140  G4Material* CsI= new G4Material("CsI", density, nel= 2);
141  CsI-> AddElement(elCs, natoms=1);
142  CsI-> AddElement(elI, natoms=1);
143 
144 }