New Trigger class, TRU mapping method included in Geometry
[u/mrichter/AliRoot.git] / EMCAL / AliEMCALGeometry.cxx
CommitLineData
2012850d 1/**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3 * *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
6 * *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
15
16/* $Id$*/
17
18//_________________________________________________________________________
19// Geometry class for EMCAL : singleton
b13bbe81 20// EMCAL consists of layers of scintillator and lead
ffa6d63b 21// Places the the Barrel Geometry of The EMCAL at Midrapidity
d87bd045 22// between 80 and 180(or 190) degrees of Phi and
ffa6d63b 23// -0.7 to 0.7 in eta
24// Number of Modules and Layers may be controlled by
25// the name of the instance defined
b13bbe81 26//*-- Author: Sahal Yacoob (LBL / UCT)
27// and : Yves Schutz (SUBATECH)
28// and : Jennifer Klay (LBL)
1963b290 29// SHASHLYK : Aleksei Pavlinov (WSU)
c63c3c5d 30// SuperModules -> module(or tower) -> cell
2012850d 31
2012850d 32// --- AliRoot header files ---
1ceeec56 33#include <assert.h>
ca8f5bd0 34#include <TMath.h>
116cbefd 35#include <TVector3.h>
c63c3c5d 36#include <TRegexp.h>
37#include <TObjArray.h>
38#include <TObjString.h>
f0377b23 39#include <assert.h>
40#include <TMatrixD.h>
41#include <TClonesArray.h>
173558f2 42
ca8f5bd0 43// -- ALICE Headers.
d64c959b 44//#include "AliConst.h"
173558f2 45
ca8f5bd0 46// --- EMCAL headers
47#include "AliEMCALGeometry.h"
f0377b23 48#include "AliEMCALDigit.h"
2012850d 49
925e6570 50ClassImp(AliEMCALGeometry)
2012850d 51
b13bbe81 52AliEMCALGeometry *AliEMCALGeometry::fgGeom = 0;
53Bool_t AliEMCALGeometry::fgInit = kFALSE;
1963b290 54TString name; // contains name of geometry
2012850d 55
c63c3c5d 56char *additionalOpts[]={"nl=", // number of sampling layers
57 "pbTh=", // cm, Thickness of the Pb
58 "scTh=" // cm, Thickness of the Sc
59};
60int nAdditionalOpts = sizeof(additionalOpts) / sizeof(char*);
61
b13bbe81 62//______________________________________________________________________
63AliEMCALGeometry::~AliEMCALGeometry(void){
64 // dtor
2012850d 65}
b13bbe81 66
395c7ba2 67//______________________________________________________________________
09884213 68Bool_t AliEMCALGeometry::AreInSameTower(Int_t id1, Int_t id2) const {
c63c3c5d 69 // Find out whether two hits are in the same tower - have to be change
395c7ba2 70 Int_t idmax = TMath::Max(id1, id2) ;
71 Int_t idmin = TMath::Min(id1, id2) ;
72 if ( ((idmax - GetNZ() * GetNPhi()) == idmin ) ||
73 ((idmax - 2 * GetNZ() * GetNPhi()) == idmin ) )
74 return kTRUE ;
75 else
76 return kFALSE ;
77}
05a92d59 78
395c7ba2 79//______________________________________________________________________
80void AliEMCALGeometry::Init(void){
81 // Initializes the EMCAL parameters
fdebddeb 82 // naming convention : GUV_WX_N_ gives the composition of a tower
395c7ba2 83 // WX inform about the composition of the EM calorimeter section:
fdebddeb 84 // thickness in mm of Pb radiator (W) and of scintillator (X), and number of scintillator layers (N)
85 // New geometry: EMCAL_55_25
1963b290 86 // 24-aug-04 for shish-kebab
87 // SHISH_25 or SHISH_62
c63c3c5d 88 // 11-oct-05 - correction for pre final design
89 // Feb 06,2006 - decrease the weight of EMCAL
fdebddeb 90 fgInit = kFALSE; // Assume failed until proven otherwise.
1963b290 91 name = GetName();
d87bd045 92 name.ToUpper();
93 fKey110DEG = 0;
94 if(name.Contains("110DEG")) fKey110DEG = 1; // for GetAbsCellId
1963b290 95
96 fNZ = 114; // granularity along Z (eta)
97 fNPhi = 168; // granularity in phi (azimuth)
98 fArm1PhiMin = 60.0; // degrees, Starting EMCAL Phi position
99 fArm1PhiMax = 180.0; // degrees, Ending EMCAL Phi position
100 fArm1EtaMin = -0.7; // pseudorapidity, Starting EMCAL Eta position
101 fArm1EtaMax = +0.7; // pseudorapidity, Ending EMCAL Eta position
102 fIPDistance = 454.0; // cm, Radial distance to inner surface of EMCAL
905263da 103 fPhiGapForSM = 0.; // cm, only for final TRD1 geometry
1963b290 104
105 // geometry
c63c3c5d 106 if(name.Contains("SHISH")){ // Only shahslyk now
905263da 107 // 7-sep-05; integration issue
108 fArm1PhiMin = 80.0; // 60 -> 80
c01485dd 109 fArm1PhiMax = 180.0; // 180 -> 190
905263da 110
111 fNumberOfSuperModules = 10; // 12 = 6 * 2 (6 in phi, 2 in Z);
1963b290 112 fSteelFrontThick = 2.54; // 9-sep-04
113 fIPDistance = 460.0;
114 fFrontSteelStrip = fPassiveScintThick = 0.0; // 13-may-05
115 fLateralSteelStrip = 0.025; // before MAY 2005
116 fPhiModuleSize = fEtaModuleSize = 11.4;
117 fPhiTileSize = fEtaTileSize = 5.52; // (11.4-5.52*2)/2. = 0.18 cm (wall thickness)
118 fNPhi = 14;
119 fNZ = 30;
120 fAlFrontThick = fGap2Active = 0;
121 fNPHIdiv = fNETAdiv = 2;
122
123 fNECLayers = 62;
124 fECScintThick = fECPbRadThickness = 0.2;
125 fSampling = 1.; // 30-aug-04 - should be calculated
126 if(name.Contains("TWIST")) { // all about EMCAL module
127 fNZ = 27; // 16-sep-04
128 } else if(name.Contains("TRD")) {
129 fIPDistance = 428.0; // 11-may-05
130 fSteelFrontThick = 0.0; // 3.17 -> 0.0; 28-mar-05 : no stell plate
131 fNPhi = 12;
132 fSampling = 12.327;
133 fPhiModuleSize = fEtaModuleSize = 12.26;
134 fNZ = 26; // 11-oct-04
135 fTrd1Angle = 1.3; // in degree
136// 18-nov-04; 1./0.08112=12.327
137// http://pdsfweb01.nersc.gov/~pavlinov/ALICE/SHISHKEBAB/RES/linearityAndResolutionForTRD1.html
138 if(name.Contains("TRD1")) { // 30-jan-05
139 // for final design
905263da 140 fPhiGapForSM = 2.; // cm, only for final TRD1 geometry
141 if(name.Contains("MAY05") || name.Contains("WSUC") || name.Contains("FINAL")){
1963b290 142 fNumberOfSuperModules = 12; // 20-may-05
143 if(name.Contains("WSUC")) fNumberOfSuperModules = 1; // 27-may-05
144 fNECLayers = 77; // (13-may-05 from V.Petrov)
145 fPhiModuleSize = 12.5; // 20-may-05 - rectangular shape
146 fEtaModuleSize = 11.9;
147 fECScintThick = fECPbRadThickness = 0.16;// (13-may-05 from V.Petrov)
148 fFrontSteelStrip = 0.025;// 0.025cm = 0.25mm (13-may-05 from V.Petrov)
149 fLateralSteelStrip = 0.01; // 0.01cm = 0.1mm (13-may-05 from V.Petrov) - was 0.025
150 fPassiveScintThick = 0.8; // 0.8cm = 8mm (13-may-05 from V.Petrov)
151 fNZ = 24;
152 fTrd1Angle = 1.5; // 1.3 or 1.5
905263da 153
154 if(name.Contains("FINAL")) { // 9-sep-05
155 fNumberOfSuperModules = 10;
d87bd045 156 if(name.Contains("110DEG")) {
157 fNumberOfSuperModules = 12;// last two modules have size 10 degree in phi (180<phi<190)
158 fArm1PhiMax = 200.0; // for XEN1 and turn angle of super modules
159 }
905263da 160 fPhiModuleSize = 12.26 - fPhiGapForSM / Float_t(fNPhi); // first assumption
161 fEtaModuleSize = fPhiModuleSize;
c01485dd 162 if(name.Contains("HUGE")) fNECLayers *= 3; // 28-oct-05 for analysing leakage
905263da 163 }
1963b290 164 }
165 } else if(name.Contains("TRD2")) { // 30-jan-05
166 fSteelFrontThick = 0.0; // 11-mar-05
167 fIPDistance+= fSteelFrontThick; // 1-feb-05 - compensate absence of steel plate
168 fTrd1Angle = 1.64; // 1.3->1.64
169 fTrd2AngleY = fTrd1Angle; // symmetric case now
170 fEmptySpace = 0.2; // 2 mm
171 fTubsR = fIPDistance; // 31-jan-05 - as for Fred case
172
173 fPhiModuleSize = fTubsR*2.*TMath::Tan(fTrd2AngleY*TMath::DegToRad()/2.);
174 fPhiModuleSize -= fEmptySpace/2.; // 11-mar-05
175 fEtaModuleSize = fPhiModuleSize; // 20-may-05
176 fTubsTurnAngle = 3.;
177 }
178 fNPHIdiv = fNETAdiv = 2; // 13-oct-04 - division again
179 if(name.Contains("3X3")) { // 23-nov-04
180 fNPHIdiv = fNETAdiv = 3;
181 } else if(name.Contains("4X4")) {
182 fNPHIdiv = fNETAdiv = 4;
183 }
184 }
185 fPhiTileSize = fPhiModuleSize/2. - fLateralSteelStrip; // 13-may-05
186 fEtaTileSize = fEtaModuleSize/2. - fLateralSteelStrip; // 13-may-05
187
188 if(name.Contains("25")){
189 fNECLayers = 25;
190 fECScintThick = fECPbRadThickness = 0.5;
191 }
192 if(name.Contains("WSUC")){ // 18-may-05 - about common structure
193 fShellThickness = 30.; // should be change
194 fNPhi = fNZ = 4;
195 }
c63c3c5d 196
197 CheckAditionalOptions();
198
1963b290 199 // constant for transition absid <--> indexes
200 fNCellsInTower = fNPHIdiv*fNETAdiv;
201 fNCellsInSupMod = fNCellsInTower*fNPhi*fNZ;
202 fNCells = fNCellsInSupMod*fNumberOfSuperModules;
d87bd045 203 if(name.Contains("110DEG")) fNCells -= fNCellsInSupMod;
1963b290 204
205 fLongModuleSize = fNECLayers*(fECScintThick + fECPbRadThickness);
206 if(name.Contains("MAY05")) fLongModuleSize += (fFrontSteelStrip + fPassiveScintThick);
207
208 // 30-sep-04
209 if(name.Contains("TRD")) {
210 f2Trd1Dx2 = fEtaModuleSize + 2.*fLongModuleSize*TMath::Tan(fTrd1Angle*TMath::DegToRad()/2.);
211 if(name.Contains("TRD2")) { // 27-jan-05
212 f2Trd2Dy2 = fPhiModuleSize + 2.*fLongModuleSize*TMath::Tan(fTrd2AngleY*TMath::DegToRad()/2.);
213 }
214 }
c63c3c5d 215 } else Fatal("Init", "%s is an undefined geometry!", name.Data()) ;
fdebddeb 216
1963b290 217 fNPhiSuperModule = fNumberOfSuperModules/2;
218 if(fNPhiSuperModule<1) fNPhiSuperModule = 1;
fdebddeb 219 //There is always one more scintillator than radiator layer because of the first block of aluminium
220 fShellThickness = fAlFrontThick + fGap2Active + fNECLayers*GetECScintThick()+(fNECLayers-1)*GetECPbRadThick();
1963b290 221 if(name.Contains("SHISH")) {
222 fShellThickness = fSteelFrontThick + fLongModuleSize;
223 if(name.Contains("TWIST")) { // 13-sep-04
224 fShellThickness = TMath::Sqrt(fLongModuleSize*fLongModuleSize + fPhiModuleSize*fEtaModuleSize);
225 fShellThickness += fSteelFrontThick;
226 } else if(name.Contains("TRD")) { // 1-oct-04
227 fShellThickness = TMath::Sqrt(fLongModuleSize*fLongModuleSize + f2Trd1Dx2*f2Trd1Dx2);
228 fShellThickness += fSteelFrontThick;
229 }
230 }
fdebddeb 231
395c7ba2 232 fZLength = 2.*ZFromEtaR(fIPDistance+fShellThickness,fArm1EtaMax); // Z coverage
233 fEnvelop[0] = fIPDistance; // mother volume inner radius
234 fEnvelop[1] = fIPDistance + fShellThickness; // mother volume outer r.
235 fEnvelop[2] = 1.00001*fZLength; // add some padding for mother volume.
236
237 fgInit = kTRUE;
238
1963b290 239 if (kTRUE) {
240 printf("Init: geometry of EMCAL named %s is as follows:\n", name.Data());
905263da 241 printf( " ECAL : %d x (%f cm Pb, %f cm Sc) \n", GetNECLayers(), GetECPbRadThick(), GetECScintThick() ) ;
1963b290 242 if(name.Contains("SHISH")){
243 printf(" fIPDistance %6.3f cm \n", fIPDistance);
244 if(fSteelFrontThick>0.)
245 printf(" fSteelFrontThick %6.3f cm \n", fSteelFrontThick);
246 printf(" fNPhi %i | fNZ %i \n", fNPhi, fNZ);
d87bd045 247 printf(" fNCellsInTower %i : fNCellsInSupMod %i : fNCells %i\n",fNCellsInTower, fNCellsInSupMod, fNCells);
1963b290 248 if(name.Contains("MAY05")){
249 printf(" fFrontSteelStrip %6.4f cm (thickness of front steel strip)\n",
250 fFrontSteelStrip);
251 printf(" fLateralSteelStrip %6.4f cm (thickness of lateral steel strip)\n",
252 fLateralSteelStrip);
253 printf(" fPassiveScintThick %6.4f cm (thickness of front passive Sc tile)\n",
254 fPassiveScintThick);
255 }
c63c3c5d 256 printf(" X:Y module size %6.3f , %6.3f cm \n", fPhiModuleSize, fEtaModuleSize);
257 printf(" X:Y tile size %6.3f , %6.3f cm \n", fPhiTileSize, fEtaTileSize);
258 printf(" #of sampling layers %i(fNECLayers) \n", fNECLayers);
259 printf(" fLongModuleSize %6.3f cm \n", fLongModuleSize);
1963b290 260 printf(" #supermodule in phi direction %i \n", fNPhiSuperModule );
261 }
262 if(name.Contains("TRD")) {
263 printf(" fTrd1Angle %7.4f\n", fTrd1Angle);
264 printf(" f2Trd1Dx2 %7.4f\n", f2Trd1Dx2);
265 if(name.Contains("TRD2")) {
266 printf(" fTrd2AngleY %7.4f\n", fTrd2AngleY);
267 printf(" f2Trd2Dy2 %7.4f\n", f2Trd2Dy2);
905263da 268 printf(" fTubsR %7.2f cm\n", fTubsR);
1963b290 269 printf(" fTubsTurnAngle %7.4f\n", fTubsTurnAngle);
905263da 270 printf(" fEmptySpace %7.4f cm\n", fEmptySpace);
271 } else if(name.Contains("TRD1") && name.Contains("FINAL")){
272 printf(" fPhiGapForSM %7.4f cm \n", fPhiGapForSM);
d87bd045 273 if(name.Contains("110DEG"))printf(" Last two modules have size 10 degree in phi (180<phi<190)\n");
1963b290 274 }
275 }
88cb7938 276 printf("Granularity: %d in eta and %d in phi\n", GetNZ(), GetNPhi()) ;
1963b290 277 printf("Layout: phi = (%7.1f, %7.1f), eta = (%5.2f, %5.2f), IP = %7.2f\n",
278 GetArm1PhiMin(), GetArm1PhiMax(),GetArm1EtaMin(), GetArm1EtaMax(), GetIPDistance() );
88cb7938 279 }
f0377b23 280 //TRU parameters. These parameters values are not the final ones.
281 fNTRU = 3 ;
282 fNTRUEta = 3 ;
283 fNTRUPhi = 1 ;
2012850d 284}
173558f2 285
c63c3c5d 286//______________________________________________________________________
287
288void AliEMCALGeometry::CheckAditionalOptions()
289{ // Feb 06,2006
290 fArrayOpts = new TObjArray;
291 Int_t nopt = ParseString(name, *fArrayOpts);
292 if(nopt==1) { // no aditional option(s)
293 fArrayOpts->Delete();
294 delete fArrayOpts;
295 fArrayOpts = 0;
296 return;
297 }
298 for(Int_t i=1; i<nopt; i++){
299 TObjString *o = (TObjString*)fArrayOpts->At(i);
300
301 TString addOpt = o->String();
302 Int_t indj=-1;
303 for(Int_t j=0; j<nAdditionalOpts; j++) {
304 TString opt = additionalOpts[j];
305 if(addOpt.Contains(opt,TString::kIgnoreCase)) {
306 indj = j;
307 break;
308 }
309 }
310 if(indj<0) {
311 printf("<E> option |%s| unavailable : ** look to the file AliEMCALGeometry.h **\n",
312 addOpt.Data());
313 assert(0);
314 } else {
315 printf("<I> option |%s| is valid : number %i : |%s|\n",
316 addOpt.Data(), indj, additionalOpts[indj]);
317 if (addOpt.Contains("NL=",TString::kIgnoreCase)) {// number of sampling layers
318 sscanf(addOpt.Data(),"NL=%i", &fNECLayers);
319 printf(" fNECLayers %i (new) \n", fNECLayers);
320 } else if(addOpt.Contains("PBTH=",TString::kIgnoreCase)) {//Thickness of the Pb
321 sscanf(addOpt.Data(),"PBTH=%f", &fECPbRadThickness);
322 } else if(addOpt.Contains("SCTH=",TString::kIgnoreCase)) {//Thickness of the Sc
323 sscanf(addOpt.Data(),"SCTH=%f", &fECScintThick);
324 }
325 }
326 }
327}
328
f0377b23 329//____________________________________________________________________________
330TClonesArray * AliEMCALGeometry::FillTRU(const TClonesArray * digits) {
331
332
333 //Orders digits ampitudes list in fNTRU TRUs (384 cells) per supermodule.
334 //Each TRU is a TMatrixD, and they are kept in TClonesArrays. The number of
335 //TRU in phi is fNTRUPhi, and the number of TRU in eta is fNTRUEta. For the
336 //moment the TRU of the 2 smaller supermodules are considered to be equal
337 //to the rest.
338
339 //Check data members
340
341 if(fNTRUEta*fNTRUPhi != fNTRU)
342 Error("FillTRU"," Wrong number of TRUS per Eta or Phi");
343
344 //Initilize variables
345 //List of TRU matrices initialized to 0.
346 Int_t nCellsPhi = fNPhi*2/fNTRUPhi;
347 Int_t nCellsEta = fNZ*2/fNTRUEta;
348 TClonesArray * matrix = new TClonesArray("TMatrixD",1000);
349
350 for(Int_t k = 0; k < fNTRU*fNumberOfSuperModules; k++){
351 TMatrixD * trus = new TMatrixD(nCellsPhi,nCellsEta) ;
352 for(Int_t i = 0; i < nCellsPhi; i++)
353 for(Int_t j = 0; j < nCellsEta; j++)
354 (*trus)(i,j) = 0.0;
355
356 new((*matrix)[k]) TMatrixD(*trus) ;
357 }
358
359 AliEMCALDigit * dig ;
360
361 //Declare variables
362 Int_t id = -1;
363 Float_t amp = -1;
364 Int_t iSupMod = -1;
365 Int_t nTower = -1;
366 Int_t nIphi = -1;
367 Int_t nIeta = -1;
368 Int_t iphi = -1;
369 Int_t ieta = -1;
370
371 //Digits loop to fill TRU matrices with amplitudes.
372
373 for(Int_t idig = 0 ; idig < digits->GetEntriesFast() ; idig++){
374
375 dig = dynamic_cast<AliEMCALDigit *>(digits->At(idig)) ;
376 amp = dig->GetAmp() ; //Energy of the digit (arbitrary units)
377 id = dig->GetId() ; //Id label of the cell
378 //cout<<"idig "<<idig<<" Amp "<<amp<<" Id "<<id<<endl;
379
380 //Get eta and phi cell position in supermodule
381 Bool_t bCell = GetCellIndex(id, iSupMod, nTower, nIphi, nIeta) ;
382 if(!bCell)
383 Error("FillTRU","Wrong cell id number") ;
384
385 GetCellPhiEtaIndexInSModule(iSupMod,nTower,nIphi, nIeta,iphi,ieta);
386
387 //Check to which TRU in the supermodule belongs the cell.
388 //Supermodules are divided in a TRU matrix of dimension
389 //(fNTRUPhi,fNTRUEta).
390 //Each TRU is a cell matrix of dimension (nCellsPhi,nCellsEta)
391
392 //First calculate the row and column in the supermodule
393 //of the TRU to which the cell belongs.
394
395 Int_t col = (ieta-1)/nCellsEta+1;
396 Int_t row = (iphi-1)/nCellsPhi+1;
397 Int_t itru = col*row + (iSupMod-1)*fNTRU - 1; //Label number of the TRU
398// Info("FillTRU","SM %d, cell: phi %d, eta %d",iSupMod,iphi,ieta);
399// Info("FillTRU","SM TRU: SMrow %d, SMcol %d, SMtru %d,",row,col,itru);
400
401
402 //Fill TRU matrix with cell values
403
404 TMatrixD * trus = dynamic_cast<TMatrixD *>(matrix->At(itru)) ;
405
406 //Calculate row and column of the cell inside the TRU with number itru
407
408 Int_t irow = (iphi-1) - (row-1) * nCellsPhi;
409 Int_t icol = (ieta-1) - (col-1) * nCellsEta;
410
411 (*trus)(irow,icol) = amp ;
412
413
414 // Info("FillTRU","TRU: row %d, col %d",irow,icol);
415
416 }
417 return matrix;
418}
419
420
b13bbe81 421//______________________________________________________________________
422AliEMCALGeometry * AliEMCALGeometry::GetInstance(){
05a92d59 423 // Returns the pointer of the unique instance
424
425 return static_cast<AliEMCALGeometry *>( fgGeom ) ;
2012850d 426}
173558f2 427
b13bbe81 428//______________________________________________________________________
429AliEMCALGeometry* AliEMCALGeometry::GetInstance(const Text_t* name,
430 const Text_t* title){
431 // Returns the pointer of the unique instance
432
433 AliEMCALGeometry * rv = 0;
434 if ( fgGeom == 0 ) {
435 if ( strcmp(name,"") == 0 ) rv = 0;
436 else {
437 fgGeom = new AliEMCALGeometry(name, title);
438 if ( fgInit ) rv = (AliEMCALGeometry * ) fgGeom;
439 else {
440 rv = 0;
441 delete fgGeom;
442 fgGeom = 0;
443 } // end if fgInit
444 } // end if strcmp(name,"")
445 }else{
446 if ( strcmp(fgGeom->GetName(), name) != 0 ) {
fdebddeb 447 printf("\ncurrent geometry is ") ;
448 printf(fgGeom->GetName());
449 printf("\n you cannot call ");
450 printf(name);
b13bbe81 451 }else{
9859bfc0 452 rv = (AliEMCALGeometry *) fgGeom;
b13bbe81 453 } // end if
454 } // end if fgGeom
455 return rv;
2012850d 456}
173558f2 457
c63c3c5d 458// These methods are obsolete but use in AliEMCALRecPoint - keep it now
ca8f5bd0 459//______________________________________________________________________
395c7ba2 460Int_t AliEMCALGeometry::TowerIndex(Int_t ieta,Int_t iphi) const {
461 // Returns the tower index number from the based on the Z and Phi
fdebddeb 462 // index numbers.
395c7ba2 463 // Inputs:
fdebddeb 464 // Int_t ieta // index along z axis [1-fNZ]
465 // Int_t iphi // index along phi axis [1-fNPhi]
395c7ba2 466 // Outputs:
467 // none.
468 // Returned
469 // Int_t index // Tower index number
470
471 if ( (ieta <= 0 || ieta>GetNEta()) ||
f1da4a27 472 (iphi <= 0 || iphi>GetNPhi())) {
473 Error("TowerIndex", "Unexpected parameters eta = %d phi = %d!", ieta, iphi) ;
474 return -1;
475 }
395c7ba2 476 return ( (iphi - 1)*GetNEta() + ieta );
ca8f5bd0 477}
173558f2 478
ca8f5bd0 479//______________________________________________________________________
fdebddeb 480void AliEMCALGeometry::TowerIndexes(Int_t index,Int_t &ieta,Int_t &iphi) const {
395c7ba2 481 // Inputs:
fdebddeb 482 // Int_t index // Tower index number [1-fNZ*fNPhi]
395c7ba2 483 // Outputs:
484 // Int_t ieta // index allong z axis [1-fNZ]
485 // Int_t iphi // index allong phi axis [1-fNPhi]
395c7ba2 486 // Returned
487 // none.
395c7ba2 488
fdebddeb 489 Int_t nindex = 0;
395c7ba2 490
fdebddeb 491 if ( IsInECA(index) ) { // ECAL index
395c7ba2 492 nindex = index ;
395c7ba2 493 }
f1da4a27 494 else {
495 Error("TowerIndexes", "Unexpected Id number!") ;
496 ieta = -1;
497 iphi = -1;
498 return;
499 }
500
395c7ba2 501 if (nindex%GetNZ())
502 iphi = nindex / GetNZ() + 1 ;
503 else
504 iphi = nindex / GetNZ() ;
505 ieta = nindex - (iphi - 1) * GetNZ() ;
506
507 if (gDebug==2)
fdebddeb 508 printf("TowerIndexes: index=%d,%d, ieta=%d, iphi = %d", index, nindex,ieta, iphi) ;
395c7ba2 509 return;
510
ca8f5bd0 511}
173558f2 512
ca8f5bd0 513//______________________________________________________________________
a34b7b9f 514void AliEMCALGeometry::EtaPhiFromIndex(Int_t index,Float_t &eta,Float_t &phi) const {
ca8f5bd0 515 // given the tower index number it returns the based on the eta and phi
516 // of the tower.
517 // Inputs:
fdebddeb 518 // Int_t index // Tower index number [1-fNZ*fNPhi]
ca8f5bd0 519 // Outputs:
520 // Float_t eta // eta of center of tower in pseudorapidity
521 // Float_t phi // phi of center of tower in degrees
522 // Returned
523 // none.
fdebddeb 524 Int_t ieta, iphi;
395c7ba2 525 Float_t deta, dphi ;
ca8f5bd0 526
fdebddeb 527 TowerIndexes(index,ieta,iphi);
395c7ba2 528
529 if (gDebug == 2)
fdebddeb 530 printf("EtaPhiFromIndex: index = %d, ieta = %d, iphi = %d", index, ieta, iphi) ;
395c7ba2 531
532 deta = (GetArm1EtaMax()-GetArm1EtaMin())/(static_cast<Float_t>(GetNEta()));
533 eta = GetArm1EtaMin() + ((static_cast<Float_t>(ieta) - 0.5 ))*deta;
534
535 dphi = (GetArm1PhiMax() - GetArm1PhiMin())/(static_cast<Float_t>(GetNPhi())); // in degrees.
536 phi = GetArm1PhiMin() + dphi*(static_cast<Float_t>(iphi) - 0.5);//iphi range [1-fNphi].
ca8f5bd0 537}
173558f2 538
ca8f5bd0 539//______________________________________________________________________
a34b7b9f 540Int_t AliEMCALGeometry::TowerIndexFromEtaPhi(Float_t eta,Float_t phi) const {
ca8f5bd0 541 // returns the tower index number based on the eta and phi of the tower.
542 // Inputs:
543 // Float_t eta // eta of center of tower in pseudorapidity
544 // Float_t phi // phi of center of tower in degrees
545 // Outputs:
546 // none.
547 // Returned
548 // Int_t index // Tower index number [1-fNZ*fNPhi]
395c7ba2 549
e908f07f 550 Int_t ieta,iphi;
ca8f5bd0 551
395c7ba2 552 ieta = static_cast<Int_t> ( 1 + (static_cast<Float_t>(GetNEta()) * (eta - GetArm1EtaMin()) / (GetArm1EtaMax() - GetArm1EtaMin())) ) ;
553
554 if( ieta <= 0 || ieta > GetNEta() ) {
555 Error("TowerIndexFromEtaPhi", "Unexpected (eta, phi) = (%f, %f) value, outside of EMCAL!", eta, phi) ;
556 return -1 ;
557 }
558
559 iphi = static_cast<Int_t> ( 1 + (static_cast<Float_t>(GetNPhi()) * (phi - GetArm1PhiMin()) / (GetArm1PhiMax() - GetArm1PhiMin())) ) ;
560
561 if( iphi <= 0 || iphi > GetNPhi() ) {
562 Error("TowerIndexFromEtaPhi", "Unexpected (eta, phi) = (%f, %f) value, outside of EMCAL!", eta, phi) ;
563 return -1 ;
564 }
565
566 return TowerIndex(ieta,iphi);
ca8f5bd0 567}
173558f2 568
ca8f5bd0 569//______________________________________________________________________
a34b7b9f 570Bool_t AliEMCALGeometry::AbsToRelNumbering(Int_t AbsId, Int_t *relid) const {
ca8f5bd0 571 // Converts the absolute numbering into the following array/
2608a1fc 572 // relid[0] = Row number inside EMCAL
573 // relid[1] = Column number inside EMCAL
ca8f5bd0 574 // Input:
575 // Int_t AbsId // Tower index number [1-2*fNZ*fNPhi]
576 // Outputs:
2608a1fc 577 // Int_t *relid // array of 2. Described above.
ca8f5bd0 578 Bool_t rv = kTRUE ;
fdebddeb 579 Int_t ieta=0,iphi=0,index=AbsId;
ca8f5bd0 580
fdebddeb 581 TowerIndexes(index,ieta,iphi);
2608a1fc 582 relid[0] = ieta;
583 relid[1] = iphi;
ca8f5bd0 584
585 return rv;
586}
173558f2 587
ca8f5bd0 588//______________________________________________________________________
395c7ba2 589void AliEMCALGeometry::PosInAlice(const Int_t *relid, Float_t &theta, Float_t &phi) const
590{
591 // Converts the relative numbering into the local EMCAL-module (x, z)
592 // coordinates
2608a1fc 593 Int_t ieta = relid[0]; // offset along x axis
594 Int_t iphi = relid[1]; // offset along z axis
395c7ba2 595 Int_t index;
596 Float_t eta;
597
598 index = TowerIndex(ieta,iphi);
599 EtaPhiFromIndex(index,eta,phi);
fdebddeb 600 //theta = 180.*(2.0*TMath::ATan(TMath::Exp(-eta)))/TMath::Pi();
601 theta = 2.0*TMath::ATan(TMath::Exp(-eta));
395c7ba2 602
fdebddeb 603 // correct for distance to IP
604 Float_t d = GetIP2ECASection() - GetIPDistance() ;
395c7ba2 605
606 Float_t correction = 1 + d/GetIPDistance() ;
607 Float_t tantheta = TMath::Tan(theta) * correction ;
608 theta = TMath::ATan(tantheta) * TMath::RadToDeg() ;
609 if (theta < 0 )
610 theta += 180. ;
611
612 return;
613}
ca8f5bd0 614
395c7ba2 615//______________________________________________________________________
09884213 616void AliEMCALGeometry::PosInAlice(Int_t absid, Float_t &theta, Float_t &phi) const
395c7ba2 617{
618 // Converts the relative numbering into the local EMCAL-module (x, z)
619 // coordinates
2608a1fc 620 Int_t relid[2] ;
395c7ba2 621 AbsToRelNumbering(absid, relid) ;
2608a1fc 622 Int_t ieta = relid[0]; // offset along x axis
623 Int_t iphi = relid[1]; // offset along z axis
395c7ba2 624 Int_t index;
625 Float_t eta;
626
627 index = TowerIndex(ieta,iphi);
628 EtaPhiFromIndex(index,eta,phi);
629 theta = 2.0*TMath::ATan(TMath::Exp(-eta)) ;
630
fdebddeb 631 // correct for distance to IP
395c7ba2 632 Float_t d = 0. ;
fdebddeb 633 if (IsInECA(absid))
88cb7938 634 d = GetIP2ECASection() - GetIPDistance() ;
f1da4a27 635 else {
636 Error("PosInAlice", "Unexpected id # %d!", absid) ;
637 return;
638 }
395c7ba2 639
640 Float_t correction = 1 + d/GetIPDistance() ;
641 Float_t tantheta = TMath::Tan(theta) * correction ;
642 theta = TMath::ATan(tantheta) * TMath::RadToDeg() ;
643 if (theta < 0 )
644 theta += 180. ;
645
646 return;
ca8f5bd0 647}
6119e5db 648
649//______________________________________________________________________
650void AliEMCALGeometry::XYZFromIndex(const Int_t *relid,Float_t &x,Float_t &y, Float_t &z) const {
651 // given the tower relative number it returns the X, Y and Z
652 // of the tower.
653
654 // Outputs:
655 // Float_t x // x of center of tower in cm
656 // Float_t y // y of center of tower in cm
657 // Float_t z // z of centre of tower in cm
658 // Returned
659 // none.
660
fdebddeb 661 Float_t eta,theta, phi,cylradius=0. ;
6119e5db 662
2608a1fc 663 Int_t ieta = relid[0]; // offset along x axis
664 Int_t iphi = relid[1]; // offset along z axis.
6119e5db 665 Int_t index;
666
395c7ba2 667 index = TowerIndex(ieta,iphi);
6119e5db 668 EtaPhiFromIndex(index,eta,phi);
669 theta = 180.*(2.0*TMath::ATan(TMath::Exp(-eta)))/TMath::Pi();
6119e5db 670
fdebddeb 671 cylradius = GetIP2ECASection() ;
a97849a9 672
395c7ba2 673 Double_t kDeg2Rad = TMath::DegToRad() ;
fdebddeb 674 x = cylradius * TMath::Cos(phi * kDeg2Rad ) ;
675 y = cylradius * TMath::Sin(phi * kDeg2Rad ) ;
676 z = cylradius / TMath::Tan(theta * kDeg2Rad ) ;
6119e5db 677
678 return;
679}
680
395c7ba2 681//______________________________________________________________________
09884213 682void AliEMCALGeometry::XYZFromIndex(Int_t absid, TVector3 &v) const {
395c7ba2 683 // given the tower relative number it returns the X, Y and Z
684 // of the tower.
685
686 // Outputs:
687 // Float_t x // x of center of tower in cm
688 // Float_t y // y of center of tower in cm
689 // Float_t z // z of centre of tower in cm
690 // Returned
691 // none.
692
fdebddeb 693 Float_t theta, phi,cylradius=0. ;
395c7ba2 694
695 PosInAlice(absid, theta, phi) ;
696
88cb7938 697 if ( IsInECA(absid) )
fdebddeb 698 cylradius = GetIP2ECASection() ;
f1da4a27 699 else {
700 Error("XYZFromIndex", "Unexpected Tower section") ;
701 return;
702 }
395c7ba2 703
704 Double_t kDeg2Rad = TMath::DegToRad() ;
fdebddeb 705 v.SetX(cylradius * TMath::Cos(phi * kDeg2Rad ) );
706 v.SetY(cylradius * TMath::Sin(phi * kDeg2Rad ) );
707 v.SetZ(cylradius / TMath::Tan(theta * kDeg2Rad ) ) ;
395c7ba2 708
709 return;
710}
ab37d09c 711
712Bool_t AliEMCALGeometry::IsInEMCAL(Double_t x, Double_t y, Double_t z) const {
713 // Checks whether point is inside the EMCal volume
714 //
715 // Code uses cylindrical approximation made of inner radius (for speed)
716 //
717 // Points behind EMCAl, i.e. R > outer radius, but eta, phi in acceptance
718 // are considered to inside
719
720 Double_t r=sqrt(x*x+y*y);
721
722 if ( r > fEnvelop[0] ) {
723 Double_t theta;
724 theta = TMath::ATan2(r,z);
725 Double_t eta;
726 if(theta == 0)
727 eta = 9999;
728 else
729 eta = -TMath::Log(TMath::Tan(theta/2.));
730 if (eta < fArm1EtaMin || eta > fArm1EtaMax)
731 return 0;
732
733 Double_t phi = TMath::ATan2(y,x) * 180./TMath::Pi();
734 if (phi > fArm1PhiMin && phi < fArm1PhiMax)
735 return 1;
736 }
737 return 0;
738}
c63c3c5d 739// ==
1963b290 740
741//
742// == Shish-kebab cases ==
743//
eb0b1051 744Int_t AliEMCALGeometry::GetAbsCellId(Int_t nSupMod, Int_t nTower, Int_t nIphi, Int_t nIeta)
d87bd045 745{ // 27-aug-04;
746 // corr. 21-sep-04;
747 // 13-oct-05; 110 degree case
748 // 1 <= nSupMod <= fNumberOfSuperModules
749 // 1 <= nTower <= fNPHI * fNZ ( fNPHI * fNZ/2 for fKey110DEG=1)
750 // 1 <= nIphi <= fNPHIdiv
751 // 1 <= nIeta <= fNETAdiv
752 // 1 <= absid <= fNCells
753 static Int_t id=0; // have to change from 1 to fNCells
754 if(fKey110DEG == 1 && nSupMod > 10) { // 110 degree case; last two supermodules
755 id = fNCellsInSupMod*10 + (fNCellsInSupMod/2)*(nSupMod-11);
756 } else {
757 id = fNCellsInSupMod*(nSupMod-1);
758 }
1963b290 759 id += fNCellsInTower *(nTower-1);
760 id += fNPHIdiv *(nIphi-1);
761 id += nIeta;
762 if(id<=0 || id > fNCells) {
500aeccc 763// printf(" wrong numerations !!\n");
764// printf(" id %6i(will be force to -1)\n", id);
765// printf(" fNCells %6i\n", fNCells);
766// printf(" nSupMod %6i\n", nSupMod);
767// printf(" nTower %6i\n", nTower);
768// printf(" nIphi %6i\n", nIphi);
769// printf(" nIeta %6i\n", nIeta);
d87bd045 770 id = -TMath::Abs(id);
1963b290 771 }
772 return id;
773}
774
775Bool_t AliEMCALGeometry::CheckAbsCellId(Int_t ind)
776{ // 17-niv-04 - analog of IsInECA
777 if(name.Contains("TRD")) {
778 if(ind<=0 || ind > fNCells) return kFALSE;
779 else return kTRUE;
780 } else return IsInECA(ind);
781}
782
eb0b1051 783Bool_t AliEMCALGeometry::GetCellIndex(Int_t absId,Int_t &nSupMod,Int_t &nTower,Int_t &nIphi,Int_t &nIeta)
1963b290 784{ // 21-sep-04
d87bd045 785 // 19-oct-05;
786 static Int_t tmp=0, sm10=0;
1963b290 787 if(absId<=0 || absId>fNCells) {
500aeccc 788// Info("GetCellIndex"," wrong abs Id %i !! \n", absId);
1963b290 789 return kFALSE;
790 }
d87bd045 791 sm10 = fNCellsInSupMod*10;
792 if(fKey110DEG == 1 && absId > sm10) { // 110 degree case; last two supermodules
793 nSupMod = (absId-1-sm10) / (fNCellsInSupMod/2) + 11;
794 tmp = (absId-1-sm10) % (fNCellsInSupMod/2);
795 } else {
796 nSupMod = (absId-1) / fNCellsInSupMod + 1;
797 tmp = (absId-1) % fNCellsInSupMod;
798 }
1963b290 799
800 nTower = tmp / fNCellsInTower + 1;
801 tmp = tmp % fNCellsInTower;
d87bd045 802 nIphi = tmp / fNPHIdiv + 1;
803 nIeta = tmp % fNPHIdiv + 1;
1963b290 804
805 return kTRUE;
806}
807
eb0b1051 808void AliEMCALGeometry::GetTowerPhiEtaIndexInSModule(Int_t nSupMod, Int_t nTower, int &iphit, int &ietat)
d87bd045 809{ // added nSupMod; have to check - 19-oct-05 !
810 static Int_t nphi;
811
812 if(fKey110DEG == 1 && nSupMod>=11) nphi = fNPhi/2;
813 else nphi = fNPhi;
814
815 ietat = (nTower-1)/nphi + 1; // have to change from 1 to fNZ
d87bd045 816 iphit = (nTower-1)%nphi + 1; // have to change from 1 to fNPhi
817}
818
eb0b1051 819void AliEMCALGeometry::GetCellPhiEtaIndexInSModule(Int_t nSupMod, Int_t nTower, Int_t nIphi, Int_t nIeta,
1963b290 820int &iphi, int &ieta)
c01485dd 821{ // added nSupMod; Nov 25, 05
822 static Int_t iphit, ietat;
823
824 GetTowerPhiEtaIndexInSModule(nSupMod,nTower, iphit, ietat);
825 // have to change from 1 to fNZ*fNETAdiv
826 ieta = (ietat-1)*fNETAdiv + (3-nIeta); // x(module) = -z(SM)
827 // iphi - have to change from 1 to fNPhi*fNPHIdiv
828 iphi = (iphit-1)*fNPHIdiv + nIphi; // y(module) = y(SM)
1963b290 829}
c63c3c5d 830// Service routine
831int AliEMCALGeometry::ParseString(const TString &topt, TObjArray &Opt)
832{ // Feb 06, 2006
833 Ssiz_t begin, index, end, end2;
834 begin = index = end = end2 = 0;
835 TRegexp separator("[^ ;,\\t\\s/]+");
836 while ( (begin < topt.Length()) && (index != kNPOS) ) {
837 // loop over given options
838 index = topt.Index(separator,&end,begin);
839 if (index >= 0 && end >= 1) {
840 TString substring(topt(index,end));
841 Opt.Add(new TObjString(substring.Data()));
842 }
843 begin += end+1;
844 }
845 return Opt.GetEntries();
846}