PHOS/AliPHOSAnalyze.cxx

   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 // 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.
  31 ////    User Case:
  32 //    root [0] AliPHOSAnalyze * a = new AliPHOSAnalyze("galice.root")
  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.
  59 //*--
  60 //*-- Author: Dmitri Peressounko (SUBATECH & RRC Kurchatov Institute)
  61 //////////////////////////////////////////////////////////////////////////////
  62
  63
  64 // --- ROOT system ---
  65
  66 #include "TFile.h"
  67 #include "TH1.h"
  68 #include "TH2.h"
  69 #include "TH2.h"
  70 #include "TParticle.h"
  71 #include "TClonesArray.h"
  72 #include "TMath.h"
  73 #include "TROOT.h"
  74
  75 // --- Standard library ---
  76
  77 // --- AliRoot header files ---
  78
  79 #include "AliLog.h"
  80 #include "AliStack.h"
  81 #include "AliPHOSGeometry.h"
  82 #include "AliPHOSAnalyze.h"
  83 #include "AliPHOSDigit.h"
  84 #include "AliPHOSSDigitizer.h"
  85 #include "AliPHOSEmcRecPoint.h"
  86 #include "AliPHOSCpvRecPoint.h"
  87 #include "AliPHOSTrackSegment.h"
  88 #include "AliPHOSRecParticle.h"
  89 #include "AliPHOSLoader.h"
  90
  91
  92 ClassImp(AliPHOSAnalyze)
  93
  94 //____________________________________________________________________________
  95 AliPHOSAnalyze::AliPHOSAnalyze():
  96   fCorrection(1.2),  //Value calculated for default parameters of reconstruction
  97   fEvt(0),
  98   ffileName(),
  99   fRunLoader(0)
 100 {
 101   // default ctor (useless)
 102 }
 103
 104 //____________________________________________________________________________
 105 AliPHOSAnalyze::AliPHOSAnalyze(Text_t * fileName):
 106   fCorrection(1.05),  //Value calculated for default parameters of reconstruction
 107   fEvt(0),
 108   ffileName(fileName),
 109   fRunLoader(0)
 110 {
 111   // ctor: analyze events from root file "name"
 112   fRunLoader = AliRunLoader::Open(fileName,"AliPHOSAnalyze");
 113   if (fRunLoader == 0x0)
 114    {
 115      AliError(Form("Error Loading session"));
 116    }
 117 }
 118
 119 //____________________________________________________________________________
 120 AliPHOSAnalyze::AliPHOSAnalyze(const AliPHOSAnalyze & ana):
 121   TObject(ana),
 122   fCorrection(0.),
 123   fEvt(0),
 124   ffileName(),
 125   fRunLoader(0)
 126 {
 127   // copy ctor
 128   ( (AliPHOSAnalyze &)ana ).Copy(*this) ;
 129 }
 130
 131 //____________________________________________________________________________
 132 AliPHOSAnalyze::~AliPHOSAnalyze()
 133 {
 134   // dtor
 135
 136 }
 137 //____________________________________________________________________________
 138 void AliPHOSAnalyze::DrawRecon(Int_t Nevent,Int_t Nmod){
 139   //Draws pimary particles and reconstructed
 140   //digits, RecPoints, RecPartices etc
 141   //for event Nevent in the module Nmod.
 142
 143   //========== Create ObjectLoader
 144   if (fRunLoader == 0x0)
 145    {
 146      AliError(Form("Error Loading session"));
 147      return;
 148    }
 149
 150   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
 151   if ( gime == 0 )
 152    {
 153      AliError(Form("Could not obtain the Loader object !"));
 154      return ;
 155    }
 156
 157
 158   if(Nevent >= fRunLoader->GetNumberOfEvents() ) {
 159     AliError(Form("There is no event %d only %d events available", Nevent, fRunLoader->GetNumberOfEvents() )) ;
 160     return ;
 161   }
 162   const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
 163   fRunLoader->GetEvent(Nevent);
 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
 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);
 206
 207   //Get Vertex
 208   Double_t vtx[3]={0.,0.,0.} ;
 209 //DP: extract vertex either from Generator or from data
 210
 211
 212   //Plot Primary Particles
 213
 214   if (fRunLoader->Stack() == 0x0) fRunLoader->LoadKinematics("READ");
 215
 216
 217   const TParticle * primary ;
 218   Int_t iPrimary ;
 219   for ( iPrimary = 0 ; iPrimary < fRunLoader->Stack()->GetNprimary() ; iPrimary++)
 220     {
 221       primary = fRunLoader->Stack()->Particle(iPrimary);
 222
 223       Int_t primaryType = primary->GetPdgCode();
 224 //       if( (primaryType == 211)||(primaryType == -211)||(primaryType == 2212)||(primaryType == -2212)
 225 //          ||(primaryType == 11)||(primaryType == -11) ) {
 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 //       }
 232       if( primaryType == 22 ) {
 233         Int_t moduleNumber ;
 234         Double_t primX, primZ ;
 235         phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
 236         if(moduleNumber==Nmod)
 237           phot->Fill(primZ,primX,primary->Energy()) ;
 238       }
 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 //       }
 248     }
 249
 250
 251   Int_t iSDigit ;
 252   AliPHOSDigit * sdigit ;
 253   const TClonesArray * sdigits = gime->SDigits() ;
 254   Int_t nsdig[5] = {0,0,0,0,0} ;
 255   if(sdigits){
 256     for(iSDigit = 0; iSDigit < sdigits->GetEntriesFast() ; iSDigit++)
 257       {
 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        }
 272       }
 273   }
 274   TString message ;
 275   message  = "Number of EMC + CPV SDigits per module: \n" ;
 276   message += "%d %d %d %d %d\n";
 277   AliInfo(Form(message.Data(), nsdig[0], nsdig[1], nsdig[2], nsdig[3], nsdig[4] )) ;
 278
 279   //Plot digits
 280   Int_t iDigit ;
 281   AliPHOSDigit * digit ;
 282   const TClonesArray * digits = gime->Digits();
 283   if(digits) {
 284     for(iDigit = 0; iDigit < digits->GetEntriesFast(); iDigit++)
 285       {
 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        }
 299       }
 300   }
 301
 302
 303   //Plot RecPoints
 304   Int_t irecp ;
 305   TVector3 pos ;
 306   TObjArray * emcrp = gime->EmcRecPoints() ;
 307   if(emcrp) {
 308     for(irecp = 0; irecp < emcrp->GetEntriesFast() ; irecp ++){
 309       AliPHOSEmcRecPoint * emc = (AliPHOSEmcRecPoint *) emcrp->At(irecp) ;
 310       if(emc->GetPHOSMod()==Nmod){
 311        emc->GetLocalPosition(pos) ;
 312        emcRecPoints->Fill(pos.X(),pos.Z(),emc->GetEnergy());
 313       }
 314     }
 315   }
 316
 317   TObjArray * cpvrp = gime->CpvRecPoints() ;
 318   if(cpvrp) {
 319     for(irecp = 0; irecp < cpvrp->GetEntriesFast() ; irecp ++){
 320       AliPHOSRecPoint * cpv = (AliPHOSCpvRecPoint *) cpvrp->At(irecp) ;
 321       if(cpv->GetPHOSMod()==Nmod){
 322        cpv->GetLocalPosition(pos) ;
 323        cpvRecPoints->Fill(pos.X(),pos.Z(),cpv->GetEnergy());
 324       }
 325     }
 326   }
 327
 328   //Plot RecParticles
 329   AliPHOSRecParticle * recParticle ;
 330   Int_t iRecParticle ;
 331   TClonesArray * rp = gime->RecParticles() ;
 332   TClonesArray * ts = gime->TrackSegments() ;
 333   if(rp && ts && emcrp) {
 334     for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast() ; iRecParticle++ )
 335       {
 336        recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
 337        Int_t moduleNumberRec ;
 338        Double_t recX, recZ ;
 339        phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
 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 ;
 357            phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
 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        }
 378       }
 379
 380   }
 381
 382   //Plot made histograms
 383   emcSdigits->Draw("box") ;
 384   emcDigits->SetLineColor(5) ;
 385   emcDigits->Draw("boxsame") ;
 386   emcRecPoints->SetLineColor(2) ;
 387   emcRecPoints->Draw("boxsame") ;
 388   cpvSdigits->SetLineColor(1) ;
 389   cpvSdigits->Draw("boxsame") ;
 390
 391 }
 392 //____________________________________________________________________________
 393 void AliPHOSAnalyze::Ls(){
 394   //lists branches and titles of PHOS-related branches of TreeR, TreeD, TreeS
 395
 396   if (fRunLoader == 0x0)
 397    {
 398      AliError(Form("Error Loading session"));
 399      return;
 400    }
 401
 402   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
 403   if ( gime == 0 )
 404    {
 405      AliError(Form("Could not obtain the Loader object !"));
 406      return ;
 407    }
 408
 409
 410   Int_t ibranch;
 411   TObjArray * branches;
 412
 413   if (gime->TreeS() == 0x0)
 414    {
 415      if (gime->LoadSDigits("READ"))
 416       {
 417         AliError(Form("Problems with loading summable digits"));
 418         return;
 419       }
 420    }
 421   branches = gime->TreeS()->GetListOfBranches() ;
 422
 423   TString message ;
 424   message  = "TreeS:\n" ;
 425   for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
 426     TBranch * branch=(TBranch *) branches->At(ibranch) ;
 427     if(strstr(branch->GetName(),"PHOS") ){
 428       message += "       " ;
 429       message += branch->GetName() ;
 430       message += "     " ;
 431       message += branch->GetTitle() ;
 432       message += "\n" ;
 433     }
 434   }
 435   if (gime->TreeD() == 0x0)
 436    {
 437      if (gime->LoadDigits("READ"))
 438       {
 439         AliError(Form("Problems with loading digits"));
 440         return;
 441       }
 442    }
 443
 444   branches = gime->TreeD()->GetListOfBranches() ;
 445
 446   message += "TreeD:\n" ;
 447   for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
 448     TBranch * branch=(TBranch *) branches->At(ibranch) ;
 449     if(strstr(branch->GetName(),"PHOS") ) {
 450       message += "       ";
 451       message += branch->GetName() ;
 452       message += "     " ;
 453       message += branch->GetTitle() ;
 454       message +="\n" ;
 455     }
 456   }
 457
 458   if (gime->TreeR() == 0x0)
 459    {
 460      if (gime->LoadRecPoints("READ"))
 461       {
 462         AliError(Form("Problems with loading rec points"));
 463         return;
 464       }
 465    }
 466
 467   branches = gime->TreeR()->GetListOfBranches() ;
 468
 469   message += "TreeR: \n" ;
 470   for(ibranch = 0;ibranch <branches->GetEntries();ibranch++){
 471     TBranch * branch=(TBranch *) branches->At(ibranch) ;
 472     if(strstr(branch->GetName(),"PHOS") ) {
 473       message += "       " ;
 474       message += branch->GetName() ;
 475       message += "     " ;
 476       message += branch->GetTitle() ;
 477       message += "\n" ;
 478     }
 479   }
 480   AliInfo(Form(message.Data())) ;
 481 }
 482 //____________________________________________________________________________
 483  void AliPHOSAnalyze::InvariantMass()
 484 {
 485   // Calculates Real and Mixed invariant mass distributions
 486   if (fRunLoader == 0x0)
 487    {
 488      AliError(Form("Error Loading session"));
 489      return;
 490    }
 491
 492   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
 493   if ( gime == 0 )
 494    {
 495      AliError(Form("Could not obtain the Loader object !"));
 496      return ;
 497    }
 498
 499   gime->LoadRecParticles("READ");
 500
 501   Int_t nMixedEvents = 4 ; //# of events used for calculation of 'mixed' distribution
 502
 503
 504   //opening file
 505   TFile * mfile = new TFile("invmass.root","update");
 506
 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.) ;
 527
 528
 529   //reading event and copyng it to TConesArray of all photons
 530
 531   TClonesArray * allRecParticleList  = new TClonesArray("AliPHOSRecParticle", 1000) ;
 532   Int_t * nRecParticles = new Int_t[nMixedEvents] ; // to mark boundaries of each event in the total list
 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
 536
 537   //scan over all events
 538   Int_t event ;
 539
 540
 541   if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
 542
 543
 544   Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries();
 545   //  for(event = 0; event < gime->MaxEvent(); event++  ){
 546
 547
 548
 549   for(event = 0; event < maxevent; event++  ){
 550     fRunLoader->GetEvent(event);  //will read only TreeR
 551
 552     //copy EM RecParticles to the "total" list
 553     const AliPHOSRecParticle * recParticle ;
 554     Int_t iRecParticle ;
 555     TClonesArray * rp = gime->RecParticles() ;
 556     if(!rp){
 557       AliError(Form("Can't find RecParticles")) ;
 558       return ;
 559     }
 560
 561     for(iRecParticle = 0; iRecParticle < rp->GetEntriesFast(); iRecParticle++ )
 562       {
 563        recParticle = (AliPHOSRecParticle *) rp->At(iRecParticle) ;
 564        if((recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMFAST)||
 565           (recParticle->GetType() == AliPHOSFastRecParticle::kNEUTRALEMSLOW))
 566          new( (*allRecParticleList)[iRecPhot++] ) AliPHOSRecParticle(*recParticle) ;
 567       }
 568
 569     Int_t mevent = event%nMixedEvents ; //event number in the "mixed" cicle
 570     nRecParticles[mevent] = iRecPhot-1 ;
 571
 572     //check, if it is time to calculate invariant mass?
 573     Int_t maxevent = (Int_t)gAlice->TreeE()->GetEntries() ;
 574     if((mevent == 0) && (event +1 == maxevent)){
 575
 576       //   if((mevent == 0) && (event +1 == gime->MaxEvent())){
 577
 578       //calculate invariant mass:
 579       Int_t irp1,irp2 ;
 580       Int_t nCurEvent = 0 ;
 581
 582       for(irp1 = 0; irp1 < allRecParticleList->GetEntries()-1; irp1++){
 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
 617       } //loop over second rp
 618       }//loop over first rp
 619
 620       //Make some cleanings
 621       for(Int_t index = 0; index < nMixedEvents; index ++)
 622        nRecParticles[index] = 0 ;
 623       iRecPhot = 0 ;
 624       allRecParticleList->Clear() ;
 625
 626     }
 627   }
 628   delete allRecParticleList ;
 629
 630   //writing output
 631   mfile->cd();
 632
 633   hRealEM->Write(0,kOverwrite) ;
 634   hRealPhot->Write(0,kOverwrite) ;
 635   hMixedEM->Write(0,kOverwrite) ;
 636   hMixedPhot->Write(0,kOverwrite) ;
 637
 638   mfile->Write();
 639   mfile->Close();
 640   delete mfile ;
 641   delete nRecParticles;
 642
 643 }
 644
 645 //____________________________________________________________________________
 646  void AliPHOSAnalyze::EnergyResolution()
 647 {
 648   //fills two dimentional histo: energy of primary vs. energy of reconstructed
 649
 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
 653
 654   //opening file and reading histograms if any
 655   TFile * efile = new TFile("energy.root","update");
 656
 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.);
 668
 669
 670   if (fRunLoader == 0x0)
 671    {
 672      AliError(Form("Error Loading session"));
 673      return;
 674    }
 675
 676   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
 677   if ( gime == 0 )
 678    {
 679      AliError(Form("Could not obtain the Loader object !"));
 680      return ;
 681    }
 682
 683
 684   const AliPHOSGeometry * phosgeom = gime->PHOSGeometry();
 685
 686   Int_t ievent;
 687   Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries();
 688
 689   fRunLoader->LoadKinematics("READ");
 690   gime->LoadTracks("READ");
 691
 692   for ( ievent=0; ievent < maxevent ; ievent++){
 693
 694     //read the current event
 695     fRunLoader->GetEvent(ievent) ;
 696
 697     Double_t vtx[3]={0.,0.,0.} ;
 698
 699     const AliPHOSRecParticle * recParticle ;
 700     Int_t iRecParticle ;
 701     TClonesArray * rp = gime->RecParticles() ;
 702     if(!rp) {
 703       AliError(Form("Event %d,  Can't find RecParticles ", ievent)) ;
 704       return ;
 705     }
 706     TClonesArray * ts = gime->TrackSegments() ;
 707     if(!ts) {
 708       AliError(Form("Event %d,  Can't find TrackSegments", ievent)) ;
 709       return ;
 710     }
 711     TObjArray * emcrp = gime->EmcRecPoints() ;
 712     if(!emcrp){
 713       AliError(Form("Event %d,  Can't find EmcRecPoints")) ;
 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 ;
 723       phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
 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++){
 740
 741        primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
 742
 743        Int_t moduleNumber ;
 744        Double_t primX, primZ ;
 745        phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
 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        }
 757       }
 758
 759       //if found primary, fill histograms
 760       if(closestPrimary >=0 ){
 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        }
 772       }
 773     }
 774   }
 775
 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 ;
 784
 785 }
 786 //____________________________________________________________________________
 787 void AliPHOSAnalyze::PositionResolution()
 788 {
 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",
 807                           "Position of any RP with primary photon",100, 0., 5., 100, 0., 5.);
 808   hPhotPosition= (TH2F*)pfile->Get("hPhotPosition");
 809   if(hPhotPosition == 0)
 810     hPhotPosition = new TH2F("hPhotPosition",
 811                           "Position of kGAMMA with primary photon",100, 0., 5., 100, 0., 5.);
 812   hEMPosition= (TH2F*)pfile->Get("hEMPosition") ;
 813   if(hEMPosition == 0)
 814     hEMPosition   = new TH2F("hEMPosition",
 815                           "Position of EM with primary photon",    100, 0., 5., 100, 0., 5.);
 816   hAllPositionX = (TH1F*)pfile->Get("hAllPositionX") ;
 817   if(hAllPositionX == 0)
 818     hAllPositionX = new TH1F("hAllPositionX",
 819                           "Delta X of any RP with primary photon",100, -2., 2.);
 820   hAllPositionZ =(TH1F*) pfile->Get("hAllPositionZ") ;
 821   if(hAllPositionZ == 0)
 822     hAllPositionZ = new TH1F("hAllPositionZ",
 823                           "Delta X of any RP with primary photon",100, -2., 2.);
 824
 825   if (fRunLoader == 0x0)
 826    {
 827      AliError(Form("Error Loading session"));
 828      return;
 829    }
 830
 831   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
 832   if ( gime == 0 )
 833    {
 834      AliError(Form("Could not obtain the Loader object !"));
 835      return ;
 836    }
 837
 838   if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
 839
 840   const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
 841
 842   Int_t ievent;
 843   Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries() ;
 844   for ( ievent=0; ievent < maxevent ; ievent++){
 845
 846     //read the current event
 847     fRunLoader->GetEvent(ievent) ;
 848
 849     //DP:Extract vertex position
 850     Double_t vtx[3]={0.,0.,0.} ;
 851
 852     TClonesArray * rp = gime->RecParticles() ;
 853     if(!rp) {
 854       AliError(Form("Event %d,  Can't find RecParticles", ievent)) ;
 855       return ;
 856     }
 857     TClonesArray * ts = gime->TrackSegments() ;
 858     if(!ts) {
 859       AliError(Form("Event %d,  Can't find TrackSegments", ievent)) ;
 860       return ;
 861     }
 862     TObjArray * emcrp = gime->EmcRecPoints() ;
 863     if(!emcrp){
 864       AliError(Form("Event %d,  Can't find EmcRecPoints", ievent)) ;
 865       return ;
 866     }
 867
 868
 869     const AliPHOSRecParticle * recParticle ;
 870     Int_t iRecParticle ;
 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 ;
 877       phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
 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++){
 895        primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
 896        Int_t moduleNumber ;
 897        Double_t primX, primZ ;
 898        phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
 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        }
 910       }
 911
 912       //if found primary, fill histograms
 913       if(closestPrimary >=0 ){
 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        }
 927       }
 928     }
 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 ;
 941
 942
 943 }
 944 //____________________________________________________________________________
 945 void AliPHOSAnalyze::Contamination(){
 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
 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
 961
 962   //primary - n
 963   TH1F * hNReg = 0;   //Registeres as photon
 964   TH1F * hNEM  = 0;   //Registered as EM
 965
 966   //primary - nBar
 967   TH1F * hNBarReg = 0;   //Registeres as photon
 968   TH1F * hNBarEM  = 0;   //Registered as EM
 969
 970   //primary - charged hadron (pBar excluded)
 971   TH1F * hChargedReg = 0;   //Registeres as photon
 972   TH1F * hChargedEM  = 0;   //Registered as EM
 973
 974   //primary - pBar
 975   TH1F * hPbarReg = 0;   //Registeres as photon
 976   TH1F * hPbarEM  = 0;   //Registered as EM
 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.);
 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.);
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.);
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.);
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.);
1031
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.);
1039
1040
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
1051   if (fRunLoader == 0x0)
1052    {
1053      AliError(Form("Error Loading session"));
1054      return;
1055    }
1056
1057   AliPHOSLoader* gime = dynamic_cast<AliPHOSLoader*>(fRunLoader->GetLoader("PHOSLoader"));
1058   if ( gime == 0 )
1059    {
1060      AliError(Form("Could not obtain the Loader object !"));
1061      return ;
1062    }
1063
1064   if (fRunLoader->TreeE() == 0x0) fRunLoader->LoadHeader();
1065   const AliPHOSGeometry * phosgeom = gime->PHOSGeometry() ;
1066
1067   Int_t ievent;
1068   Int_t maxevent = (Int_t)fRunLoader->TreeE()->GetEntries() ;
1069   for ( ievent=0; ievent < maxevent ; ievent++){
1070
1071     fRunLoader->GetEvent(ievent) ;
1072
1073     //DP:Extract vertex position
1074     Double_t vtx[3]={0.,0.,0.} ;
1075
1076     TClonesArray * rp = gime->RecParticles() ;
1077     if(!rp) {
1078       AliError(Form("Event %d,  Can't find RecParticles", ievent)) ;
1079       return ;
1080     }
1081     TClonesArray * ts = gime->TrackSegments() ;
1082     if(!ts) {
1083       AliError(Form("Event %d,  Can't find TrackSegments", ievent)) ;
1084       return ;
1085     }
1086     TObjArray * emcrp = gime->EmcRecPoints() ;
1087     if(!emcrp){
1088       AliError(Form("Event %d,  Can't find EmcRecPoints", ievent)) ;
1089       return ;
1090     }
1091
1092
1093     //=========== Make spectrum of the primary photons
1094     const TParticle * primary ;
1095     Int_t iPrimary ;
1096     for( iPrimary = 0 ; iPrimary < fRunLoader->Stack()->GetNprimary() ; iPrimary++){
1097       primary = fRunLoader->Stack()->Particle(iPrimary) ;
1098       Int_t primaryType = primary->GetPdgCode() ;
1099       if( primaryType == 22 ) {
1100        //check, if photons folls onto PHOS
1101        Int_t moduleNumber ;
1102        Double_t primX, primZ ;
1103        phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
1104        if(moduleNumber)
1105          hPrimary->Fill(primary->Energy()) ;
1106
1107       }
1108
1109     }
1110
1111     //========== Now scan over RecParticles
1112     const AliPHOSRecParticle * recParticle ;
1113     Int_t iRecParticle ;
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
1119       //==========find the closest primary
1120       Int_t moduleNumberRec ;
1121       Double_t recX, recZ ;
1122       phosgeom->ImpactOnEmc(vtx,recParticle->Theta(), recParticle->Phi(), moduleNumberRec, recX, recZ) ;
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++){
1138        primary = fRunLoader->Stack()->Particle(listofprimaries[index]) ;
1139        Int_t moduleNumber ;
1140        Double_t primX, primZ ;
1141        phosgeom->ImpactOnEmc(vtx,primary->Theta(), primary->Phi(), moduleNumber, primX, primZ) ;
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        }
1153       }
1154
1155       //===========define the "type" of closest primary
1156       if(closestPrimary >=0 ){
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
1237       }
1238
1239     } // no closest primary found
1240   }
1241
1242
1243   //===================  SaveHistograms
1244   cfile->cd() ;
1245   hPrimary->Write(0,kOverwrite);
1246   hAllRP->Write(0,kOverwrite);
1247   hPhot->Write(0,kOverwrite);
1248   hShape->Write(0,kOverwrite);
1249   hVeto->Write(0,kOverwrite);
1250   hPhotReg->Write(0,kOverwrite);
1251   hPhotEM->Write(0,kOverwrite);
1252   hNReg ->Write(0,kOverwrite);
1253   hNEM  ->Write(0,kOverwrite);
1254   hNBarReg ->Write(0,kOverwrite);
1255   hNBarEM  ->Write(0,kOverwrite);
1256   hChargedReg ->Write(0,kOverwrite);
1257   hChargedEM  ->Write(0,kOverwrite);
1258   hPbarReg ->Write(0,kOverwrite);
1259   hPbarEM  ->Write(0,kOverwrite);
1260
1261   cfile->Write(0,kOverwrite);
1262   cfile->Close();
1263   delete cfile ;
1264
1265
1266   //print Final Table
1267   maxevent = (Int_t)gAlice->TreeE()->GetEntries() ;
1268
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
1294   Int_t totalInd = 0 ;
1295   for(i1 = 0; i1<8; i1++)
1296     for(i2 = 0; i2<5; i2++)
1297       totalInd+=counter[i1][i2] ;
1298   message += "Indentified particles: %d" ;
1299
1300  AliInfo(Form(message.Data(), maxevent,
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],
1309       totalInd )) ;
1310
1311 }