Adding statistical function (Marian)
[u/mrichter/AliRoot.git] / PHOS / AliPHOSAnalyze.cxx
CommitLineData
6ad0bfa0 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
b2a60966 16/* $Id$ */
17
6ad0bfa0 18//_________________________________________________________________________
efad3788 19// Algorythm class to analyze PHOS events. In this class we demostrate,
20// how to handle reconstructed objects with AliPHSOIndexToObject.
21// As an example we propose sulotions for four most frequently used tasks:
22// DrawRecon(...) - to draw reconstructed objects in the PHOS plane,
23// very usefull in the debuging
24// InvarianMass(...) - to calculate "REAL" and "MIXED" photon pairs
25// invariant mass distributions
26// EnergyResoluition(...) -\ Energy and position resolutions of the
27// PositionResolution(...)-/ reconstructed photons
28// Contamination(...) - calculates contamination of the photon spectrum and
29// pobability of reconstruction of several primaries as
30// kGAMMA,kELECTRON etc.
21cd0c07 31//// User Case:
e4761a49 32// root [0] AliPHOSAnalyze * a = new AliPHOSAnalyze("galice.root")
efad3788 33// // set the file you want to analyse
34// root [1] a->DrawRecon(1,3)
35// // plot RecObjects, made in event 1, PHOS module 3
36// root [2] a->DrawRecon(1,3,"PHOSRP","another PID")
37// // plot RecObjets made in the event 1, PHOS module 3,
38// // produced in the another reconstruction pass,
39// // which produced PHOS RecParticles ("PHOSRP") with
40// // title "another PID".
41// root [3] a->InvariantMass()
42// // Calculates "REAL" and "MIXED" invariant mass
43// // distributions of kGAMMA and (kGAMMA+kNEUTRALEM)
44// // and APPENDS this to the file "invmass.root"
45// root [4] a->PositionResolution()
46// // calculates two dimentional histos: energy of the primary
47// // photon vs distance betwin incedence point and reconstructed
48// // poisition. One can analyse the produced file position.root
49// // with macro PhotonPosition.C
50// root [5] a->EnergyResolution()
51// // calculates two dimentional histos: energy of the primary
52// // photon vs energy of the reconstructed particle. One can
53// // analyse the produced file energy.root
54// // with macro PhotonEnergy.C
55// root [6] a->Contamination()
56// // fills spectra of primary photons and several kinds of
57// // reconstructed particles, so that analyzing them one can
58// // estimate conatmination, efficiency of registration etc.
a3dfe79c 59//*--
efad3788 60//*-- Author: Dmitri Peressounko (SUBATECH & RRC Kurchatov Institute)
6ad0bfa0 61//////////////////////////////////////////////////////////////////////////////
62
baef0810 63
6ad0bfa0 64// --- ROOT system ---
65
92862013 66#include "TFile.h"
67#include "TH1.h"
6ad0bfa0 68#include "TH2.h"
83448140 69#include "TH2.h"
6ad0bfa0 70#include "TParticle.h"
71#include "TClonesArray.h"
6ad0bfa0 72#include "TMath.h"
a88eea6f 73#include "TROOT.h"
6ad0bfa0 74
75// --- Standard library ---
76
77// --- AliRoot header files ---
78
351dd634 79#include "AliLog.h"
88cb7938 80#include "AliStack.h"
e957fea8 81#include "AliPHOSGeometry.h"
6ad0bfa0 82#include "AliPHOSAnalyze.h"
6ad0bfa0 83#include "AliPHOSDigit.h"
efad3788 84#include "AliPHOSSDigitizer.h"
e957fea8 85#include "AliPHOSEmcRecPoint.h"
86#include "AliPHOSCpvRecPoint.h"
6ad0bfa0 87#include "AliPHOSTrackSegment.h"
88#include "AliPHOSRecParticle.h"
88cb7938 89#include "AliPHOSLoader.h"
6ad0bfa0 90
baef0810 91
6ad0bfa0 92ClassImp(AliPHOSAnalyze)
93
6ad0bfa0 94//____________________________________________________________________________
43fbaae1 95AliPHOSAnalyze::AliPHOSAnalyze():
96 fCorrection(1.2), //Value calculated for default parameters of reconstruction
97 fEvt(0),
98 ffileName(),
99 fRunLoader(0)
6ad0bfa0 100{
b2a60966 101 // default ctor (useless)
6ad0bfa0 102}
103
104//____________________________________________________________________________
43fbaae1 105AliPHOSAnalyze::AliPHOSAnalyze(Text_t * fileName):
106 fCorrection(1.05), //Value calculated for default parameters of reconstruction
107 fEvt(0),
108 ffileName(fileName),
109 fRunLoader(0)
6ad0bfa0 110{
83974468 111 // ctor: analyze events from root file "name"
88cb7938 112 fRunLoader = AliRunLoader::Open(fileName,"AliPHOSAnalyze");
113 if (fRunLoader == 0x0)
114 {
351dd634 115 AliError(Form("Error Loading session"));
88cb7938 116 }
6ad0bfa0 117}
118
119//____________________________________________________________________________
43fbaae1 120AliPHOSAnalyze::AliPHOSAnalyze(const AliPHOSAnalyze & ana):
121 TObject(ana),
122 fCorrection(0.),
123 fEvt(0),
124 ffileName(),
125 fRunLoader(0)
88714635 126{
127 // copy ctor
128 ( (AliPHOSAnalyze &)ana ).Copy(*this) ;
129}
130
131//____________________________________________________________________________
6ad0bfa0 132AliPHOSAnalyze::~AliPHOSAnalyze()
133{
134 // dtor
135
6ad0bfa0 136}
6ad0bfa0 137//____________________________________________________________________________
90cceaf6 138void AliPHOSAnalyze::DrawRecon(Int_t Nevent,Int_t Nmod){
efad3788 139 //Draws pimary particles and reconstructed
140 //digits, RecPoints, RecPartices etc
141 //for event Nevent in the module Nmod.
9688c1dd 142
88cb7938 143 //========== Create ObjectLoader
144 if (fRunLoader == 0x0)
145 {
351dd634 146 AliError(Form("Error Loading session"));
88cb7938 147 return;
148 }
149
150 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
151 if ( gime == 0 )
152 {
351dd634 153 AliError(Form("Could not obtain the Loader object !"));
88cb7938 154 return ;
155 }
156
157
158 if(Nevent >= fRunLoader->GetNumberOfEvents() ) {
351dd634 159 AliError(Form("There is no event %d only %d events available", Nevent, fRunLoader->GetNumberOfEvents() )) ;
1c5cf796 160 return ;
161 }
7b7c1533 162 const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
88cb7938 163 fRunLoader->GetEvent(Nevent);
9688c1dd 164
165 Int_t nx = phosgeom->GetNPhi() ;
166 Int_t nz = phosgeom->GetNZ() ;
167 Float_t * cri= phosgeom->GetEMCAGeometry()->GetCrystalHalfSize() ;
168 Float_t x = nx*cri[0] ;
169 Float_t z = nz*cri[2] ;
170 Int_t nxCPV = (Int_t) (nx*phosgeom->GetPadSizePhi()/(2.*cri[0])) ;
171 Int_t nzCPV = (Int_t) (nz*phosgeom->GetPadSizeZ()/(2.*cri[2])) ;
172
1c5cf796 173 TH2F * emcDigits = (TH2F*) gROOT->FindObject("emcDigits") ;
174 if(emcDigits)
175 emcDigits->Delete() ;
176 emcDigits = new TH2F("emcDigits","EMC digits", nx,-x,x,nz,-z,z);
177 TH2F * emcSdigits =(TH2F*) gROOT->FindObject("emcSdigits") ;
178 if(emcSdigits)
179 emcSdigits->Delete() ;
180 emcSdigits = new TH2F("emcSdigits","EMC sdigits", nx,-x,x,nz,-z,z);
181 TH2F * emcRecPoints = (TH2F*)gROOT->FindObject("emcRecPoints") ;
182 if(emcRecPoints)
183 emcRecPoints->Delete() ;
184 emcRecPoints = new TH2F("emcRecPoints","EMC RecPoints",nx,-x,x,nz,-z,z);
185 TH2F * cpvSdigits =(TH2F*) gROOT->FindObject("cpvSdigits") ;
186 if(cpvSdigits)
187 cpvSdigits->Delete() ;
188 cpvSdigits = new TH2F("cpvSdigits","CPV sdigits", nx,-x,x,nz,-z,z);
189 TH2F * cpvDigits = (TH2F*)gROOT->FindObject("cpvDigits") ;
190 if(cpvDigits)
191 cpvDigits->Delete() ;
192 cpvDigits = new TH2F("cpvDigits","CPV digits", nxCPV,-x,x,nzCPV,-z,z) ;
193 TH2F * cpvRecPoints= (TH2F*)gROOT->FindObject("cpvRecPoints") ;
194 if(cpvRecPoints)
195 cpvRecPoints->Delete() ;
196 cpvRecPoints = new TH2F("cpvRecPoints","CPV RecPoints", nxCPV,-x,x,nzCPV,-z,z) ;
197
198 TH2F * phot = (TH2F*)gROOT->FindObject("phot") ;
199 if(phot)
200 phot->Delete() ;
201 phot = new TH2F("phot","Primary Photon", nx,-x,x,nz,-z,z);
202 TH2F * recPhot = (TH2F*)gROOT->FindObject("recPhot") ;
203 if(recPhot)
204 recPhot->Delete() ;
205 recPhot = new TH2F("recPhot","RecParticles with primary Photon",nx,-x,x,nz,-z,z);
9688c1dd 206
91daaf24 207 //Get Vertex
208 Double_t vtx[3]={0.,0.,0.} ;
209//DP: extract vertex either from Generator or from data
210
88cb7938 211
efad3788 212 //Plot Primary Particles
88cb7938 213
214 if (fRunLoader->Stack() == 0x0) fRunLoader->LoadKinematics("READ");
215
216
7b7c1533 217 const TParticle * primary ;
efad3788 218 Int_t iPrimary ;
88cb7938 219 for ( iPrimary = 0 ; iPrimary < fRunLoader->Stack()->GetNprimary() ; iPrimary++)
efad3788 220 {
88cb7938 221 primary = fRunLoader->Stack()->Particle(iPrimary);
222
223 Int_t primaryType = primary->GetPdgCode();
1c5cf796 224// if( (primaryType == 211)||(primaryType == -211)||(primaryType == 2212)||(primaryType == -2212)
88cb7938 225// ||(primaryType == 11)||(primaryType == -11) ) {
1c5cf796 226// Int_t moduleNumber ;
227// Double_t primX, primZ ;
228// phosgeom->ImpactOnEmc(primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
229// if(moduleNumber==Nmod)
230// charg->Fill(primZ,primX,primary->Energy()) ;
231// }
efad3788 232 if( primaryType == 22 ) {
233 Int_t moduleNumber ;
234 Double_t primX, primZ ;
91daaf24 235 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
7b7c1533 236 if(moduleNumber==Nmod)
efad3788 237 phot->Fill(primZ,primX,primary->Energy()) ;
238 }
1c5cf796 239// else{
240// if( primaryType == -2112 ) {
241// Int_t moduleNumber ;
242// Double_t primX, primZ ;
243// phosgeom->ImpactOnEmc(primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
244// if(moduleNumber==Nmod)
245// nbar->Fill(primZ,primX,primary->Energy()) ;
246// }
247// }
efad3788 248 }
9688c1dd 249
ed4205d8 250
efad3788 251 Int_t iSDigit ;
cce01dd5 252 AliPHOSDigit * sdigit ;
afa51c4e 253 const TClonesArray * sdigits = gime->SDigits() ;
1c5cf796 254 Int_t nsdig[5] = {0,0,0,0,0} ;
9688c1dd 255 if(sdigits){
256 for(iSDigit = 0; iSDigit < sdigits->GetEntriesFast() ; iSDigit++)
efad3788 257 {
88cb7938 258 sdigit = (AliPHOSDigit *) sdigits->At(iSDigit) ;
259 Int_t relid[4];
260 phosgeom->AbsToRelNumbering(sdigit->GetId(), relid) ;
261 Float_t x,z ;
262 phosgeom->RelPosInModule(relid,x,z);
263 AliPHOSSDigitizer* sd = dynamic_cast<AliPHOSSDigitizer*>(gime->SDigitizer());
264 Float_t e = sd->Calibrate(sdigit->GetAmp()) ;
265 nsdig[relid[0]-1]++ ;
266 if(relid[0]==Nmod){
267 if(relid[1]==0) //EMC
268 emcSdigits->Fill(x,z,e) ;
269 if( relid[1]!=0 )
270 cpvSdigits->Fill(x,z,e) ;
271 }
efad3788 272 }
9688c1dd 273 }
21cd0c07 274 TString message ;
275 message = "Number of EMC + CPV SDigits per module: \n" ;
276 message += "%d %d %d %d %d\n";
351dd634 277 AliInfo(Form(message.Data(), nsdig[0], nsdig[1], nsdig[2], nsdig[3], nsdig[4] )) ;
9688c1dd 278
efad3788 279 //Plot digits
280 Int_t iDigit ;
cce01dd5 281 AliPHOSDigit * digit ;
afa51c4e 282 const TClonesArray * digits = gime->Digits();
9688c1dd 283 if(digits) {
cce01dd5 284 for(iDigit = 0; iDigit < digits->GetEntriesFast(); iDigit++)
285 {
88cb7938 286 digit = (AliPHOSDigit *) digits->At(iDigit) ;
287 Int_t relid[4];
288 phosgeom->AbsToRelNumbering(digit->GetId(), relid) ;
289 Float_t x,z ;
290 phosgeom->RelPosInModule(relid,x,z) ;
291 AliPHOSSDigitizer* sd = dynamic_cast<AliPHOSSDigitizer*>(gime->SDigitizer());
292 Float_t e = sd->Calibrate(digit->GetAmp()) ;
293 if(relid[0]==Nmod){
294 if(relid[1]==0) //EMC
295 emcDigits->Fill(x,z,e) ;
296 if( relid[1]!=0 )
297 cpvDigits->Fill(x,z,e) ;
298 }
efad3788 299 }
9688c1dd 300 }
cce01dd5 301
88cb7938 302
efad3788 303 //Plot RecPoints
304 Int_t irecp ;
305 TVector3 pos ;
9688c1dd 306 TObjArray * emcrp = gime->EmcRecPoints() ;
307 if(emcrp) {
cce01dd5 308 for(irecp = 0; irecp < emcrp->GetEntriesFast() ; irecp ++){
9688c1dd 309 AliPHOSEmcRecPoint * emc = (AliPHOSEmcRecPoint *) emcrp->At(irecp) ;
cce01dd5 310 if(emc->GetPHOSMod()==Nmod){
88cb7938 311 emc->GetLocalPosition(pos) ;
312 emcRecPoints->Fill(pos.X(),pos.Z(),emc->GetEnergy());
cce01dd5 313 }
efad3788 314 }
9688c1dd 315 }
cce01dd5 316
9688c1dd 317 TObjArray * cpvrp = gime->CpvRecPoints() ;
318 if(cpvrp) {
cce01dd5 319 for(irecp = 0; irecp < cpvrp->GetEntriesFast() ; irecp ++){
9688c1dd 320 AliPHOSRecPoint * cpv = (AliPHOSCpvRecPoint *) cpvrp->At(irecp) ;
321 if(cpv->GetPHOSMod()==Nmod){
88cb7938 322 cpv->GetLocalPosition(pos) ;
323 cpvRecPoints->Fill(pos.X(),pos.Z(),cpv->GetEnergy());
efad3788 324 }
325 }
9688c1dd 326 }
327
efad3788 328 //Plot RecParticles
9688c1dd 329 AliPHOSRecParticle * recParticle ;
efad3788 330 Int_t iRecParticle ;
9688c1dd 331 TClonesArray * rp = gime->RecParticles() ;
332 TClonesArray * ts = gime->TrackSegments() ;
333 if(rp && ts && emcrp) {
334 for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast() ; iRecParticle++ )
cce01dd5 335 {
88cb7938 336 recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
337 Int_t moduleNumberRec ;
338 Double_t recX, recZ ;
91daaf24 339 phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
88cb7938 340 if(moduleNumberRec == Nmod){
341
342 Double_t minDistance = 5. ;
343 Int_t closestPrimary = -1 ;
344
345 //extract list of primaries: it is stored at EMC RecPoints
346 Int_t emcIndex = ((AliPHOSTrackSegment *) ts->At(recParticle->GetPHOSTSIndex()))->GetEmcIndex() ;
347 Int_t numberofprimaries ;
348 Int_t * listofprimaries = ((AliPHOSRecPoint*) emcrp->At(emcIndex))->GetPrimaries(numberofprimaries) ;
349 Int_t index ;
350 const TParticle * primary ;
351 Double_t distance = minDistance ;
352
353 for ( index = 0 ; index < numberofprimaries ; index++){
354 primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
355 Int_t moduleNumber ;
356 Double_t primX, primZ ;
91daaf24 357 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
88cb7938 358 if(moduleNumberRec == moduleNumber)
359 distance = TMath::Sqrt((recX-primX)*(recX-primX)+(recZ-primZ)*(recZ-primZ) ) ;
360 if(minDistance > distance)
361 {
362 minDistance = distance ;
363 closestPrimary = listofprimaries[index] ;
364 }
365 }
366
367 if(closestPrimary >=0 ){
368
369 Int_t primaryType = fRunLoader->Stack()->Particle(closestPrimary)->GetPdgCode() ;
370
371 if(primaryType==22)
372 recPhot->Fill(recZ,recX,recParticle->Energy()) ;
373// else
374// if(primaryType==-2112)
375// recNbar->Fill(recZ,recX,recParticle->Energy()) ;
376 }
377 }
efad3788 378 }
9688c1dd 379
380 }
88cb7938 381
efad3788 382 //Plot made histograms
88cb7938 383 emcSdigits->Draw("box") ;
384 emcDigits->SetLineColor(5) ;
385 emcDigits->Draw("boxsame") ;
9688c1dd 386 emcRecPoints->SetLineColor(2) ;
387 emcRecPoints->Draw("boxsame") ;
388 cpvSdigits->SetLineColor(1) ;
1c5cf796 389 cpvSdigits->Draw("boxsame") ;
2bed9e3e 390
2bed9e3e 391}
e4761a49 392//____________________________________________________________________________
393void AliPHOSAnalyze::Ls(){
394 //lists branches and titles of PHOS-related branches of TreeR, TreeD, TreeS
395
88cb7938 396 if (fRunLoader == 0x0)
397 {
351dd634 398 AliError(Form("Error Loading session"));
88cb7938 399 return;
400 }
401
402 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
403 if ( gime == 0 )
404 {
351dd634 405 AliError(Form("Could not obtain the Loader object !"));
88cb7938 406 return ;
407 }
408
134ce69a 409
e4761a49 410 Int_t ibranch;
411 TObjArray * branches;
412
88cb7938 413 if (gime->TreeS() == 0x0)
414 {
415 if (gime->LoadSDigits("READ"))
416 {
351dd634 417 AliError(Form("Problems with loading summable digits"));
88cb7938 418 return;
419 }
420 }
421 branches = gime->TreeS()->GetListOfBranches() ;
e4761a49 422
21cd0c07 423 TString message ;
424 message = "TreeS:\n" ;
e4761a49 425 for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
426 TBranch * branch=(TBranch *) branches->At(ibranch) ;
21cd0c07 427 if(strstr(branch->GetName(),"PHOS") ){
428 message += " " ;
429 message += branch->GetName() ;
430 message += " " ;
431 message += branch->GetTitle() ;
432 message += "\n" ;
433 }
e4761a49 434 }
88cb7938 435 if (gime->TreeD() == 0x0)
436 {
437 if (gime->LoadDigits("READ"))
438 {
351dd634 439 AliError(Form("Problems with loading digits"));
88cb7938 440 return;
441 }
442 }
443
444 branches = gime->TreeD()->GetListOfBranches() ;
e4761a49 445
21cd0c07 446 message += "TreeD:\n" ;
e4761a49 447 for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
448 TBranch * branch=(TBranch *) branches->At(ibranch) ;
21cd0c07 449 if(strstr(branch->GetName(),"PHOS") ) {
450 message += " ";
451 message += branch->GetName() ;
452 message += " " ;
453 message += branch->GetTitle() ;
454 message +="\n" ;
455 }
e4761a49 456 }
e4761a49 457
88cb7938 458 if (gime->TreeR() == 0x0)
459 {
460 if (gime->LoadRecPoints("READ"))
461 {
351dd634 462 AliError(Form("Problems with loading rec points"));
88cb7938 463 return;
464 }
465 }
466
467 branches = gime->TreeR()->GetListOfBranches() ;
e4761a49 468
21cd0c07 469 message += "TreeR: \n" ;
e4761a49 470 for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
471 TBranch * branch=(TBranch *) branches->At(ibranch) ;
21cd0c07 472 if(strstr(branch->GetName(),"PHOS") ) {
473 message += " " ;
474 message += branch->GetName() ;
475 message += " " ;
476 message += branch->GetTitle() ;
477 message += "\n" ;
478 }
e4761a49 479 }
351dd634 480 AliInfo(Form(message.Data())) ;
e4761a49 481}
2bed9e3e 482//____________________________________________________________________________
90cceaf6 483 void AliPHOSAnalyze::InvariantMass()
2bed9e3e 484{
efad3788 485 // Calculates Real and Mixed invariant mass distributions
88cb7938 486 if (fRunLoader == 0x0)
487 {
351dd634 488 AliError(Form("Error Loading session"));
88cb7938 489 return;
490 }
491
492 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
493 if ( gime == 0 )
494 {
351dd634 495 AliError(Form("Could not obtain the Loader object !"));
88cb7938 496 return ;
497 }
498
499 gime->LoadRecParticles("READ");
500
efad3788 501 Int_t nMixedEvents = 4 ; //# of events used for calculation of 'mixed' distribution
88cb7938 502
503
efad3788 504 //opening file
505 TFile * mfile = new TFile("invmass.root","update");
69183710 506
efad3788 507 //========== Reading /Booking Histograms
508 TH2D * hRealEM = 0 ;
509 hRealEM = (TH2D*) mfile->Get("hRealEM") ;
510 if(hRealEM == 0)
511 hRealEM = new TH2D("hRealEM", "Real for EM particles", 250,0.,1.,40,0.,4.) ;
512 TH2D * hRealPhot = 0 ;
513
514 hRealPhot = (TH2D*)mfile->Get("hRealPhot");
515 if(hRealPhot == 0)
516 hRealPhot = new TH2D("hRealPhot", "Real for kPhoton particles", 250,0.,1.,40,0.,4.) ;
517
518 TH2D * hMixedEM = 0 ;
519 hMixedEM = (TH2D*) mfile->Get("hMixedEM") ;
520 if(hMixedEM == 0)
521 hMixedEM = new TH2D("hMixedEM", "Mixed for EM particles", 250,0.,1.,40,0.,4.) ;
522
523 TH2D * hMixedPhot = 0 ;
524 hMixedPhot = (TH2D*) mfile->Get("hMixedPhot") ;
525 if(hMixedPhot == 0)
526 hMixedPhot = new TH2D("hMixedPhot","Mixed for kPhoton particles",250,0.,1.,40,0.,4.) ;
69183710 527
efad3788 528
529 //reading event and copyng it to TConesArray of all photons
530
531 TClonesArray * allRecParticleList = new TClonesArray("AliPHOSRecParticle", 1000) ;
fd0eb6da 532 Int_t * nRecParticles = new Int_t[nMixedEvents] ; // to mark boundaries of each event in the total list
efad3788 533 for(Int_t index = 0; index < nMixedEvents; index ++)
534 nRecParticles[index] = 0 ;
535 Int_t iRecPhot = 0 ; // number of EM particles in total list
69183710 536
efad3788 537 //scan over all events
538 Int_t event ;
88cb7938 539
540
541 if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
542
543
544 Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries();
7b7c1533 545 // for(event = 0; event < gime->MaxEvent(); event++ ){
88cb7938 546
547
548
7b7c1533 549 for(event = 0; event < maxevent; event++ ){
88cb7938 550 fRunLoader->GetEvent(event); //will read only TreeR
efad3788 551
552 //copy EM RecParticles to the "total" list
7b7c1533 553 const AliPHOSRecParticle * recParticle ;
efad3788 554 Int_t iRecParticle ;
9688c1dd 555 TClonesArray * rp = gime->RecParticles() ;
556 if(!rp){
351dd634 557 AliError(Form("Can't find RecParticles")) ;
9688c1dd 558 return ;
559 }
560
561 for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast(); iRecParticle++ )
562 {
88cb7938 563 recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
564 if((recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)||
565 (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW))
566 new( (*allRecParticleList)[iRecPhot++] ) AliPHOSRecParticle(*recParticle) ;
9688c1dd 567 }
efad3788 568
569 Int_t mevent = event%nMixedEvents ; //event number in the "mixed" cicle
570 nRecParticles[mevent] = iRecPhot-1 ;
9688c1dd 571
efad3788 572 //check, if it is time to calculate invariant mass?
154fc86d 573 Int_t maxevent = (Int_t)gAlice->TreeE()->GetEntries() ;
7b7c1533 574 if((mevent == 0) && (event +1 == maxevent)){
9688c1dd 575
576 // if((mevent == 0) && (event +1 == gime->MaxEvent())){
69183710 577
efad3788 578 //calculate invariant mass:
579 Int_t irp1,irp2 ;
580 Int_t nCurEvent = 0 ;
69183710 581
efad3788 582 for(irp1 = 0; irp1 < allRecParticleList->GetEntries()-1; irp1++){
88cb7938 583 AliPHOSRecParticle * rp1 = (AliPHOSRecParticle *)allRecParticleList->At(irp1) ;
584
585 for(irp2 = irp1+1; irp2 < allRecParticleList->GetEntries(); irp2++){
586 AliPHOSRecParticle * rp2 = (AliPHOSRecParticle *)allRecParticleList->At(irp2) ;
587
588 Double_t invMass ;
589 invMass = (rp1->Energy()+rp2->Energy())*(rp1->Energy()+rp2->Energy())-
590 (rp1->Px()+rp2->Px())*(rp1->Px()+rp2->Px())-
591 (rp1->Py()+rp2->Py())*(rp1->Py()+rp2->Py())-
592 (rp1->Pz()+rp2->Pz())*(rp1->Pz()+rp2->Pz()) ;
593
594 if(invMass> 0)
595 invMass = TMath::Sqrt(invMass);
596
597 Double_t pt ;
598 pt = TMath::Sqrt((rp1->Px()+rp2->Px() )*( rp1->Px()+rp2->Px() ) +
599 (rp1->Py()+rp2->Py() )*( rp1->Py()+rp2->Py() ) );
600
601 if(irp1 > nRecParticles[nCurEvent])
602 nCurEvent++;
603
604 if(irp2 <= nRecParticles[nCurEvent]){ //'Real' event
605 hRealEM->Fill(invMass,pt);
606 if((rp1->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)&&
607 (rp2->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST) )
608 hRealPhot->Fill(invMass,pt);
609 }
610 else{
611 hMixedEM->Fill(invMass,pt);
612 if((rp1->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)&&
613 (rp2->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST) )
614 hMixedPhot->Fill(invMass,pt);
615 } //real-mixed
616
efad3788 617 } //loop over second rp
618 }//loop over first rp
ed4205d8 619
efad3788 620 //Make some cleanings
621 for(Int_t index = 0; index < nMixedEvents; index ++)
88cb7938 622 nRecParticles[index] = 0 ;
efad3788 623 iRecPhot = 0 ;
624 allRecParticleList->Clear() ;
69183710 625
efad3788 626 }
627 }
628 delete allRecParticleList ;
69183710 629
efad3788 630 //writing output
631 mfile->cd();
69183710 632
efad3788 633 hRealEM->Write(0,kOverwrite) ;
634 hRealPhot->Write(0,kOverwrite) ;
635 hMixedEM->Write(0,kOverwrite) ;
636 hMixedPhot->Write(0,kOverwrite) ;
69183710 637
efad3788 638 mfile->Write();
639 mfile->Close();
640 delete mfile ;
fd0eb6da 641 delete nRecParticles;
c3b9b3f9 642
643}
644
645//____________________________________________________________________________
90cceaf6 646 void AliPHOSAnalyze::EnergyResolution()
ed4205d8 647{
efad3788 648 //fills two dimentional histo: energy of primary vs. energy of reconstructed
ed4205d8 649
efad3788 650 TH2F * hAllEnergy = 0 ; //all reconstructed with primary photon
651 TH2F * hPhotEnergy= 0 ; //kGamma with primary photon
652 TH2F * hEMEnergy = 0 ; //electromagnetic with primary photon
ed4205d8 653
efad3788 654 //opening file and reading histograms if any
655 TFile * efile = new TFile("energy.root","update");
ed4205d8 656
efad3788 657 hAllEnergy = (TH2F*)efile->Get("hAllEnergy") ;
658 if(hAllEnergy == 0)
659 hAllEnergy = new TH2F("hAllEnergy", "Energy of any RP with primary photon",100, 0., 5., 100, 0., 5.);
660
661 hPhotEnergy =(TH2F*) efile->Get("hPhotEnergy") ;
662 if(hPhotEnergy == 0)
663 hPhotEnergy = new TH2F("hPhotEnergy", "Energy of kGAMMA with primary photon",100, 0., 5., 100, 0., 5.);
664
665 hEMEnergy =(TH2F*) efile->Get("hEMEnergy");
666 if(hEMEnergy == 0)
667 hEMEnergy = new TH2F("hEMEnergy", "Energy of EM with primary photon", 100, 0., 5., 100, 0., 5.);
ed4205d8 668
ed4205d8 669
88cb7938 670 if (fRunLoader == 0x0)
671 {
351dd634 672 AliError(Form("Error Loading session"));
88cb7938 673 return;
674 }
675
676 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
677 if ( gime == 0 )
678 {
351dd634 679 AliError(Form("Could not obtain the Loader object !"));
88cb7938 680 return ;
681 }
682
683
684 const AliPHOSGeometry * phosgeom = gime->PHOSGeometry();
efad3788 685
686 Int_t ievent;
88cb7938 687 Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries();
688
689 fRunLoader->LoadKinematics("READ");
690 gime->LoadTracks("READ");
691
7b7c1533 692 for ( ievent=0; ievent < maxevent ; ievent++){
efad3788 693
694 //read the current event
88cb7938 695 fRunLoader->GetEvent(ievent) ;
efad3788 696
91daaf24 697 Double_t vtx[3]={0.,0.,0.} ;
698
7b7c1533 699 const AliPHOSRecParticle * recParticle ;
efad3788 700 Int_t iRecParticle ;
9688c1dd 701 TClonesArray * rp = gime->RecParticles() ;
702 if(!rp) {
351dd634 703 AliError(Form("Event %d, Can't find RecParticles ", ievent)) ;
9688c1dd 704 return ;
705 }
706 TClonesArray * ts = gime->TrackSegments() ;
707 if(!ts) {
351dd634 708 AliError(Form("Event %d, Can't find TrackSegments", ievent)) ;
9688c1dd 709 return ;
710 }
711 TObjArray * emcrp = gime->EmcRecPoints() ;
712 if(!emcrp){
351dd634 713 AliError(Form("Event %d, Can't find EmcRecPoints")) ;
9688c1dd 714 return ;
715 }
716
717 for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast() ;iRecParticle++ ){
718 recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
719
720 //find the closest primary
721 Int_t moduleNumberRec ;
722 Double_t recX, recZ ;
91daaf24 723 phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
9688c1dd 724
725 Double_t minDistance = 100. ;
726 Int_t closestPrimary = -1 ;
727
728 //extract list of primaries: it is stored at EMC RecPoints
729 Int_t emcIndex = ((AliPHOSTrackSegment*) ts->At(recParticle->GetPHOSTSIndex()))->GetEmcIndex() ;
730 Int_t numberofprimaries ;
731 Int_t * listofprimaries = ((AliPHOSEmcRecPoint*) emcrp->At(emcIndex))->GetPrimaries(numberofprimaries) ;
732
733 Int_t index ;
734 const TParticle * primary ;
735 Double_t distance = minDistance ;
736 Double_t dX, dZ;
737 Double_t dXmin = 0.;
738 Double_t dZmin = 0. ;
739 for ( index = 0 ; index < numberofprimaries ; index++){
88cb7938 740
741 primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
742
743 Int_t moduleNumber ;
744 Double_t primX, primZ ;
91daaf24 745 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
88cb7938 746 if(moduleNumberRec == moduleNumber) {
747 dX = recX - primX;
748 dZ = recZ - primZ;
749 distance = TMath::Sqrt(dX*dX + dZ*dZ) ;
750 if(minDistance > distance) {
751 minDistance = distance ;
752 dXmin = dX;
753 dZmin = dZ;
754 closestPrimary = listofprimaries[index] ;
755 }
756 }
9688c1dd 757 }
758
759 //if found primary, fill histograms
760 if(closestPrimary >=0 ){
88cb7938 761 const TParticle * primary = fRunLoader->Stack()->Particle(closestPrimary) ;
762 if(primary->GetPdgCode() == 22){
763 hAllEnergy->Fill(primary->Energy(), recParticle->Energy()) ;
764 if(recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST){
765 hPhotEnergy->Fill(primary->Energy(), recParticle->Energy() ) ;
766 hEMEnergy->Fill(primary->Energy(), recParticle->Energy() ) ;
767 }
768 else
769 if(recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW)
770 hEMEnergy->Fill(primary->Energy(), recParticle->Energy() ) ;
771 }
efad3788 772 }
9688c1dd 773 }
efad3788 774 }
9688c1dd 775
efad3788 776 //write filled histograms
777 efile->cd() ;
778 hAllEnergy->Write(0,kOverwrite) ;
779 hPhotEnergy->Write(0,kOverwrite) ;
780 hEMEnergy->Write(0,kOverwrite) ;
781 // efile->Write() ;
782 efile->Close() ;
783 delete efile ;
9688c1dd 784
efad3788 785}
ed4205d8 786//____________________________________________________________________________
90cceaf6 787void AliPHOSAnalyze::PositionResolution()
fc879520 788{
efad3788 789 //fills two dimentional histo: energy vs. primary - reconstructed distance
790
791
792
793 TH2F * hAllPosition = 0; // Position of any RP with primary photon
794 TH2F * hPhotPosition = 0; // Position of kGAMMA with primary photon
795 TH2F * hEMPosition = 0; // Position of EM with primary photon
796
797 TH1F * hAllPositionX = 0; // X-Position Resolution of photons with photon primary
798 TH1F * hAllPositionZ = 0; // Z-Position Resolution of photons with photon primary
799
800
801 //opening file and reading histograms if any
802 TFile * pfile = new TFile("position.root","update");
803
804 hAllPosition = (TH2F*)pfile->Get("hAllPosition");
805 if(hAllPosition == 0)
806 hAllPosition = new TH2F("hAllPosition",
88cb7938 807 "Position of any RP with primary photon",100, 0., 5., 100, 0., 5.);
efad3788 808 hPhotPosition= (TH2F*)pfile->Get("hPhotPosition");
809 if(hPhotPosition == 0)
810 hPhotPosition = new TH2F("hPhotPosition",
88cb7938 811 "Position of kGAMMA with primary photon",100, 0., 5., 100, 0., 5.);
efad3788 812 hEMPosition= (TH2F*)pfile->Get("hEMPosition") ;
813 if(hEMPosition == 0)
814 hEMPosition = new TH2F("hEMPosition",
88cb7938 815 "Position of EM with primary photon", 100, 0., 5., 100, 0., 5.);
816 hAllPositionX = (TH1F*)pfile->Get("hAllPositionX") ;
efad3788 817 if(hAllPositionX == 0)
818 hAllPositionX = new TH1F("hAllPositionX",
88cb7938 819 "Delta X of any RP with primary photon",100, -2., 2.);
efad3788 820 hAllPositionZ =(TH1F*) pfile->Get("hAllPositionZ") ;
821 if(hAllPositionZ == 0)
822 hAllPositionZ = new TH1F("hAllPositionZ",
88cb7938 823 "Delta X of any RP with primary photon",100, -2., 2.);
efad3788 824
88cb7938 825 if (fRunLoader == 0x0)
826 {
351dd634 827 AliError(Form("Error Loading session"));
88cb7938 828 return;
829 }
830
831 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
832 if ( gime == 0 )
833 {
351dd634 834 AliError(Form("Could not obtain the Loader object !"));
88cb7938 835 return ;
836 }
837
838 if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
efad3788 839
7b7c1533 840 const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
a88eea6f 841
efad3788 842 Int_t ievent;
88cb7938 843 Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries() ;
7b7c1533 844 for ( ievent=0; ievent < maxevent ; ievent++){
9688c1dd 845
efad3788 846 //read the current event
88cb7938 847 fRunLoader->GetEvent(ievent) ;
91daaf24 848
849 //DP:Extract vertex position
850 Double_t vtx[3]={0.,0.,0.} ;
851
9688c1dd 852 TClonesArray * rp = gime->RecParticles() ;
853 if(!rp) {
351dd634 854 AliError(Form("Event %d, Can't find RecParticles", ievent)) ;
9688c1dd 855 return ;
856 }
857 TClonesArray * ts = gime->TrackSegments() ;
858 if(!ts) {
351dd634 859 AliError(Form("Event %d, Can't find TrackSegments", ievent)) ;
9688c1dd 860 return ;
861 }
862 TObjArray * emcrp = gime->EmcRecPoints() ;
863 if(!emcrp){
351dd634 864 AliError(Form("Event %d, Can't find EmcRecPoints", ievent)) ;
9688c1dd 865 return ;
866 }
efad3788 867
9688c1dd 868
7b7c1533 869 const AliPHOSRecParticle * recParticle ;
efad3788 870 Int_t iRecParticle ;
9688c1dd 871 for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast(); iRecParticle++ ){
872 recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
873
874 //find the closest primary
875 Int_t moduleNumberRec ;
876 Double_t recX, recZ ;
91daaf24 877 phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
9688c1dd 878
879 Double_t minDistance = 100. ;
880 Int_t closestPrimary = -1 ;
881
882 //extract list of primaries: it is stored at EMC RecPoints
883 Int_t emcIndex = ((AliPHOSTrackSegment*) ts->At(recParticle->GetPHOSTSIndex()))->GetEmcIndex() ;
884 Int_t numberofprimaries ;
885 Int_t * listofprimaries = ((AliPHOSEmcRecPoint *) emcrp->At(emcIndex))->GetPrimaries(numberofprimaries) ;
886
887 Int_t index ;
888 const TParticle * primary ;
889 Double_t distance = minDistance ;
890 Double_t dX = 1000; // incredible number
891 Double_t dZ = 1000; // for the case if no primary will be found
892 Double_t dXmin = 0.;
893 Double_t dZmin = 0. ;
894 for ( index = 0 ; index < numberofprimaries ; index++){
88cb7938 895 primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
896 Int_t moduleNumber ;
897 Double_t primX, primZ ;
91daaf24 898 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
88cb7938 899 if(moduleNumberRec == moduleNumber) {
900 dX = recX - primX;
901 dZ = recZ - primZ;
902 distance = TMath::Sqrt(dX*dX + dZ*dZ) ;
903 if(minDistance > distance) {
904 minDistance = distance ;
905 dXmin = dX;
906 dZmin = dZ;
907 closestPrimary = listofprimaries[index] ;
908 }
909 }
9688c1dd 910 }
911
912 //if found primary, fill histograms
913 if(closestPrimary >=0 ){
88cb7938 914 const TParticle * primary = fRunLoader->Stack()->Particle(closestPrimary) ;
915 if(primary->GetPdgCode() == 22){
916 hAllPosition->Fill(primary->Energy(), minDistance) ;
917 hAllPositionX->Fill(primary->Energy(), dX) ;
918 hAllPositionZ->Fill(primary->Energy(), dZ) ;
919 if(recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST){
920 hPhotPosition->Fill(primary->Energy(), minDistance ) ;
921 hEMPosition->Fill(primary->Energy(), minDistance ) ;
922 }
923 else
924 if(recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW)
925 hEMPosition->Fill(primary->Energy(), minDistance ) ;
926 }
efad3788 927 }
9688c1dd 928 }
efad3788 929 }
930
931 //Write output histgrams
932 pfile->cd() ;
933 hAllPosition->Write(0,kOverwrite) ;
934 hAllPositionX->Write(0,kOverwrite) ;
935 hAllPositionZ->Write(0,kOverwrite) ;
936 hPhotPosition->Write(0,kOverwrite) ;
937 hEMPosition->Write(0,kOverwrite) ;
938 pfile->Write() ;
939 pfile->Close() ;
940 delete pfile ;
9688c1dd 941
942
efad3788 943}
92862013 944//____________________________________________________________________________
90cceaf6 945void AliPHOSAnalyze::Contamination(){
efad3788 946// fills spectra of primary photons and several kinds of
947// reconstructed particles, so that analyzing them one can
948// estimate conatmination, efficiency of registration etc.
949
950 //define several general histograms
951 TH1F * hPrimary = 0; //spectrum (P_t distribution) of primary photons
952 TH1F * hAllRP = 0; //spectrum of all RecParticles in PHOS
953 TH1F * hPhot = 0; //spectrum of kGAMMA RecParticles
efad3788 954 TH1F * hShape = 0; //spectrum of all EM RecParticles
955 TH1F * hVeto = 0; //spectrum of all neutral RecParticles
956
957 //Now separate histograms in accoradance with primary
958 //primary - photon
959 TH1F * hPhotReg = 0; //Registeres as photon
960 TH1F * hPhotEM = 0; //Registered as EM
efad3788 961
962 //primary - n
963 TH1F * hNReg = 0; //Registeres as photon
964 TH1F * hNEM = 0; //Registered as EM
efad3788 965
966 //primary - nBar
967 TH1F * hNBarReg = 0; //Registeres as photon
968 TH1F * hNBarEM = 0; //Registered as EM
efad3788 969
970 //primary - charged hadron (pBar excluded)
971 TH1F * hChargedReg = 0; //Registeres as photon
972 TH1F * hChargedEM = 0; //Registered as EM
efad3788 973
974 //primary - pBar
975 TH1F * hPbarReg = 0; //Registeres as photon
976 TH1F * hPbarEM = 0; //Registered as EM
efad3788 977
978
979 //Reading histograms from the file
980 TFile * cfile = new TFile("contamination.root","update") ;
981
982 //read general histograms
983 hPrimary = (TH1F*) cfile->Get("hPrimary") ;
984 if(hPrimary == 0)
985 hPrimary= new TH1F("hPrimary", "Primary photon spectrum", 100, 0., 5.);
986 hAllRP = (TH1F*)cfile->Get("hAllRP") ;
987 if(hAllRP == 0)
988 hAllRP = new TH1F("hAllRP","All Reconstructed particles", 100, 0., 5.);
989 hPhot = (TH1F*)cfile->Get("hPhot") ;
990 if(hPhot == 0)
991 hPhot = new TH1F("hPhot","All kGAMMA RecParticles",100, 0., 5.);
efad3788 992 hShape = (TH1F*) cfile->Get("hShape") ;
993 if(hShape == 0)
994 hShape = new TH1F("hShape","All particles with EM shower",100, 0., 5.);
995 hVeto= (TH1F*)cfile->Get("hVeto") ;
996 if(hVeto == 0)
997 hVeto = new TH1F("hVeto", "All uncharged particles", 100, 0., 5.);
998
999
1000 //primary - photon
1001 hPhotReg = (TH1F*)cfile->Get("hPhotReg");
1002 if(hPhotReg == 0)
1003 hPhotReg = new TH1F("hPhotReg","Photon registered as photon",100, 0., 5.);
1004 hPhotEM =(TH1F*)cfile->Get("hPhotEM");
1005 if(hPhotEM== 0)
1006 hPhotEM = new TH1F("hPhotEM", "Photon registered as EM", 100, 0., 5.);
efad3788 1007
1008 //primary - n
1009 hNReg = (TH1F*)cfile->Get("hNReg");
1010 if(hNReg== 0)
1011 hNReg = new TH1F("hNReg", "N registered as photon", 100, 0., 5.);
1012 hNEM = (TH1F*)cfile->Get("hNEM");
1013 if(hNEM== 0)
1014 hNEM = new TH1F("hNEM", "N registered as EM", 100, 0., 5.);
efad3788 1015
1016 //primary - nBar
1017 hNBarReg =(TH1F*)cfile->Get("hNBarReg");
1018 if(hNBarReg== 0)
1019 hNBarReg = new TH1F("hNBarReg", "NBar registered as photon", 100, 0., 5.);
1020 hNBarEM =(TH1F*)cfile->Get("hNBarEM");
1021 if(hNBarEM== 0)
1022 hNBarEM = new TH1F("hNBarEM", "NBar registered as EM", 100, 0., 5.);
efad3788 1023
1024 //primary - charged hadron (pBar excluded)
1025 hChargedReg = (TH1F*)cfile->Get("hChargedReg");
1026 if(hChargedReg== 0)
1027 hChargedReg= new TH1F("hChargedReg", "Charged hadron registered as photon",100, 0., 5.);
1028 hChargedEM = (TH1F*)cfile->Get("hChargedEM");
1029 if(hChargedEM== 0)
1030 hChargedEM= new TH1F("hChargedEM","Charged registered as EM",100, 0., 5.);
9688c1dd 1031
efad3788 1032 //primary - pBar
1033 hPbarReg = (TH1F*)cfile->Get("hPbarReg");
1034 if(hPbarReg== 0)
1035 hPbarReg= new TH1F("hPbarReg", "pBar registered as photon",100, 0., 5.);
1036 hPbarEM = (TH1F*)cfile->Get("hPbarEM");
1037 if(hPbarEM== 0)
1038 hPbarEM= new TH1F("hPbarEM","Pbar registered as EM",100, 0., 5.);
eecb6765 1039
92862013 1040
efad3788 1041 //Now make some initializations
1042
1043 Int_t counter[8][5] ; //# of registered particles
1044 Int_t i1,i2 ;
1045 for(i1 = 0; i1<8; i1++)
1046 for(i2 = 0; i2<5; i2++)
1047 counter[i1][i2] = 0 ;
1048
1049
1050
88cb7938 1051 if (fRunLoader == 0x0)
1052 {
351dd634 1053 AliError(Form("Error Loading session"));
88cb7938 1054 return;
1055 }
1056
1057 AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
1058 if ( gime == 0 )
1059 {
351dd634 1060 AliError(Form("Could not obtain the Loader object !"));
88cb7938 1061 return ;
1062 }
1063
1064 if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
7b7c1533 1065 const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
154fc86d 1066
efad3788 1067 Int_t ievent;
88cb7938 1068 Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries() ;
7b7c1533 1069 for ( ievent=0; ievent < maxevent ; ievent++){
efad3788 1070
88cb7938 1071 fRunLoader->GetEvent(ievent) ;
efad3788 1072
91daaf24 1073 //DP:Extract vertex position
1074 Double_t vtx[3]={0.,0.,0.} ;
1075
9688c1dd 1076 TClonesArray * rp = gime->RecParticles() ;
1077 if(!rp) {
351dd634 1078 AliError(Form("Event %d, Can't find RecParticles", ievent)) ;
9688c1dd 1079 return ;
1080 }
1081 TClonesArray * ts = gime->TrackSegments() ;
1082 if(!ts) {
351dd634 1083 AliError(Form("Event %d, Can't find TrackSegments", ievent)) ;
9688c1dd 1084 return ;
1085 }
1086 TObjArray * emcrp = gime->EmcRecPoints() ;
1087 if(!emcrp){
351dd634 1088 AliError(Form("Event %d, Can't find EmcRecPoints", ievent)) ;
9688c1dd 1089 return ;
1090 }
1091
1092
efad3788 1093 //=========== Make spectrum of the primary photons
7b7c1533 1094 const TParticle * primary ;
efad3788 1095 Int_t iPrimary ;
88cb7938 1096 for( iPrimary = 0 ; iPrimary < fRunLoader->Stack()->GetNprimary() ; iPrimary++){
1097 primary = fRunLoader->Stack()->Particle(iPrimary) ;
efad3788 1098 Int_t primaryType = primary->GetPdgCode() ;
1099 if( primaryType == 22 ) {
88cb7938 1100 //check, if photons folls onto PHOS
1101 Int_t moduleNumber ;
1102 Double_t primX, primZ ;
91daaf24 1103 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
88cb7938 1104 if(moduleNumber)
1105 hPrimary->Fill(primary->Energy()) ;
1106
efad3788 1107 }
1108
1109 }
9688c1dd 1110
efad3788 1111 //========== Now scan over RecParticles
7b7c1533 1112 const AliPHOSRecParticle * recParticle ;
efad3788 1113 Int_t iRecParticle ;
9688c1dd 1114 for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast(); iRecParticle++ ){
1115 recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
1116 //fill histo spectrum of all RecParticles
1117 hAllRP->Fill(CorrectedEnergy(recParticle->Energy())) ;
1118
88cb7938 1119 //==========find the closest primary
9688c1dd 1120 Int_t moduleNumberRec ;
1121 Double_t recX, recZ ;
91daaf24 1122 phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
9688c1dd 1123
1124 Double_t minDistance = 100. ;
1125 Int_t closestPrimary = -1 ;
1126
1127 //extract list of primaries: it is stored at EMC RecPoints
1128 Int_t emcIndex = ((AliPHOSTrackSegment *) ts->At(recParticle->GetPHOSTSIndex()))->GetEmcIndex() ;
1129 Int_t numberofprimaries ;
1130 Int_t * listofprimaries = ((AliPHOSEmcRecPoint *) emcrp->At(emcIndex))->GetPrimaries(numberofprimaries) ;
1131 Int_t index ;
1132 const TParticle * primary ;
1133 Double_t distance = minDistance ;
1134 Double_t dX, dZ;
1135 Double_t dXmin = 0.;
1136 Double_t dZmin = 0. ;
1137 for ( index = 0 ; index < numberofprimaries ; index++){
88cb7938 1138 primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
1139 Int_t moduleNumber ;
1140 Double_t primX, primZ ;
91daaf24 1141 phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
88cb7938 1142 if(moduleNumberRec == moduleNumber) {
1143 dX = recX - primX;
1144 dZ = recZ - primZ;
1145 distance = TMath::Sqrt(dX*dX + dZ*dZ) ;
1146 if(minDistance > distance) {
1147 minDistance = distance ;
1148 dXmin = dX;
1149 dZmin = dZ;
1150 closestPrimary = listofprimaries[index] ;
1151 }
1152 }
9688c1dd 1153 }
1154
1155 //===========define the "type" of closest primary
1156 if(closestPrimary >=0 ){
88cb7938 1157 Int_t primaryCode = -1;
1158 const TParticle * primary = fRunLoader->Stack()->Particle(closestPrimary) ;
1159 Int_t primaryType = primary->GetPdgCode() ;
1160 if(primaryType == 22) // photon ?
1161 primaryCode = 0 ;
1162 else
1163 if(primaryType == 2112) // neutron
1164 primaryCode = 1 ;
1165 else
1166 if(primaryType == -2112) // Anti neutron
1167 primaryCode = 2 ;
1168 else
1169 if(primaryType == -2122) //Anti proton
1170 primaryCode = 4 ;
1171 else {
1172 TParticle tempo(*primary) ;
1173 if(tempo.GetPDG()->Charge())
1174 primaryCode = 3 ;
1175 }
1176
1177 //==========Now look at the type of RecParticle
1178 Float_t energy = CorrectedEnergy(recParticle->Energy()) ;
1179 if(recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST){
1180 hPhot->Fill(energy ) ;
1181 switch(primaryCode){
1182 case 0:
1183 hPhotReg->Fill(energy ) ;
1184 break ;
1185 case 1:
1186 hNReg->Fill(energy ) ;
1187 break ;
1188 case 2:
1189 hNBarReg->Fill(energy ) ;
1190 break ;
1191 case 3:
1192 hChargedReg->Fill(energy ) ;
1193 break ;
1194 case 4:
1195 hPbarReg->Fill(energy ) ;
1196 break ;
1197 default:
1198 break ;
1199 }
1200 }
1201 if((recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)||
1202 (recParticle->GetType() == AliPHOSFastRecParticle::kCHARGEDEMFAST)||
1203 (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW)||
1204 (recParticle->GetType() == AliPHOSFastRecParticle::kCHARGEDEMSLOW) ){ //with EM shower
1205 hShape->Fill(energy ) ;
1206 switch(primaryCode){
1207 case 0:
1208 hPhotEM->Fill(energy ) ;
1209 break ;
1210 case 1:
1211 hNEM->Fill(energy ) ;
1212 break ;
1213 case 2:
1214 hNBarEM->Fill(energy ) ;
1215 break ;
1216 case 3:
1217 hChargedEM->Fill(energy ) ;
1218 break ;
1219 case 4:
1220 hPbarEM->Fill(energy ) ;
1221 break ;
1222 default:
1223 break ;
1224 }
1225 }
1226
1227 if((recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)||
1228 (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALHAFAST) ||
1229 (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW) ||
1230 (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALHASLOW) ) //nuetral
1231 hVeto->Fill(energy ) ;
1232
1233 //fill number of primaries identified as ...
1234 if(primaryCode >= 0) // Primary code defined
1235 counter[recParticle->GetType()][primaryCode]++ ;
1236
9688c1dd 1237 }
1238
1239 } // no closest primary found
efad3788 1240 }
46b146ca 1241
46b146ca 1242
efad3788 1243 //=================== SaveHistograms
1244 cfile->cd() ;
1245 hPrimary->Write(0,kOverwrite);
1246 hAllRP->Write(0,kOverwrite);
1247 hPhot->Write(0,kOverwrite);
efad3788 1248 hShape->Write(0,kOverwrite);
1249 hVeto->Write(0,kOverwrite);
1250 hPhotReg->Write(0,kOverwrite);
1251 hPhotEM->Write(0,kOverwrite);
efad3788 1252 hNReg ->Write(0,kOverwrite);
1253 hNEM ->Write(0,kOverwrite);
efad3788 1254 hNBarReg ->Write(0,kOverwrite);
1255 hNBarEM ->Write(0,kOverwrite);
efad3788 1256 hChargedReg ->Write(0,kOverwrite);
1257 hChargedEM ->Write(0,kOverwrite);
efad3788 1258 hPbarReg ->Write(0,kOverwrite);
1259 hPbarEM ->Write(0,kOverwrite);
46b146ca 1260
efad3788 1261 cfile->Write(0,kOverwrite);
1262 cfile->Close();
1263 delete cfile ;
1264
69183710 1265
efad3788 1266 //print Final Table
154fc86d 1267 maxevent = (Int_t)gAlice->TreeE()->GetEntries() ;
2aad621e 1268
21cd0c07 1269 TString message ;
1270 message = "Resolutions: Analyzed %d event(s)\n" ;
1271
1272 message += " Primary: Photon Neutron Antineutron Charged hadron AntiProton\n" ;
1273 message += "--------------------------------------------------------------------------------\n" ;
1274 message += " kGAMMA: " ;
1275 message += "%d %d %d %d %d\n" ;
1276 message += " kGAMMAHA: " ;
1277 message += "%d %d %d %d %d\n" ;
1278 message += " kNEUTRALEM: " ;
1279 message += "%d %d %d %d %d\n" ;
1280 message += " kNEUTRALHA: " ;
1281 message += "%d %d %d %d %d\n" ;
1282 message += " kABSURDEM: ";
1283 message += "%d %d %d %d %d\n" ;
1284 message += " kABSURDHA: " ;
1285 message += "%d %d %d %d %d\n" ;
1286 message += " kELECTRON: " ;
1287 message += "%d %d %d %d %d\n" ;
1288 message += " kCHARGEDHA: " ;
1289 message += "%d %d %d %d %d\n" ;
1290
1291 message += "--------------------------------------------------------------------------------" ;
1292
1293
efad3788 1294 Int_t totalInd = 0 ;
1295 for(i1 = 0; i1<8; i1++)
1296 for(i2 = 0; i2<5; i2++)
1297 totalInd+=counter[i1][i2] ;
21cd0c07 1298 message += "Indentified particles: %d" ;
46b146ca 1299
351dd634 1300 AliInfo(Form(message.Data(), maxevent,
21cd0c07 1301 counter[2][0], counter[2][1], counter[2][2], counter[2][3], counter[2][4],
1302 counter[3][0], counter[3][1], counter[3][2], counter[3][3], counter[3][4],
1303 counter[0][0], counter[0][1], counter[0][2], counter[0][3], counter[0][4],
1304 counter[1][0], counter[1][1], counter[1][2], counter[1][3], counter[1][4],
1305 counter[4][0], counter[4][1], counter[4][2], counter[4][3], counter[4][4],
1306 counter[5][0], counter[5][1], counter[5][2], counter[5][3], counter[5][4],
1307 counter[6][0], counter[6][1], counter[6][2], counter[6][3], counter[6][4],
1308 counter[7][0], counter[7][1], counter[7][2], counter[7][3], counter[7][4],
351dd634 1309 totalInd )) ;
21cd0c07 1310
69183710 1311}