OCDB/EMCAL/Calib/AliEMCALPi0Calibration.cxx

   1 /**************************************************************************
   2  * Copyright(c) 1998-2007, 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 /* History of svn commits:
  16  *
  17  * $Log$
  18  *
  19  */
  20
  21 //_________________________________________________________________________
  22 //    This is analysis task for doing EMCAL pi0 calibration
  23 //--  Authors: Aleksei Pavlinov (WSU)
  24 //--  Feb 17, 2007 - Sep 11, 2007
  25 //--  Pi0 calibration
  26 //--  Recalibration, linearity, shower profile
  27 //--  May 2008 - move to AliAnalysisTaskSE
  28 //--  You should load next library before running:
  29 //    root [0] gSystem->Load("libANALYSIS");
  30 //    root [1] gSystem->Load("libANALYSISalice");
  31 //    root [2] gSystem->Load("libEMCALcalib");
  32 //_________________________________________________________________________
  33
  34 #include "AliEMCALPi0Calibration.h"
  35 #include "AliEMCALFolder.h"
  36 #include "AliEMCALSuperModule.h"
  37 #include "AliEMCALCell.h"
  38 #include "AliEMCALCellInfo.h"
  39 #include "AliEMCALPi0SelectionParam.h"
  40 #include "AliEMCALHistoUtilities.h"
  41 #include "AliEMCALCalibCoefs.h"
  42 #include "AliEMCALGeometry.h"
  43 #include "AliLog.h"
  44 #include "AliESD.h"
  45 #include "AliEMCALRecPoint.h"
  46 #include "AliRunLoader.h"
  47 #include "AliStack.h"
  48 #include "AliEMCALDigit.h"
  49 #include "AliESDEvent.h"
  50
  51 #include <iostream>
  52 #include <iomanip>
  53 #include <fstream>
  54 #include <cassert>
  55 #include <map>
  56 #include <string>
  57
  58 #include <TROOT.h>
  59 #include <TStyle.h>
  60 #include <TSystem.h>
  61 #include <TCanvas.h>
  62 #include <TVector3.h>
  63 #include <TLorentzVector.h>
  64 #include <TParticle.h>
  65 #include <TChain.h>
  66 #include <TFile.h>
  67 #include <TH1F.h>
  68 #include <TH1D.h>
  69 #include <TH2F.h>
  70 #include <TF1.h>
  71 #include <TMath.h>
  72 #include <TBrowser.h>
  73 #include <TList.h>
  74 #include <TCanvas.h>
  75 #include <TLine.h>
  76 #include <TObjString.h>
  77 #include <TArrayI.h>
  78 #include <TGraphErrors.h>
  79 #include <TLegend.h>
  80 #include <TLegendEntry.h>
  81 #include <TNtuple.h>
  82
  83 using namespace std;
  84
  85 typedef  AliEMCALHistoUtilities u;
  86
  87 AliEMCALGeometry* AliEMCALPi0Calibration::fgEmcalGeo=0;
  88 Int_t             AliEMCALPi0Calibration::fgNmaxCell = 4*12*24*11;
  89
  90 Double_t AliEMCALPi0Calibration::fgDistEff = 3.;
  91 Double_t AliEMCALPi0Calibration::fgW0      = 4.5;
  92 Double_t AliEMCALPi0Calibration::fgSlopePhiShift = 0.01; // ?? just guess
  93
  94 AliEMCALFolder* AliEMCALPi0Calibration::fgEMCAL = 0;
  95 AliEMCALFolder* AliEMCALPi0Calibration::fgEMCALOld = 0;
  96
  97 const Char_t **AliEMCALPi0Calibration::fgAnaOpt=0;
  98 Int_t AliEMCALPi0Calibration::fgNanaOpt = 0;
  99 enum keyOpt{
 100   kCORR1,
 101   kRECALIB,
 102   kIDEAL,
 103   kPI0,
 104   kGAMMA,
 105   kKINE,
 106   kPROF,
 107   kFIT,
 108  //--
 109   kEND
 110 };
 111
 112 // Enumeration variables
 113 // enum {kUndefined=-1, kLed=0, kBeam=1};
 114 // enum {kPatchResponse=0, kClusterResponse=1};
 115 // enum {kSkip=0,  kSaveToMemory=1};
 116
 117 ClassImp(AliEMCALPi0Calibration)
 118
 119 AliEMCALPi0Calibration::AliEMCALPi0Calibration() :
 120   AliAnalysisTaskSE(),
 121   fPmom(0),
 122   fChain(0),
 123   fLofHistsPC(0),
 124   fLofHistsRP(0),
 125   fLKineVsRP(0),
 126   fLShowerProfile(0),
 127   fCellsInfo(0),
 128   fEmcalPool(0),
 129   fRunOpts(0),
 130   fArrOpts(0),
 131   fKeyOpts(0)
 132 {
 133   // Default constructor - for reading
 134 }
 135
 136 AliEMCALPi0Calibration::AliEMCALPi0Calibration(const char* name) :
 137   AliAnalysisTaskSE(name),
 138   fPmom(0),
 139   fChain(0),
 140   fLofHistsPC(0),
 141   fLofHistsRP(0),
 142   fLKineVsRP(0),
 143   fLShowerProfile(0),
 144   fCellsInfo(0),
 145   fEmcalPool(0),
 146   fRunOpts(0),
 147   fArrOpts(0),
 148   fKeyOpts(0)
 149 {
 150   //
 151   // Constructor. Initialization of pointers
 152   //
 153   const Char_t *anaOpt[]={
 154   "CORR1",   // GetCorrectedEnergyForGamma1(Double_t eRec);
 155   "RECALIB",
 156   "IDEAL",
 157   "PI0",
 158   "GAMMA",
 159   "KINE",   // reading kine file
 160   "PROF",   // Shower profile: phi direction now
 161   "FIT"     // define parameters : deff, w0 and phislope
 162   };
 163
 164   fgNanaOpt = sizeof(anaOpt) / sizeof(Char_t*);
 165   fgAnaOpt = new const Char_t*[fgNanaOpt];
 166   for(int i=0; i<fgNanaOpt; i++) fgAnaOpt[i] = anaOpt[i];
 167 }
 168
 169 //AliEMCALPi0Calibration::AliEMCALPi0Calibration(const AliAnalysisTaskSE& obj) :
 170 //  AliAnalysisTaskSE(),
 171 //  fPmom(0),
 172 //  fChain(0),
 173 //  fLofHistsPC(0),
 174 //  fLofHistsRP(0),
 175 //  fLKineVsRP(0),
 176 //  fLShowerProfile(0),
 177 //  fCellsInfo(0),
 178 //  fEmcalPool(0),
 179 //  fRunOpts(0),
 180 //  fArrOpts(0),
 181 //  fKeyOpts(0)
 182 //{
 183 //  // Copy constructor - unused
 184 //}
 185 //
 186 //AliEMCALPi0Calibration& AliEMCALPi0Calibration::operator=(const AliAnalysisTaskSE& other)
 187 //{
 188 //  // Assignment
 189 //
 190 //  return *this;
 191 //}
 192
 193 AliEMCALPi0Calibration::~AliEMCALPi0Calibration()
 194 {
 195   //
 196   // Destructor
 197   //
 198
 199   // histograms are in the output list and deleted when the output
 200   // list is deleted by the TSelector dtor
 201 }
 202
 203 void AliEMCALPi0Calibration::InitStructure(Int_t it)
 204 {
 205   //
 206   // Initialize the common structure of selector
 207   //
 208   fgEmcalGeo = AliEMCALGeometry::GetInstance("EMCAL_COMPLETE"); // initialize geometry just once
 209   fCellsInfo = AliEMCALCellInfo::GetTableForGeometry(fgEmcalGeo);
 210
 211   if(fRunOpts.Length()>0) CheckRunOpts();
 212
 213   Int_t key = 0;
 214   if(GetKeyOptsValue(kGAMMA)) key = 1;
 215   fLofHistsRP = DefineHistsOfRP("RP", fPmom, key);
 216   fLofHistsPC = DefineHistsOfRP("PseudoCl", fPmom);
 217
 218   fEmcalPool = new TFolder("PoolOfEMCAL","");
 219   if(it <= 1) {
 220     fgEMCAL     = new AliEMCALFolder(it); // folder for first itteration
 221     fEmcalPool->Add(fgEMCAL);
 222   }
 223   //if(it<=0) SetName("GammaSel"); // For convinience
 224   //else      SetName("Pi0Sel");
 225   if(GetKeyOptsValue(kKINE)) fLKineVsRP = DefineHistsOfKineVsRP("KineVsRP",fPmom, key);
 226   if(GetKeyOptsValue(kPROF)) fLShowerProfile = DefineHistsForShowerProfile("ProfY", fPmom);
 227 }
 228
 229 void AliEMCALPi0Calibration::CheckRunOpts()
 230 {
 231   // Check run options
 232   fRunOpts.ToUpper();
 233   int nopt = u::ParseString(fRunOpts, fArrOpts);
 234   printf("<I> AliEMCALPi0Calibration::CheckRunOpts() analyze %i(%i) options : fgNanaOpt %i\n",
 235          nopt, fArrOpts.GetEntries(), fgNanaOpt);
 236   if(nopt <=0) return;
 237
 238   fKeyOpts = new TArrayI(fgNanaOpt);
 239   for(Int_t i=0; i<fgNanaOpt; i++) (*fKeyOpts)[i] = 0;
 240
 241   for(Int_t i=0; i<fArrOpts.GetEntries(); i++ ) {
 242     TObjString *o = (TObjString*)fArrOpts.At(i);
 243
 244     TString runOpt = o->String();
 245     Int_t indj=-1;
 246
 247     for(Int_t j=0; j<fgNanaOpt; j++) {
 248       TString opt = fgAnaOpt[j];
 249       if(runOpt.Contains(opt,TString::kIgnoreCase)) {
 250         indj = j;
 251         break;
 252       }
 253     }
 254     if(indj<0) {
 255       printf("<E> option |%s| unavailable **\n",
 256       runOpt.Data());
 257       assert(0);
 258     } else {
 259       (*fKeyOpts)[indj] = 1;
 260       printf("<I> option |%s| is valid : number %i : |%s| \n",
 261              runOpt.Data(), indj, fgAnaOpt[indj]);
 262     }
 263   }
 264 }
 265
 266 Int_t AliEMCALPi0Calibration::GetKeyOptsValue(Int_t key)
 267 {
 268   // Oct 14, 2007
 269   static Int_t val=0;
 270   val = 0;
 271   if(fKeyOpts && key>=0 && key<fKeyOpts->GetSize()) {
 272     val = fKeyOpts->At(key);
 273   }
 274   // printf(" key %i : val %i : opt %s \n", key, val, fgAnaOpt[key]);
 275   return val;
 276 }
 277
 278 void AliEMCALPi0Calibration::UserExec(const Option_t* /* */)
 279 {
 280   AliESDEvent * esd = dynamic_cast<AliESDEvent *>(InputEvent());
 281
 282   if (!esd)
 283   {
 284     AliDebug(AliLog::kError, "ESD branch not available");
 285     return;
 286   }
 287
 288   static AliEMCALPi0SelectionParRec* rPar = GetEmcalFolder()->GetPi0SelectionParRow(0);
 289
 290   static Int_t nEmcalClusters, indOfFirstEmcalRP, nEmcalRP,nEmcalPseudoClusters;
 291   nEmcalClusters    = esd->GetNumberOfEMCALClusters();
 292   indOfFirstEmcalRP = esd->GetFirstEMCALCluster();
 293   u::FillH1(fLofHistsRP, 1, double(indOfFirstEmcalRP));
 294
 295   static AliRunLoader* rl = 0;
 296   static Int_t nev = 0; // Temporary - 0nly for reading one file now !!
 297
 298   static AliESDCaloCluster *cl = 0;
 299   nEmcalRP = nEmcalPseudoClusters = 0;
 300   TList *l=0;
 301   double eDigi=0;
 302
 303   TClonesArray lvM1("TLorentzVector", 100);  // for convenience; 100 is enough now
 304   TArrayI      indLv(100);                   // index of RP
 305
 306   static TLorentzVector v, vcl;
 307   int nrp = 0; // # of RP for gg analysis
 308   static Double_t erec=0., ecorr=0.0;
 309   for(int i=indOfFirstEmcalRP; i<indOfFirstEmcalRP+nEmcalClusters; i++) {
 310     cl = esd->GetCaloCluster(i);
 311     if(cl->GetClusterType() == AliESDCaloCluster::kEMCALPseudoCluster) {
 312       nEmcalPseudoClusters++;
 313       l = fLofHistsPC;
 314     } else if(cl->GetClusterType() == AliESDCaloCluster::kEMCALClusterv1){
 315       nEmcalRP++;
 316       if(fgEMCAL->GetIterationNumber()>1||GetKeyOptsValue(kIDEAL)||GetKeyOptsValue(kRECALIB)||GetKeyOptsValue(kFIT)) {
 317         AliEMCALRecPoint *rp=0;
 318         if(GetKeyOptsValue(kFIT) == kFALSE) fgDistEff = -1.; // No fitting ; Sep 4, 2007
 319         if(GetKeyOptsValue(kIDEAL)) {
 320           rp = AliEMCALFolder::GetRecPoint(cl, fgEMCAL->GetCCFirst(), 0, fLofHistsRP, fgDistEff, fgW0, fgSlopePhiShift);
 321         } else {
 322           rp = AliEMCALFolder::GetRecPoint(cl, fgEMCAL->GetCCFirst(), fgEMCAL->GetCCIn(), fLofHistsRP, fgDistEff, fgW0, fgSlopePhiShift);
 323         }
 324         if(GetKeyOptsValue(kPROF)) {
 325           FillHistsForShowerProfile( GetListShowerProfile(), rp, GetCellsInfo());
 326         }
 327         //if(rp->GetPointEnergy()>=rPar->fEOfRpMin && u::GetLorentzVectorFromRecPoint(v, rp)) {
 328         if(u::GetLorentzVectorFromRecPoint(v, rp)) { // comparing with RP
 329           if(GetKeyOptsValue(kCORR1)) {
 330             erec  = v.Rho();
 331             ecorr = u::GetCorrectedEnergyForGamma1(erec);
 332             v.SetRho(ecorr);
 333             v.SetE(ecorr); // This is gamma
 334             //printf("<1> erec %f | ecorr %f \n", erec, ecorr);
 335           }
 336           new(lvM1[nrp]) TLorentzVector(v);
 337           indLv[nrp] = i;
 338           nrp++;
 339           // Conroling of recalibration
 340           u::GetLorentzVectorFromESDCluster(vcl, cl);
 341           u::FillH1(fLofHistsRP, 11, vcl.P()-v.P());
 342           u::FillH1(fLofHistsRP, 12, TMath::RadToDeg()*(vcl.Theta()-v.Theta()));
 343           u::FillH1(fLofHistsRP, 13, TMath::RadToDeg()*(vcl.Phi()-v.Phi()));
 344
 345           u::FillH1(fLofHistsRP, 16, v.P());
 346           u::FillH2(fLofHistsRP, 17, vcl.P(), vcl.P()-v.P());
 347           l = 0; // no filling
 348           if(GetKeyOptsValue(kIDEAL) || GetKeyOptsValue(kRECALIB)) l = fLofHistsRP;
 349         }
 350         if(rp) delete rp;
 351       } else { // first iteration
 352         //        if(cl->E()>=rPar->fEOfRpMin && u::GetLorentzVectorFromESDCluster(v, cl)) {
 353         if(u::GetLorentzVectorFromESDCluster(v, cl)) { // comparing with RP
 354         // cut 0.4 GeV may be high !
 355           if(GetKeyOptsValue(kCORR1)) {
 356             erec  = v.Rho();
 357             ecorr = u::GetCorrectedEnergyForGamma1(erec);
 358             v.SetRho(ecorr);
 359             v.SetE(ecorr); // This is gamma now
 360             // printf("<2> erec %f | ecorr %f \n", erec, ecorr);
 361             // printf("    v.Rho()  %f \n", v.Rho());
 362           }
 363           new(lvM1[nrp]) TLorentzVector(v);
 364           indLv[nrp] = i;
 365           nrp++;
 366           l = fLofHistsRP;
 367         }
 368       }
 369
 370     } else {
 371       printf(" wrong cluster type : %i\n", cl->GetClusterType());
 372       assert(0);
 373     }
 374     u::FillH1(l, 2, double(cl->GetClusterType()));
 375
 376     u::FillH1(l, 3, double(cl->GetNumberOfDigits()));
 377     u::FillH1(l, 4, double(cl->E()));
 378     // Cycle on digits (towers)
 379     Short_t *digiAmpl  = cl->GetDigitAmplitude()->GetArray();
 380     Short_t *digiTime  = cl->GetDigitTime()->GetArray();
 381     Short_t *digiAbsId = cl->GetDigitIndex()->GetArray();
 382     for(int id=0; id<cl->GetNumberOfDigits(); id++) {
 383       eDigi = double(digiAmpl[id]) / 500.; // See AliEMCALClusterizerv1
 384       //      if(eDigi <= 0.0) { // sometimes it is happen
 385       //if(eDigi > 10.0 && cl->GetClusterType() == AliESDCaloCluster::kEMCALClusterv1) {
 386       // printf(" %i digiAmpl %i : %f \n", id, int(digiAmpl[id]), eDigi);
 387       //}
 388       u::FillH1(l, 5, eDigi);
 389       u::FillH1(l, 6, double(digiTime[id]));
 390       u::FillH1(l, 7, double(digiAbsId[id]));
 391       if(int(digiAbsId[id]) >= fgNmaxCell) {
 392         printf(" id %i :  digiAbsId[id] %i (%i) : %s \n",
 393                id, int(digiAbsId[id]), fgNmaxCell, l->GetName());
 394       }
 395     }
 396   }
 397   u::FillH1(fLofHistsRP, 0, double(nEmcalRP));
 398   u::FillH1(fLofHistsPC, 0, double(nEmcalPseudoClusters));
 399
 400   static TLorentzVector *lv1=0, *lv2=0, lgg;
 401   for(int i1=0; i1<nrp; i1++){
 402     lv1 = (TLorentzVector*)lvM1.At(i1);
 403     u::FillH1(fLofHistsRP, 18, lv1->P());
 404   }
 405   static Double_t mgg, pgg;
 406   mgg = pgg = 0.;
 407   nrp = lvM1.GetEntriesFast();
 408   if(nrp >= 2) {
 409     // eff.mass analysis
 410     for(int i1=0; i1<nrp-1; i1++){
 411       lv1 = (TLorentzVector*)lvM1.At(i1);
 412       for(int i2=i1+1; i2<nrp; i2++){
 413         lv2 = (TLorentzVector*)lvM1.At(i2);
 414         lgg = (*lv1) + (*lv2);
 415         mgg = lgg.M();  // eff.mass
 416         pgg = lgg.P();  // momentum
 417         u::FillH1(fLofHistsRP, 8, mgg);
 418
 419         if((mgg>=rPar->fMassGGMin && mgg<=rPar->fMassGGMax)) {// pi0 candidates
 420           if((pgg>=rPar->fMomPi0Min && pgg>=rPar->fMomPi0Min)) {
 421             if(fgEMCAL && fgEMCAL->GetIterationNumber()>=1) {
 422               fgEMCAL->FillPi0Candidate(mgg,esd->GetCaloCluster(indLv[i1]),esd->GetCaloCluster(indLv[i2]));
 423               u::FillH1(fLofHistsRP, 9, pgg);
 424               u::FillH1(fLofHistsRP,10, lv1->P());
 425               u::FillH1(fLofHistsRP,10, lv2->P());
 426             }
 427           }
 428         }
 429       }
 430     }
 431   }
 432
 433   //  static Int_t fileNumber = 0;
 434   static TString curFileName;
 435   //  if(GetKeyOptsValue(kKINE) && nev<fChain->GetEntries()) {
 436   if(GetKeyOptsValue(kKINE)) {
 437   // Get galice.root file in current directory
 438     if(nev%1000==0) {
 439       printf(" current file |%s|\n", fChain->GetCurrentFile()->GetName());
 440       curFileName = fChain->GetCurrentFile()->GetName();
 441       curFileName.ReplaceAll("AliESDs.","galice.");
 442     }
 443     rl = u::InitKinematics(nev, curFileName.Data());
 444   // Compare kineamtics vs EMCal clusters
 445     FillHistsOfKineVsRP(fLKineVsRP, rl, lvM1);
 446   }
 447
 448   lvM1.Delete();
 449
 450   if(nEmcalClusters != (nEmcalRP+nEmcalPseudoClusters))
 451     Info("Process","nEmcalClusters %i : RP %i + PC %i ",nEmcalClusters, nEmcalRP, nEmcalPseudoClusters);
 452
 453   nev++;
 454
 455   return;
 456 }
 457
 458 //
 459 TList *AliEMCALPi0Calibration::DefineHistsOfRP(const char *name,Double_t p,Int_t keyOpt)
 460 {
 461   //
 462   // Define histogramms of rec.points
 463   //
 464   printf("<I> DefineHistsOfRP :%s : p %f : keyOpt %i \n", name, p, keyOpt);
 465   Double_t adcChannelEC = 0.0153; // ~15mev per adc count
 466   Double_t xma = p*1.4, xmi=0.0, step=0.0, xmic=xmi, xmac = xma;
 467   if(xma<0) xma = 20.;
 468   Int_t nmax=1000, scale=4, nmaxc = nmax;
 469
 470   gROOT->cd();
 471   TH1::AddDirectory(1);
 472   new TH1F("00_EmcalMultiplicity", "multiplicity of EMCAL  ", 201, -0.5, 200.5); // real and pseudo
 473   new TH1F("01_IndexOfFirstEmcal", "index of first emcal rec.points ", 201, -0.5, 200.5);
 474
 475   new TH1F("02_NumberOf", "number of  ", 6, -0.5, 5.5);
 476   new TH1F("03_NumberOfDigitsIn", "number of digits(towers) in rec.points ", 101, -0.5, 100.5);
 477
 478   if(keyOpt==1 && p>0.1) {
 479     if   (p>=100.)  scale=12;
 480     else if(p>=50.) scale=10;
 481     else if(p>=30.) scale=8;
 482     xma = p + scale*(0.15*TMath::Sqrt(p));
 483     xmi = p - scale*(0.15*TMath::Sqrt(p));
 484     step = (xma-xmi)/nmax;
 485   }
 486
 487   if(step < 0.0153) {
 488     nmax = int((xma-xmi) / adcChannelEC)+1;
 489     xma =  xmi + adcChannelEC*nmax;
 490   }
 491   new TH1F("04_EnergyOf", "energy of ", nmax, xmi, xma);
 492   nmaxc = nmax; xmic=xmi; xmac = xma;
 493
 494   nmax = 10000;
 495   xmi  = adcChannelEC/2.; xma = xmi + adcChannelEC*nmax;
 496   // All energy(momentum) unit is GeV if don't notice
 497   new TH1F("05_DigitEnergyIn", "digit energy in ", nmaxc, xmic, xmac);
 498   new TH1F("06_DigitTimeIn", "digit time in 10ps(0.01ns) ", 1000, 0.0, 3.e+3); // ns/100 = 10 ps
 499   new TH1F("07_DigitAbsIdIn", "digit abs id in ", fgNmaxCell, -0.5, double(fgNmaxCell)-0.5);
 500   new TH1F("08_EffMass", "effective mass of #gamma,#gamma(m_{#pi^{0}}=134.9766 MeV)", 100, 0.0, 0.5);
 501   new TH1F("09_MomOfPi0Candidate", "momentum of #pi^{0} candidates (0.085 <mgg<0.185)", 600, 0.0, 30.0);
 502   new TH1F("10_MomOfRpPi0Candidate", "momentum of RP for #pi^{0} candidates (0.085 <mgg<0.185)", 600, 0.0, 30.0);
 503   // Recalibration staf
 504   Double_t pmax=11., dpmax=0.20;
 505   if(p>0.1) {
 506     pmax=p*1.2;
 507     dpmax *= p;
 508   }
 509   new TH1F("11_MomClESD-RpRecalib", "difference of momentum cl(ESD) - rp(Recalib)", 100, -.01, dpmax);
 510   new TH1F("12_ThetaClESD-RpRecalib", "difference of #theta cl(ESD) - rp(Recalib) in degree", 100, -0.05, +0.05);
 511   new TH1F("13_PhiClESD-RpRecalib", "difference of #phi cl(ESD) - rp(Recalib) in degree ", 100, -0.05, +0.05);
 512   // Digi
 513   new TH1F("14_EDigiRecalib", "energy of digits after recalibration", 2000, 0.0, 20.);
 514   //  AliEMCALGeometry* g = AliEMCALGeometry::GetInstance();
 515   new TH1F("15_AbsIdRecalib", "abs Id of digits after recalibration", fgEmcalGeo->GetNCells(),-0.5,Double_t(fgEmcalGeo->GetNCells())-0.5);
 516   new TH1F("16_EnergyOfRecalibRp_", "energy of recalibrated rec.points", nmaxc, xmic, xmac); // Jul 12, 2007
 517   new TH2F("17_ShiftRecalib_", "E(clESD) - E(recalib)", 110,0.0, pmax, 50,0.0,dpmax); // Jul 13, 2007
 518
 519   // Corrected staff
 520   new TH1F("18_EnergyOfCorrectedLV", "energy of corrected LV", nmaxc, xmic, xmac);
 521
 522   TString st = Form("ListOfHists%s_P=%5.1f",name,p);
 523   st.ReplaceAll(" ","");
 524   TList *l = u::MoveHistsToList(st.Data(), kFALSE);
 525   st = Form("%s_P=%5.1f",name,p);
 526   st.ReplaceAll(" ","");
 527   u::AddToNameAndTitleToList(l, st.Data(), st.Data());
 528
 529   return l;
 530 }
 531
 532 TList* AliEMCALPi0Calibration::DefineHistsOfKineVsRP(const char *name,  Double_t p, Int_t keyOpt)
 533 {
 534   //
 535   // Define histogramms for comparing a initial kinematics with rec.points
 536   //
 537  printf("<I>  DefineHistsOfKineVsRP :%s : p %f : keyOpt %i \n", name, p, keyOpt);
 538
 539   gROOT->cd();
 540   TH1::AddDirectory(1);
 541   new TH1F("00_hVx",Form("Vx of primary vertex"), 100, -5., +5.);   // 00
 542   new TH1F("01_hVy",Form("Vy of primary vertex"), 100, -5., +5.);   // 01
 543   new TH1F("02_hVz",Form("Vz of primary vertex"), 100, -50., +50.); // 02
 544
 545   //  Double_t adcChannelEC = 0.0153; // ~15mev per adc count
 546   Double_t xma = p*1.4, xmi=0.0, sig=0.15*TMath::Sqrt(p);
 547   //  Double_t step=0.0, xmic=xmi, xmac = xma;
 548   if(xma<0) xma = 20.;
 549   //Int_t nmax=1000;
 550   // scale=4, nmaxc = nmax;
 551
 552   new TH1F("03_hGidPrimar", "Geant Id of primary particle ", 101, 0.5, 100.5);   // 03
 553   new TH1F("04_hPmomPrim","momentum of primary particle", 100, xmi, xma);        // 04
 554   new TH1F("05_hEtaPrim","#eta of primary particle ", 200, -1., 1.);             // 05
 555   new TH1F("06_hPhiPrim","#phi of primary particle ", 63*2, 0.0,TMath::Pi()*2.); // 06
 556   new TH1F("07_hThetaPrim","#theta of primary particle", 63, 0.0,TMath::Pi());   // 07
 557   new TH1F("08_hPhiPrimInDegree","#phi of primary particle in degree", 120, 75.0, 195.0);  // 08
 558   new TH1F("09_hThetaPrimInDegree","#theta of primary particle in degree", 90, 45., 135.); // 09
 559
 560   // Particle vs cluster
 561   new TH1F("10_hE(P)-E(RP)"," E(p) - E(RP) ", 100, -10.*sig, 10.*sig);   // 10
 562
 563   new TH1F("11_hPvsRpAngleInDegree","angle between P and RP (in degree)", 110, 0.0, 1.0); // 11
 564   double dphi=0.5; // for fitting
 565   new TH1F("12_hPvsRpDPhiInDegree","dif(#phi) between P and RP (in degree)", 100, -dphi, dphi); // 12
 566   new TH1F("13_hPvsRpDThetaInDegree","dif(#theta) between P and RP (in degree)", 100, -0.5, 0.5); // 13
 567
 568   new TH1F("14_hPvsRpDPhiInDegree","dif(#phi) between P and RP (in degree) right part of SM", 100, -dphi, +dphi); // 14
 569   new TH1F("15_hPvsRpDPhiInDegree","dif(#phi) between P and RP (in degree) left part of SM", 100, -dphi, dphi); // 15
 570
 571   new TH1F("16_hPvsRpDThetaInDegree","dif(#theta) between P and RP (even index)", 100, -0.5, 0.5); // 16
 572   new TH1F("17_hPvsRpDThetaInDegree","dif(#theta) between P and RP (odd  index)", 100, -0.5, 0.5); // 17
 573
 574   TString st = Form("ListOfHists%s_P=%5.1f",name,p);
 575   st.ReplaceAll(" ","");
 576   TList *l = u::MoveHistsToList(st.Data(), kFALSE);
 577   st = Form("%s_P=%5.1f",name,p);
 578   st.ReplaceAll(" ","");
 579   u::AddToNameAndTitleToList(l, st.Data(), st.Data());
 580   return l;
 581 }
 582
 583 TList *AliEMCALPi0Calibration::DefineHistsForShowerProfile(const char *name, Double_t p)
 584 {
 585   // Aug 1, 2007 - shower profile business as in testbeam analysis
 586   //               Phi direction here is Y direction in testbeam
 587   printf("<I> DefineHistsForShowerProfile: %s : p %f \n",
 588   name, p);
 589
 590   gROOT->cd();
 591   TH1::AddDirectory(1);
 592
 593   // Cell unit
 594   new TH1F("00_hPHiMean"," mean in #phi direction ", 24*10, 0.0, 24.);
 595   new TH1F("01_hPHiLog"," mean with log in #phi direction ", 24*10, 0.0, 24.);
 596   new TH2F("02_XmeanVsXlog", "xmean vs xlog", 240,0.0, 24.,240,0.0, 24.);
 597   new TH2F("03_XmeanVsXlog", "xmean vs xlog (system of cell with max energy, first half on #eta)",
 598   50,-0.5,+0.5, 100,-1.,+1.);
 599   new TH2F("04_XmeanVsXlog", "xmean vs xlog (system of cell with max energy, second half on #eta)",
 600   50,-0.5,+0.5, 100,-1.,+1.);
 601
 602   new TH2F("05_PhiShowerProfile", " #phi shower profile - cumulative distribution",
 603   6*25,-3.,3., 201, -0.0025, 1.0025);   // 00; x direction in cell unit
 604
 605   TString st = Form("L%s_P=%5.1f",name,p);
 606   st.ReplaceAll(" ","");
 607   TList *l = u::MoveHistsToList(st.Data(), kFALSE);
 608   st = Form("%s_P=%5.1f",name,p);
 609   st.ReplaceAll(" ","");
 610   u::AddToNameAndTitleToList(l, st.Data(), st.Data());
 611
 612   return l;
 613 }
 614
 615 void AliEMCALPi0Calibration::FillHistsOfKineVsRP(TList *l, AliRunLoader* rl,  TClonesArray &lvM)
 616 {
 617   //
 618   // lvM - array of TLorentzVector's which was cretaef from AliESDCaloCluster's
 619   //
 620
 621   if(l==0 || rl==0) return;
 622
 623   // TNtuple for qucik analysis
 624   static TNtuple *nt=0;
 625   if(nt==0) {
 626     gROOT->cd();
 627     Int_t bsize = int(1.e+7);
 628     nt = new TNtuple("angle","angle ntuple for quick analysis",
 629     "dPhi:dTheta:phiP:thetaP", bsize);
 630     gROOT->GetListOfBrowsables()->Add(nt);
 631   }
 632   static AliStack* st=0;
 633   static TParticle *p=0;
 634   static Int_t gid=0, ic=0, pdg=0, i=0;
 635   gid = ic = pdg = 0;
 636
 637   st = rl->Stack();
 638   if(st == 0) return;
 639   // first primary particle
 640   p = st->Particle(0);
 641   if(p == 0) return;
 642
 643   u::FillH1(l, ic++, p->Vx());
 644   u::FillH1(l, ic++, p->Vy());
 645   u::FillH1(l, ic++, p->Vz());
 646
 647   pdg = p->GetPdgCode();
 648   //gid = gMC->IdFromPDG(pdg); // gMc should be defined
 649
 650   u::FillH1(l, ic++, Double_t(gid));
 651   u::FillH1(l, ic++, p->P());
 652   u::FillH1(l, ic++, p->Eta());
 653   u::FillH1(l, ic++, TVector2::Phi_0_2pi(p->Phi()) );
 654   u::FillH1(l, ic++, p->Theta());
 655   // In degree
 656   u::FillH1(l, ic++, TVector2::Phi_0_2pi(p->Phi())*TMath::RadToDeg());
 657   u::FillH1(l, ic++, p->Theta()*TMath::RadToDeg()); // 09
 658
 659   if(lvM.GetEntriesFast() == 0) return;
 660   //
 661   // Initial kinematics vs Calo clusters
 662   //
 663   static TLorentzVector *lv = 0, lvp;
 664   lvp.SetPxPyPzE(p->Px(),p->Py(),p->Pz(),p->Energy()); // Particle
 665
 666   Double_t angle = 0.0, angleMin = 180.0, eDiff=0.0, dPhi=0., dTheta=0., phiP=0.0, thetaP=0.0;
 667   Int_t indMin = 0;
 668   phiP   = lvp.Phi() * TMath::RadToDeg();
 669   if (phiP<81. || phiP>99.)  return;     // cut phi boundaries
 670   thetaP = lvp.Theta() * TMath::RadToDeg();
 671   if (thetaP<56. || thetaP>89.)  return; // cut theta boundaries
 672
 673   for(i=0; i<lvM.GetEntriesFast(); i++) {
 674     lv = (TLorentzVector*)lvM.At(i);
 675     angle = lv->Angle(lvp.Vect())*TMath::RadToDeg();
 676     if(angleMin > angle) {
 677       angleMin = angle;
 678       indMin   = i;
 679     }
 680   }
 681   lv = (TLorentzVector*)lvM.At(indMin);
 682   eDiff   = lvp.E() - lv->E();
 683   u::FillH1(l, ic++, eDiff);
 684
 685   dPhi    = TVector2::Phi_mpi_pi(lvp.Phi()-lv->Phi())*TMath::RadToDeg();
 686   dTheta  = TVector2::Phi_mpi_pi(lvp.Theta()-lv->Theta())*TMath::RadToDeg();
 687   u::FillH1(l, ic++, angleMin);
 688   u::FillH1(l, ic++, dPhi);
 689   u::FillH1(l, ic++, dTheta);
 690
 691   if       (phiP>=81. && phiP<=90.) {
 692     u::FillH1(l, 14, dPhi);
 693   } else if(phiP> 90. && phiP<=99.) {
 694     u::FillH1(l, 15, dPhi);
 695   }
 696   // Unfinished - have to get absid of digit with max energy
 697   u::FillH1(l, 16, dTheta);
 698   u::FillH1(l, 17, dTheta);
 699   if(nt) {
 700     nt->Fill(dPhi,dTheta,phiP,thetaP);
 701     /*
 702      tv__tree = (TTree *) gROOT->FindObject("angle");
 703      tv__tree->Draw("dPhi:phiP","abs(dPhi)<0.5","", 9182, 0);
 704      tv__tree->Draw("dTheta:thetaP","abs(dTheta)<0.5","", 9182, 0);
 705      */
 706   }
 707 }
 708
 709 void AliEMCALPi0Calibration::FillHistsForShowerProfile
 710 (TList *l, AliEMCALRecPoint *rp, AliEMCALCellInfo * t)
 711 {
 712   // Aug 1, 2007
 713   if(l==0 || rp==0 || t==0) return;
 714   // --
 715   static Double_t xmean=0., xlog=0.;
 716   static AliEMCALCellIndexes rMax;
 717   static Int_t phiSize;
 718
 719   if(rp->GetPointEnergy() < 1.0) return;
 720   //if(rp->GetPointEnergy() > 8.0) return; // discard merged clusters for pi0 case
 721
 722   EvalLocalPhiPosition(1.,  rp, t, xmean, phiSize, rMax);
 723   if(phiSize == 0) return; // just one row in cell directions
 724
 725   EvalLocalPhiPosition(5.5, rp, t, xlog, phiSize, rMax);
 726   if(rMax.fIPhi>1.5&&rMax.fIPhi<21.5 && rMax.fIEta>1.5&&rMax.fIEta<46.5) {
 727     u::FillH1(l, 0, xmean);
 728     u::FillH1(l, 1, xlog);
 729     u::FillH2(l, 2, xlog, xmean);
 730     // Select two central modules
 731     if((rMax.fIPhim==5 || rMax.fIPhim==6)){
 732     // Transition to system of cell with max energy
 733       xmean -= (double(rMax.fIPhi)+0.5);
 734       xlog  -= (double(rMax.fIPhi)+0.5);
 735       if(rMax.fIEtam>=2 && rMax.fIEtam<=12){ // approximatively first half on eta
 736         u::FillH2(l, 3, xlog, xmean);
 737       } else {// approximatively second half on eta
 738         u::FillH2(l, 4, xlog, xmean);
 739       }
 740     }
 741   }
 742 }
 743
 744 void   AliEMCALPi0Calibration::EvalLocalPhiPosition(const Double_t wlog, const AliEMCALRecPoint *rp, const AliEMCALCellInfo* t, Double_t &xcog, Int_t &phiSize, AliEMCALCellIndexes &rMax)
 745 {
 746   // wlog = 1 - usual center of gravity; >1 - with logarithmic weight.
 747   // digits - array of digits
 748   // t      -
 749   //==
 750   // xcog - position of center of gravity in cell unit
 751   if(wlog<1.0 || rp==0 || t==0) return;
 752   xcog = 0;
 753
 754   static Double_t wtot=0., w=0., edigi=0., e=0., edigiMax=0.;
 755   static Int_t absid = 0, phiMin=0, phiMax=0;
 756   static AliEMCALCellIndexes* r=0;
 757
 758   e = rp->GetPointEnergy();
 759   wtot = 0.0;
 760   edigiMax=0.;
 761
 762   phiMin = 23; phiMax = 0;
 763   for(Int_t iDigit=0; iDigit<rp->GetMultiplicity(); iDigit++) {
 764     absid = rp->GetAbsId()[iDigit];
 765     edigi = rp->GetEnergiesList()[iDigit];
 766     if(wlog > 1.0)  w = TMath::Max( 0., wlog + TMath::Log(edigi/e));
 767     else            w = edigi; // just energy
 768
 769     r     = t->GetTable(absid);
 770     xcog += w*(Double_t(r->fIPhi) + 0.5);
 771     wtot += w;
 772     if(edigi > edigiMax) {
 773       edigiMax = edigi;
 774       rMax = (*r);
 775     }
 776     if(phiMin > r->fIPhi) phiMin = r->fIPhi;
 777     if(phiMax < r->fIPhi) phiMax = r->fIPhi;
 778   }
 779   xcog /= wtot;
 780   phiSize = phiMax - phiMin;
 781   //  printf("phiSize %i \n", phiSize);
 782 }
 783 /* unused now
 784 TList *AliEMCALPi0Calibration::DefineHistsOfTowers(const char *name)
 785 {
 786   //
 787   // ESD: towers information was saved to pseudo clusters
 788   //
 789   gROOT->cd();
 790   TH1::AddDirectory(1);
 791   new TH1F("00_EmcalMultiplicity", "multiplicity of EMCAL  ", 201, -0.5, 200.5); // number of pseudo RP
 792
 793   new TH1F("01_EnergyOf", "energy of ", 1000, 0.0, 100.);
 794
 795   TList *l = u::MoveHistsToList(Form("ListOfHists%s",name, " - ESD"), kFALSE);
 796   u::AddToNameAndTitleToList(l, name, name);
 797
 798   return l;
 799 }
 800 */
 801
 802 void AliEMCALPi0Calibration::FitEffMassHist()
 803 {
 804   TH1* h = (TH1*)fLofHistsRP->At(8);
 805   AliEMCALCell::FitHist(h, GetName(), "draw");
 806 }
 807
 808 void AliEMCALPi0Calibration::PrintInfo()
 809 {
 810   // Service routine
 811   printf("\n %i Entrie(s) | Option(s) |%s| \n", GetOptsArray().GetEntries(), fRunOpts.Data());
 812   for(int i=0; i<fgNanaOpt; i++) {
 813     if(GetKeyOptsValue(i)) printf(" %i |%s| \n", i, fgAnaOpt[i]);
 814   }
 815
 816   TList *l[2] = {fLofHistsPC, fLofHistsRP};
 817   printf("\n");
 818   for(int i=0; i<2; i++){
 819     TH1F *h = (TH1F*)l[i]->At(2);
 820     printf(" %s \t: %i \n", h->GetTitle(), int(h->GetEntries()));
 821   }
 822   printf(" fgDistEff %f fgW0 %f fgSlopePhiShift %f \n", fgDistEff, fgW0, fgSlopePhiShift);
 823 }
 824
 825 void  AliEMCALPi0Calibration::SetMomentum(Double_t p)
 826 { // Jul 9, 2007
 827   fPmom = p;
 828   //  SetName(Form("%s_p_%f5.1", GetName(), p));
 829 }
 830
 831
 832 AliEMCALFolder*  AliEMCALPi0Calibration::CreateEmcalFolder(const Int_t it)
 833 {
 834   //
 835   // Create emcal folder for iteration number it
 836   //
 837   AliEMCALFolder* newFolder = new AliEMCALFolder(it); // folder for iteration #it
 838   if(it>1) {
 839     fgEMCALOld = fgEMCAL;
 840     AliEMCALCalibCoefs* tabOldOut = fgEMCALOld->GetCCOut();
 841     AliEMCALCalibCoefs* tabNewIn = new AliEMCALCalibCoefs(*tabOldOut);
 842     tabNewIn->SetName(AliEMCALFolder::GetCCinName().Data());
 843     newFolder->Add(tabNewIn);
 844   }
 845   fEmcalPool->Add(newFolder);
 846   fgEMCAL = newFolder;
 847
 848   return fgEMCAL;
 849 }
 850
 851 AliEMCALFolder* AliEMCALPi0Calibration::GetEmcalOldFolder(const Int_t nsm)
 852 {
 853   // Return emcal folder with number nsm
 854   AliEMCALFolder* folder=0;
 855   if(fEmcalPool) folder =  (AliEMCALFolder*)fEmcalPool->FindObject(Form("EMCAL_%2.2i",nsm));
 856   return folder;
 857 }
 858
 859
 860 void AliEMCALPi0Calibration::SetEmcalFolder(AliEMCALFolder* folder)
 861 {
 862   fgEMCAL = folder;
 863   fEmcalPool->Add(fgEMCAL);
 864 }
 865
 866 void AliEMCALPi0Calibration::SetEmcalOldFolder(AliEMCALFolder* folder)
 867 {
 868   fgEMCALOld = folder;
 869   fEmcalPool->Add(fgEMCALOld);
 870 }
 871
 872 void AliEMCALPi0Calibration::Browse(TBrowser* b)
 873 {
 874   // What we see at browser
 875   // if(esd)        b->Add(esd);
 876   if(fChain)      b->Add(fChain);
 877   if(fEmcalPool)  b->Add(fEmcalPool);
 878   if(fgEmcalGeo) b->Add(fgEmcalGeo);
 879   if(fCellsInfo)  b->Add(fCellsInfo);
 880   //
 881   if(fLofHistsPC) b->Add(fLofHistsPC);
 882   if(fLofHistsRP) b->Add(fLofHistsRP);
 883   if(fLKineVsRP)  b->Add(fLKineVsRP);
 884   if(fLShowerProfile) b->Add(fLShowerProfile);
 885   //  if(u) b->Add(u);
 886 }
 887
 888 Bool_t AliEMCALPi0Calibration::IsFolder() const
 889 {
 890   if(fLofHistsRP || fEmcalPool) return kTRUE;
 891   return kFALSE;
 892 }
 893
 894 void AliEMCALPi0Calibration::Save(Int_t ver, const char *optIO)
 895 {
 896   // Aug 3, 2007
 897   // Save selector to file
 898   TString dir("/home/pavlinov/ALICE/SHISHKEBAB/RF/CALIB/"); // Root directory for saving
 899   TString nf=dir;
 900   if(GetKeyOptsValue(kPROF)) {
 901     nf += "PROF/PROFILE_";
 902     nf += ver;
 903     nf += ".root";
 904     TFile f(nf.Data(), optIO);
 905     if(f.IsOpen()) {
 906       this->Write();
 907       f.Close();
 908       printf("<I> Save selectort to file |%s| : optIO %s \n",nf.Data(), optIO);
 909     } else {
 910       printf("<W> File %s exits ! Increase version : ver %i !\n", nf.Data(), ver);
 911     }
 912   } else {
 913     printf("No PROF option -> no saving now !\n");
 914   }
 915 }
 916
 917 AliEMCALPi0Calibration* AliEMCALPi0Calibration::ReadSelector(const char* nf)
 918 {
 919   // Read selector to file
 920   AliEMCALPi0Calibration* selector=0;
 921
 922   TH1::AddDirectory(0);
 923   TFile f(nf,"READ");
 924   if(f.IsOpen()) {
 925     TObject *o = f.Get("AliEMCALPi0Calibration");
 926     if(o) selector = dynamic_cast<AliEMCALPi0Calibration *>(o);
 927   }
 928   // printf("<I> read selector %p : file |%s| \n", selector, nf);
 929   return selector;
 930 }
 931
 932 void AliEMCALPi0Calibration::ReadAllEmcalFolders()
 933 {
 934   // Oct 14, 2007
 935   if(fEmcalPool==0) {
 936     fEmcalPool = new TFolder("PoolOfEMCAL","");
 937     for(Int_t it=1; it<=10; it++){
 938       AliEMCALFolder* fold = AliEMCALFolder::ReadFolder(Form("EMCALFOLDER_It%i_fit.root",it), "READ");
 939       //      AliEMCALFolder* fold = AliEMCALFolder::Read(Form("EMCALFOLDER_It%i_fit.root",it), "READ");
 940       if(fold) fEmcalPool->Add(fold);
 941     }
 942   }
 943 }
 944
 945 void AliEMCALPi0Calibration::PictVsIterNumber(const Int_t ind, const Int_t nsm)
 946 {
 947   // Jun 27, 2007 - unfinished; which picture is the best
 948   if(ind<0 || ind>5) return;
 949   gROOT->cd();
 950   TH1::AddDirectory(1);
 951
 952   Int_t itMax = 10, it=0;
 953   map <int, const char*> indName;
 954   indName[0] = "eff.mass";
 955   indName[3] = "mass of #pi_{0}";
 956   indName[4] = "resolution of #pi_{0}";
 957   indName[5] = "chi^{2}/ndf";
 958
 959   TH1F *hout = new TH1F(indName[ind], indName[ind], itMax, 0.5, double(itMax)+0.5);
 960
 961   TH1::AddDirectory(0);
 962   Double_t content, error;
 963   TList* col = (TList*)fEmcalPool->GetListOfFolders();
 964   for(Int_t i=0; i<col->GetSize(); i++) { // cycle on EMCAL folders
 965     AliEMCALFolder* folder = static_cast<AliEMCALFolder*>(col->At(i));
 966     if(folder==0) continue;
 967     it = folder->GetIterationNumber();
 968
 969     AliEMCALSuperModule* sm = folder->GetSuperModule(nsm);
 970     if(sm==0) continue;
 971
 972     TList* l = sm->GetHists();
 973     if(l==0) continue;
 974
 975     TH1F *hin = (TH1F*)l->At(ind);
 976     if(hin==0) continue;
 977
 978     if(ind !=0 ) {
 979       content = hin->GetMean();
 980       error   = hin->GetRMS();
 981     } else {
 982       sm->FitEffMassHist();
 983       TF1 *f = (TF1*)hin->GetListOfFunctions()->At(0);
 984       content = error = -1.;
 985       if(f) {
 986         //        content = f->GetParameter(1);
 987         //error   = f->GetParameter(2);
 988         content = f->GetParameter(2);
 989         error   = f->GetParError(2);
 990       }
 991     }
 992
 993     if(content > 0.0) {
 994       hout->SetBinContent(it, content);
 995       hout->SetBinError(it, error);
 996       printf(" it %i content %f +/- %f \n", it, content, error);
 997     }
 998   }
 999
1000   u::DrawHist(hout,2);
1001   hout->SetMinimum(0.0);
1002
1003 }
1004
1005 TH1F* AliEMCALPi0Calibration::FitHistOfRecPointEnergy(const char *opt)
1006 {
1007   // Fit hist of rec.point energy
1008   TH1::AddDirectory(0);
1009
1010   TString sopt(opt);
1011   sopt.ToUpper();
1012
1013   Int_t ind = 4, ind2 = 16;
1014   if(GetKeyOptsValue(kIDEAL)) {
1015     ind  = 16; // Jul 12, 2007
1016     ind2 =  4;
1017   } else if(GetKeyOptsValue(kCORR1)) {
1018     ind  = 18;
1019     ind2 =  4;
1020   }
1021   TH1F *hold = (TH1F*)fLofHistsRP->At(ind), *h=0;
1022   if(hold == 0) return 0;
1023   if(hold->GetEntries() <10.) return hold;
1024
1025   if(sopt.Contains("CLONE")) {
1026     TString newName(Form("C_%s",hold->GetName()));
1027     h = (TH1F*)hold->Clone(newName.Data());
1028     printf(" Clone hist %s -> |%s|%s| \n",hold->GetName(),h->GetName(),h->GetTitle());
1029   } else {
1030     h = hold;
1031   }
1032   TH1F* h2 = (TH1F*)fLofHistsRP->At(ind2);
1033
1034   Double_t xmax = h->GetXaxis()->GetXmax(), xmin = 0.4*xmax;;
1035   TF1 *g = u::Gausi("fRecPointE", xmin, xmax, h);
1036   g->SetLineColor(kRed);
1037   gStyle->SetOptFit(111);
1038
1039   h->Fit(g,"N","", xmin, xmax);
1040   printf(" (1) xmin %f : xmax %f \n", xmin, xmax);
1041
1042   xmin = g->GetParameter(1) - 4.*g->GetParameter(2);
1043   xmax = g->GetParameter(1) + 4.*g->GetParameter(2);
1044   h->Fit(g,"Q+","", xmin, xmax);
1045   u::DrawHist(h2,1, 1, "same",2);
1046   printf(" (2) xmin %f : xmax %f \n", xmin, xmax);
1047
1048   return h;
1049 }
1050
1051 TCanvas *AliEMCALPi0Calibration::Linearity(TList *l, int ifun)
1052 {
1053   // Jul 10, 2007
1054   // Draw picture of EMCal linearity
1055   if(l==0) {
1056     printf("<E> AliEMCALPi0Calibration::Linearity :TList is zero ! Bye ! \n");
1057     return 0;
1058   }
1059   Double_t p[9]={0.5, 1., 3., 5., 10., 20., 30., 50., 100.}, ep[9];
1060   // see macro rHits.C ->defineSampleFraction
1061   TH1F* hErecOverEin = new TH1F("hErecOverEin","Ratio E_{rec}/E_{#gamma} vs E_{#gamma}", 101,0.5,101.5);
1062   // Fill hist
1063   TArrayD invRat(9), eInvRat(9), erec(9),derec(9), residual(9);
1064   TArrayD res(9), eres(9); // resolution
1065   Int_t np=9;
1066   for(Int_t var=0; var<9; var++){
1067     TH1F *h = (TH1F*)l->At(var);
1068     TF1  *f = (TF1*)h->GetListOfFunctions()->At(0);
1069     Double_t  mean = f->GetParameter(1);
1070     Double_t emean = f->GetParError(1);
1071
1072     Int_t bin = hErecOverEin->FindBin(p[var]);
1073     hErecOverEin->SetBinContent(bin, mean/p[var]);
1074     hErecOverEin->SetBinError(bin,  emean/p[var]);
1075     //
1076     invRat[var]  = p[var]/mean;
1077     eInvRat[var] = emean/p[var]*invRat[var];
1078     erec[var]    = mean;
1079     derec[var]   = emean;
1080     // Resolution in %
1081     res[var]  = 100.*f->GetParameter(2)/p[var];
1082     eres[var] = 100.*f->GetParError(2)/p[var];
1083     ep[var] = 0.0;
1084   }
1085
1086   TCanvas *c = new TCanvas("Linearity","Linearity", 20,20, 700, 500);
1087   gStyle->SetOptStat(0);
1088   if(0) { // E(rec) / E(gamma)
1089     u::DrawHist(hErecOverEin,2);
1090     hErecOverEin->SetMinimum(0.984);
1091     hErecOverEin->SetMaximum(1.001);
1092   }
1093   Int_t markerColor=1;
1094   const char *fun="", *optFit="";
1095   TF1 *f = 0;
1096   if(0) {
1097     if(ifun==-5) {
1098       fun = "fun5"; optFit="R+";
1099       f = new TF1(fun,"([0]*(x-7.5)*(x-7.5))*exp([1]+[2]*x+[3]*x*x)+1.", 0.0, 100.);
1100       f->FixParameter(0, 1.95380e-05);
1101       //      f->SetParameter(0, 1.95380e-05);
1102       //      f->SetParameter(1, 1.0);
1103     } else if(ifun==-4) {
1104       fun = "fun4"; optFit="R+";
1105       f = new TF1(fun,"([0]*(x-7.5)*(x-7.5))*([1]+[2]*abs(x)+[3]*(x-[4])*(x-[4]))+1.", 0.0, 100.);
1106       f->FixParameter(0, 1.95380e-05);
1107       f->SetParameter(4, 50.);
1108       //      f = new TF1(fun,"exp(([0]+[1]*x)*(x-[2])*(x-[3]))", 0.0, 100.);
1109       //f = new TF1(fun,"([0]+[1]*x)*(x-[2])*(x-[3])", 0.0, 100.);
1110       //f->SetParameter(0, 1.);
1111       //f->SetParameter(1, 1.);
1112
1113       //      f->SetParameter(2, 5.);
1114       //f->SetParLimits(2, 3.,8.);
1115       //f->SetParameter(3, 10.);
1116       //f->SetParLimits(3, 9.,15.);
1117       //f->SetParameter(2, 2.e-4);
1118     } else if(ifun==-3) {
1119       fun = "fun3"; optFit="R+";
1120       f = new TF1(fun,"[0]+[1]*x+[2]*x*x+[3]*x*x*x", 0.0, 11.);
1121     } else if(ifun==-2) {
1122       fun = "fun2"; optFit="R+";
1123
1124       /*
1125       f = new TF1(fun,"[0]*(x-7.5)+[1]*(x-7.5)*(x-7.5)+[2]", 0.0, 10.1);
1126       f->SetParameter(0, 5.98727e-04);
1127       f->SetParameter(1, 2.12045e-04);
1128       f->SetParameter(2, 1.);
1129       */
1130       f = new TF1(fun,"[0]+[1]*x+[2]*x*x", 9.0, 100.1);
1131     } else if(ifun==-1) {
1132       fun = "fun0"; optFit="R+";
1133       f = new TF1(fun,"[0]", 0.0, 100.1);
1134     } else if(ifun>=2) {
1135       fun = Form("pol%i",ifun);
1136       optFit="+";
1137     }
1138     TGraphErrors *gr = u::DrawGraphErrors(np, erec.GetArray(),invRat.GetArray(),derec.GetArray(),eInvRat.GetArray(),
1139    //    markerColor,21+markerColor,"AP", " Ratio E_{#gamma}/E_{Rec} ", "E_{Rec}  ","   E_{#gamma}/E_{Rec}",
1140  markerColor,21+markerColor,"AP", " Ratio E_{#gamma}/E_{Rec}^{corr} ", "E_{Rec}^{corr}  ","   E_{#gamma}/E_{Rec}^{corr}",
1141                                           ifun, optFit, fun);
1142     gr->GetHistogram()->SetAxisRange(0.0,100.);
1143     //    double xmi=0.999, xma=1.017;
1144     double xmi=0.995, xma=1.005;
1145     gr->GetHistogram()->SetMaximum(xma);
1146     gr->GetHistogram()->SetMinimum(xmi);
1147     gr->GetHistogram()->SetTitleOffset(1.4,"y");
1148     if(ifun==0) {
1149       f = new TF1("fres", "AliEMCALHistoUtilities::EnergyCorrectionForGamma1(x)", 0., 101.);
1150       f->Draw("same");
1151     }
1152   }
1153   TLine *line = new TLine(0.0,1.0, 100.,1.0);
1154   line->Draw();
1155
1156   if(0) {
1157     c->Clear();
1158     for(int i=0; i<9; i++) {
1159       residual[i] =  100.*(invRat[i] - u::GetCorrectionCoefficientForGamma1(erec[i])); // in percent
1160       printf(" erec %f : residual %5.3f \n", erec[i], residual[i]);
1161     }
1162     markerColor = 2;
1163     TGraphErrors *gr2=u::DrawGraphErrors(np, erec.GetArray(),residual.GetArray(),derec.GetArray(),eInvRat.GetArray(),
1164                   markerColor,21+markerColor,"AP"," residual in %, rec.point level", "E_{Rec}  ","  residual in %",
1165     -1, "", 0);
1166     gr2->GetHistogram()->SetAxisRange(0.0,100.);
1167     gr2->GetHistogram()->SetMaximum(0.2);
1168     gr2->GetHistogram()->SetMinimum(-0.1);
1169     line = new TLine(0.0,0.0, 101.,0.0);
1170     line->Draw();
1171     //TLatex *lat =
1172         u::Lat("linearity better 0.2% after correction",20., 0.15, 12, 0.06, 1);
1173     //if(lat); //For what is this?, commented due to compilation warnings
1174   }
1175   if(1) {
1176     TString latexName;
1177     c->Clear();
1178     gStyle->SetOptFit(111);
1179     markerColor = 1;
1180     ifun        = -11;
1181     f = u::GetResolutionFunction("FRES2", latexName);
1182     f->SetNpx(10000);
1183     f->SetLineColor(kBlack);
1184
1185     TGraphErrors *gr3=u::DrawGraphErrors(np, p,res.GetArray(), ep, eres.GetArray(),
1186     markerColor,21+markerColor,"AP"," resolution in %, rec.point level","E_{#gamma} "," resolution in %",
1187                                          ifun, "+", f->GetName());
1188     gr3->GetHistogram()->SetAxisRange(0.0,101.);
1189     gr3->GetHistogram()->SetMaximum(14.);
1190     gr3->GetHistogram()->SetMinimum(0.0);
1191     gr3->SetMarkerSize(1.5);
1192
1193     //TLatex *lat =
1194         u::Lat(latexName.Data(),82., 11., 12, 0.06, 1);
1195     //if(lat); //For what is this?, commented due to compilation warnings
1196     // Exp. data
1197     TF1 *fexp = new TF1(*f);
1198     fexp->SetName("fexp");
1199     fexp->SetParameter(0, 2.168);
1200     fexp->SetParameter(1, 8.818);
1201     fexp->SetLineWidth(1);
1202     fexp->SetLineColor(kRed);
1203     fexp->SetLineStyle(1);
1204     fexp->Draw("same");
1205
1206     TLegend *leg = new TLegend(0.21,0.36, 0.68,0.82);
1207     leg->AddEntry(gr3,  "MC data", "P");
1208     leg->AddEntry(f,    "fit of MC data", "L");
1209     TLegendEntry *ent3 = leg->AddEntry(fexp, "#splitline{fit of exp.data}{FNAL, Nov 2005}", "L");
1210     ent3->SetTextColor(fexp->GetLineColor());
1211     leg->Draw();
1212   }
1213   c->Update();
1214
1215   return c;
1216 }
1217
1218 TCanvas *AliEMCALPi0Calibration::DrawKineVsRP(TList *l)
1219 {
1220   //Jul 25, 2007
1221   if(l==0) {
1222     printf("<W> AliEMCALPi0Calibration::DrawKineVsRP : TList is zero ! \n");
1223     return 0;
1224   }
1225   TCanvas *c = new TCanvas("KineVsRP","KineVsRP", 20,20, 700, 500);
1226   gStyle->SetOptStat(1110);
1227   c->Divide(2,2);
1228
1229   c->cd(1);
1230   TH1F* h1 = (TH1F*)l->At(10);
1231   u::DrawHist(h1,2);
1232
1233   c->cd(2);
1234   TH1F* h2 = (TH1F*)l->At(11);
1235   u::DrawHist(h2,2);
1236
1237   c->cd(3);
1238   TH1F* h3 = (TH1F*)l->At(12);
1239   u::DrawHist(h3,2);
1240   u::DrawHist((TH1F*)l->At(14), 1,kRed,"same");
1241   u::DrawHist((TH1F*)l->At(15), 1,kGreen,"same");
1242
1243   c->cd(4);
1244   TH1F* h4 = (TH1F*)l->At(13);
1245   u::DrawHist(h4, 2);
1246   u::DrawHist((TH1F*)l->At(16), 1,kRed,"same");
1247   u::DrawHist((TH1F*)l->At(17), 1,kGreen,"same");
1248
1249   /*
1250   TH1F* h2 = (TH1F*)l->At(11);
1251   u::DrawHist(h2,2);
1252   */
1253
1254   c->Update();
1255   return c;
1256 }
1257
1258 TCanvas* AliEMCALPi0Calibration::DrawMeanVsLog(TH2F *h2)
1259 {
1260   // h - input histogramm : mean vds log coordinates
1261   if(h2==0) return 0;
1262
1263   TCanvas *c = new TCanvas("KineVsRP","KineVsRP", 20,20, 700, 500);
1264
1265   TH1F *hid1 = new TH1F("h1","h1 title ", h2->GetNbinsX(),
1266   h2->GetXaxis()->GetXmin(), h2->GetXaxis()->GetXmax());
1267
1268   gROOT->cd();
1269   TH1::AddDirectory(1);
1270   TString newName;
1271   for(int ix=1; ix<=h2->GetNbinsX();ix++) {
1272     newName = "hd_"; newName += ix;
1273     TH1D *hd = h2->ProjectionY(newName.Data(),ix,ix);
1274     if(hd->Integral()>=4.) {
1275       //      lhd->Add(hd);
1276       hid1->SetBinContent(ix, hd->GetMean());
1277       hid1->SetBinError(ix, hd->GetRMS());
1278     }
1279   }
1280   TF1 *f1 = new TF1("fcg", "0.5*TMath::SinH(x/[0])/TMath::SinH(0.5/[0])", -0.5, 0.5);
1281   f1->SetParameter(0,0.13);
1282   f1->SetLineColor(kRed);
1283   f1->SetLineWidth(1);
1284
1285   gStyle->SetOptStat(0);
1286   gStyle->SetOptFit(111);
1287   hid1->Fit(f1,"R+");
1288
1289   u::DrawHist(hid1,2);
1290
1291 //u::DrawHist(h2,2);
1292
1293   c->Update();
1294   return c;
1295 }
1296
1297 TCanvas* AliEMCALPi0Calibration::DrawPhiEtaAnglesDistribution(const char* gn)
1298 {
1299   // Aug 6, 2007
1300   // Proper geometry should be defined already
1301   // dTheta distibution has two peaks which coresponding different cells inside module !
1302
1303   TCanvas *c = new TCanvas("Geometry","Geometry", 20,20, 700, 500);
1304   c->Divide(2,2);
1305
1306   if(fgEmcalGeo==0) fgEmcalGeo = AliEMCALGeometry::GetInstance(gn);
1307
1308   gROOT->cd();
1309   TH1::AddDirectory(1);
1310   TH1F *hDtheta  = new TH1F("hDtheta","#Delta#theta in one SM", 60, -2.0, +1.0); // in degree
1311   TH2F *hDtheta2 = new TH2F("hDtheta2","#Delta#theta vs fIEta of cell", 48, -0.5, 47.5, 60,-2.0,+1.0);
1312
1313   TH1F *hDphi  = new TH1F("hDphi","#Delta#ph in one SM", 2000, -10.0, +10.0); // in degree
1314
1315   TVector3 vg3;
1316   AliEMCALCellInfo* t = GetCellsInfo();
1317   Double_t thetaCell=0., thetaModule=0.;
1318   Double_t phiCell=0., dphi=0.;
1319
1320   for(int absid=0; absid<12*24*4; absid++){
1321     AliEMCALCellIndexes *r = t->GetTable(absid);
1322     fgEmcalGeo->GetGlobal(absid, vg3);
1323
1324     thetaCell   = vg3.Theta()*TMath::RadToDeg();
1325     thetaModule = 90. - 1.5*r->fIEtam;
1326     hDtheta->Fill(thetaCell - thetaModule);
1327     hDtheta2->Fill(double(r->fIEta), thetaCell - thetaModule);
1328
1329     phiCell   = vg3.Phi()*TMath::RadToDeg();
1330     dphi      = phiCell - 90.;
1331     hDphi->Fill(dphi);
1332   }
1333
1334   c->cd(1);
1335   u::DrawHist(hDtheta,2);
1336   c->cd(2);
1337   u::DrawHist(hDtheta2,2);
1338   c->cd(3);
1339   u::DrawHist(hDphi,2);
1340
1341   c->Update();
1342   return c;
1343 }
1344
1345 TCanvas* AliEMCALPi0Calibration::DrawDeffVsEnergy()
1346 {
1347   // Aug 31, 2007 - obsolete
1348   Double_t p[]={0.5, 1.0, 3., 5., 10., 20.,30.,50.,100.};
1349   Double_t ep[]={0., 0., 0., 0., 0., 0., 0., 0., 0.};
1350   // 2 pars
1351   Double_t  deff[]={9.07515, 10.0835, 11.2032, 11.4229, 12.3578, 13.0332, 13.3281, 13.7910, 14.3319};
1352   Double_t edeff[]={2.69645e-03, 3.52180e-03, 4.19236e-02, 1.21201e-01, 1.58886e-01, 3.96680e-01, 3.29985e-02, 1.17113e-01, 5.22763e-01};
1353   //
1354   Double_t w0[]={3.44679e+00, 3.82714e+00, 4.15035e+0, 4.36650e+00, 4.51511e+00, 4.65590, 4.63289e+00, 4.66568, 4.68125};
1355   Double_t ew0[]={7.58982e-01, 1.26420e-02, 2.36129e-10, 1.21201e-01, 2.12999e-01, 7.95650e-02, 6.15307e-03, 1.88803e-01, 5.18022e-05};
1356   int np=sizeof(p)/sizeof(Double_t);
1357   printf("<I> AliEMCALPi0Calibration::DrawDeffVsEnergy() | np %i \n", np);
1358
1359   TCanvas *c = new TCanvas("Deff","Deff", 20,20, 700, 500);
1360   c->Divide(2,1);
1361
1362   Int_t markerColor=1;
1363   c->cd(1);
1364   //TF1 *fdeff= new TF1("fdeff","[0]+[1]*log(x)",0.4, 100.4);
1365   //if(fdeff); //For what is this?, commented due to compilation warnings
1366   TGraphErrors *gr = u::DrawGraphErrors(np, p,deff, ep, edeff,
1367     markerColor,21+markerColor,"AP"," D_{eff} vs E_{#gamma} ","E_{#gamma}         "," D_{eff} in cm ",
1368                                         -1, "", 0);
1369   //                                    -1, "+", fdeff->GetName());
1370   gr->GetHistogram()->SetMaximum(15.);
1371   gPad->SetLogx(1);
1372
1373   c->cd(2);
1374   TGraphErrors *gr2 = u::DrawGraphErrors(np, p,w0, ep, ew0,
1375     markerColor,21+markerColor,"AP"," w_{0} vs E_{#gamma} ","E_{#gamma}         "," w_{0}    ",
1376     -1, "", 0);
1377
1378   gr2->GetHistogram()->SetMaximum(5.);
1379   gPad->SetLogx(1);
1380
1381   c->Update();
1382   return c;
1383 }
1384
1385 TCanvas* AliEMCALPi0Calibration::DrawDeffVsEnergy2(const char *opt)
1386 {
1387   // Aug 28, 2008 - read pars and pars errors from files
1388   Double_t p[]={0.5, 1.0, 3., 5., 10., 20.,30.,50.,100.};
1389   Double_t ep[]={0., 0., 0., 0., 0., 0., 0., 0., 0.};
1390   // 2 pars
1391   Double_t deff[9], edeff[9], w0[9], ew0[9]; // max size now
1392   TString sopt(opt);
1393
1394   int np = sizeof(p)/sizeof(Double_t);
1395   printf("<I> AliEMCALPi0Calibration::DrawDeffVsEnergy2() | np %i \n", np);
1396   ReadParsDeffAndW0("/data/r22b/ALICE/CALIB/FIT/", deff, edeff, w0, ew0, 1);
1397
1398   TCanvas *c = new TCanvas("Deff","Deff", 20,20, 700, 500);
1399   c->Divide(2,1);
1400
1401   TF1 *fdeff = 0, *fw0 = 0;
1402   TString optFit(""), funName("");
1403   if(sopt.Contains("fit1")) {
1404     fdeff= new TF1("fdeff","[0]+[1]*log(x)",0.1, 101.);
1405     fdeff->SetLineColor(kRed);
1406     fdeff->SetLineWidth(1);
1407
1408     /* good description - "[0]/(1.+exp([1]*x))"
1409    1  p0           4.82208e+00   9.93617e-04  -0.00000e+00   7.16648e-06
1410    2  p1          -7.79655e-01   4.07500e-03  -0.00000e+00   2.01009e-03
1411       better description - "[0]/(1.+exp([1]*(x-[2])))" (like the Woods-Saxon potential)
1412    1  p0           4.83713e+00   1.00437e-03  -6.98984e-10   4.90371e-07
1413    2  p1          -2.77970e-01   3.35587e-03  -1.79239e-09   2.67312e-07
1414    3  p2           4.41116e+00   8.72191e-02   1.82791e-04   1.55643e-05
1415      */
1416     fw0= new TF1("fw0","[0]/(1.+exp([1]*(x+[2])))",0.1, 101.);
1417     fw0->SetLineColor(kRed);
1418     fw0->SetLineWidth(1);
1419     fw0->SetParameter(0, 4.8);
1420     fw0->SetParameter(1, -2.77970e-01);
1421     fw0->SetParameter(2,  4.41116);
1422     optFit = "+";
1423   }
1424   if(fdeff) funName =  fdeff->GetName();
1425
1426   Int_t markerColor=1;
1427   c->cd(1);
1428   gStyle->SetOptFit(111);
1429   TGraphErrors *gr = u::DrawGraphErrors(np, p,deff, ep, edeff,
1430     markerColor,21+markerColor,"AP"," D_{eff} vs E_{#gamma} ","E_{#gamma}         "," D_{eff} in cm ",
1431                                         -1, optFit.Data(), funName.Data());
1432   gr->GetHistogram()->SetMaximum(15.);
1433   gPad->SetLogx(1);
1434   TLegend *leg1 = new TLegend(0.12,0.76, 0.70,0.90);
1435   TLegendEntry *le1 = leg1->AddEntry(fdeff, Form("%s",fdeff->GetTitle()), "lp");
1436   //TLegendEntry *le1 = leg1->AddEntry(fdeff, Form("%4.2f+%4.2f*log(E_{#gamma})",
1437   //fdeff->GetParameter(0),fdeff->GetParameter(1)), "lp");
1438   le1->SetTextColor(fdeff->GetLineColor());
1439   leg1->Draw();
1440
1441   c->cd(2);
1442   gStyle->SetOptFit(111);
1443   if(fw0) funName =  fw0->GetName();
1444   TGraphErrors *gr2 = u::DrawGraphErrors(np, p,w0, ep, ew0,
1445     markerColor,21+markerColor,"AP"," w_{0} vs E_{#gamma} ","E_{#gamma}         "," w_{0}    ",
1446                                         -1, optFit.Data(), funName.Data());
1447
1448   gr2->GetHistogram()->SetMaximum(5.);
1449
1450   TLegend *leg2 = new TLegend(0.17,0.6, 0.99,0.72);
1451   TLegendEntry *le2 = leg2->AddEntry(fw0, Form("%s",fw0->GetTitle()), "lp");
1452   //TLegendEntry *le2 = leg2->AddEntry(fw0, Form("#frac{%4.2f}{1.+exp(%4.2f*(x+%4.2f)}",
1453   //fw0->GetParameter(0),fw0->GetParameter(1),fw0->GetParameter(2)), "lp");
1454   le2->SetTextColor(fw0->GetLineColor());
1455   leg2->Draw();
1456   //gPad->SetLogx(1);
1457
1458   c->Update();
1459   return c;
1460 }
1461
1462 void AliEMCALPi0Calibration::ReadParsDeffAndW0
1463 (const char *dirName, double *deff, double *edeff, double *w0, double *ew0, const Int_t pri)
1464 {
1465   // read pars and W0
1466   int strategy = 0, itmp=0;
1467   char line[100];
1468   for(int var=11; var<=19; var++){
1469     int ind = var -11;
1470     ifstream fin;
1471     TString fname = Form("%s/fitVar%iStrategy%i.txt", dirName, var, strategy);
1472     //printf(" open file %s \n", fname.Data());
1473     fin.open(fname.Data());
1474
1475     for(int i=1; i<=2; i++) { // skip to lines
1476       fin.getline(line,100).eof();
1477       if(pri>=2) printf("%s \n", line);
1478     }
1479
1480     fin >> itmp >> deff[ind] >> edeff[ind];
1481     fin >> itmp >> w0[ind]   >> ew0[ind];
1482     if(pri>=1)
1483     printf(" %i def %f+/-%f : def %f+/-%f\n", ind, deff[ind],edeff[ind],w0[ind],ew0[ind]);
1484     fin.getline(line,100).eof(); // skip last line
1485     fin.close();
1486   }
1487 }
1488
1489 TCanvas* AliEMCALPi0Calibration::DrawSpaceResolution()
1490 {
1491   // Sep 4, 2007;
1492   // Space resolution vs optimised space resolution
1493   Double_t p[]={0.5, 1.0, 3., 5., 10., 20.,30.,50.,100.};
1494   Double_t ep[]={0., 0., 0., 0., 0., 0., 0., 0., 0.};
1495   Double_t  spAng[]={0.1877, 0.1351, 0.08144, 0.06331, 0.05384, 0.04876, 0.04706, 0.04656, 0.04726};
1496   Double_t rmsSpAng[]={0.1033, 0.07685, 0.05235, 0.03992, 0.04012, 0.04257, 0.03472, 0.02814, 0.02784};
1497   Double_t  spAngOpt[]={0.1733, 0.1311, 0.07961, 0.06401, 0.05347, 0.04618, 0.04288, 0.04, 0.03802};
1498   Double_t rmsSpAngOpt[]={0.09476, 0.07472, 0.05011, 0.04242, 0.04075, 0.04304, 0.03545, 0.02744, 0.02593};
1499
1500   int np=sizeof(p)/sizeof(Double_t);
1501   printf("<I> AliEMCALPi0Calibration::DrawSpaceResolution() | np %i \n", np);
1502
1503   Double_t* eSpAng    = new Double_t[np];
1504   Double_t* eSpAngOpt = new Double_t[np];
1505   Double_t cc=TMath::Sqrt(8000.), cc2 = 1000.*TMath::DegToRad();
1506   for(int i=0; i<np; i++){
1507     spAng[i]       *= cc2;
1508     rmsSpAng[i]    *= cc2;
1509     spAngOpt[i]    *= cc2;
1510     rmsSpAngOpt[i] *= cc2;
1511
1512     eSpAng[i]    = spAng[i]/cc;
1513     eSpAngOpt[i] = spAngOpt[i]/cc;
1514   }
1515
1516   TCanvas *c = new TCanvas("Deff","Deff", 20,20, 700, 500);
1517   //c->Divide(2,1);
1518
1519   c->cd(1);
1520   gStyle->SetOptFit(111);
1521
1522   TGraphErrors *gr = u::DrawGraphErrors(np, p,spAng, ep, eSpAng,
1523   kBlack, 21,"AP","Angle resolution (mrad) vs E_{#gamma} ","E_{#gamma}       "," anlgle resolution (mrad) ",
1524                                         -1, "", 0);
1525   gr->GetHistogram()->SetMaximum(4.);
1526   gr->GetHistogram()->SetMinimum(0.6);
1527   gPad->SetLogx(1);
1528   gPad->SetLogy(1);
1529
1530   TF1 *fang = new TF1("fang","[0]+[1]/sqrt(x)",0.1, 101.);
1531   fang->SetLineColor(kRed);
1532   fang->SetLineWidth(1);
1533
1534   TGraphErrors *gr2 = u::DrawGraphErrors(np, p,spAngOpt, ep, eSpAngOpt,
1535   kRed,22,"P"," space vs E_{#gamma} ","E_{#gamma}         "," anlgle resolution (mrad) ",
1536                                          -1, "+", fang->GetName());
1537   TLegend *leg1 = new TLegend(0.40,0.57, 0.92,0.87);
1538   TLegendEntry *le1 = leg1->AddEntry(gr, "Initial angle resolution", "p");
1539   le1->SetTextColor(gr->GetLineColor());
1540
1541   TLegendEntry *le2 = leg1->AddEntry(gr2, "Optimized angle resolution", "p");
1542   le2->SetTextColor(gr2->GetLineColor());
1543
1544   TLegendEntry *le3 = leg1->AddEntry(fang,
1545   Form("%3.2f+#frac{%4.2f}{#sqrt{E}}",fang->GetParameter(0),fang->GetParameter(1)), "lp");
1546   le3->SetTextColor(fang->GetLineColor());
1547
1548   leg1->Draw();
1549
1550   c->Update();
1551
1552   return c;
1553 }
1554
1555 void AliEMCALPi0Calibration::ResetAllListOfHists()
1556 {
1557   // Reset all list of hits
1558   u::ResetListOfHists(fLofHistsPC);
1559   u::ResetListOfHists(fLofHistsRP);
1560   u::ResetListOfHists(fLKineVsRP);
1561   u::ResetListOfHists(fLShowerProfile);
1562 }
1563
1564 void AliEMCALPi0Calibration::ReloadChain(Long64_t entry)
1565 {
1566   // Oct 14, 2007 - unused now
1567   if(fChain) {
1568     fChain->LoadTree(entry);
1569   }
1570 }
1571
1572 void AliEMCALPi0Calibration::GetInitialParsForFit(const Int_t var, Double_t &deff, Double_t &w0, Double_t &phislope, const int phiCase)
1573 {
1574   //  int phiCase=0; // 0 or 1
1575   phislope = 0.001;
1576   if(var==11)         { // stay here
1577     deff = 9.07515;
1578     w0   = 3.44679;
1579   }  else if(var==12) {
1580     deff = 1.00835e+01;
1581     w0   = 3.82714e+00;
1582   }  else if(var==13) {
1583     deff = 1.12032e+01;
1584     w0   = 4.15035e+00;
1585   }  else if(var==14) {
1586     deff = 1.14229e+01;
1587     w0   = 4.36650;
1588   }  else if(var==15) {
1589     deff = 1.21361e+01;
1590     w0   = 4.72875;
1591   }  else if(var==16) {
1592     deff = 1.28096e+01;
1593     w0   = 4.81753e+00;
1594   }  else if(var==17) {
1595     deff = 1.33281e+01;
1596     w0   = 4.63289e+00;
1597   }  else if(var==18) {
1598     deff = 1.37910e+01;
1599     w0   = 4.66568;
1600   }  else if(var==19) {// Aug 15, 2007
1601     switch (phiCase) {
1602     case 0: // phislope was defined than deff and w0 were fixed
1603       deff = 1.43319e+01;
1604       w0   = 4.69279;
1605       phislope = 2.41419e-04;
1606       break;
1607     case 1: // all parameters free
1608       deff = 1.46327e+01;
1609       w0   = 4.68125;
1610       phislope = 8.95559e-04;
1611       break;
1612     }
1613   } else {
1614     printf("<E> var % i -> no definition ! \n", var);
1615     assert(0);
1616   }
1617   printf("<I> AliEMCALPi0Calibration::GetInitialParForFit()\n deff %f w0 %f phislope %f \n",
1618          deff,w0, phislope);
1619 }