| 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 /// \file DetectorConstruction.cc
27 /// \brief Implementation of the DetectorConst
28 //
29 //
30 //....oooOO0OOooo........oooOO0OOooo........oo
31 //....oooOO0OOooo........oooOO0OOooo........oo
32
33 #include "DetectorConstruction.hh"
34
35 #include "DetectorMessenger.hh"
36
37 #include "G4Box.hh"
38 #include "G4GeometryManager.hh"
39 #include "G4LogicalVolume.hh"
40 #include "G4LogicalVolumeStore.hh"
41 #include "G4Material.hh"
42 #include "G4NistManager.hh"
43 #include "G4PVPlacement.hh"
44 #include "G4PhysicalConstants.hh"
45 #include "G4PhysicalVolumeStore.hh"
46 #include "G4RunManager.hh"
47 #include "G4SolidStore.hh"
48 #include "G4Sphere.hh"
49 #include "G4SystemOfUnits.hh"
50 #include "G4UnitsTable.hh"
51
52 //....oooOO0OOooo........oooOO0OOooo........oo
53
54 DetectorConstruction::DetectorConstruction()
55 {
56 fRadius = 30 * cm;
57 fWorldSize = 1.1 * fRadius;
58 DefineMaterials();
59 SetMaterial("Water_ts");
60 fDetectorMessenger = new DetectorMessenger(t
61 }
62
63 //....oooOO0OOooo........oooOO0OOooo........oo
64
65 DetectorConstruction::~DetectorConstruction()
66 {
67 delete fDetectorMessenger;
68 }
69
70 //....oooOO0OOooo........oooOO0OOooo........oo
71
72 G4VPhysicalVolume* DetectorConstruction::Const
73 {
74 return ConstructVolumes();
75 }
76
77 //....oooOO0OOooo........oooOO0OOooo........oo
78
79 void DetectorConstruction::DefineMaterials()
80 {
81 // specific element name for thermal neutron
82 // (see G4ParticleHPThermalScatteringNames.c
83
84 G4int ncomponents, natoms;
85
86 // pressurized water
87 G4Element* H = new G4Element("TS_H_of_Water"
88 G4Element* O = new G4Element("Oxygen", "O",
89 G4Material* H2O = new G4Material("Water_ts",
90 593 * kelvi
91 H2O->AddElement(H, natoms = 2);
92 H2O->AddElement(O, natoms = 1);
93 H2O->GetIonisation()->SetMeanExcitationEnerg
94
95 // heavy water
96 G4Isotope* H2 = new G4Isotope("H2", 1, 2);
97 G4Element* D = new G4Element("TS_D_of_Heavy_
98 D->AddIsotope(H2, 100 * perCent);
99 G4Material* D2O = new G4Material("HeavyWater
100 293.15 * ke
101 D2O->AddElement(D, natoms = 2);
102 D2O->AddElement(O, natoms = 1);
103
104 // graphite
105 G4Isotope* C12 = new G4Isotope("C12", 6, 12)
106 G4Element* C = new G4Element("TS_C_of_Graphi
107 C->AddIsotope(C12, 100. * perCent);
108 G4Material* graphite = new G4Material("graph
109 293 *
110 graphite->AddElement(C, natoms = 1);
111
112 // NE213
113 G4Material* ne213 = new G4Material("NE213",
114 ne213->AddElement(H, 9.2 * perCent);
115 ne213->AddElement(C, 90.8 * perCent);
116
117 // example of vacuum
118 fWorldMat = new G4Material("Galactic", 1, 1.
119 2.73 * kelvin, 3.
120
121 /// G4cout << *(G4Material::GetMaterialTable
122 }
123
124 //....oooOO0OOooo........oooOO0OOooo........oo
125
126 G4Material* DetectorConstruction::MaterialWith
127
128 {
129 // define a material from an isotope
130 //
131 G4int ncomponents;
132 G4double abundance, massfraction;
133
134 G4Isotope* isotope = new G4Isotope(symbol, Z
135
136 G4Element* element = new G4Element(name, sym
137 element->AddIsotope(isotope, abundance = 100
138
139 G4Material* material = new G4Material(name,
140 material->AddElement(element, massfraction =
141
142 return material;
143 }
144
145 //....oooOO0OOooo........oooOO0OOooo........oo
146
147 G4VPhysicalVolume* DetectorConstruction::Const
148 {
149 // Cleanup old geometry
150 G4GeometryManager::GetInstance()->OpenGeomet
151 G4PhysicalVolumeStore::GetInstance()->Clean(
152 G4LogicalVolumeStore::GetInstance()->Clean()
153 G4SolidStore::GetInstance()->Clean();
154
155 // World
156 //
157 G4Box* sWorld = new G4Box("World", // name
158 fWorldSize, fWorld
159
160 G4LogicalVolume* lWorld = new G4LogicalVolum
161
162
163
164 fPWorld = new G4PVPlacement(0, // no rotati
165 G4ThreeVector(),
166 lWorld, // logi
167 "World", // nam
168 0, // mother vo
169 false, // no bo
170 0); // copy num
171
172 // Absorber
173 //
174 G4Sphere* sAbsor = new G4Sphere("Absorber",
175 0., fRadius,
176
177 fLAbsor = new G4LogicalVolume(sAbsor, // sh
178 fMaterial, //
179 fMaterial->Get
180
181 new G4PVPlacement(0, // no rotation
182 G4ThreeVector(), // at (0
183 fLAbsor, // logical volum
184 fMaterial->GetName(), //
185 lWorld, // mother volume
186 false, // no boolean oper
187 0); // copy number
188 PrintParameters();
189
190 // always return the root volume
191 //
192 return fPWorld;
193 }
194
195 //....oooOO0OOooo........oooOO0OOooo........oo
196
197 void DetectorConstruction::PrintParameters()
198 {
199 G4cout << "\n The Absorber is " << G4BestUni
200 << "\n \n"
201 << fMaterial << G4endl;
202 }
203
204 //....oooOO0OOooo........oooOO0OOooo........oo
205
206 void DetectorConstruction::SetMaterial(G4Strin
207 {
208 // search the material by its name
209 G4Material* pttoMaterial = G4NistManager::In
210
211 if (pttoMaterial) {
212 fMaterial = pttoMaterial;
213 if (fLAbsor) {
214 fLAbsor->SetMaterial(fMaterial);
215 }
216 G4RunManager::GetRunManager()->PhysicsHasB
217 }
218 else {
219 G4cout << "\n--> warning from DetectorCons
220 << " not found" << G4endl;
221 }
222 }
223
224 //....oooOO0OOooo........oooOO0OOooo........oo
225
226 void DetectorConstruction::SetRadius(G4double
227 {
228 fRadius = value;
229 fWorldSize = 1.1 * fRadius;
230 G4RunManager::GetRunManager()->ReinitializeG
231 }
232
233 //....oooOO0OOooo........oooOO0OOooo........oo
234