File indexing completed on 2025-02-23 09:20:49
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033 #include "DetectorALICE06.hh"
0034
0035 #include "Materials.hh"
0036 #include "SensitiveDetector.hh"
0037
0038 #include "G4Box.hh"
0039 #include "G4FieldManager.hh"
0040 #include "G4LogicalVolume.hh"
0041 #include "G4Material.hh"
0042 #include "G4PVPlacement.hh"
0043 #include "G4Region.hh"
0044 #include "G4SDManager.hh"
0045 #include "G4SystemOfUnits.hh"
0046 #include "G4TransportationManager.hh"
0047 #include "G4UniformMagField.hh"
0048 #include "G4UnitsTable.hh"
0049 #include "G4ios.hh"
0050
0051 #include <cmath>
0052
0053
0054
0055 DetectorALICE06::DetectorALICE06() : fRadiatorDescription(0) {}
0056
0057
0058
0059 DetectorALICE06::~DetectorALICE06()
0060 {
0061
0062
0063 }
0064
0065
0066
0067 G4VPhysicalVolume* DetectorALICE06::Construct()
0068 {
0069
0070
0071
0072 G4cout << "DetectorALICE06 setup" << G4endl;
0073
0074 G4double worldSizeZ = 600. * cm;
0075 G4double worldSizeR = 22. * cm;
0076
0077
0078
0079 G4double radThickness = 0.020 * mm;
0080 G4double gasGap = 0.500 * mm;
0081 G4double foilGasRatio = radThickness / (radThickness + gasGap);
0082 G4int foilNumber = 120;
0083
0084 G4double absorberThickness = 37 * mm;
0085 G4double absorberRadius = 100. * mm;
0086
0087 G4double electrodeThick = 100.0 * micrometer;
0088 G4double pipeLength = 160.0 * cm;
0089 G4double mylarThick = 20.0 * micrometer;
0090 G4double detGap = 0.01 * mm;
0091
0092 G4double startZ = 100.0 * mm;
0093
0094
0095
0096
0097
0098 G4Material* air = Materials::GetInstance()->GetMaterial("Air");
0099 G4Material* ch2 = Materials::GetInstance()->GetMaterial("CH2");
0100 G4Material* xe15CO2 = Materials::GetInstance()->GetMaterial("Xe15CO2");
0101
0102 G4double foilDensity = ch2->GetDensity();
0103 G4double gasDensity = air->GetDensity();
0104 G4double totDensity = foilDensity * foilGasRatio + gasDensity * (1.0 - foilGasRatio);
0105
0106 G4double fractionFoil = foilDensity * foilGasRatio / totDensity;
0107 G4double fractionGas = 1.0 - fractionFoil;
0108 G4Material* radiatorMat = new G4Material("radiatorMat", totDensity, 2);
0109 radiatorMat->AddMaterial(ch2, fractionFoil);
0110 radiatorMat->AddMaterial(air, fractionGas);
0111
0112
0113 fRadiatorDescription = new RadiatorDescription;
0114 fRadiatorDescription->fFoilMaterial = ch2;
0115 fRadiatorDescription->fGasMaterial = air;
0116 fRadiatorDescription->fFoilThickness = radThickness;
0117 fRadiatorDescription->fGasThickness = gasGap;
0118 fRadiatorDescription->fFoilNumber = foilNumber;
0119
0120 G4Material* worldMaterial = air;
0121 G4Material* absorberMaterial = xe15CO2;
0122
0123
0124
0125
0126 G4VSolid* solidWorld = new G4Box("World", worldSizeR, worldSizeR, worldSizeZ / 2.);
0127
0128 G4LogicalVolume* logicWorld = new G4LogicalVolume(solidWorld, worldMaterial, "World");
0129
0130 G4VPhysicalVolume* physicsWorld =
0131 new G4PVPlacement(0, G4ThreeVector(), "World", logicWorld, 0, false, 0);
0132
0133
0134
0135 G4double radThick = foilNumber * (radThickness + gasGap) - gasGap + detGap;
0136 G4double radZ = startZ + 0.5 * radThick;
0137
0138 G4VSolid* solidRadiator =
0139 new G4Box("Radiator", 1.1 * absorberRadius, 1.1 * absorberRadius, 0.5 * radThick);
0140
0141 G4LogicalVolume* logicRadiator = new G4LogicalVolume(solidRadiator, radiatorMat, "Radiator");
0142
0143 new G4PVPlacement(0, G4ThreeVector(0, 0, radZ), "Radiator", logicRadiator, physicsWorld, false,
0144 0);
0145
0146 fRadiatorDescription->fLogicalVolume = logicRadiator;
0147
0148
0149
0150 G4Region* radRegion = new G4Region("XTRradiator");
0151 radRegion->AddRootLogicalVolume(logicRadiator);
0152
0153
0154
0155
0156 G4double zElectrode1 = radZ - radThick / 2. - electrodeThick / 2.;
0157 G4double zElectrode2 = radZ + radThick / 2. + electrodeThick / 2.;
0158
0159 G4cout << "zElectrode1 = " << zElectrode1 / mm << " mm" << G4endl;
0160 G4cout << "zElectrode2 = " << zElectrode2 / mm << " mm" << G4endl;
0161 G4cout << "fElectrodeThick = " << electrodeThick / mm << " mm" << G4endl << G4endl;
0162
0163
0164
0165
0166
0167 G4double pipeDist = 1. * cm;
0168 G4double zPipe = zElectrode2 + electrodeThick / 2. + pipeDist / 2. + pipeLength / 2.;
0169
0170 G4cout << "zPipe = " << zPipe / mm << " mm" << G4endl;
0171 G4cout << "pipeLength = " << pipeLength / mm << " mm" << G4endl << G4endl;
0172
0173
0174
0175
0176 G4double zMylar1 = zPipe - pipeLength / 2. - mylarThick / 2. - 0.001 * mm;
0177 G4double zMylar2 = zPipe + pipeLength / 2. + mylarThick / 2. + 0.001 * mm;
0178
0179 G4cout << "zMylar1 = " << zMylar1 / mm << " mm" << G4endl;
0180 G4cout << "zMylar2 = " << zMylar2 / mm << " mm" << G4endl;
0181 G4cout << "fMylarThick = " << mylarThick / mm << " mm" << G4endl << G4endl;
0182
0183
0184
0185
0186 G4double zMylar = zElectrode2 + electrodeThick / 2. + mylarThick / 2. + 1.0 * mm;
0187 zMylar += (pipeLength + pipeDist);
0188
0189 G4cout << "zMylar = " << zMylar / mm << " mm" << G4endl;
0190 G4cout << "mylarThick = " << mylarThick / mm << " mm" << G4endl << G4endl;
0191
0192
0193
0194 G4double absorberZ = zMylar + mylarThick + absorberThickness / 2.;
0195
0196 G4VSolid* solidAbsorber = new G4Box("Absorber", absorberRadius, 10. * mm, absorberThickness / 2.);
0197
0198 G4LogicalVolume* logicAbsorber = new G4LogicalVolume(solidAbsorber, absorberMaterial, "Absorber");
0199
0200 new G4PVPlacement(0, G4ThreeVector(0., 0., absorberZ), "Absorber", logicAbsorber, physicsWorld,
0201 false, 0);
0202
0203 G4Region* regGasDet = new G4Region("XTRdEdxDetector");
0204 regGasDet->AddRootLogicalVolume(logicAbsorber);
0205
0206
0207
0208 SensitiveDetector* sd = new SensitiveDetector("AbsorberSD");
0209 G4SDManager::GetSDMpointer()->AddNewDetector(sd);
0210 logicAbsorber->SetSensitiveDetector(sd);
0211
0212
0213
0214 G4cout << "\n The WORLD is made of " << worldSizeZ / mm << "mm of "
0215 << worldMaterial->GetName();
0216 G4cout << ", the transverse size (R) of the world is " << worldSizeR / mm << " mm. " << G4endl;
0217 G4cout << " The ABSORBER is made of " << absorberThickness / mm << "mm of "
0218 << absorberMaterial->GetName();
0219 G4cout << ", the transverse size (R) is " << absorberRadius / mm << " mm. " << G4endl;
0220 G4cout << " Z position of the (middle of the) absorber " << absorberZ / mm << " mm." << G4endl;
0221
0222 G4cout << "radZ = " << radZ / mm << " mm" << G4endl;
0223 G4cout << "startZ = " << startZ / mm << " mm" << G4endl;
0224
0225 G4cout << "fRadThick = " << radThick / mm << " mm" << G4endl;
0226 G4cout << "fFoilNumber = " << foilNumber << G4endl;
0227 G4cout << "fRadiatorMat = " << radiatorMat->GetName() << G4endl;
0228 G4cout << "WorldMaterial = " << worldMaterial->GetName() << G4endl;
0229 G4cout << G4endl;
0230
0231 return physicsWorld;
0232 }
0233
0234