TestEm10/src/DetectorBarr90.cc

0001 //
0002 // ********************************************************************
0003 // * License and Disclaimer                                           *
0004 // *                                                                  *
0005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
0006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
0007 // * conditions of the Geant4 Software License,  included in the file *
0008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
0009 // * include a list of copyright holders.                             *
0010 // *                                                                  *
0011 // * Neither the authors of this software system, nor their employing *
0012 // * institutes,nor the agencies providing financial support for this *
0013 // * work  make  any representation or  warranty, express or implied, *
0014 // * regarding  this  software system or assume any liability for its *
0015 // * use.  Please see the license in the file  LICENSE  and URL above *
0016 // * for the full disclaimer and the limitation of liability.         *
0017 // *                                                                  *
0018 // * This  code  implementation is the result of  the  scientific and *
0019 // * technical work of the GEANT4 collaboration.                      *
0020 // * By using,  copying,  modifying or  distributing the software (or *
0021 // * any work based  on the software)  you  agree  to acknowledge its *
0022 // * use  in  resulting  scientific  publications,  and indicate your *
0023 // * acceptance of all terms of the Geant4 Software license.          *
0024 // ********************************************************************
0025 //
0026 /// \file electromagnetic/TestEm10/src/DetectorBarr90.cc
0027 /// \brief Implementation of the DetectorBarr90 class
0028 //
0029 //
0030 //
0031 //
0032
0033 #include "DetectorBarr90.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 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
0052
0053 DetectorBarr90::DetectorBarr90() : fRadiatorDescription(0) {}
0054
0055 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
0056
0057 DetectorBarr90::~DetectorBarr90()
0058 {
0059   // delete fRadiatorDescription;
0060   // the description is deleted in detector construction
0061 }
0062
0063 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
0064
0065 G4VPhysicalVolume* DetectorBarr90::Construct()
0066 {
0067   // Geometry parameters
0068   //
0069
0070   G4cout << "DetectorBarr90 setup" << G4endl;
0071
0072   G4double worldSizeZ = 400. * cm;
0073   G4double worldSizeR = 20. * cm;
0074
0075   // Radiator and detector parameters
0076
0077   G4double radThickness = 0.019 * mm;
0078   G4double gasGap = 0.6 * mm;
0079   G4double foilGasRatio = radThickness / (radThickness + gasGap);
0080   G4double foilNumber = 350;
0081
0082   G4double absorberThickness = 50.0 * mm;
0083   G4double absorberRadius = 100. * mm;
0084
0085   G4double electrodeThick = 10.0 * micrometer;
0086   G4double windowThick = 51.0 * micrometer;
0087   G4double gapThick = 10.0 * cm;
0088   G4double detGap = 0.01 * mm;
0089
0090   G4double startZ = 100.0 * mm;
0091
0092   // Materials
0093   //
0094
0095   // Change to create materials using NIST
0096   G4Material* air = Materials::GetInstance()->GetMaterial("Air");
0097   G4Material* ch2 = Materials::GetInstance()->GetMaterial("CH2");
0098   G4Material* co2 = Materials::GetInstance()->GetMaterial("CO2");
0099   G4Material* xe55he15ch4 = Materials::GetInstance()->GetMaterial("Xe55He15CH4");
0100
0101   G4double foilDensity = ch2->GetDensity();
0102   G4double gasDensity = co2->GetDensity();
0103   G4double totDensity = foilDensity * foilGasRatio + gasDensity * (1.0 - foilGasRatio);
0104
0105   G4double fractionFoil = foilDensity * foilGasRatio / totDensity;
0106   G4double fractionGas = gasDensity * (1.0 - foilGasRatio) / totDensity;
0107   G4Material* radiatorMat = new G4Material("radiatorMat", totDensity, 2);
0108   radiatorMat->AddMaterial(ch2, fractionFoil);
0109   radiatorMat->AddMaterial(co2, fractionGas);
0110
0111   // Radiator description
0112   fRadiatorDescription = new RadiatorDescription;
0113   fRadiatorDescription->fFoilMaterial = ch2;  // CH2; // Kapton; // Mylar ; // Li ; // CH2 ;
0114   fRadiatorDescription->fGasMaterial = co2;  // CO2; // He; //
0115   fRadiatorDescription->fFoilThickness = radThickness;
0116   fRadiatorDescription->fGasThickness = gasGap;
0117   fRadiatorDescription->fFoilNumber = foilNumber;
0118
0119   G4Material* worldMaterial = air;  // CO2;
0120   G4Material* absorberMaterial = xe55he15ch4;
0121
0122   // Volumes
0123   //
0124
0125   G4VSolid* solidWorld = new G4Box("World", worldSizeR, worldSizeR, worldSizeZ / 2.);
0126
0127   G4LogicalVolume* logicWorld = new G4LogicalVolume(solidWorld, worldMaterial, "World");
0128
0129   G4VPhysicalVolume* physicsWorld =
0130     new G4PVPlacement(0, G4ThreeVector(), "World", logicWorld, 0, false, 0);
0131
0132   // TR radiator envelope
0133
0134   G4double radThick = foilNumber * (radThickness + gasGap) - gasGap + detGap;
0135   G4double radZ = startZ + 0.5 * radThick;
0136
0137   G4VSolid* solidRadiator =
0138     new G4Box("Radiator", 1.1 * absorberRadius, 1.1 * absorberRadius, 0.5 * radThick);
0139
0140   G4LogicalVolume* logicRadiator = new G4LogicalVolume(solidRadiator, radiatorMat, "Radiator");
0141
0142   new G4PVPlacement(0, G4ThreeVector(0, 0, radZ), "Radiator", logicRadiator, physicsWorld, false,
0143                     0);
0144
0145   fRadiatorDescription->fLogicalVolume = logicRadiator;
0146
0147   // create region for radiator
0148
0149   G4Region* radRegion = new G4Region("XTRradiator");
0150   radRegion->AddRootLogicalVolume(logicRadiator);
0151
0152   G4double windowZ = startZ + radThick + windowThick / 2. + 15.0 * mm;
0153
0154   G4double gapZ = windowZ + windowThick / 2. + gapThick / 2. + 0.01 * mm;
0155
0156   G4double electrodeZ = gapZ + gapThick / 2. + electrodeThick / 2. + 0.01 * mm;
0157
0158   // Absorber
0159
0160   G4double absorberZ = electrodeZ + electrodeThick / 2. + +absorberThickness / 2. + 0.01 * mm;
0161
0162   G4VSolid* solidAbsorber =
0163     new G4Box("Absorber", absorberRadius, absorberRadius, absorberThickness / 2.);
0164
0165   G4LogicalVolume* logicAbsorber = new G4LogicalVolume(solidAbsorber, absorberMaterial, "Absorber");
0166
0167   new G4PVPlacement(0, G4ThreeVector(0., 0., absorberZ), "Absorber", logicAbsorber, physicsWorld,
0168                     false, 0);
0169
0170   G4Region* regGasDet = new G4Region("XTRdEdxDetector");
0171   regGasDet->AddRootLogicalVolume(logicAbsorber);
0172
0173   // Sensitive Detectors: Absorber
0174
0175   SensitiveDetector* sd = new SensitiveDetector("AbsorberSD");
0176   G4SDManager::GetSDMpointer()->AddNewDetector(sd);
0177   logicAbsorber->SetSensitiveDetector(sd);
0178
0179   // Print geometry parameters
0180
0181   G4cout << "\n The  WORLD   is made of " << worldSizeZ / mm << "mm of "
0182          << worldMaterial->GetName();
0183   G4cout << ", the transverse size (R) of the world is " << worldSizeR / mm << " mm. " << G4endl;
0184   G4cout << " The ABSORBER is made of " << absorberThickness / mm << "mm of "
0185          << absorberMaterial->GetName();
0186   G4cout << ", the transverse size (R) is " << absorberRadius / mm << " mm. " << G4endl;
0187   G4cout << " Z position of the (middle of the) absorber " << absorberZ / mm << "  mm." << G4endl;
0188
0189   G4cout << "radZ = " << radZ / mm << " mm" << G4endl;
0190   G4cout << "startZ = " << startZ / mm << " mm" << G4endl;
0191
0192   G4cout << "fRadThick = " << radThick / mm << " mm" << G4endl;
0193   G4cout << "fFoilNumber = " << foilNumber << G4endl;
0194   G4cout << "fRadiatorMat = " << radiatorMat->GetName() << G4endl;
0195   G4cout << "WorldMaterial = " << worldMaterial->GetName() << G4endl;
0196   G4cout << G4endl;
0197
0198   return physicsWorld;
0199 }
0200
0201 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......