X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=EMCAL%2FAliEMCALGeometry.cxx;h=0c466a555cfd86a6e64f675739688b86a64eeb54;hb=89557f6dd490ae3be0e3f017b2516d25a16a0099;hp=cb30701e0ed17dbf8b610f995f93798094702b25;hpb=f590bb152855d6d7e493f584ce9dd7c8aaed3f4f;p=u%2Fmrichter%2FAliRoot.git diff --git a/EMCAL/AliEMCALGeometry.cxx b/EMCAL/AliEMCALGeometry.cxx index cb30701e0ed..0c466a555cf 100644 --- a/EMCAL/AliEMCALGeometry.cxx +++ b/EMCAL/AliEMCALGeometry.cxx @@ -19,34 +19,170 @@ // Geometry class for EMCAL : singleton // EMCAL consists of layers of scintillator and lead // Places the the Barrel Geometry of The EMCAL at Midrapidity -// between 0 and 120 degrees of Phi and +// between 80 and 180(or 190) degrees of Phi and // -0.7 to 0.7 in eta // Number of Modules and Layers may be controlled by // the name of the instance defined -// EMCALArch2x has more modules along both phi and eta -// EMCALArchxa has less Layers in the Radial Direction +// EMCAL geometry tree: +// EMCAL -> superModule -> module -> tower(cell) +// Indexes +// absId -> nSupMod -> nModule -> (nIphi,nIeta) +// //*-- Author: Sahal Yacoob (LBL / UCT) // and : Yves Schutz (SUBATECH) // and : Jennifer Klay (LBL) +// SHASHLYK : Aleksei Pavlinov (WSU) +// -// --- ROOT system --- - -// --- Standard library --- -#include +#include // --- AliRoot header files --- -#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include // -- ALICE Headers. -#include "AliConst.h" +#include "AliLog.h" // --- EMCAL headers #include "AliEMCALGeometry.h" +#include "AliEMCALShishKebabTrd1Module.h" +#include "AliEMCALRecPoint.h" +#include "AliEMCALDigit.h" +#include "AliEMCALHistoUtilities.h" + +ClassImp(AliEMCALGeometry) + +// these initialisations are needed for a singleton +AliEMCALGeometry *AliEMCALGeometry::fgGeom = 0; +Bool_t AliEMCALGeometry::fgInit = kFALSE; +Char_t* AliEMCALGeometry::fgDefaultGeometryName = "SHISH_77_TRD1_2X2_FINAL_110DEG"; +// +// Usage: +// You can create the AliEMCALGeometry object independently from anything. +// You have to use just the correct name of geometry. If name is empty string the +// default name of geometry will be used. +// +// AliEMCALGeometry* g = AliEMCALGeometry::GetInstance(name,title); // first time +// .. +// g = AliEMCALGeometry::GetInstance(); // after first time +// + +AliEMCALGeometry::AliEMCALGeometry() + : AliGeometry(), + fGeoName(0),fArrayOpts(0),fAlFrontThick(0.),fECPbRadThickness(0.),fECScintThick(0.), + fNECLayers(0),fArm1PhiMin(0.),fArm1PhiMax(0.),fArm1EtaMin(0.),fArm1EtaMax(0.),fIPDistance(0.), + fShellThickness(0.),fZLength(0.),fGap2Active(0.),fNZ(0),fNPhi(0),fSampling(0.),fNumberOfSuperModules(0), + fSteelFrontThick(0.),fFrontSteelStrip(0.),fLateralSteelStrip(0.),fPassiveScintThick(0.),fPhiModuleSize(0.), + fEtaModuleSize(0.),fPhiTileSize(0.),fEtaTileSize(0.),fLongModuleSize(0.),fNPhiSuperModule(0),fNPHIdiv(0),fNETAdiv(0), + fNCells(0),fNCellsInSupMod(0),fNCellsInModule(0),fNTRU(0),fNTRUEta(0),fNTRUPhi(0),fTrd1Angle(0.),f2Trd1Dx2(0.), + fPhiGapForSM(0.),fKey110DEG(0),fPhiBoundariesOfSM(0), fPhiCentersOfSM(0),fEtaMaxOfTRD1(0), + fTrd2AngleY(0.),f2Trd2Dy2(0.),fEmptySpace(0.),fTubsR(0.),fTubsTurnAngle(0.),fCentersOfCellsEtaDir(0), + fCentersOfCellsXDir(0),fCentersOfCellsPhiDir(0),fEtaCentersOfCells(0),fPhiCentersOfCells(0), + fShishKebabTrd1Modules(0), fNAdditionalOpts(0), + fILOSS(-1), fIHADR(-1) +{ + // default ctor only for internal usage (singleton) + // must be kept public for root persistency purposes, but should never be called by the outside world + // CreateListOfTrd1Modules(); + AliDebug(2, "AliEMCALGeometry : default ctor "); +} +//______________________________________________________________________ +AliEMCALGeometry::AliEMCALGeometry(const Text_t* name, const Text_t* title) + : AliGeometry(name, title), + fGeoName(0),fArrayOpts(0),fAlFrontThick(0.),fECPbRadThickness(0.),fECScintThick(0.), + fNECLayers(0),fArm1PhiMin(0.),fArm1PhiMax(0.),fArm1EtaMin(0.),fArm1EtaMax(0.),fIPDistance(0.), + fShellThickness(0.),fZLength(0.),fGap2Active(0.),fNZ(0),fNPhi(0),fSampling(0.),fNumberOfSuperModules(0), + fSteelFrontThick(0.),fFrontSteelStrip(0.),fLateralSteelStrip(0.),fPassiveScintThick(0.),fPhiModuleSize(0.), + fEtaModuleSize(0.),fPhiTileSize(0.),fEtaTileSize(0.),fLongModuleSize(0.),fNPhiSuperModule(0),fNPHIdiv(0),fNETAdiv(0), + fNCells(0),fNCellsInSupMod(0),fNCellsInModule(0),fNTRU(0),fNTRUEta(0),fNTRUPhi(0),fTrd1Angle(0.),f2Trd1Dx2(0.), + fPhiGapForSM(0.),fKey110DEG(0),fPhiBoundariesOfSM(0), fPhiCentersOfSM(0), fEtaMaxOfTRD1(0), + fTrd2AngleY(0.),f2Trd2Dy2(0.),fEmptySpace(0.),fTubsR(0.),fTubsTurnAngle(0.),fCentersOfCellsEtaDir(0), + fCentersOfCellsXDir(0),fCentersOfCellsPhiDir(0),fEtaCentersOfCells(0),fPhiCentersOfCells(0), + fShishKebabTrd1Modules(0),fNAdditionalOpts(0), + fILOSS(-1), fIHADR(-1) +{ + // ctor only for internal usage (singleton) + AliDebug(2, Form("AliEMCALGeometry(%s,%s) ", name,title)); -ClassImp(AliEMCALGeometry); + Init(); -AliEMCALGeometry *AliEMCALGeometry::fgGeom = 0; -Bool_t AliEMCALGeometry::fgInit = kFALSE; + CreateListOfTrd1Modules(); + + if (AliDebugLevel()>=2) { + PrintGeometry(); + } + +} +//______________________________________________________________________ +AliEMCALGeometry::AliEMCALGeometry(const AliEMCALGeometry& geom) + : AliGeometry(geom), + fGeoName(geom.fGeoName), + fArrayOpts(geom.fArrayOpts), + fAlFrontThick(geom.fAlFrontThick), + fECPbRadThickness(geom.fECPbRadThickness), + fECScintThick(geom.fECScintThick), + fNECLayers(geom.fNECLayers), + fArm1PhiMin(geom.fArm1PhiMin), + fArm1PhiMax(geom.fArm1PhiMax), + fArm1EtaMin(geom.fArm1EtaMin), + fArm1EtaMax(geom.fArm1EtaMax), + fIPDistance(geom.fIPDistance), + fShellThickness(geom.fShellThickness), + fZLength(geom.fZLength), + fGap2Active(geom.fGap2Active), + fNZ(geom.fNZ), + fNPhi(geom.fNPhi), + fSampling(geom.fSampling), + fNumberOfSuperModules(geom.fNumberOfSuperModules), + fSteelFrontThick(geom.fSteelFrontThick), + fFrontSteelStrip(geom.fFrontSteelStrip), + fLateralSteelStrip(geom.fLateralSteelStrip), + fPassiveScintThick(geom.fPassiveScintThick), + fPhiModuleSize(geom.fPhiModuleSize), + fEtaModuleSize(geom.fEtaModuleSize), + fPhiTileSize(geom.fPhiTileSize), + fEtaTileSize(geom.fEtaTileSize), + fLongModuleSize(geom.fLongModuleSize), + fNPhiSuperModule(geom.fNPhiSuperModule), + fNPHIdiv(geom.fNPHIdiv), + fNETAdiv(geom.fNETAdiv), + fNCells(geom.fNCells), + fNCellsInSupMod(geom.fNCellsInSupMod), + fNCellsInModule(geom.fNCellsInModule), + fNTRU(geom.fNTRU), + fNTRUEta(geom.fNTRUEta), + fNTRUPhi(geom.fNTRUPhi), + fTrd1Angle(geom.fTrd1Angle), + f2Trd1Dx2(geom.f2Trd1Dx2), + fPhiGapForSM(geom.fPhiGapForSM), + fKey110DEG(geom.fKey110DEG), + fPhiBoundariesOfSM(geom.fPhiBoundariesOfSM), + fPhiCentersOfSM(geom.fPhiCentersOfSM), + fEtaMaxOfTRD1(geom.fEtaMaxOfTRD1), + fTrd2AngleY(geom.fTrd2AngleY), + f2Trd2Dy2(geom.f2Trd2Dy2), + fEmptySpace(geom.fEmptySpace), + fTubsR(geom.fTubsR), + fTubsTurnAngle(geom.fTubsTurnAngle), + fCentersOfCellsEtaDir(geom.fCentersOfCellsEtaDir), + fCentersOfCellsXDir(geom.fCentersOfCellsXDir), + fCentersOfCellsPhiDir(geom.fCentersOfCellsPhiDir), + fEtaCentersOfCells(geom.fEtaCentersOfCells), + fPhiCentersOfCells(geom.fPhiCentersOfCells), + fShishKebabTrd1Modules(geom.fShishKebabTrd1Modules), + fNAdditionalOpts(geom.fNAdditionalOpts), + fILOSS(geom.fILOSS), fIHADR(geom.fIHADR) +{ + //copy ctor +} //______________________________________________________________________ AliEMCALGeometry::~AliEMCALGeometry(void){ @@ -54,68 +190,560 @@ AliEMCALGeometry::~AliEMCALGeometry(void){ } //______________________________________________________________________ void AliEMCALGeometry::Init(void){ - // Initializes the EMCAL parameters - - fgInit = kFALSE; // Assume failer untill proven otherwise. - - TString name(GetName()) ; - - if( name != "EMCALArch1a" && - name != "EMCALArch1b" && - name != "EMCALArch2a" && - name != "EMCALArch2b" ){ - Fatal("Init", "%s is not a known geometry (choose among EMCALArch1a, EMCALArch1b, EMCALArch2a and EMCALArch2b)", name.Data()) ; - } // end if - // - if ( name == "EMCALArch1a" || - name == "EMCALArch1b" ) { - fNZ = 96; - fNPhi = 144; - } // end if - if ( name == "EMCALArch2a" || - name, "EMCALArch2b" ) { - fNZ = 112; - fNPhi = 168; - } // end if - if ( name == "EMCALArch1a" || - name == "EMCALArch2a" ) { - fNLayers = 21; - } // end if - if ( name == "EMCALArch1b" || - name == "EMCALArch2b" ) { - fNLayers = 25; - } // end if - - // geometry - //fAirGap = 5.0; // cm, air gap between EMCAL mother volume and - // active material. - fAlFrontThick = 3.18; // cm, Thickness of front Al layer - fGap2Active = 1.0; // cm, Gap between Al and 1st Scintillator - fPbRadThickness = 0.5; // cm, Thickness of the Pb radiators. - fPreShowerSintThick = 0.6; // cm, Thickness of the sintilator for the - // preshower part of the calorimeter - fFullShowerSintThick = 0.5; // cm, Thickness of the sintilator for the - // full shower part of the calorimeter - fArm1PhiMin = 60.0; // degrees, Starting EMCAL Phi position - fArm1PhiMax = 180.0; // degrees, Ending EMCAL Phi position - fArm1EtaMin = -0.7; // pseudorapidity, Starting EMCAL Eta position - fArm1EtaMax = +0.7; // pseudorapidity, Ending EMCAL Eta position - fIPDistance = 454.0; // cm, Radial distance to inner surface of EMCAL - fShellThickness = fAlFrontThick + fGap2Active + 2.*(GetPreSintThick() + GetPbRadThick()) + - (fNLayers-3)*(GetFullSintThick()+ GetPbRadThick()) + GetFullSintThick() ; - //below; cm, Z length of the EMCAL. - fZLength = 2.*ZFromEtaR(fIPDistance+fShellThickness,fArm1EtaMax); - fEnvelop[0] = fIPDistance; // mother volume inner radius - fEnvelop[1] = fIPDistance + fShellThickness; // mother volume outer r. - fEnvelop[2] = 1.00001*fZLength; // add some padding for mother volume. - fgInit = kTRUE; + // Initializes the EMCAL parameters + // naming convention : GUV_WX_N_ gives the composition of a tower + // WX inform about the composition of the EM calorimeter section: + // thickness in mm of Pb radiator (W) and of scintillator (X), and number of scintillator layers (N) + // New geometry: EMCAL_55_25 + // 24-aug-04 for shish-kebab + // SHISH_25 or SHISH_62 + // 11-oct-05 - correction for pre final design + // Feb 06,2006 - decrease the weight of EMCAL + // + // Oct 30,2006 - SHISH_TRD1_CURRENT_1X1, SHISH_TRD1_CURRENT_2X2 or SHISH_TRD1_CURRENT_3X3; + // + + fAdditionalOpts[0] = "nl="; // number of sampling layers (fNECLayers) + fAdditionalOpts[1] = "pbTh="; // cm, Thickness of the Pb (fECPbRadThick) + fAdditionalOpts[2] = "scTh="; // cm, Thickness of the Sc (fECScintThick) + fAdditionalOpts[3] = "latSS="; // cm, Thickness of lateral steel strip (fLateralSteelStrip) + fAdditionalOpts[4] = "allILOSS="; // = 0,1,2,3,4 (4 - energy loss without fluctuation) + fAdditionalOpts[5] = "allIHADR="; // = 0,1,2 (0 - no hadronic interaction) + + fNAdditionalOpts = sizeof(fAdditionalOpts) / sizeof(char*); + + fgInit = kFALSE; // Assume failed until proven otherwise. + fGeoName = GetName(); + fGeoName.ToUpper(); + fKey110DEG = 0; + if(fGeoName.Contains("110DEG") || fGeoName.Contains("CURRENT")) fKey110DEG = 1; // for GetAbsCellId + fShishKebabTrd1Modules = 0; + fTrd2AngleY = f2Trd2Dy2 = fEmptySpace = fTubsR = fTubsTurnAngle = 0; + + fNZ = 114; // granularity along Z (eta) + fNPhi = 168; // granularity in phi (azimuth) + fArm1PhiMin = 80.0; // degrees, Starting EMCAL Phi position + fArm1PhiMax = 190.0; // degrees, Ending EMCAL Phi position + fArm1EtaMin = -0.7; // pseudorapidity, Starting EMCAL Eta position + fArm1EtaMax = +0.7; // pseudorapidity, Ending EMCAL Eta position + fIPDistance = 454.0; // cm, Radial distance to inner surface of EMCAL + fPhiGapForSM = 0.; // cm, only for final TRD1 geometry + for(int i=0; i<12; i++) fMatrixOfSM[i] = 0; + + // geometry + if(fGeoName.Contains("SHISH")){ // Only shahslyk now + // 7-sep-05; integration issue + fArm1PhiMin = 80.0; // 60 -> 80 + fArm1PhiMax = 180.0; // 180 -> 190 + + fNumberOfSuperModules = 10; // 12 = 6 * 2 (6 in phi, 2 in Z); + fSteelFrontThick = 2.54; // 9-sep-04 + fIPDistance = 460.0; + fFrontSteelStrip = fPassiveScintThick = 0.0; // 13-may-05 + fLateralSteelStrip = 0.025; // before MAY 2005 + fPhiModuleSize = fEtaModuleSize = 11.4; + fPhiTileSize = fEtaTileSize = 5.52; // (11.4-5.52*2)/2. = 0.18 cm (wall thickness) + fNPhi = 14; + fNZ = 30; + fAlFrontThick = fGap2Active = 0; + fNPHIdiv = fNETAdiv = 2; + + fNECLayers = 62; + fECScintThick = fECPbRadThickness = 0.2; + fSampling = 1.; // 30-aug-04 - should be calculated + if(fGeoName.Contains("TWIST")) { // all about EMCAL module + fNZ = 27; // 16-sep-04 + } else if(fGeoName.Contains("TRD")) { + fIPDistance = 428.0; // 11-may-05 + fSteelFrontThick = 0.0; // 3.17 -> 0.0; 28-mar-05 : no stell plate + fNPhi = 12; + fSampling = 12.327; + fPhiModuleSize = fEtaModuleSize = 12.26; + fNZ = 26; // 11-oct-04 + fTrd1Angle = 1.3; // in degree +// 18-nov-04; 1./0.08112=12.327 +// http://pdsfweb01.nersc.gov/~pavlinov/ALICE/SHISHKEBAB/RES/linearityAndResolutionForTRD1.html + if(fGeoName.Contains("TRD1")) { // 30-jan-05 + // for final design + fPhiGapForSM = 2.; // cm, only for final TRD1 geometry + if(fGeoName.Contains("MAY05") || fGeoName.Contains("WSUC") || fGeoName.Contains("FINAL") || fGeoName.Contains("CURRENT")){ + fNumberOfSuperModules = 12; // 20-may-05 + if(fGeoName.Contains("WSUC")) fNumberOfSuperModules = 1; // 27-may-05 + fNECLayers = 77; // (13-may-05 from V.Petrov) + fPhiModuleSize = 12.5; // 20-may-05 - rectangular shape + fEtaModuleSize = 11.9; + fECScintThick = fECPbRadThickness = 0.16;// (13-may-05 from V.Petrov) + fFrontSteelStrip = 0.025;// 0.025cm = 0.25mm (13-may-05 from V.Petrov) + fLateralSteelStrip = 0.01; // 0.01cm = 0.1mm (13-may-05 from V.Petrov) - was 0.025 + fPassiveScintThick = 0.8; // 0.8cm = 8mm (13-may-05 from V.Petrov) + fNZ = 24; + fTrd1Angle = 1.5; // 1.3 or 1.5 + + if(fGeoName.Contains("FINAL") || fGeoName.Contains("CURRENT")) { // 9-sep-05 + fNumberOfSuperModules = 10; + if(GetKey110DEG()) { + fNumberOfSuperModules = 12;// last two modules have size 10 degree in phi (1801.64 + fTrd2AngleY = fTrd1Angle; // symmetric case now + fEmptySpace = 0.2; // 2 mm + fTubsR = fIPDistance; // 31-jan-05 - as for Fred case + + fPhiModuleSize = fTubsR*2.*TMath::Tan(fTrd2AngleY*TMath::DegToRad()/2.); + fPhiModuleSize -= fEmptySpace/2.; // 11-mar-05 + fEtaModuleSize = fPhiModuleSize; // 20-may-05 + fTubsTurnAngle = 3.; + } + fNPHIdiv = fNETAdiv = 2; // 13-oct-04 - division again + if(fGeoName.Contains("3X3")) { // 23-nov-04 + fNPHIdiv = fNETAdiv = 3; + } else if(fGeoName.Contains("4X4")) { + fNPHIdiv = fNETAdiv = 4; + } else if(fGeoName.Contains("1X1")) { + fNPHIdiv = fNETAdiv = 1; + } + } + if(fGeoName.Contains("25")){ + fNECLayers = 25; + fECScintThick = fECPbRadThickness = 0.5; + } + if(fGeoName.Contains("WSUC")){ // 18-may-05 - about common structure + fShellThickness = 30.; // should be change + fNPhi = fNZ = 4; + } + + CheckAdditionalOptions(); + DefineSamplingFraction(); + + fPhiTileSize = fPhiModuleSize/double(fNPHIdiv) - fLateralSteelStrip; // 13-may-05 + fEtaTileSize = fEtaModuleSize/double(fNETAdiv) - fLateralSteelStrip; // 13-may-05 + + // constant for transition absid <--> indexes + fNCellsInModule = fNPHIdiv*fNETAdiv; + fNCellsInSupMod = fNCellsInModule*fNPhi*fNZ; + fNCells = fNCellsInSupMod*fNumberOfSuperModules; + if(GetKey110DEG()) fNCells -= fNCellsInSupMod; + + fLongModuleSize = fNECLayers*(fECScintThick + fECPbRadThickness); + if(fGeoName.Contains("MAY05")) fLongModuleSize += (fFrontSteelStrip + fPassiveScintThick); + + // 30-sep-04 + if(fGeoName.Contains("TRD")) { + f2Trd1Dx2 = fEtaModuleSize + 2.*fLongModuleSize*TMath::Tan(fTrd1Angle*TMath::DegToRad()/2.); + if(fGeoName.Contains("TRD2")) { // 27-jan-05 + f2Trd2Dy2 = fPhiModuleSize + 2.*fLongModuleSize*TMath::Tan(fTrd2AngleY*TMath::DegToRad()/2.); + } + } + } else Fatal("Init", "%s is an undefined geometry!", fGeoName.Data()) ; + + fNPhiSuperModule = fNumberOfSuperModules/2; + if(fNPhiSuperModule<1) fNPhiSuperModule = 1; + + fShellThickness = fAlFrontThick + fGap2Active + fNECLayers*GetECScintThick()+(fNECLayers-1)*GetECPbRadThick(); + if(fGeoName.Contains("SHISH")) { + fShellThickness = fSteelFrontThick + fLongModuleSize; + if(fGeoName.Contains("TWIST")) { // 13-sep-04 + fShellThickness = TMath::Sqrt(fLongModuleSize*fLongModuleSize + fPhiModuleSize*fEtaModuleSize); + fShellThickness += fSteelFrontThick; + } else if(fGeoName.Contains("TRD")) { // 1-oct-04 + fShellThickness = TMath::Sqrt(fLongModuleSize*fLongModuleSize + f2Trd1Dx2*f2Trd1Dx2); + fShellThickness += fSteelFrontThick; + // Local coordinates + fParSM[0] = GetShellThickness()/2.; + fParSM[1] = GetPhiModuleSize() * GetNPhi()/2.; + fParSM[2] = 350./2.; + } + } + + fZLength = 2.*ZFromEtaR(fIPDistance+fShellThickness,fArm1EtaMax); // Z coverage + fEnvelop[0] = fIPDistance; // mother volume inner radius + fEnvelop[1] = fIPDistance + fShellThickness; // mother volume outer r. + fEnvelop[2] = 1.00001*fZLength; // add some padding for mother volume. + + fNumberOfSuperModules = 12; + + // SM phi boundaries - (0,1),(2,3) .. (10,11) - has the same boundaries; Nov 7, 2006 + fPhiBoundariesOfSM.Set(fNumberOfSuperModules); + fPhiCentersOfSM.Set(fNumberOfSuperModules/2); + fPhiBoundariesOfSM[0] = TMath::PiOver2() - TMath::ATan2(fParSM[1] , fIPDistance); // 1th and 2th modules) + fPhiBoundariesOfSM[1] = TMath::PiOver2() + TMath::ATan2(fParSM[1] , fIPDistance); + fPhiCentersOfSM[0] = TMath::PiOver2(); + for(int i=1; i<=4; i++) { // from 2th ro 9th + fPhiBoundariesOfSM[2*i] = fPhiBoundariesOfSM[0] + 20.*TMath::DegToRad()*i; + fPhiBoundariesOfSM[2*i+1] = fPhiBoundariesOfSM[1] + 20.*TMath::DegToRad()*i; + fPhiCentersOfSM[i] = fPhiCentersOfSM[0] + 20.*TMath::DegToRad()*i; + } + fPhiBoundariesOfSM[11] = 190.*TMath::DegToRad(); + fPhiBoundariesOfSM[10] = fPhiBoundariesOfSM[11] - TMath::ATan2((fParSM[1]) , fIPDistance); + fPhiCentersOfSM[5] = (fPhiBoundariesOfSM[10]+fPhiBoundariesOfSM[11])/2.; + + //TRU parameters. These parameters values are not the final ones. + fNTRU = 3 ; + fNTRUEta = 3 ; + fNTRUPhi = 1 ; + + // Define TGeoMatrix of SM - Jan 19, 2007 (just fro TRD1) + if(fGeoName.Contains("TRD1")) { // copy code from AliEMCALv0::CreateSmod() + int nphism = GetNumberOfSuperModules()/2; + double dphi = (GetArm1PhiMax() - GetArm1PhiMin())/nphism; + double rpos = (GetEnvelop(0) + GetEnvelop(1))/2.; + double phi, phiRad, xpos, ypos, zpos; + for(int i=0; i=360.) phiy -= 360.; + TGeoRotation *geoRot1 = new TGeoRotation("geoRot1", 90.0, phi, 90.0, phiy, 180.0, 0.0); + fMatrixOfSM[ind] = new TGeoCombiTrans(Form("EmcalSM%2.2i",ind), + xpos,ypos,-zpos, geoRot1); + } // for + } + fgInit = kTRUE; + AliInfo(" is ended"); +} + +void AliEMCALGeometry::PrintGeometry() +{ + // Separate routine is callable from broswer; Nov 7,2006 + printf("\nInit: geometry of EMCAL named %s :\n", fGeoName.Data()); + if(fArrayOpts) { + for(Int_t i=0; iGetEntries(); i++){ + TObjString *o = (TObjString*)fArrayOpts->At(i); + printf(" %i : %s \n", i, o->String().Data()); + } + } + printf("Granularity: %d in eta and %d in phi\n", GetNZ(), GetNPhi()) ; + printf("Layout: phi = (%7.1f, %7.1f), eta = (%5.2f, %5.2f), IP = %7.2f -> for EMCAL envelope only\n", + GetArm1PhiMin(), GetArm1PhiMax(),GetArm1EtaMin(), GetArm1EtaMax(), GetIPDistance() ); + + printf( " ECAL : %d x (%f cm Pb, %f cm Sc) \n", + GetNECLayers(), GetECPbRadThick(), GetECScintThick() ) ; + printf(" fSampling %5.2f \n", fSampling ); + if(fGeoName.Contains("SHISH")){ + printf(" fIPDistance %6.3f cm \n", fIPDistance); + if(fSteelFrontThick>0.) + printf(" fSteelFrontThick %6.3f cm \n", fSteelFrontThick); + printf(" fNPhi %i | fNZ %i \n", fNPhi, fNZ); + printf(" fNCellsInModule %i : fNCellsInSupMod %i : fNCells %i\n",fNCellsInModule, fNCellsInSupMod, fNCells); + if(fGeoName.Contains("MAY05")){ + printf(" fFrontSteelStrip %6.4f cm (thickness of front steel strip)\n", + fFrontSteelStrip); + printf(" fLateralSteelStrip %6.4f cm (thickness of lateral steel strip)\n", + fLateralSteelStrip); + printf(" fPassiveScintThick %6.4f cm (thickness of front passive Sc tile)\n", + fPassiveScintThick); + } + printf(" X:Y module size %6.3f , %6.3f cm \n", fPhiModuleSize, fEtaModuleSize); + printf(" X:Y tile size %6.3f , %6.3f cm \n", fPhiTileSize, fEtaTileSize); + printf(" #of sampling layers %i(fNECLayers) \n", fNECLayers); + printf(" fLongModuleSize %6.3f cm \n", fLongModuleSize); + printf(" #supermodule in phi direction %i \n", fNPhiSuperModule ); + } + printf(" fILOSS %i : fIHADR %i \n", fILOSS, fIHADR); + if(fGeoName.Contains("TRD")) { + printf(" fTrd1Angle %7.4f\n", fTrd1Angle); + printf(" f2Trd1Dx2 %7.4f\n", f2Trd1Dx2); + if(fGeoName.Contains("TRD2")) { + printf(" fTrd2AngleY %7.4f\n", fTrd2AngleY); + printf(" f2Trd2Dy2 %7.4f\n", f2Trd2Dy2); + printf(" fTubsR %7.2f cm\n", fTubsR); + printf(" fTubsTurnAngle %7.4f\n", fTubsTurnAngle); + printf(" fEmptySpace %7.4f cm\n", fEmptySpace); + } else if(fGeoName.Contains("TRD1")){ + printf("SM dimensions(TRD1) : dx %7.2f dy %7.2f dz %7.2f (SMOD, BOX)\n", + fParSM[0],fParSM[1],fParSM[2]); + printf(" fPhiGapForSM %7.4f cm (%7.4f <- phi size in degree)\n", + fPhiGapForSM, TMath::ATan2(fPhiGapForSM,fIPDistance)*TMath::RadToDeg()); + if(GetKey110DEG()) printf(" Last two modules have size 10 degree in phi (180 %7.5f(%7.2f) : center %7.5f(%7.2f) \n", i, + fPhiBoundariesOfSM[2*i], fPhiBoundariesOfSM[2*i]*TMath::RadToDeg(), + fPhiBoundariesOfSM[2*i+1], fPhiBoundariesOfSM[2*i+1]*TMath::RadToDeg(), + fPhiCentersOfSM[i], fPhiCentersOfSM[i]*TMath::RadToDeg()); + } + printf(" fShishKebabTrd1Modules has %i modules : max eta %5.4f \n", + fShishKebabTrd1Modules->GetSize(),fEtaMaxOfTRD1); + + printf("\n Cells grid in eta directions : size %i\n", fCentersOfCellsEtaDir.GetSize()); + for(Int_t i=0; iGetTranslation(); + printf(" %2.2i %s %s x %7.2f y %7.2f z %7.2f\n", + i, m->GetName(), m->ClassName(), xyz[0],xyz[1],xyz[2]); + } + + printf("\n Cells grid in phi directions : size %i\n", fCentersOfCellsPhiDir.GetSize()); + for(Int_t i=0; i nSupMod %i nModule %i nIphi %i nIeta %i \n", tit, absId, nSupMod, nModule, nIphi, nIeta); + if(pri>0) { + GetCellPhiEtaIndexInSModule(nSupMod,nModule,nIphi,nIeta, iphi,ieta); + printf(" local SM index : iphi %i : ieta %i \n", iphi,ieta); + GetGlobal(absId, vg); + printf(" vglob : mag %7.2f : perp %7.2f : z %7.2f : eta %6.4f : phi %6.4f(%6.2f) \n", + vg.Mag(), vg.Perp(), vg.Z(), vg.Eta(), vg.Phi(), vg.Phi()*TMath::RadToDeg()); + } +} + +//______________________________________________________________________ +void AliEMCALGeometry::CheckAdditionalOptions() +{ + // Feb 06,2006 + // Additional options that + // can be used to select + // the specific geometry of + // EMCAL to run + // Dec 27,2006 + // adeed allILOSS= and allIHADR= for MIP investigation + fArrayOpts = new TObjArray; + Int_t nopt = AliEMCALHistoUtilities::ParseString(fGeoName, *fArrayOpts); + if(nopt==1) { // no aditional option(s) + fArrayOpts->Delete(); + delete fArrayOpts; + fArrayOpts = 0; + return; + } + for(Int_t i=1; iAt(i); + + TString addOpt = o->String(); + Int_t indj=-1; + for(Int_t j=0; j option |%s| unavailable : ** look to the file AliEMCALGeometry.h **\n", + addOpt.Data())); + assert(0); + } else { + AliDebug(2,Form(" option |%s| is valid : number %i : |%s|\n", + addOpt.Data(), indj, fAdditionalOpts[indj])); + if (addOpt.Contains("NL=",TString::kIgnoreCase)) {// number of sampling layers + sscanf(addOpt.Data(),"NL=%i", &fNECLayers); + AliDebug(2,Form(" fNECLayers %i (new) \n", fNECLayers)); + } else if(addOpt.Contains("PBTH=",TString::kIgnoreCase)) {//Thickness of the Pb(fECPbRadThicknes) + sscanf(addOpt.Data(),"PBTH=%f", &fECPbRadThickness); + } else if(addOpt.Contains("SCTH=",TString::kIgnoreCase)) {//Thickness of the Sc(fECScintThick) + sscanf(addOpt.Data(),"SCTH=%f", &fECScintThick); + } else if(addOpt.Contains("LATSS=",TString::kIgnoreCase)) {// Thickness of lateral steel strip (fLateralSteelStrip) + sscanf(addOpt.Data(),"LATSS=%f", &fLateralSteelStrip); + AliDebug(2,Form(" fLateralSteelStrip %f (new) \n", fLateralSteelStrip)); + } else if(addOpt.Contains("ILOSS=",TString::kIgnoreCase)) {// As in Geant + sscanf(addOpt.Data(),"ALLILOSS=%i", &fILOSS); + AliDebug(2,Form(" fILOSS %i \n", fILOSS)); + } else if(addOpt.Contains("IHADR=",TString::kIgnoreCase)) {// As in Geant + sscanf(addOpt.Data(),"ALLIHADR=%i", &fIHADR); + AliDebug(2,Form(" fIHADR %i \n", fIHADR)); + } + } + } +} + +void AliEMCALGeometry::DefineSamplingFraction() +{ + // Jun 05,2006 + // Look http://rhic.physics.wayne.edu/~pavlinov/ALICE/SHISHKEBAB/RES/linearityAndResolutionForTRD1.html + // Keep for compatibilty + // + if(fNECLayers == 69) { // 10% layer reduction + fSampling = 12.55; + } else if(fNECLayers == 61) { // 20% layer reduction + fSampling = 12.80; + } else if(fNECLayers == 77) { + if (fECScintThick>0.175 && fECScintThick<0.177) { // 10% Pb thicknes reduction + fSampling = 10.5; // fECScintThick = 0.176, fECPbRadThickness=0.144; + } else if(fECScintThick>0.191 && fECScintThick<0.193) { // 20% Pb thicknes reduction + fSampling = 8.93; // fECScintThick = 0.192, fECPbRadThickness=0.128; + } + } +} + +//____________________________________________________________________________ +void AliEMCALGeometry::FillTRU(const TClonesArray * digits, TClonesArray * ampmatrix, TClonesArray * timeRmatrix) { + + +// Orders digits ampitudes list in fNTRU TRUs (384 cells) per supermodule. +// Each TRU is a TMatrixD, and they are kept in TClonesArrays. The number of +// TRU in phi is fNTRUPhi, and the number of TRU in eta is fNTRUEta. +// Last 2 modules are half size in Phi, I considered that the number of TRU +// is maintained for the last modules but decision not taken. If different, +// then this must be changed. + + + //Check data members + + if(fNTRUEta*fNTRUPhi != fNTRU) + Error("FillTRU"," Wrong number of TRUS per Eta or Phi"); + + //Initilize and declare variables + //List of TRU matrices initialized to 0. + Int_t nCellsPhi = fNPhi*2/fNTRUPhi; + Int_t nCellsPhi2 = fNPhi/fNTRUPhi; //HalfSize modules + Int_t nCellsEta = fNZ*2/fNTRUEta; + Int_t id = -1; + Float_t amp = -1; + Float_t timeR = -1; + Int_t iSupMod = -1; + Int_t nModule = -1; + Int_t nIphi = -1; + Int_t nIeta = -1; + Int_t iphi = -1; + Int_t ieta = -1; + + //List of TRU matrices initialized to 0. + for(Int_t k = 0; k < fNTRU*fNumberOfSuperModules; k++){ + TMatrixD * amptrus = new TMatrixD(nCellsPhi,nCellsEta) ; + TMatrixD * timeRtrus = new TMatrixD(nCellsPhi,nCellsEta) ; + for(Int_t i = 0; i < nCellsPhi; i++){ + for(Int_t j = 0; j < nCellsEta; j++){ + (*amptrus)(i,j) = 0.0; + (*timeRtrus)(i,j) = 0.0; + } + } + new((*ampmatrix)[k]) TMatrixD(*amptrus) ; + new((*timeRmatrix)[k]) TMatrixD(*timeRtrus) ; + } + + AliEMCALDigit * dig ; + + //Digits loop to fill TRU matrices with amplitudes. + for(Int_t idig = 0 ; idig < digits->GetEntriesFast() ; idig++){ + + dig = dynamic_cast(digits->At(idig)) ; + amp = dig->GetAmp() ; // Energy of the digit (arbitrary units) + id = dig->GetId() ; // Id label of the cell + timeR = dig->GetTimeR() ; // Earliest time of the digit + + //Get eta and phi cell position in supermodule + Bool_t bCell = GetCellIndex(id, iSupMod, nModule, nIphi, nIeta) ; + if(!bCell) + Error("FillTRU","Wrong cell id number") ; + + GetCellPhiEtaIndexInSModule(iSupMod,nModule,nIphi, nIeta,iphi,ieta); + + //Check to which TRU in the supermodule belongs the cell. + //Supermodules are divided in a TRU matrix of dimension + //(fNTRUPhi,fNTRUEta). + //Each TRU is a cell matrix of dimension (nCellsPhi,nCellsEta) + + //First calculate the row and column in the supermodule + //of the TRU to which the cell belongs. + Int_t col = ieta/nCellsEta; + Int_t row = iphi/nCellsPhi; + if(iSupMod > 9) + row = iphi/nCellsPhi2; + //Calculate label number of the TRU + Int_t itru = row + col*fNTRUPhi + iSupMod*fNTRU ; + + //Fill TRU matrix with cell values + TMatrixD * amptrus = dynamic_cast(ampmatrix->At(itru)) ; + TMatrixD * timeRtrus = dynamic_cast(timeRmatrix->At(itru)) ; + + //Calculate row and column of the cell inside the TRU with number itru + Int_t irow = iphi - row * nCellsPhi; + if(iSupMod > 9) + irow = iphi - row * nCellsPhi2; + Int_t icol = ieta - col * nCellsEta; + + (*amptrus)(irow,icol) = amp ; + (*timeRtrus)(irow,icol) = timeR ; + + } +} + +//______________________________________________________________________ +void AliEMCALGeometry::GetCellPhiEtaIndexInSModuleFromTRUIndex(const Int_t itru, const Int_t iphitru, const Int_t ietatru, Int_t &iphiSM, Int_t &ietaSM) const +{ + + // This method transforms the (eta,phi) index of cells in a + // TRU matrix into Super Module (eta,phi) index. + + // Calculate in which row and column where the TRU are + // ordered in the SM + + Int_t col = itru/ fNTRUPhi ; + Int_t row = itru - col*fNTRUPhi ; + + //Calculate the (eta,phi) index in SM + Int_t nCellsPhi = fNPhi*2/fNTRUPhi; + Int_t nCellsEta = fNZ*2/fNTRUEta; + + iphiSM = nCellsPhi*row + iphitru ; + ietaSM = nCellsEta*col + ietatru ; } //______________________________________________________________________ AliEMCALGeometry * AliEMCALGeometry::GetInstance(){ // Returns the pointer of the unique instance - return static_cast( fgGeom ) ; + AliEMCALGeometry * rv = static_cast( fgGeom ); + return rv; } //______________________________________________________________________ @@ -125,289 +753,632 @@ AliEMCALGeometry* AliEMCALGeometry::GetInstance(const Text_t* name, AliEMCALGeometry * rv = 0; if ( fgGeom == 0 ) { - if ( strcmp(name,"") == 0 ) rv = 0; - else { - fgGeom = new AliEMCALGeometry(name, title); - if ( fgInit ) rv = (AliEMCALGeometry * ) fgGeom; - else { - rv = 0; - delete fgGeom; - fgGeom = 0; - } // end if fgInit - } // end if strcmp(name,"") + if ( strcmp(name,"") == 0 ) { // get default geometry + fgGeom = new AliEMCALGeometry(fgDefaultGeometryName, title); + } else { + fgGeom = new AliEMCALGeometry(name, title); + } // end if strcmp(name,"") + if ( fgInit ) rv = (AliEMCALGeometry * ) fgGeom; + else { + rv = 0; + delete fgGeom; + fgGeom = 0; + } // end if fgInit }else{ - if ( strcmp(fgGeom->GetName(), name) != 0 ) { - TString message("\n") ; - message += "current geometry is " ; - message += fgGeom->GetName() ; - message += "\n you cannot call " ; - message += name ; - ::Info("GetGeometry", message.Data() ) ; + if ( strcmp(fgGeom->GetName(), name) != 0) { + printf("\ncurrent geometry is %s : ", fgGeom->GetName()); + printf(" you cannot call %s ", name); }else{ rv = (AliEMCALGeometry *) fgGeom; - } // end if + } // end } // end if fgGeom return rv; } -//______________________________________________________________________ -Int_t AliEMCALGeometry::TowerIndex(Int_t ieta,Int_t iphi,Int_t ipre) const { - // Returns the tower index number from the based on the Z and Phi - // index numbers. There are 2 times the number of towers to separate - // out the full towsers from the pre-towsers. - // Inputs: - // Int_t ieta // index allong z axis [1-fNZ] - // Int_t iphi // index allong phi axis [1-fNPhi] - // Int_t ipre // 0 = Full tower, 1 = Pre-shower tower only. [0,1] - // Outputs: - // none. - // Returned - // Int_t the absoulute tower index. [1-2*fNZ*fNPhi] - Int_t index; - - if((ieta<=0 || ieta>GetNEta()) || (iphi<=0 || iphi>GetNPhi()) || - (ipre<0 || ipre>1) ){ - TString message ("\n") ; - message += "inputs out of range ieta= " ; - message += ieta ; - message += " [1-" ; - message += GetNEta() ; - message += "] iphi= " ; - message += iphi ; - message += " [1-" ; - message += GetNPhi() ; - message += "] ipre= " ; - message += ipre ; - message += "[0,1]. returning -1" ; - Warning("TowerIndex", message.Data() ) ; - return -1; - } // end if - index = iphi + GetNPhi()*(ieta-1) + ipre*(GetNPhi()*GetNEta()); - return index; +Bool_t AliEMCALGeometry::IsInEMCAL(Double_t x, Double_t y, Double_t z) const { + // Checks whether point is inside the EMCal volume, used in AliEMCALv*.cxx + // + // Code uses cylindrical approximation made of inner radius (for speed) + // + // Points behind EMCAl, i.e. R > outer radius, but eta, phi in acceptance + // are considered to inside + + Double_t r=sqrt(x*x+y*y); + + if ( r > fEnvelop[0] ) { + Double_t theta; + theta = TMath::ATan2(r,z); + Double_t eta; + if(theta == 0) + eta = 9999; + else + eta = -TMath::Log(TMath::Tan(theta/2.)); + if (eta < fArm1EtaMin || eta > fArm1EtaMax) + return 0; + + Double_t phi = TMath::ATan2(y,x) * 180./TMath::Pi(); + if (phi > fArm1PhiMin && phi < fArm1PhiMax) + return 1; + } + return 0; } +// == -//______________________________________________________________________ -void AliEMCALGeometry::TowerIndexes(Int_t index,Int_t &ieta,Int_t &iphi, - Int_t &ipre) const { - // given the tower index number it returns the based on the Z and Phi - // index numbers and if it is for the full tower or the pre-tower number. - // There are 2 times the number of towers to separate - // out the full towsers from the pre-towsers. - // Inputs: - // Int_t index // Tower index number [1-2*fNZ*fNPhi] - // Outputs: - // Int_t ieta // index allong z axis [1-fNZ] - // Int_t iphi // index allong phi axis [1-fNPhi] - // Int_t ipre // 0 = Full tower, 1 = Pre-shower tower only. [0,1] - // Returned - // none. - Int_t itowers; - - itowers = GetNEta()*GetNPhi(); - if(index<1 || index>2*itowers){ - TString message("\n") ; - message += "index= " ; - message += index ; - message += " is out of range [1-" ; - message += 2*itowers ; - message += "], returning -1 for all." ; - Warning("TowerIndex", message.Data() ) ; - ieta = -1; iphi = -1; ipre = -1; - return ; - } // end if - ipre = 0; - if(index>itowers){ // pre shower indexs - ipre = 1; - index = index - itowers; - } // end if - ieta = 1+ (Int_t)((index-1)/GetNPhi()); - iphi = index - GetNPhi()*(ieta-1); - return; +// +// == Shish-kebab cases == +// +Int_t AliEMCALGeometry::GetAbsCellId(Int_t nSupMod, Int_t nModule, Int_t nIphi, Int_t nIeta) const +{ + // 27-aug-04; + // corr. 21-sep-04; + // 13-oct-05; 110 degree case + // May 31, 2006; ALICE numbering scheme: + // 0 <= nSupMod < fNumberOfSuperModules + // 0 <= nModule < fNPHI * fNZ ( fNPHI * fNZ/2 for fKey110DEG=1) + // 0 <= nIphi < fNPHIdiv + // 0 <= nIeta < fNETAdiv + // 0 <= absid < fNCells + static Int_t id=0; // have to change from 0 to fNCells-1 + if(fKey110DEG == 1 && nSupMod >= 10) { // 110 degree case; last two supermodules + id = fNCellsInSupMod*10 + (fNCellsInSupMod/2)*(nSupMod-10); + } else { + id = fNCellsInSupMod*nSupMod; + } + id += fNCellsInModule *nModule; + id += fNPHIdiv *nIphi; + id += nIeta; + if(id<0 || id >= fNCells) { +// printf(" wrong numerations !!\n"); +// printf(" id %6i(will be force to -1)\n", id); +// printf(" fNCells %6i\n", fNCells); +// printf(" nSupMod %6i\n", nSupMod); +// printf(" nModule %6i\n", nModule); +// printf(" nIphi %6i\n", nIphi); +// printf(" nIeta %6i\n", nIeta); + id = -TMath::Abs(id); // if negative something wrong + } + return id; } -//______________________________________________________________________ -void AliEMCALGeometry::EtaPhiFromIndex(Int_t index,Float_t &eta,Float_t &phi) const { - // given the tower index number it returns the based on the eta and phi - // of the tower. - // Inputs: - // Int_t index // Tower index number [1-2*fNZ*fNPhi] - // Outputs: - // Float_t eta // eta of center of tower in pseudorapidity - // Float_t phi // phi of center of tower in degrees - // Returned - // none. - Int_t ieta,iphi,ipre; - Double_t deta,dphi,phid; - - TowerIndexes(index,ieta,iphi,ipre); - deta = (GetArm1EtaMax()-GetArm1EtaMin())/((Float_t)GetNEta()); - eta = GetArm1EtaMin() + (((Float_t)ieta)-0.5)*deta; - dphi = (GetArm1PhiMax() - GetArm1PhiMin())/((Float_t)GetNPhi()); // in degrees. - phid = GetArm1PhiMin() + dphi*((Float_t)iphi -0.5);//iphi range [1-fNphi]. - phi = phid; +Bool_t AliEMCALGeometry::CheckAbsCellId(Int_t absId) const +{ + // May 31, 2006; only trd1 now + if(absId<0 || absId >= fNCells) return kFALSE; + else return kTRUE; } -//______________________________________________________________________ -Int_t AliEMCALGeometry::TowerIndexFromEtaPhi(Float_t eta,Float_t phi) const { - // returns the tower index number based on the eta and phi of the tower. - // Inputs: - // Float_t eta // eta of center of tower in pseudorapidity - // Float_t phi // phi of center of tower in degrees - // Outputs: - // none. - // Returned - // Int_t index // Tower index number [1-fNZ*fNPhi] - Int_t ieta,iphi; - - ieta = 1 + (Int_t)(((Float_t)GetNEta())*(eta-GetArm1EtaMin())/ - (GetArm1EtaMax() - GetArm1EtaMin())); - if(ieta<=0 || ieta>GetNEta()){ - TString message("\n") ; - message += "ieta = " ; - message += ieta ; - message += " eta=" ; - message += eta ; - message += " is outside of EMCAL. etamin=" ; - message += GetArm1EtaMin() ; - message += " to etamax=" ; - message += GetArm1EtaMax(); - message += " returning -1"; - Warning("TowerIndexFromEtaPhi", message.Data() ) ; - return -1; - } // end if - iphi = 1 + (Int_t)(((Float_t)GetNPhi())*(phi-GetArm1PhiMin())/ - ((Float_t)(GetArm1PhiMax() - GetArm1PhiMin()))); - if(iphi<=0 || iphi>GetNPhi()){ - TString message("\n") ; - message += "iphi=" ; - message += iphi ; - message += "phi= " ; - message += phi ; - message += " is outside of EMCAL." ; - message += " Phimin=" ; - message += GetArm1PhiMin() ; - message += " PhiMax=" ; - message += GetArm1PhiMax() ; - message += " returning -1" ; - Warning("TowerIndexFromEtaPhi", message.Data() ) ; - return -1; - } // end if - return TowerIndex(ieta,iphi,0); +Bool_t AliEMCALGeometry::GetCellIndex(Int_t absId,Int_t &nSupMod,Int_t &nModule,Int_t &nIphi,Int_t &nIeta) const +{ + // 21-sep-04; 19-oct-05; + // May 31, 2006; ALICE numbering scheme: + // + // In: + // absId - cell is as in Geant, 0<= absId < fNCells; + // Out: + // nSupMod - super module(SM) number, 0<= nSupMod < fNumberOfSuperModules; + // nModule - module number in SM, 0<= nModule < fNCellsInSupMod/fNCellsInSupMod or(/2) for tow last SM (10th and 11th); + // nIphi - cell number in phi driection inside module; 0<= nIphi < fNPHIdiv; + // nIeta - cell number in eta driection inside module; 0<= nIeta < fNETAdiv; + // + static Int_t tmp=0, sm10=0; + if(!CheckAbsCellId(absId)) return kFALSE; + + sm10 = fNCellsInSupMod*10; + if(fKey110DEG == 1 && absId >= sm10) { // 110 degree case; last two supermodules + nSupMod = (absId-sm10) / (fNCellsInSupMod/2) + 10; + tmp = (absId-sm10) % (fNCellsInSupMod/2); + } else { + nSupMod = absId / fNCellsInSupMod; + tmp = absId % fNCellsInSupMod; + } + + nModule = tmp / fNCellsInModule; + tmp = tmp % fNCellsInModule; + nIphi = tmp / fNPHIdiv; + nIeta = tmp % fNPHIdiv; + + return kTRUE; } -//______________________________________________________________________ -Int_t AliEMCALGeometry::PreTowerIndexFromEtaPhi(Float_t eta,Float_t phi) const { - // returns the pretower index number based on the eta and phi of the tower. - // Inputs: - // Float_t eta // eta of center of tower in pseudorapidity - // Float_t phi // phi of center of tower in degrees - // Outputs: - // none. - // Returned - // Int_t index // PreTower index number [fNZ*fNPhi-2*fNZ*fNPhi] +void AliEMCALGeometry::GetModulePhiEtaIndexInSModule(Int_t nSupMod, Int_t nModule, int &iphim, int &ietam) const +{ + // added nSupMod; - 19-oct-05 ! + // Alice numbering scheme - Jun 01,2006 + // ietam, iphi - indexes of module in two dimensional grid of SM + // ietam - have to change from 0 to fNZ-1 + // iphim - have to change from 0 to nphi-1 (fNPhi-1 or fNPhi/2-1) + static Int_t nphi; + + if(fKey110DEG == 1 && nSupMod>=10) nphi = fNPhi/2; + else nphi = fNPhi; - return GetNEta()*GetNPhi()+TowerIndexFromEtaPhi(eta,phi); + ietam = nModule/nphi; + iphim = nModule%nphi; } -//______________________________________________________________________ -Bool_t AliEMCALGeometry::AbsToRelNumbering(Int_t AbsId, Int_t *relid) const { - // Converts the absolute numbering into the following array/ - // relid[0] = EMCAL Arm number 1:1 - // relid[1] = 0 Not in Pre Shower layers - // = -1 In Pre Shower - // relid[2] = Row number inside EMCAL - // relid[3] = Column number inside EMCAL - // Input: - // Int_t AbsId // Tower index number [1-2*fNZ*fNPhi] - // Outputs: - // Int_t *relid // array of 5. Discribed above. - Bool_t rv = kTRUE ; - Int_t ieta=0,iphi=0,ipre=0,index=AbsId; - - TowerIndexes(index,ieta,iphi,ipre); - relid[0] = 1; - relid[1] = 0; - if(ipre==1) - relid[1] = -1; - relid[2] = ieta; - relid[3] = iphi; - - return rv; +void AliEMCALGeometry::GetCellPhiEtaIndexInSModule(Int_t nSupMod, Int_t nModule, Int_t nIphi, Int_t nIeta, +int &iphi, int &ieta) const +{ + // + // Added nSupMod; Nov 25, 05 + // Alice numbering scheme - Jun 01,2006 + // IN: + // nSupMod - super module(SM) number, 0<= nSupMod < fNumberOfSuperModules; + // nModule - module number in SM, 0<= nModule < fNCellsInSupMod/fNCellsInSupMod or(/2) for tow last SM (10th and 11th); + // nIphi - cell number in phi driection inside module; 0<= nIphi < fNPHIdiv; + // nIeta - cell number in eta driection inside module; 0<= nIeta < fNETAdiv; + // + // OUT: + // ieta, iphi - indexes of cell(tower) in two dimensional grid of SM + // ieta - have to change from 0 to (fNZ*fNETAdiv-1) + // iphi - have to change from 0 to (fNPhi*fNPHIdiv-1 or fNPhi*fNPHIdiv/2-1) + // + static Int_t iphim, ietam; + + GetModulePhiEtaIndexInSModule(nSupMod,nModule, iphim, ietam); + // ieta = ietam*fNETAdiv + (1-nIeta); // x(module) = -z(SM) + ieta = ietam*fNETAdiv + (fNETAdiv - 1 - nIeta); // x(module) = -z(SM) + iphi = iphim*fNPHIdiv + nIphi; // y(module) = y(SM) + + if(iphi<0 || ieta<0) + AliDebug(1,Form(" nSupMod %i nModule %i nIphi %i nIeta %i => ieta %i iphi %i\n", + nSupMod, nModule, nIphi, nIeta, ieta, iphi)); } -//______________________________________________________________________ -void AliEMCALGeometry::PosInAlice(const Int_t *relid,Float_t &theta, - Float_t &phi) const { - // Converts the relative numbering into the local EMCAL-module (x, z) - // coordinates - Int_t ieta = relid[2]; // offset along x axis - Int_t iphi = relid[3]; // offset along z axis - Int_t ipre = relid[1]; // indicates -1 preshower, or 0 full tower. - Int_t index; - Float_t eta; - - if(ipre==-1) ipre = 1; - index = TowerIndex(ieta,iphi,ipre); - EtaPhiFromIndex(index,eta,phi); - theta = 180.*(2.0*TMath::ATan(TMath::Exp(-eta)))/TMath::Pi(); +Int_t AliEMCALGeometry::GetSuperModuleNumber(Int_t absId) const +{ + // Return the number of the supermodule given the absolute + // ALICE numbering id - return; + static Int_t nSupMod, nModule, nIphi, nIeta; + GetCellIndex(absId, nSupMod, nModule, nIphi, nIeta); + return nSupMod; +} + +void AliEMCALGeometry::GetModuleIndexesFromCellIndexesInSModule(Int_t nSupMod, Int_t iphi, Int_t ieta, + Int_t &iphim, Int_t &ietam, Int_t &nModule) const +{ + // Transition from cell indexes (ieta,iphi) to module indexes (ietam,iphim, nModule) + static Int_t nphi; + nphi = GetNumberOfModuleInPhiDirection(nSupMod); + + ietam = ieta/fNETAdiv; + iphim = iphi/fNPHIdiv; + nModule = ietam * nphi + iphim; } -//______________________________________________________________________ -void AliEMCALGeometry::XYZFromIndex(const Int_t *relid,Float_t &x,Float_t &y, Float_t &z) const { - // given the tower relative number it returns the X, Y and Z - // of the tower. - - // Outputs: - // Float_t x // x of center of tower in cm - // Float_t y // y of center of tower in cm - // Float_t z // z of centre of tower in cm - // Returned - // none. - - Float_t eta,theta, phi,cyl_radius,kDeg2Rad; - - Int_t ieta = relid[2]; // offset along x axis - Int_t iphi = relid[3]; // offset along z axis - Int_t ipre = relid[1]; // indicates -1 preshower, or 0 full tower. - Int_t index; - +Int_t AliEMCALGeometry::GetAbsCellIdFromCellIndexes(Int_t nSupMod, Int_t iphi, Int_t ieta) const +{ + // Transition from super module number(nSupMod) and cell indexes (ieta,iphi) to absId + static Int_t ietam, iphim, nModule; + static Int_t nIeta, nIphi; // cell indexes in module - if(ipre==-1) ipre = 1; - index = TowerIndex(ieta,iphi,ipre); - EtaPhiFromIndex(index,eta,phi); - theta = 180.*(2.0*TMath::ATan(TMath::Exp(-eta)))/TMath::Pi(); - - kDeg2Rad = TMath::Pi() / static_cast(180) ; - cyl_radius = GetIPDistance()+ GetAirGap() ; - x = cyl_radius * TMath::Cos(phi * kDeg2Rad ) ; - y = cyl_radius * TMath::Sin(phi * kDeg2Rad ) ; - z = cyl_radius / TMath::Tan(theta * kDeg2Rad ) ; + GetModuleIndexesFromCellIndexesInSModule(nSupMod, iphi, ieta, ietam, iphim, nModule); + + nIeta = ieta%fNETAdiv; + nIeta = fNETAdiv - 1 - nIeta; + nIphi = iphi%fNPHIdiv; + + return GetAbsCellId(nSupMod, nModule, nIphi, nIeta); +} + + +// Methods for AliEMCALRecPoint - Feb 19, 2006 +Bool_t AliEMCALGeometry::RelPosCellInSModule(Int_t absId, Double_t &xr, Double_t &yr, Double_t &zr) const +{ + // Look to see what the relative + // position inside a given cell is + // for a recpoint. + // Alice numbering scheme - Jun 08, 2006 + // In: + // absId - cell is as in Geant, 0<= absId < fNCells; + // OUT: + // xr,yr,zr - x,y,z coordinates of cell with absId inside SM + + // Shift index taking into account the difference between standard SM + // and SM of half size in phi direction + const Int_t phiIndexShift = fCentersOfCellsPhiDir.GetSize()/4; // Nov 22, 2006; was 6 for cas 2X2 + static Int_t nSupMod, nModule, nIphi, nIeta, iphi, ieta; + if(!CheckAbsCellId(absId)) return kFALSE; + + GetCellIndex(absId, nSupMod, nModule, nIphi, nIeta); + GetCellPhiEtaIndexInSModule(nSupMod,nModule,nIphi,nIeta, iphi, ieta); - return; -} + xr = fCentersOfCellsXDir.At(ieta); + zr = fCentersOfCellsEtaDir.At(ieta); -//______________________________________________________________________ -/* -Boot_t AliEMCALGeometry::AreNeighbours(Int_t index1,Int_t index2) const { - // Returns kTRUE if the two towers are neighbours or not, including - // diagonals. Both indexes are required to be either towers or preshower. - // Inputs: - // Int_t index1 // index of tower 1 - // Int_t index2 // index of tower 2 - // Outputs: - // none. - // Returned - // Boot_t kTRUE if the towers are neighbours otherwise false. - Boot_t anb = kFALSE; - Int_t ieta1 = 0, ieta2 = 0, iphi1 = 0, iphi2 = 0, ipre1 = 0, ipre2 = 0; - - TowerIndexes(index1,ieta1,iphi1,ipre1); - TowerIndexes(index2,ieta2,iphi2,ipre2); - if(ipre1!=ipre2) return anb; - if((ieta1>=ieta2-1 && ieta1<=ieta2+1) && (iphi1>=iphi2-1 &&iphi1<=iphi2+1)) - anb = kTRUE; - return anb; -} - */ + if(nSupMod<10) { + yr = fCentersOfCellsPhiDir.At(iphi); + } else { + yr = fCentersOfCellsPhiDir.At(iphi + phiIndexShift); + } + AliDebug(1,Form("absId %i nSupMod %i iphi %i ieta %i xr %f yr %f zr %f ",absId,nSupMod,iphi,ieta,xr,yr,zr)); + + return kTRUE; +} + +Bool_t AliEMCALGeometry::RelPosCellInSModule(Int_t absId, Double_t loc[3]) const +{ + // Alice numbering scheme - Jun 03, 2006 + loc[0] = loc[1] = loc[2]=0.0; + if(RelPosCellInSModule(absId, loc[0],loc[1],loc[2])) { + return kTRUE; + } + return kFALSE; +} + +Bool_t AliEMCALGeometry::RelPosCellInSModule(Int_t absId, TVector3 &vloc) const +{ + static Double_t loc[3]; + if(RelPosCellInSModule(absId,loc)) { + vloc.SetXYZ(loc[0], loc[1], loc[2]); + return kTRUE; + } else { + vloc.SetXYZ(0,0,0); + return kFALSE; + } + // Alice numbering scheme - Jun 03, 2006 +} + +void AliEMCALGeometry::CreateListOfTrd1Modules() +{ + // Generate the list of Trd1 modules + // which will make up the EMCAL + // geometry + + AliDebug(2,Form(" AliEMCALGeometry::CreateListOfTrd1Modules() started ")); + + AliEMCALShishKebabTrd1Module *mod=0, *mTmp=0; // current module + if(fShishKebabTrd1Modules == 0) { + fShishKebabTrd1Modules = new TList; + fShishKebabTrd1Modules->SetName("ListOfTRD1"); + for(int iz=0; iz< GetNZ(); iz++) { + if(iz==0) { + mod = new AliEMCALShishKebabTrd1Module(TMath::Pi()/2.,this); + } else { + mTmp = new AliEMCALShishKebabTrd1Module(*mod); + mod = mTmp; + } + fShishKebabTrd1Modules->Add(mod); + } + } else { + AliDebug(2,Form(" Already exits : ")); + } + mod = (AliEMCALShishKebabTrd1Module*)fShishKebabTrd1Modules->At(fShishKebabTrd1Modules->GetSize()-1); + fEtaMaxOfTRD1 = mod->GetMaxEtaOfModule(0); + + AliDebug(2,Form(" fShishKebabTrd1Modules has %i modules : max eta %5.4f \n", + fShishKebabTrd1Modules->GetSize(),fEtaMaxOfTRD1)); + // Feb 20,2006; + // Jun 01, 2006 - ALICE numbering scheme + // define grid for cells in eta(z) and x directions in local coordinates system of SM + // Works just for 2x2 case only -- ?? start here + // + // + // Define grid for cells in phi(y) direction in local coordinates system of SM + // as for 2X2 as for 3X3 - Nov 8,2006 + // + AliDebug(2,Form(" Cells grid in phi directions : size %i\n", fCentersOfCellsPhiDir.GetSize())); + Int_t ind=0; // this is phi index + Int_t iphi=0, ieta=0, nModule=0, iphiTemp; + Double_t xr, zr, theta, phi, eta, r, x,y; + TVector3 vglob; + Double_t ytCenterModule, ytCenterCell; + + fCentersOfCellsPhiDir.Set(fNPhi*fNPHIdiv); + fPhiCentersOfCells.Set(fNPhi*fNPHIdiv); + + Double_t R0 = GetIPDistance() + GetLongModuleSize()/2.; + for(Int_t it=0; itGetCenterOfCellInLocalCoordinateofSM(ic, xr, zr); // case of 2X2 + GetCellPhiEtaIndexInSModule(0, nModule, 0, ic, iphiTemp, ieta); + } if(fNPHIdiv==3) { + trd1->GetCenterOfCellInLocalCoordinateofSM_3X3(ic, xr, zr); // case of 3X3 + GetCellPhiEtaIndexInSModule(0, nModule, 0, ic, iphiTemp, ieta); + } if(fNPHIdiv==1) { + trd1->GetCenterOfCellInLocalCoordinateofSM_1X1(xr, zr); // case of 1X1 + GetCellPhiEtaIndexInSModule(0, nModule, 0, ic, iphiTemp, ieta); + } + fCentersOfCellsXDir.AddAt(float(xr) - fParSM[0],ieta); + fCentersOfCellsEtaDir.AddAt(float(zr) - fParSM[2],ieta); + // Define grid on eta direction for each bin in phi + for(int iphi=0; iphiGetRadius(); + y = fCentersOfCellsPhiDir[iphi]; + r = TMath::Sqrt(x*x + y*y + zr*zr); + theta = TMath::ACos(zr/r); + eta = AliEMCALShishKebabTrd1Module::ThetaToEta(theta); + // ind = ieta*fCentersOfCellsPhiDir.GetSize() + iphi; + ind = iphi*fCentersOfCellsEtaDir.GetSize() + ieta; + fEtaCentersOfCells.AddAt(eta, ind); + } + //printf(" ieta %i : xr + trd1->GetRadius() %f : zr %f : eta %f \n", ieta, xr + trd1->GetRadius(), zr, eta); + } + } + for(Int_t i=0; iGetTopNode(); + TGeoNode *node=0, *xen1 = 0; + for(i=0; iGetNdaughters(); i++) { + node = tn->GetDaughter(i); + TString ns(node->GetName()); + if(ns.Contains(GetNameOfEMCALEnvelope())) { + xen1 = node; + break; + } + } + if(!xen1) { + Info("CreateTransformationForSM() "," geometry has not EMCAL envelope with name %s", + GetNameOfEMCALEnvelope()); + assert(0); + } + printf(" i %i : EMCAL Envelope is %s : #SM %i \n", i, xen1->GetName(), xen1->GetNdaughters()); + for(i=0; iGetNdaughters(); i++) { + TGeoNodeMatrix *sm = (TGeoNodeMatrix*)xen1->GetDaughter(i); + fMatrixOfSM[i] = sm->GetMatrix(); + //Compiler doesn't like this syntax... + // printf(" %i : matrix %x \n", i, fMatrixOfSM[i]); + } + transInit = kTRUE; +} + +void AliEMCALGeometry::GetGlobal(const Double_t *loc, Double_t *glob, int ind) const +{ + // Figure out the global numbering + // of a given supermodule from the + // local numbering + // Alice numbering - Jun 03,2006 + // if(fMatrixOfSM[0] == 0) GetTransformationForSM(); + + if(ind>=0 && ind < GetNumberOfSuperModules()) { + fMatrixOfSM[ind]->LocalToMaster(loc, glob); + } +} + +void AliEMCALGeometry::GetGlobal(const TVector3 &vloc, TVector3 &vglob, int ind) const +{ + //Figure out the global numbering + //of a given supermodule from the + //local numbering given a 3-vector location + + static Double_t tglob[3], tloc[3]; + vloc.GetXYZ(tloc); + GetGlobal(tloc, tglob, ind); + vglob.SetXYZ(tglob[0], tglob[1], tglob[2]); +} + +void AliEMCALGeometry::GetGlobal(Int_t absId , double glob[3]) const +{ + // Alice numbering scheme - Jun 03, 2006 + static Int_t nSupMod, nModule, nIphi, nIeta; + static double loc[3]; + + glob[0]=glob[1]=glob[2]=0.0; // bad case + if(RelPosCellInSModule(absId, loc)) { + GetCellIndex(absId, nSupMod, nModule, nIphi, nIeta); + fMatrixOfSM[nSupMod]->LocalToMaster(loc, glob); + } +} + +void AliEMCALGeometry::GetGlobal(Int_t absId , TVector3 &vglob) const +{ + // Alice numbering scheme - Jun 03, 2006 + static Double_t glob[3]; + + GetGlobal(absId, glob); + vglob.SetXYZ(glob[0], glob[1], glob[2]); + +} + +void AliEMCALGeometry::GetGlobal(const AliRecPoint *rp, TVector3 &vglob) const +{ + // Figure out the global numbering + // of a given supermodule from the + // local numbering for RecPoints + + static TVector3 vloc; + static Int_t nSupMod, nModule, nIphi, nIeta; + + AliRecPoint *rpTmp = (AliRecPoint*)rp; // const_cast ?? + if(!rpTmp) return; + AliEMCALRecPoint *rpEmc = (AliEMCALRecPoint*)rpTmp; + + GetCellIndex(rpEmc->GetAbsId(0), nSupMod, nModule, nIphi, nIeta); + rpTmp->GetLocalPosition(vloc); + GetGlobal(vloc, vglob, nSupMod); +} + +void AliEMCALGeometry::EtaPhiFromIndex(Int_t absId,Double_t &eta,Double_t &phi) const +{ + // Nov 16, 2006- float to double + // version for TRD1 only + static TVector3 vglob; + GetGlobal(absId, vglob); + eta = vglob.Eta(); + phi = vglob.Phi(); +} + +void AliEMCALGeometry::EtaPhiFromIndex(Int_t absId,Float_t &eta,Float_t &phi) const +{ + // Nov 16,2006 - should be discard in future + static TVector3 vglob; + GetGlobal(absId, vglob); + eta = float(vglob.Eta()); + phi = float(vglob.Phi()); +} + +Bool_t AliEMCALGeometry::GetPhiBoundariesOfSM(Int_t nSupMod, Double_t &phiMin, Double_t &phiMax) const +{ + // 0<= nSupMod <=11; phi in rad + static int i; + if(nSupMod<0 || nSupMod >11) return kFALSE; + i = nSupMod/2; + phiMin = fPhiBoundariesOfSM[2*i]; + phiMax = fPhiBoundariesOfSM[2*i+1]; + return kTRUE; +} + +Bool_t AliEMCALGeometry::GetPhiBoundariesOfSMGap(Int_t nPhiSec, Double_t &phiMin, Double_t &phiMax) const +{ + // 0<= nPhiSec <=4; phi in rad + // 0; gap boundaries between 0th&2th | 1th&3th SM + // 1; gap boundaries between 2th&4th | 3th&5th SM + // 2; gap boundaries between 4th&6th | 5th&7th SM + // 3; gap boundaries between 6th&8th | 7th&9th SM + // 4; gap boundaries between 8th&10th | 9th&11th SM + if(nPhiSec<0 || nPhiSec >4) return kFALSE; + phiMin = fPhiBoundariesOfSM[2*nPhiSec+1]; + phiMax = fPhiBoundariesOfSM[2*nPhiSec+2]; + return kTRUE; +} + +Bool_t AliEMCALGeometry::SuperModuleNumberFromEtaPhi(Double_t eta, Double_t phi, Int_t &nSupMod) const +{ + // Return false if phi belongs a phi cracks between SM + + static Int_t i; + + if(TMath::Abs(eta) > fEtaMaxOfTRD1) return kFALSE; + + phi = TVector2::Phi_0_2pi(phi); // move phi to (0,2pi) boundaries + for(i=0; i<6; i++) { + if(phi>=fPhiBoundariesOfSM[2*i] && phi<=fPhiBoundariesOfSM[2*i+1]) { + nSupMod = 2*i; + if(eta < 0.0) nSupMod++; + AliDebug(1,Form("eta %f phi %f(%5.2f) : nSupMod %i : #bound %i", eta,phi,phi*TMath::RadToDeg(), nSupMod,i)); + return kTRUE; + } + } + return kFALSE; +} + +Bool_t AliEMCALGeometry::GetAbsCellIdFromEtaPhi(Double_t eta, Double_t phi, Int_t &absId) const +{ + // Nov 17,2006 + // stay here - phi problem as usual + static Int_t nSupMod, i, ieta, iphi, etaShift, nphi; + static Double_t absEta=0.0, d=0.0, dmin=0.0, phiLoc; + absId = nSupMod = - 1; + if(SuperModuleNumberFromEtaPhi(eta, phi, nSupMod)) { + // phi index first + phi = TVector2::Phi_0_2pi(phi); + phiLoc = phi - fPhiCentersOfSM[nSupMod/2]; + nphi = fPhiCentersOfCells.GetSize(); + if(nSupMod>=10) { + phiLoc = phi - 190.*TMath::DegToRad(); + nphi /= 2; + } + + dmin = TMath::Abs(fPhiCentersOfCells[0]-phiLoc); + iphi = 0; + for(i=1; i=0 && netaGetSize()) { + trd1 = (AliEMCALShishKebabTrd1Module*)fShishKebabTrd1Modules->At(neta); + } else trd1 = 0; + return trd1; +} + +void AliEMCALGeometry::Browse(TBrowser* b) +{ + if(fShishKebabTrd1Modules) b->Add(fShishKebabTrd1Modules); + for(int i=0; iAdd(fMatrixOfSM[i]); + } +} + +Bool_t AliEMCALGeometry::IsFolder() const +{ + if(fShishKebabTrd1Modules) return kTRUE; + else return kFALSE; +}