]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - PWG1/TRD/AliTRDresolution.cxx
fix coverity
[u/mrichter/AliRoot.git] / PWG1 / TRD / AliTRDresolution.cxx
index 96bce3d62cd1a71665715c659f103837d9463b26..18cf19fa7c37591492261c4001e598167c35be1e 100644 (file)
 #include "AliTRDrecoParam.h"
 #include "AliTRDpidUtil.h"
 #include "AliTRDinfoGen.h"
-
+#include "AliAnalysisManager.h"
 #include "info/AliTRDclusterInfo.h"
+#include "info/AliTRDeventInfo.h"
 
 ClassImp(AliTRDresolution)
+ClassImp(AliTRDresolution::AliTRDresolutionProjection)
 
 Int_t const   AliTRDresolution::fgkNbins[kNdim] = {
   Int_t(kNbunchCross)/*bc*/,
   180/*phi*/,
   50/*eta*/,
-  Int_t(kNcharge)*AliPID::kSPECIES+1/*chg*species*/,
   50/*dy*/,
+  40/*dphi*/,
   50/*dz*/,
-  40/*dphi*/
-//  kNpt/*pt*/,
+  3/*chg*species*/,
+  kNpt/*pt*/
 };  //! no of bins/projection
 Double_t const AliTRDresolution::fgkMin[kNdim] = {
-  -0.5,
+  -1.5,
   -TMath::Pi(),
   -1.,
-  -AliPID::kSPECIES-0.5,
   -1.5,
+  -10.,
   -2.5,
-  -10.
-//  -0.5,
+  -1.5,
+  -0.5
 };    //! low limits for projections
 Double_t const AliTRDresolution::fgkMax[kNdim] = {
-  Int_t(kNbunchCross)-0.5,
+  1.5,
   TMath::Pi(),
   1.,
-  AliPID::kSPECIES+0.5,
   1.5,
+  10.,
   2.5,
-  10.
-//  kNpt-0.5,
+  1.5,
+  kNpt-0.5
 };    //! high limits for projections
 Char_t const *AliTRDresolution::fgkTitle[kNdim] = {
   "bunch cross",
   "#phi [rad]",
   "#eta",
-  "chg*spec*rc",
   "#Deltay [cm]",
+  "#Delta#phi [deg]",
   "#Deltaz [cm]",
-  "#Delta#phi [deg]"
-//  "bin_p_{t}",
+  "chg*spec*rc",
+  "bin_p_{t}"
 };  //! title of projection
 
-UChar_t const AliTRDresolution::fgNproj[kNclasses] = {
-  6, 5, 5, 5,
-  2, 5, 11, 11, 11
-};
 Char_t const * AliTRDresolution::fgPerformanceName[kNclasses] = {
-    "Cluster2Track"
+    "Det2Cluster"
+    ,"Cluster2Track"
     ,"Tracklet2Track"
-    ,"Tracklet2TRDin" 
-    ,"Tracklet2TRDout" 
+    ,"Tracklet2TRDin"
     ,"Cluster2MC"
     ,"Tracklet2MC"
     ,"TRDin2MC"
-    ,"TRDout2MC"
     ,"TRD2MC"
+//    ,"Tracklet2TRDout"
+//    ,"TRDout2MC"
 };
-Float_t AliTRDresolution::fgPtBin[kNpt+1] = {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.};
+Float_t AliTRDresolution::fgPtBin[kNpt+1];
 
 //________________________________________________________
 AliTRDresolution::AliTRDresolution()
   :AliTRDrecoTask()
   ,fIdxPlot(0)
   ,fIdxFrame(0)
-  ,fPtThreshold(1.)
+  ,fPtThreshold(.3)
   ,fDyRange(0.75)
+  ,fBCbinTOF(0)
+  ,fBCbinFill(0)
   ,fProj(NULL)
   ,fDBPDG(NULL)
   ,fCl(NULL)
@@ -171,12 +172,14 @@ AliTRDresolution::AliTRDresolution()
 }
 
 //________________________________________________________
-AliTRDresolution::AliTRDresolution(char* name)
+AliTRDresolution::AliTRDresolution(char* name, Bool_t xchange)
   :AliTRDrecoTask(name, "TRD spatial and momentum resolution")
   ,fIdxPlot(0)
   ,fIdxFrame(0)
-  ,fPtThreshold(1.)
+  ,fPtThreshold(.3)
   ,fDyRange(0.75)
+  ,fBCbinTOF(0)
+  ,fBCbinFill(0)
   ,fProj(NULL)
   ,fDBPDG(NULL)
   ,fCl(NULL)
@@ -188,9 +191,11 @@ AliTRDresolution::AliTRDresolution(char* name)
 
   InitFunctorList();
   MakePtSegmentation();
-
-  DefineOutput(kClToTrk, TObjArray::Class()); // cluster2track
-  DefineOutput(kClToMC, TObjArray::Class()); // cluster2mc
+  if(xchange){
+    SetUseExchangeContainers();
+    DefineOutput(kClToTrk, TObjArray::Class()); // cluster2track
+    DefineOutput(kClToMC, TObjArray::Class()); // cluster2mc
+  }
 }
 
 //________________________________________________________
@@ -199,7 +204,7 @@ AliTRDresolution::~AliTRDresolution()
   //
   // Destructor
   //
-
+  if (AliAnalysisManager::GetAnalysisManager() && AliAnalysisManager::GetAnalysisManager()->IsProofMode()) return;
   if(fProj){fProj->Delete(); delete fProj;}
   if(fCl){fCl->Delete(); delete fCl;}
   if(fMCcl){fMCcl->Delete(); delete fMCcl;}
@@ -212,7 +217,7 @@ void AliTRDresolution::UserCreateOutputObjects()
   // spatial resolution
 
   AliTRDrecoTask::UserCreateOutputObjects();
-  InitExchangeContainers();
+  if(UseExchangeContainers()) InitExchangeContainers();
 }
 
 //________________________________________________________
@@ -233,15 +238,15 @@ void AliTRDresolution::UserExec(Option_t *opt)
   // Execution part
   //
 
-  fCl->Delete();
-  fMCcl->Delete();
+  if(fCl) fCl->Delete();
+  if(fMCcl) fMCcl->Delete();
   AliTRDrecoTask::UserExec(opt);
 }
 
 //________________________________________________________
 Bool_t AliTRDresolution::Pulls(Double_t* /*dyz[2]*/, Double_t* /*cov[3]*/, Double_t /*tilt*/) const
 {
-// Helper function to calculate pulls in the yz plane 
+// Helper function to calculate pulls in the yz plane
 // using proper tilt rotation
 // Uses functionality defined by AliTRDseedV1.
 
@@ -252,13 +257,13 @@ Bool_t AliTRDresolution::Pulls(Double_t* /*dyz[2]*/, Double_t* /*cov[3]*/, Doubl
 
   // rotate along pad
   Double_t cc[3];
-  cc[0] = cov[0] - 2.*tilt*cov[1] + t2*cov[2]; 
+  cc[0] = cov[0] - 2.*tilt*cov[1] + t2*cov[2];
   cc[1] = cov[1]*(1.-t2) + tilt*(cov[0] - cov[2]);
   cc[2] = t2*cov[0] + 2.*tilt*cov[1] + cov[2];
   // do sqrt
-  Double_t sqr[3]={0., 0., 0.}; 
+  Double_t sqr[3]={0., 0., 0.};
   if(AliTRDseedV1::GetCovSqrt(cc, sqr)) return kFALSE;
-  Double_t invsqr[3]={0., 0., 0.}; 
+  Double_t invsqr[3]={0., 0., 0.};
   if(AliTRDseedV1::GetCovInv(sqr, invsqr)<1.e-40) return kFALSE;
   Double_t tmp(dyz[0]);
   dyz[0] = invsqr[0]*tmp + invsqr[1]*dyz[1];
@@ -267,6 +272,56 @@ Bool_t AliTRDresolution::Pulls(Double_t* /*dyz[2]*/, Double_t* /*cov[3]*/, Doubl
 */
 }
 
+//________________________________________________________
+TH1* AliTRDresolution::DetCluster(const TObjArray *cls)
+{
+  //
+  // Plot the cluster distributions
+  //
+
+  if(cls) fkClusters = cls;
+  if(!fkClusters){
+    AliDebug(4, "No Clusters defined.");
+    return NULL;
+  }
+  Int_t ncl(0);
+  if(!(ncl = fkClusters->GetEntriesFast())){
+    AliDebug(1, "No RecPoints defined.");
+    return NULL;
+  }
+  Int_t det(-1);
+  AliTRDcluster *cl(NULL);
+  for(Int_t icl(0); icl<ncl; icl++){
+    if(!(cl = (AliTRDcluster*)(*fkClusters)[icl])) continue;
+    det = cl->GetDetector(); break;
+  }
+  if(det<0){
+    AliDebug(1, "No useful clusters defined.");
+    return NULL;
+  }
+  THnSparse *H(NULL);
+  if(!fContainer || !(H = ((THnSparse*)fContainer->At(kDetector)))){
+    AliWarning("No output container defined.");
+    return NULL;
+  }
+  Int_t ly(AliTRDgeometry::GetLayer(det)),
+        stk(AliTRDgeometry::GetStack(det));
+  Double_t val[kNdim],
+           alpha((0.5+AliTRDgeometry::GetSector(det))*AliTRDgeometry::GetAlpha()),
+           cs(TMath::Cos(alpha)),
+           sn(TMath::Sin(alpha));
+  for(Int_t icl(0); icl<ncl; icl++){
+    if(!(cl = (AliTRDcluster*)(*fkClusters)[icl])) continue;
+    val[kBC]  = ly;
+    val[kPhi] = TMath::ATan2(cl->GetX()*sn + cl->GetY()*cs, cl->GetX()*cs - cl->GetY()*sn);
+    val[kEta] = (5-stk)*16-cl->GetPadRow()-1-(stk<3?4:0);
+    val[kYrez]= TMath::Abs(cl->GetQ());
+    val[4]    = fEvent->GetMultiplicity();
+    H->Fill(val);
+  }
+  return NULL;
+}
+
 //________________________________________________________
 TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
 {
@@ -279,11 +334,11 @@ TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
     AliDebug(4, "No Track defined.");
     return NULL;
   }
-  if(fkESD->GetTOFbc() > 1){
+  if(fkESD && TMath::Abs(fkESD->GetTOFbc()) > 1){
     AliDebug(4, Form("Track with BC_index[%d] not used.", fkESD->GetTOFbc()));
     return NULL;
   }
-  if(fPt<fPtThreshold){
+  if(fkESD && fPt<fPtThreshold){
     AliDebug(4, Form("Track with pt[%6.4f] under threshold.", fPt));
     return NULL;
   }
@@ -294,30 +349,41 @@ TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
   }
 
   AliTRDgeometry *geo(AliTRDinfoGen::Geometry());
-  Double_t val[kNdim]; Float_t exb, vd, t0, s2, dl, dt, corr;
+  Double_t val[kNdim],
+           alpha(0.), cs(-2.), sn(0.); //Float_t exb, vd, t0, s2, dl, dt;
   TObjArray     *clInfoArr(NULL);
   AliTRDseedV1  *fTracklet(NULL);
-  AliTRDcluster *c(NULL)/*, *cc(NULL)*/;
+  AliTRDcluster *c(NULL), *cc(NULL);
   for(Int_t ily=0; ily<AliTRDgeometry::kNlayer; ily++){
     if(!(fTracklet = fkTrack->GetTracklet(ily))) continue;
     if(!fTracklet->IsOK()) continue;
-    fTracklet->GetCalibParam(exb, vd, t0, s2, dl, dt);
+    //fTracklet->GetCalibParam(exb, vd, t0, s2, dl, dt);
     val[kBC]  = ily;
-    val[kPhi] = fPhi;
-    val[kEta] = fEta;
-    //val[kPt]  = TMath::ATan((fTracklet->GetYref(1) - exb)/(1+fTracklet->GetYref(1)*exb))*TMath::RadToDeg();
-    corr = fkTrack->Charge()/TMath::Sqrt(1.+fTracklet->GetYref(1)*fTracklet->GetYref(1)+fTracklet->GetZref(1)*fTracklet->GetZref(1))/vd;
+    if(cs<-1.){
+      alpha = (0.5+AliTRDgeometry::GetSector(fTracklet->GetDetector()))*AliTRDgeometry::GetAlpha();
+      cs    = TMath::Cos(alpha);
+      sn    = TMath::Sin(alpha);
+    }
+    val[kPhi] = TMath::ATan2(fTracklet->GetX()*sn + fTracklet->GetY()*cs, fTracklet->GetX()*cs - fTracklet->GetY()*sn);
+    Float_t tgl = fTracklet->GetZ()/fTracklet->GetX()/TMath::Sqrt(1.+fTracklet->GetY()*fTracklet->GetY()/fTracklet->GetX()/fTracklet->GetX());
+    val[kEta] = -TMath::Log(TMath::Tan(0.5 *  (0.5*TMath::Pi() - TMath::ATan(tgl))));
+    val[kPt]  = TMath::ATan(fTracklet->GetYref(1))*TMath::RadToDeg();
+    Float_t corr = 1./TMath::Sqrt(1.+fTracklet->GetYref(1)*fTracklet->GetYref(1)+fTracklet->GetZref(1)*fTracklet->GetZref(1));
+    Int_t row0(-1);
+    Float_t padCorr(fTracklet->GetTilt()*fTracklet->GetPadLength());
     fTracklet->ResetClusterIter(kTRUE);
     while((c = fTracklet->NextCluster())){
-      Float_t xc(c->GetX());  //Int_t tb(c->GetLocalTimeBin());
-
-      val[kYrez] = c->GetY()-fTracklet->GetYat(xc);
-      //val[kZrez] = fTracklet->GetX0()-xc;
-      //val[kPrez] = 0.; Int_t ic(0);
-      //if((cc = fTracklet->GetClusters(tb-1))) {val[kPrez] += cc->GetQ(); ic++;}
-      //if((cc = fTracklet->GetClusters(tb-2))) {val[kPrez] += cc->GetQ(); ic++;}
-      //if(ic) val[kPrez] /= (ic*c->GetQ());
-      val[kSpeciesChgRC]= fTracklet->IsRowCross()?0:(c->GetQ()*corr);
+      Float_t xc(c->GetX()),
+              q(TMath::Abs(c->GetQ()));
+      if(row0<0) row0 = c->GetPadRow();
+
+      val[kYrez] = c->GetY() + padCorr*(c->GetPadRow() - row0) -fTracklet->GetYat(xc);
+      val[kPrez] = fTracklet->GetX0()-xc;
+      val[kZrez] = 0.; Int_t ic(0), tb(c->GetLocalTimeBin());;
+      if((cc = fTracklet->GetClusters(tb-1))) {val[kZrez] += TMath::Abs(cc->GetQ()); ic++;}
+      if((cc = fTracklet->GetClusters(tb-2))) {val[kZrez] += TMath::Abs(cc->GetQ()); ic++;}
+      if(ic) val[kZrez] /= (ic*q);
+      val[kSpeciesChgRC]= fTracklet->IsRowCross()?0.:(TMath::Max(q*corr, Float_t(3.)));
       H->Fill(val);
 /*      // tilt rotation of covariance for clusters
       Double_t sy2(c->GetSigmaY2()), sz2(c->GetSigmaZ2());
@@ -328,14 +394,14 @@ TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
       cov[0]+=covR[0]; cov[1]+=covR[1]; cov[2]+=covR[2];
       Double_t dyz[2]= {dy[1], dz[1]};
       Pulls(dyz, cov, tilt);*/
-  
+
       // Get z-position with respect to anode wire
       Float_t yt(fTracklet->GetYref(0)-val[kZrez]*fTracklet->GetYref(1)),
               zt(fTracklet->GetZref(0)-val[kZrez]*fTracklet->GetZref(1));
       Int_t istk = geo->GetStack(c->GetDetector());
       AliTRDpadPlane *pp = geo->GetPadPlane(ily, istk);
-      Float_t row0 = pp->GetRow0();
-      Float_t d  = row0 - zt + pp->GetAnodeWireOffset();
+      Float_t rowZ = pp->GetRow0();
+      Float_t d  = rowZ - zt + pp->GetAnodeWireOffset();
       d -= ((Int_t)(2 * d)) / 2.0;
       if (d > 0.25) d  = 0.5 - d;
 
@@ -349,17 +415,17 @@ TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
       clInfo->SetDriftLength(val[kZrez]);
       clInfo->SetTilt(fTracklet->GetTilt());
       if(fCl) fCl->Add(clInfo);
-      else AliDebug(1, "Cl exchange container missing. Activate by calling \"InitExchangeContainers()\"");
+      //else AliDebug(1, "Cl exchange container missing. Activate by calling \"InitExchangeContainers()\"");
 
-      if(DebugLevel()>=1){
-        if(!clInfoArr){ 
+      if(DebugLevel()>=2){
+        if(!clInfoArr){
           clInfoArr=new TObjArray(AliTRDseedV1::kNclusters);
           clInfoArr->SetOwner(kFALSE);
         }
         clInfoArr->Add(clInfo);
       }
     }
-    if(DebugLevel()>=1 && clInfoArr){
+    if(DebugLevel()>=2 && clInfoArr){
       ULong_t status = fkESD->GetStatus();
       (*DebugStream()) << "cluster"
         <<"status="  << status
@@ -370,76 +436,95 @@ TH1* AliTRDresolution::PlotCluster(const AliTRDtrackV1 *track)
   }
   if(clInfoArr) delete clInfoArr;
 
-  return NULL;//H->Projection(kEta, kPhi);
+  if(!track) return NULL;
+  // special care for EVE usage
+  TH1 *h(NULL);
+  if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+  return H->Projection(kYrez);
 }
 
 
 //________________________________________________________
 TH1* AliTRDresolution::PlotTracklet(const AliTRDtrackV1 *track)
 {
-// Plot normalized residuals for tracklets to track. 
-// 
+// Plot normalized residuals for tracklets to track.
+//
 // We start from the result that if X=N(|m|, |Cov|)
 // BEGIN_LATEX
 // (Cov^{-1})^{1/2}X = N((Cov^{-1})^{1/2}*|m|, |1|)
 // END_LATEX
-// in our case X=(y_trklt - y_trk z_trklt - z_trk) and |Cov| = |Cov_trklt| + |Cov_trk| at the radial 
-// reference position. 
+// in our case X=(y_trklt - y_trk z_trklt - z_trk) and |Cov| = |Cov_trklt| + |Cov_trk| at the radial
+// reference position.
   if(track) fkTrack = track;
   if(!fkTrack){
     AliDebug(4, "No Track defined.");
     return NULL;
   }
-  if(fkESD->GetTOFbc()>1){
+  if(fkESD && TMath::Abs(fkESD->GetTOFbc())>1){
     AliDebug(4, Form("Track with BC_index[%d] not used.", fkESD->GetTOFbc()));
-    return NULL;
+    //return NULL;
   }
   THnSparse *H(NULL);
   if(!fContainer || !(H = (THnSparse*)fContainer->At(kTracklet))){
     AliWarning("No output container defined.");
     return NULL;
   }
-//  return NULL;
-  Double_t val[kNdim+1];
+
+  const Int_t ndim(kNdim+8);
+  Double_t val[ndim],
+           alpha(0.), cs(-2.), sn(0.);
+  Float_t sz[AliTRDseedV1::kNtb], pos[AliTRDseedV1::kNtb];
+  Int_t ntbGap[AliTRDseedV1::kNtb];
   AliTRDseedV1 *fTracklet(NULL);
   for(Int_t il(0); il<AliTRDgeometry::kNlayer; il++){
     if(!(fTracklet = fkTrack->GetTracklet(il))) continue;
-    if(!fTracklet->IsOK()) continue;
-    val [kBC] = il; 
-    val[kPhi] = fPhi;
-    val[kEta] = fEta;
-    val[kSpeciesChgRC]= fSpecies;
-    //val[kPt]  = GetPtBin(fTracklet->GetPt());
-    Double_t dyt(fTracklet->GetYref(0) - fTracklet->GetYfit(0)),
-             dzt(fTracklet->GetZref(0) - fTracklet->GetZfit(0)),
+    if(!fTracklet->IsOK() || !fTracklet->IsChmbGood()) continue;
+    val [kBC] = il;
+    if(cs<-1.){
+      alpha = (0.5+AliTRDgeometry::GetSector(fTracklet->GetDetector()))*AliTRDgeometry::GetAlpha();
+      cs    = TMath::Cos(alpha);
+      sn    = TMath::Sin(alpha);
+    }
+    val[kPhi] = TMath::ATan2(fTracklet->GetX()*sn + fTracklet->GetY()*cs, fTracklet->GetX()*cs - fTracklet->GetY()*sn);
+    Float_t tgl = fTracklet->GetZ()/fTracklet->GetX()/TMath::Sqrt(1.+fTracklet->GetY()*fTracklet->GetY()/fTracklet->GetX()/fTracklet->GetX());//fTracklet->GetTgl();
+    val[kEta] = -TMath::Log(TMath::Tan(0.5 *  (0.5*TMath::Pi() - TMath::ATan(tgl))));
+
+    val[kSpeciesChgRC]= fTracklet->IsRowCross()?0:fkTrack->Charge();// fSpecies;
+    val[kPt]  = fPt<0.8?0:(fPt<1.5?1:2);//GetPtBin(fTracklet->GetMomentum());
+    Double_t dyt(fTracklet->GetYfit(0) - fTracklet->GetYref(0)),
+             dzt(fTracklet->GetZfit(0) - fTracklet->GetZref(0)),
              dydx(fTracklet->GetYfit(1)),
              tilt(fTracklet->GetTilt());
     // correct for tilt rotation
     val[kYrez] = dyt - dzt*tilt;
     val[kZrez] = dzt + dyt*tilt;
     dydx+= tilt*fTracklet->GetZref(1);
-    val[kPrez] = TMath::ATan((fTracklet->GetYref(1) - dydx)/(1.+ fTracklet->GetYref(1)*dydx)) * TMath::RadToDeg();
-    if(fTracklet->IsRowCross()){
-      val[kSpeciesChgRC]= 0.;
-      val[kPrez] = fkTrack->Charge(); // may be better defined
-    } else {
-      Float_t exb, vd, t0, s2, dl, dt;
-      fTracklet->GetCalibParam(exb, vd, t0, s2, dl, dt);
-      val[kZrez] = TMath::ATan((fTracklet->GetYref(1) - exb)/(1+fTracklet->GetYref(1)*exb));
+    val[kPrez] = TMath::ATan((dydx - fTracklet->GetYref(1))/(1.+ fTracklet->GetYref(1)*dydx)) * TMath::RadToDeg();
+    if(fTracklet->IsRowCross()) val[kSpeciesChgRC]= 0.;
+    val[kNdim] = fTracklet->GetdQdl()*2.e-3;
+    val[kNdim+1] = fEvent?fEvent->GetMultiplicity():0;
+    val[kNdim+2] = 1.e2*fTracklet->GetTBoccupancy()/AliTRDseedV1::kNtb;
+    Int_t n = fTracklet->GetChargeGaps(sz, pos, ntbGap);
+    val[kNdim+3] = 0.; for(Int_t igap(0); igap<n; igap++) val[kNdim+3] += sz[igap];
+    for(Int_t ifill(0); ifill<3; ifill++){ val[kNdim+4+ifill]=0.;val[kNdim+5+ifill]=0.;}
+    for(Int_t igap(0), ifill(0); igap<n&&ifill<2; igap++){
+      if(ntbGap[igap]<2) continue;
+      val[kNdim+4+ifill] = sz[igap];
+      val[kNdim+5+ifill] = pos[igap];
+      ifill++;
     }
-    val[kNdim] = fTracklet->GetdQdl();
-    if(DebugLevel()>=1) H->Fill(val);
+    H->Fill(val);
 
 //     // compute covariance matrix
 //     fTracklet->GetCovAt(x, cov);
 //     fTracklet->GetCovRef(covR);
-//     cov[0] += covR[0]; cov[1] += covR[1]; cov[2] += covR[2]; 
+//     cov[0] += covR[0]; cov[1] += covR[1]; cov[2] += covR[2];
 //     Double_t dyz[2]= {dy[1], dz[1]};
 //     Pulls(dyz, cov, tilt);
 //     ((TH3S*)arr->At(1))->Fill(sgm[fSegmentLevel], dyz[0], dyz[1]);
 //     ((TH3S*)arr->At(3))->Fill(tht, dyz[1], rc);
 
-    if(DebugLevel()>=2){
+    if(DebugLevel()>=3){
       Bool_t rc(fTracklet->IsRowCross());
       UChar_t err(fTracklet->GetErrorMsg());
       Double_t x(fTracklet->GetX()),
@@ -448,8 +533,7 @@ TH1* AliTRDresolution::PlotTracklet(const AliTRDtrackV1 *track)
                zt(fTracklet->GetZref(0)),
                phi(fTracklet->GetYref(1)),
                tht(fTracklet->GetZref(1));
-      Int_t ncl(fTracklet->GetN()),
-            det(fTracklet->GetDetector());
+      Int_t ncl(fTracklet->GetN()), det(fTracklet->GetDetector());
       (*DebugStream()) << "tracklet"
         <<"pt="  << pt
         <<"x="   << x
@@ -470,27 +554,34 @@ TH1* AliTRDresolution::PlotTracklet(const AliTRDtrackV1 *track)
         << "\n";
     }
   }
-  return NULL;//H->Projection(kEta, kPhi);
+  if(!track) return NULL;
+  // special care for EVE usage
+  TH1 *h(NULL);
+  if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+  return H->Projection(kYrez);
 }
 
 
 //________________________________________________________
 TH1* AliTRDresolution::PlotTrackIn(const AliTRDtrackV1 *track)
 {
-// Store resolution/pulls of Kalman before updating with the TRD information 
-// at the radial position of the first tracklet. The following points are used 
-// for comparison  
+// Store resolution/pulls of Kalman before updating with the TRD information
+// at the radial position of the first tracklet. The following points are used
+// for comparison
 //  - the (y,z,snp) of the first TRD tracklet
 //  - the (y, z, snp, tgl, pt) of the MC track reference
-// 
-// Additionally the momentum resolution/pulls are calculated for usage in the 
-// PID calculation. 
+//
+// Additionally the momentum resolution/pulls are calculated for usage in the
+// PID calculation.
+  //printf("AliTRDresolution::PlotTrackIn() :: track[%p]\n", (void*)track);
 
   if(track) fkTrack = track;
   if(!fkTrack){
     AliDebug(4, "No Track defined.");
     return NULL;
   }
+  //fkTrack->Print();
+  TH1 *h(NULL); // EVE projection
   // check container
   THnSparseI *H=(THnSparseI*)fContainer->At(kTrackIn);
   if(!H){
@@ -507,93 +598,90 @@ TH1* AliTRDresolution::PlotTrackIn(const AliTRDtrackV1 *track)
   AliTRDseedV1 *fTracklet(fkTrack->GetTracklet(0));
   if(!fTracklet){
     AliDebug(3, "No Tracklet in ly[0]. Skip track.");
-    return NULL;
+    if(!track) return NULL;
+    // special care for EVE usage
+    if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+    return H->Projection(kYrez);
+  }
+  if(!fTracklet->IsOK() || !fTracklet->IsChmbGood()){
+    AliDebug(3, "Tracklet or Chamber not OK. Skip track.");
+    if(!track) return NULL;
+    // special care for EVE usage
+    if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+    return H->Projection(kYrez);
   }
   // check radial position
   Double_t x = tin->GetX();
   if(TMath::Abs(x-fTracklet->GetX())>1.e-3){
     AliDebug(1, Form("Tracklet did not match Track. dx[cm]=%+4.1f", x-fTracklet->GetX()));
-    return NULL;
+    if(!track) return NULL;
+    // special care for EVE usage
+    if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+    return H->Projection(kYrez);
   }
+  //printf("USE y[%+f] dydx[%+f]\n", fTracklet->GetYfit(0), fTracklet->GetYfit(1));
 
-  Int_t bc(fkESD->GetTOFbc()%2);
+  Int_t bc(fkESD?fkESD->GetTOFbc()/2:0);
   const Double_t *parR(tin->GetParameter());
-  Double_t dyt(parR[0] - fTracklet->GetYfit(0)), dzt(parR[1] - fTracklet->GetZfit(0)),
+  Double_t dyt(fTracklet->GetYfit(0)-parR[0]), dzt(fTracklet->GetZfit(0)-parR[1]),
             phit(fTracklet->GetYfit(1)),
-            tilt(fTracklet->GetTilt());
+            tilt(fTracklet->GetTilt()),
+            norm(1./TMath::Sqrt((1.-parR[2])*(1.+parR[2])));
 
   // correct for tilt rotation
   Double_t dy  = dyt - dzt*tilt,
-           dz  = dzt + dyt*tilt;
+           dz  = dzt + dyt*tilt,
+           dx  = dy/(parR[2]*norm-parR[3]*norm*tilt);
   phit       += tilt*parR[3];
-  Double_t dphi = TMath::ASin(parR[2])-TMath::ATan(phit);
-
-  Double_t val[kNdim];
-  val[kBC]          = bc;
-  val[kPhi]         = fPhi;
-  val[kEta]         = fEta;
-  val[kSpeciesChgRC]= fTracklet->IsRowCross()?0:fSpecies;
-//  val[kPt]          = GetPtBin(fPt);
+  Double_t dphi = TMath::ATan(phit) - TMath::ASin(parR[2]);
+
+  Double_t val[kNdim+3];
+  val[kBC]          = bc==0?0:(bc<0?-1.:1.);
+  Double_t alpha = (0.5+AliTRDgeometry::GetSector(fTracklet->GetDetector()))*AliTRDgeometry::GetAlpha(),
+           cs    = TMath::Cos(alpha),
+           sn    = TMath::Sin(alpha);
+  val[kPhi] = TMath::ATan2(fTracklet->GetX()*sn + fTracklet->GetY()*cs, fTracklet->GetX()*cs - fTracklet->GetY()*sn);
+  Float_t tgl = fTracklet->GetZ()/fTracklet->GetX()/TMath::Sqrt(1.+fTracklet->GetY()*fTracklet->GetY()/fTracklet->GetX()/fTracklet->GetX());
+  val[kEta] = -TMath::Log(TMath::Tan(0.5 *  (0.5*TMath::Pi() - TMath::ATan(tgl))));
   val[kYrez]        = dy;
-  val[kZrez]        = dz;
+  val[kZrez]        = fTracklet->IsRowCross()?dz:(fTracklet->GetdQdl()*5.e-4 - 2.5);
   val[kPrez]        = dphi*TMath::RadToDeg();
+  val[kSpeciesChgRC]= fTracklet->IsRowCross()?0:fSpecies;
+  val[kPt]          = fPt<0.8?0:(fPt<1.5?1:2);//GetPtBin(fPt);
+  val[kNdim]        = fTracklet->GetDetector();
+  val[kNdim+1]      = dx;
+  val[kNdim+2]      = fEvent?fEvent->GetBunchFill():0;
   H->Fill(val);
-
-  if(!HasMCdata()) return NULL; // H->Projection(kEta, kPhi);
-  if(!(H = (THnSparseI*)fContainer->At(kMCtrackIn))) {
-    AliError(Form("Missing container @ %d", Int_t(kMCtrackIn)));
-    return NULL;
+  if(DebugLevel()>=3){
+    (*DebugStream()) << "trackIn"
+      <<"tracklet.="  << fTracklet
+      <<"trackIn.="   << tin
+      << "\n";
   }
 
-  // get MC info
-  UChar_t s;
-  Float_t pt0, eta, x0=fTracklet->GetX0(), y0, z0, dydx0, dzdx0;
-  if(!fkMC->GetDirections(x0, y0, z0, dydx0, dzdx0, pt0, eta, s)) return NULL;
-  dyt = y0 - fTracklet->GetYfit(0);
-  dzt = z0 - fTracklet->GetZfit(0);
-  phit= fTracklet->GetYfit(1) + tilt*dzdx0;
-  Float_t phi = TMath::ATan2(y0, x0);
-  dy  = dyt - dzt*tilt;
-  dz  = dzt + dyt*tilt;
-  dphi= TMath::ASin(dydx0)-TMath::ATan(phit);
-
-  Int_t pdg = fkMC->GetPDG(),
-        sIdx(AliTRDpidUtil::Pdg2Pid(TMath::Abs(pdg))+1), // species index
-        sign(0);
-  if(!fDBPDG) fDBPDG=TDatabasePDG::Instance();
-  TParticlePDG *ppdg(fDBPDG->GetParticle(pdg));
-  if(ppdg) sign = ppdg->Charge() > 0. ? 1 : -1;
-
-
-  val[kBC]          = (bc>=kNbunchCross)?(kNbunchCross-1):bc;
-  val[kPhi]         = phi;
-  val[kEta]         = eta;
-  val[kSpeciesChgRC]= fTracklet->IsRowCross()?0:sign*(sIdx+1);
-//  val[kPt]          = GetPtBin(pt0);
-  val[kYrez]        = dy;
-  val[kZrez]        = dz;
-  val[kPrez]        = dphi*TMath::RadToDeg();
-  H->Fill(val);
-
-  return NULL; //H->Projection(kEta, kPhi);
+  if(!track) return NULL;
+  // special care for EVE usage
+    if((h = (TH1*)gDirectory->Get(Form("%s_proj_%d", H->GetName(), kYrez)))) delete h;
+    return H->Projection(kYrez);
 }
 
+/*
 //________________________________________________________
 TH1* AliTRDresolution::PlotTrackOut(const AliTRDtrackV1 *track)
 {
-// Store resolution/pulls of Kalman after last update with the TRD information 
-// at the radial position of the first tracklet. The following points are used 
-// for comparison  
+// Store resolution/pulls of Kalman after last update with the TRD information
+// at the radial position of the first tracklet. The following points are used
+// for comparison
 //  - the (y,z,snp) of the first TRD tracklet
 //  - the (y, z, snp, tgl, pt) of the MC track reference
-// 
-// Additionally the momentum resolution/pulls are calculated for usage in the 
-// PID calculation. 
+//
+// Additionally the momentum resolution/pulls are calculated for usage in the
+// PID calculation.
 
   if(track) fkTrack = track;
   return NULL;
 }
-
+*/
 //________________________________________________________
 TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
 {
@@ -601,15 +689,15 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
   // Plot MC distributions
   //
 
-  if(!HasMCdata()){ 
-    AliDebug(2, "No MC defined. Results will not be available.");
-    return NULL;
-  }
+  if(!HasMCdata()) return NULL;
   if(track) fkTrack = track;
   if(!fkTrack){
     AliDebug(4, "No Track defined.");
     return NULL;
   }
+  Int_t bc(TMath::Abs(fkESD->GetTOFbc()));
+
+  THnSparse *H(NULL);
   if(!fContainer){
     AliWarning("No output container defined.");
     return NULL;
@@ -618,22 +706,22 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
   Int_t pdg = fkMC->GetPDG(),
         sIdx(AliTRDpidUtil::Pdg2Pid(TMath::Abs(pdg))+1), // species index
         sign(0),
-        sgm[3],
-        label(fkMC->GetLabel()),
-        fSegmentLevel(0);
+//        sgm[3],
+        label(fkMC->GetLabel());
+//        fSegmentLevel(0);
   if(!fDBPDG) fDBPDG=TDatabasePDG::Instance();
   TParticlePDG *ppdg(fDBPDG->GetParticle(pdg));
   if(ppdg) sign = ppdg->Charge() > 0. ? 1 : -1;
 
-  TObjArray *arr(NULL);TH1 *h(NULL);
+  TH1 *h(NULL);
   AliTRDgeometry *geo(AliTRDinfoGen::Geometry());
   AliTRDseedV1 *fTracklet(NULL); TObjArray *clInfoArr(NULL);
   UChar_t s;
-  Double_t xAnode, x, y, z, pt, dydx, dzdx, dzdl;
+  Double_t x, y, z, pt, dydx, dzdx, dzdl;
   Float_t pt0, x0, y0, z0, dx, dy, dz, dydx0, dzdx0;
   Double_t covR[7]/*, cov[3]*/;
-  
-  if(DebugLevel()>=3){
+
+/*  if(DebugLevel()>=3){
     // get first detector
     Int_t det = -1;
     for(Int_t ily=0; ily<AliTRDgeometry::kNlayer; ily++){
@@ -662,83 +750,91 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
           << "\n";
       }
     }
-  }
+  }*/
+  AliTRDcluster *c(NULL);
+  Double_t val[kNdim+1];
   for(Int_t ily=0; ily<AliTRDgeometry::kNlayer; ily++){
     if(!(fTracklet = fkTrack->GetTracklet(ily)))/* ||
        !fTracklet->IsOK())*/ continue;
 
-    sgm[2] = fTracklet->GetDetector();
-    sgm[0] = AliTRDgeometry::GetSector(sgm[2]);
-    sgm[1] = sgm[0] * AliTRDgeometry::kNstack + AliTRDgeometry::GetStack(sgm[2]);
-    Double_t tilt(fTracklet->GetTilt())
-            ,t2(tilt*tilt)
-            ,corr(1./(1. + t2))
-            ,cost(TMath::Sqrt(corr));
-    x0  = fTracklet->GetX0();
-    //radial shift with respect to the MC reference (radial position of the pad plane)
-    x= fTracklet->GetX();
-    Bool_t rc(fTracklet->IsRowCross()); Float_t eta;
-    if(!fkMC->GetDirections(x0, y0, z0, dydx0, dzdx0, pt0, eta, s)) continue;
-    xAnode  = fTracklet->GetX0();
+    x= x0 = fTracklet->GetX();
+    Bool_t rc(fTracklet->IsRowCross()); Float_t eta, phi;
+    if(!fkMC->GetDirections(x0, y0, z0, dydx0, dzdx0, pt0, eta, phi, s)) continue;
 
     // MC track position at reference radial position
     dx  = x0 - x;
-    if(DebugLevel()>=4){
-      (*DebugStream()) << "MC"
-        << "det="     << sgm[2]
-        << "pdg="     << pdg
-        << "sgn="     << sign
-        << "pt="      << pt0
-        << "x="       << x0
-        << "y="       << y0
-        << "z="       << z0
-        << "dydx="    << dydx0
-        << "dzdx="    << dzdx0
-        << "\n";
-    }
     Float_t ymc = y0 - dx*dydx0;
     Float_t zmc = z0 - dx*dzdx0;
-    //p = pt0*TMath::Sqrt(1.+dzdx0*dzdx0); // pt -> p
+    //phi -= TMath::Pi();
 
-    // Kalman position at reference radial position
-    dx = xAnode - x;
+    val[kBC]  = ily;
+    val[kPhi] = phi;
+    val[kEta] = eta;
+    val[kSpeciesChgRC]= rc?0.:sign*sIdx;
+    val[kPt]  = pt0<0.8?0:(pt0<1.5?1:2);//GetPtBin(pt0);
+    Double_t tilt(fTracklet->GetTilt());
+//             ,t2(tilt*tilt)
+//             ,corr(1./(1. + t2))
+//             ,cost(TMath::Sqrt(corr));
+
+    AliExternalTrackParam *tin(fkTrack->GetTrackIn());
+    if(ily==0 && tin){ // trackIn residuals
+      // check radial position
+      if(TMath::Abs(tin->GetX()-x)>1.e-3) AliDebug(1, Form("TrackIn radial mismatch. dx[cm]=%+4.1f", tin->GetX()-x));
+      else{
+        val[kBC]          = (bc>=kNbunchCross)?(kNbunchCross-1):bc;
+        val[kYrez]        = tin->GetY()-ymc;
+        val[kZrez]        = tin->GetZ()-zmc;
+        val[kPrez]        = (TMath::ASin(tin->GetSnp())-TMath::ATan(dydx0))*TMath::RadToDeg();
+        if((H = (THnSparseI*)fContainer->At(kMCtrackIn))) H->Fill(val);
+      }
+    }
+    //if(bc>1) break; // do nothing for the rest of TRD objects if satellite bunch
+
+    // track residuals
     dydx = fTracklet->GetYref(1);
     dzdx = fTracklet->GetZref(1);
     dzdl = fTracklet->GetTgl();
-    y  = fTracklet->GetYref(0) - dx*dydx;
+    y  = fTracklet->GetYref(0);
     dy = y - ymc;
-    z  = fTracklet->GetZref(0) - dx*dzdx;
+    z  = fTracklet->GetZref(0);
     dz = z - zmc;
     pt = TMath::Abs(fTracklet->GetPt());
     fTracklet->GetCovRef(covR);
 
-    arr = (TObjArray*)((TObjArray*)fContainer->At(kMCtrack))->At(ily);
-    // y resolution/pulls
-    if(pt0>fPtThreshold) ((TH3S*)arr->At(0))->Fill(dydx0, dy, sgm[fSegmentLevel]);
-    ((TH3S*)arr->At(1))->Fill(sgm[fSegmentLevel], dy/TMath::Sqrt(covR[0]), dz/TMath::Sqrt(covR[2]));
-    // z resolution/pulls
-    ((TH2S*)arr->At(2))->Fill(dzdx0, dz);
-    ((TH3S*)arr->At(3))->Fill(dzdx0, dz/TMath::Sqrt(covR[2]), 0);
-    // phi resolution/ snp pulls
-    Double_t dtgp = (dydx - dydx0)/(1.- dydx*dydx0);
-    ((TH2I*)arr->At(4))->Fill(dydx0, TMath::ATan(dtgp));
-    Double_t dsnp = dydx/TMath::Sqrt(1.+dydx*dydx) - dydx0/TMath::Sqrt(1.+dydx0*dydx0);
-    ((TH2I*)arr->At(5))->Fill(dydx0, dsnp/TMath::Sqrt(covR[3]));
-    // theta resolution/ tgl pulls
-    Double_t dzdl0 = dzdx0/TMath::Sqrt(1.+dydx0*dydx0),
-              dtgl = (dzdl - dzdl0)/(1.- dzdl*dzdl0);
-    ((TH2I*)arr->At(6))->Fill(dzdl0, 
-    TMath::ATan(dtgl));
-    ((TH2I*)arr->At(7))->Fill(dzdl0, (dzdl - dzdl0)/TMath::Sqrt(covR[4]));
-    // pt resolution  \\ 1/pt pulls \\ p resolution for PID
-    Double_t p0 = TMath::Sqrt(1.+ dzdl0*dzdl0)*pt0,
-             p  = TMath::Sqrt(1.+ dzdl*dzdl)*pt;
-    ((TH3S*)((TObjArray*)arr->At(8)))->Fill(pt0, pt/pt0-1., sign*sIdx);
-    ((TH3S*)((TObjArray*)arr->At(9)))->Fill(1./pt0, (1./pt-1./pt0)/TMath::Sqrt(covR[6]), sign*sIdx);
-    ((TH3S*)((TObjArray*)arr->At(10)))->Fill(p0, p/p0-1., sign*sIdx);
-
-    // Fill Debug stream for Kalman track
+    val[kYrez] = dy;
+    val[kPrez] = TMath::ATan((dydx - dydx0)/(1.+ dydx*dydx0))*TMath::RadToDeg();
+    val[kZrez] = dz;
+    val[kNdim] = 1.e2*(pt/pt0-1.);
+    if((H = (THnSparse*)fContainer->At(kMCtrack))) H->Fill(val);
+/*      // theta resolution/ tgl pulls
+      Double_t dzdl0 = dzdx0/TMath::Sqrt(1.+dydx0*dydx0),
+                dtgl = (dzdl - dzdl0)/(1.- dzdl*dzdl0);
+      ((TH2I*)arr->At(6))->Fill(dzdl0, TMath::ATan(dtgl));
+      ((TH2I*)arr->At(7))->Fill(dzdl0, (dzdl - dzdl0)/TMath::Sqrt(covR[4]));
+      // pt resolution  \\ 1/pt pulls \\ p resolution for PID
+      Double_t p0 = TMath::Sqrt(1.+ dzdl0*dzdl0)*pt0,
+              p  = TMath::Sqrt(1.+ dzdl*dzdl)*pt;
+      ((TH3S*)((TObjArray*)arr->At(8)))->Fill(pt0, pt/pt0-1., sign*sIdx);
+      ((TH3S*)((TObjArray*)arr->At(9)))->Fill(1./pt0, (1./pt-1./pt0)/TMath::Sqrt(covR[6]), sign*sIdx);
+      ((TH3S*)((TObjArray*)arr->At(10)))->Fill(p0, p/p0-1., sign*sIdx);*/
+
+    // Fill Debug stream for MC track
     if(DebugLevel()>=4){
+      Int_t det(fTracklet->GetDetector());
+      (*DebugStream()) << "MC"
+        << "det="     << det
+        << "pdg="     << pdg
+        << "sgn="     << sign
+        << "pt="      << pt0
+        << "x="       << x0
+        << "y="       << y0
+        << "z="       << z0
+        << "dydx="    << dydx0
+        << "dzdx="    << dzdx0
+        << "\n";
+
+      // Fill Debug stream for Kalman track
       (*DebugStream()) << "MCtrack"
         << "pt="      << pt
         << "x="       << x
@@ -751,35 +847,24 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
         << "\n";
     }
 
-    // recalculate tracklet based on the MC info
-    AliTRDseedV1 tt(*fTracklet);
-    tt.SetZref(0, z0 - (x0-xAnode)*dzdx0);
-    tt.SetZref(1, dzdx0); 
-    tt.SetReconstructor(AliTRDinfoGen::Reconstructor());
-    tt.Fit(1);
-    x= tt.GetX();y= tt.GetY();z= tt.GetZ();
-    dydx = tt.GetYfit(1);
-    dx = x0 - x;
-    ymc = y0 - dx*dydx0;
-    zmc = z0 - dx*dzdx0;
-    dy = y-ymc;
-    dz = z-zmc;
-    Float_t dphi  = (dydx - dydx0);
-    dphi /= (1.- dydx*dydx0);
-
-    // add tracklet residuals for y and dydx
-    arr = (TObjArray*)fContainer->At(kMCtracklet);
-
-    if(pt0>fPtThreshold) ((TH3S*)arr->At(0))->Fill(dydx0, dy, sgm[fSegmentLevel]);
-    if(tt.GetS2Y()>0. && tt.GetS2Z()>0.) ((TH3S*)arr->At(1))->Fill(sgm[fSegmentLevel], dy/TMath::Sqrt(tt.GetS2Y()), dz/TMath::Sqrt(tt.GetS2Z()));
-    ((TH3S*)arr->At(2))->Fill(dzdl0, dz, rc);
-    if(tt.GetS2Z()>0.) ((TH3S*)arr->At(3))->Fill(dzdl0, dz/TMath::Sqrt(tt.GetS2Z()), rc);
-    ((TH2I*)arr->At(4))->Fill(dydx0, TMath::ATan(dphi));
-  
+    // tracklet residuals
+    dydx = fTracklet->GetYfit(1) + tilt*dzdx0;
+    dzdx = fTracklet->GetZfit(1);
+    y  = fTracklet->GetYfit(0);
+    dy = y - ymc;
+    z  = fTracklet->GetZfit(0);
+    dz = z - zmc;
+    val[kYrez] = dy - dz*tilt;
+    val[kPrez] = TMath::ATan((dydx - dydx0)/(1.+ dydx*dydx0))*TMath::RadToDeg();
+    val[kZrez] = dz + dy*tilt;
+//      val[kNdim] = pt/pt0-1.;
+    if((H = (THnSparse*)fContainer->At(kMCtracklet))) H->Fill(val);
+
+
     // Fill Debug stream for tracklet
     if(DebugLevel()>=4){
-      Float_t s2y = tt.GetS2Y();
-      Float_t s2z = tt.GetS2Z();
+      Float_t s2y = fTracklet->GetS2Y();
+      Float_t s2z = fTracklet->GetS2Z();
       (*DebugStream()) << "MCtracklet"
         << "rc="    << rc
         << "x="     << x
@@ -791,27 +876,34 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
         << "\n";
     }
 
-    AliTRDpadPlane *pp = geo->GetPadPlane(ily, AliTRDgeometry::GetStack(sgm[2]));
+    AliTRDpadPlane *pp = geo->GetPadPlane(ily, AliTRDgeometry::GetStack(fTracklet->GetDetector()));
     Float_t zr0 = pp->GetRow0() + pp->GetAnodeWireOffset();
     //Double_t exb = AliTRDCommonParam::Instance()->GetOmegaTau(1.5);
 
-    arr = (TObjArray*)fContainer->At(kMCcluster);
-    AliTRDcluster *c = NULL;
-    tt.ResetClusterIter(kFALSE);
-    while((c = tt.PrevCluster())){
-      Float_t  q = TMath::Abs(c->GetQ());
-      x = c->GetX();//+fXcorr[c->GetDetector()][c->GetLocalTimeBin()]; y = c->GetY();z = c->GetZ();
-      dx = x0 - x; 
+    H = (THnSparse*)fContainer->At(kMCcluster);
+    val[kPt]  = TMath::ATan(dydx0)*TMath::RadToDeg();
+    //Float_t corr = 1./TMath::Sqrt(1.+dydx0*dydx0+dzdx0*dzdx0);
+    Int_t row0(-1);
+    Float_t padCorr(tilt*fTracklet->GetPadLength());
+    fTracklet->ResetClusterIter(kTRUE);
+    while((c = fTracklet->NextCluster())){
+      if(row0<0) row0 = c->GetPadRow();
+      x = c->GetX();//+fXcorr[c->GetDetector()][c->GetLocalTimeBin()];
+      y = c->GetY()  + padCorr*(c->GetPadRow() - row0);
+      z = c->GetZ();
+      dx = x0 - x;
       ymc= y0 - dx*dydx0;
       zmc= z0 - dx*dzdx0;
-      dy = cost*(y - ymc - tilt*(z-zmc));
-      dz = cost*(z - zmc + tilt*(y-ymc));
-      
-      // Fill Histograms
-      if(q>20. && q<250. && pt0>fPtThreshold && c->IsInChamber()){ 
-        ((TH3S*)arr->At(0))->Fill(dydx0, dy, sgm[fSegmentLevel]);
-        ((TH3S*)arr->At(1))->Fill(sgm[fSegmentLevel], dy/TMath::Sqrt(c->GetSigmaY2()), dz/TMath::Sqrt(c->GetSigmaZ2()));
-      }
+      dy = y - ymc;
+      dz = z - zmc;
+      val[kYrez] = dy - dz*tilt;
+      val[kPrez] = dx;
+      val[kZrez] = 0.; AliTRDcluster *cc(NULL); Int_t ic(0), tb(c->GetLocalTimeBin()); Float_t  q(TMath::Abs(c->GetQ()));
+      if((cc = fTracklet->GetClusters(tb-1))) {val[kZrez] += TMath::Abs(cc->GetQ()); ic++;}
+      if((cc = fTracklet->GetClusters(tb-2))) {val[kZrez] += TMath::Abs(cc->GetQ()); ic++;}
+      if(ic) val[kZrez] /= (ic*q);
+      if(H) H->Fill(val);
+
 
       // Fill calibration container
       Float_t d = zr0 - zmc;
@@ -827,8 +919,8 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
       clInfo->SetTilt(tilt);
       if(fMCcl) fMCcl->Add(clInfo);
       else AliDebug(1, "MCcl exchange container missing. Activate by calling \"InitExchangeContainers()\"");
-      if(DebugLevel()>=5){ 
-        if(!clInfoArr){ 
+      if(DebugLevel()>=5){
+        if(!clInfoArr){
           clInfoArr=new TObjArray(AliTRDseedV1::kNclusters);
           clInfoArr->SetOwner(kFALSE);
         }
@@ -852,31 +944,57 @@ TH1* AliTRDresolution::PlotMC(const AliTRDtrackV1 *track)
 Int_t AliTRDresolution::GetPtBin(Float_t pt)
 {
 // Find pt bin according to local pt segmentation
-  Int_t ipt(0);
+  Int_t ipt(-1);
   while(ipt<AliTRDresolution::kNpt){
-    if(pt<fgPtBin[ipt]) break;
+    if(pt<fgPtBin[ipt+1]) break;
     ipt++;
   }
-  return TMath::Max(0,ipt);
+  return ipt;
+}
+
+//________________________________________________________
+Float_t AliTRDresolution::GetMeanStat(TH1 *h, Float_t cut, Option_t *opt)
+{
+// return mean number of entries/bin of histogram "h"
+// if option "opt" is given the following values are accepted:
+//   "<" : consider only entries less than "cut"
+//   ">" : consider only entries greater than "cut"
+
+  //Int_t dim(h->GetDimension());
+  Int_t nbx(h->GetNbinsX()), nby(h->GetNbinsY()), nbz(h->GetNbinsZ());
+  Double_t sum(0.); Int_t n(0);
+  for(Int_t ix(1); ix<=nbx; ix++)
+    for(Int_t iy(1); iy<=nby; iy++)
+      for(Int_t iz(1); iz<=nbz; iz++){
+        if(strcmp(opt, "")==0){sum += h->GetBinContent(ix, iy, iz); n++;}
+        else{
+          if(strcmp(opt, "<")==0) {
+            if(h->GetBinContent(ix, iy, iz)<cut) {sum += h->GetBinContent(ix, iy, iz); n++;}
+          } else if(strcmp(opt, ">")==0){
+            if(h->GetBinContent(ix, iy, iz)>cut) {sum += h->GetBinContent(ix, iy, iz); n++;}
+          } else {sum += h->GetBinContent(ix, iy, iz); n++;}
+        }
+      }
+  return n>0?sum/n:0.;
 }
 
 //________________________________________________________
-Float_t AliTRDresolution::GetMeanWithBoundary(TH1 *h, Float_t zm, Float_t zM, Float_t dz) const
+void AliTRDresolution::GetRangeZ(TH2 *h2, Float_t &min, Float_t &max)
 {
-// return mean of histogram "h"
-// if histo is empty returns -infinity
-// if few entries returns zM+epsilon
-// if mean less than zm returns zm-epsilon
-
-  Int_t ne(Int_t(h->GetEntries()));
-  if(ne==0) return -1.e+5;
-  else if(ne<20) return zM+0.5*dz;
-  else{
-    Float_t val(h->GetMean());
-    if(val<zm) return zm-0.5*dz;
-    else if(val>zM) return zM-0.5*dz;
-    else return val;
+// Get range on Z axis such to avoid outliers
+
+  Double_t cnt[20000], c, m, s;
+  Int_t nx(h2->GetXaxis()->GetNbins()), ny(h2->GetYaxis()->GetNbins()), nc(0);
+  for(Int_t ix(1); ix<=nx; ix++){
+    for(Int_t iy(1); iy<=ny; iy++){
+      if((c = h2->GetBinContent(ix, iy))<10) continue;
+      cnt[nc++] = c;
+      if(nc==20000) break;
+    }
+    if(nc==20000) break;
   }
+  AliMathBase::EvaluateUni(nc, cnt, m, s, 0);
+  min = m-s; max = m+2.*s;
 }
 
 //________________________________________________________
@@ -890,7 +1008,7 @@ Bool_t AliTRDresolution::GetRefFigure(Int_t ifig)
     AliWarning("Please provide a canvas to draw results.");
     return kFALSE;
   }
-/*  Int_t selection[100], n(0), selStart(0); // 
+/*  Int_t selection[100], n(0), selStart(0); //
   Int_t ly0(0), dly(5);
   TList *l(NULL); TVirtualPad *pad(NULL); */
   switch(ifig){
@@ -920,50 +1038,219 @@ void AliTRDresolution::MakeSummary()
   if(!fProj){
     AliError("Missing results");
     return;
-  }  
-  Int_t iSumPlot(0);
+  }
   TVirtualPad *p(NULL); TCanvas *cOut(NULL);
-  TObjArray *arr(NULL);
+  TObjArray *arr(NULL); TH2 *h2(NULL);
 
   // cluster resolution
   // define palette
   gStyle->SetPalette(1);
-  cOut = new TCanvas(Form("TRDsummary%s_%d", GetName(), iSumPlot++), "Cluster Resolution", 1024, 768);
-  cOut->Divide(3,2, 2.e-3, 2.e-3);
-  arr = (TObjArray*)fProj->At(kCluster);
-  for(Int_t iplot(0); iplot<fgNproj[kCluster]; iplot++){
-    p=cOut->cd(iplot+1);    p->SetRightMargin(0.1572581);p->SetTopMargin(0.08262712);
-    ((TH2*)arr->At(iplot))->Draw("colz");
+  const Int_t nClViews(9);
+  const Char_t *vClName[nClViews] = {"ClY", "ClYn", "ClYp", "ClQn", "ClQp", "ClYXTCp", "ClYXTCn", "ClYXPh", "ClYXPh"};
+  const UChar_t vClOpt[nClViews] = {1, 1, 1, 0, 0, 0, 0, 0, 1};
+  const Int_t nTrkltViews(19);
+  const Char_t *vTrkltName[nTrkltViews] = {
+    "TrkltY", "TrkltYn", "TrkltYp", "TrkltY", "TrkltYn", "TrkltYp",
+    "TrkltPh", "TrkltPhn", "TrkltPhp",
+    "TrkltQ", "TrkltQn", "TrkltQp",
+    "TrkltQS", "TrkltQSn", "TrkltQSp",
+    "TrkltTBn", "TrkltTBp", "TrkltTBn", "TrkltTBp"
+//    "TrkltYnl0", "TrkltYpl0", "TrkltPhnl0", "TrkltPhpl0", "TrkltQnl0", "TrkltQpl0",  // electrons low pt
+/*    "TrkltYnl1", "TrkltYpl1", "TrkltPhnl1", "TrkltPhpl1", "TrkltQnl1", "TrkltQpl1",  // muons low pt
+    "TrkltYnl2", "TrkltYpl2", "TrkltPhnl2", "TrkltPhpl2", "TrkltQnl2", "TrkltQpl2"  // pions low pt*/
+  };
+  const UChar_t vTrkltOpt[nTrkltViews] = {
+    0, 0, 0, 1, 1, 1,
+    0, 0, 0,
+    0, 0, 0,
+    0, 0, 0,
+    0, 0, 1, 1
+  };
+  const Int_t nTrkInViews(5);
+  const Char_t *vTrkInName[nTrkInViews][6] = {
+    {"TrkInY", "TrkInYn", "TrkInYp", "TrkInRCZ", "TrkInPhn", "TrkInPhp"},
+    {"TrkInY", "TrkInYn", "TrkInYp", "TrkInRCZ", "TrkInPhn", "TrkInPhp"},
+    {"TrkInYnl", "TrkInYni", "TrkInYnh", "TrkInYpl", "TrkInYpi", "TrkInYph"},
+    {"TrkInXnl", "TrkInXpl", "TrkInXl", "TrkInYnh", "TrkInYph", "TrkInYh"},
+    {"TrkInPhnl", "TrkInPhni", "TrkInPhnh", "TrkInPhpl", "TrkInPhpi", "TrkInPhph"},
+    //{"TrkInRCX", "TrkInRCY", "TrkInRCPh", "TrkInRCZl", "TrkInRCZi", "TrkInRCZh"}
+  };
+  const UChar_t vTrkInOpt[nTrkInViews] = {0, 1, 0, 0, 0};
+  const Float_t min[6] = {0.15, 0.15, 0.15, 0.15, 0.5, 0.5};
+  const Float_t max[6] = {0.6, 0.6, 0.6, 0.6, 2.3, 2.3};
+  const Char_t *ttt[6] = {"#sigma(#Deltay) [cm]", "#sigma(#Deltay) [cm]", "#sigma(#Deltay) [cm]", "#sigma(#Deltaz) [cm]", "#sigma(#Delta#phi) [deg]", "#sigma(#Delta#phi) [deg]"};
+
+  const Int_t nTrkViews(27);
+  const Char_t *vTrkName[nTrkViews] = {
+    "TrkY", "TrkYn", "TrkYp",
+    "TrkPh", "TrkPhn", "TrkPhp",
+    "TrkDPt", "TrkDPtn", "TrkDPtp",
+    "TrkYnl0", "TrkYpl0", "TrkPhnl0", "TrkPhpl0", "TrkDPtnl0", "TrkDPtpl0",  // electrons low pt
+    "TrkYnl1", "TrkYpl1", "TrkPhnl1", "TrkPhpl1", "TrkDPtnl1", "TrkDPtpl1",  // muons low pt
+    "TrkYnl2", "TrkYpl2", "TrkPhnl2", "TrkPhpl2", "TrkDPtnl2", "TrkDPtpl2"  // pions low pt
+  };
+  const Char_t *typName[] = {"", "MC"};
+  const Int_t nx(2048), ny(1536);
+
+  if((arr = (TObjArray*)fProj->At(kDetector))){
+    cOut = new TCanvas(Form("%s_Det", GetName()), "Detector performance", 2*nx, 2*ny);
+    cOut->Divide(AliTRDgeometry::kNlayer,AliTRDeventInfo::kCentralityClasses, 1.e-5, 1.e-5);
+    for(Int_t icen(0); icen<AliTRDeventInfo::kCentralityClasses; icen++){
+      Float_t zmin(1.e10), zmax(0.);
+      for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+        if(!(h2 = (TH2*)arr->FindObject(Form("HDetQ%d%d_yx", ily, icen)))) continue;
+        Float_t m, M; GetRangeZ(h2, m, M);
+        if(m<zmin) zmin=m;
+        if(M>zmax) zmax=M;
+      }
+      for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+        p=cOut->cd(icen*AliTRDgeometry::kNlayer+ily+1); p->SetRightMargin(0.1572581);p->SetTopMargin(0.08262712);
+        if(!(h2 = (TH2*)arr->FindObject(Form("HDetQ%d%d_yx", ily, icen)))) continue;
+        SetRangeZ(h2, zmin, zmax);
+        h2->Draw("colz");
+        MakeDetectorPlot(ily);
+      }
+    }
+    cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+  }
+  for(Int_t ityp(0); ityp<(HasMCdata()?2:1); ityp++){
+    if((arr = (TObjArray*)fProj->At(ityp?kMCcluster:kCluster))){
+      for(Int_t iview(0); iview<nClViews; iview++){
+        cOut = new TCanvas(Form("%s_%s%s_%d", GetName(), typName[ityp], vClName[iview], vClOpt[iview]), "Cluster Resolution", nx, ny);
+        cOut->Divide(3,2, 1.e-5, 1.e-5);
+        Int_t nplot(0);
+        for(Int_t iplot(0); iplot<6; iplot++){
+          p=cOut->cd(iplot+1);    p->SetRightMargin(0.1572581);p->SetTopMargin(0.08262712);
+          if(!(h2 = (TH2*)arr->FindObject(Form("H%s%s%d_2D", typName[ityp], vClName[iview], iplot)))) continue;
+          nplot++;
+          if(vClOpt[iview]==0) h2->Draw("colz");
+          else if(vClOpt[iview]==1) DrawSigma(h2, "#sigma(#Deltay) [#mum]", 3.2e2, 5.e2, 1.e4);
+          MakeDetectorPlot(iplot);
+        }
+        if(nplot==6) cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+        else delete cOut;
+      }
+    }
+    // tracklet systematic
+    if((arr = (TObjArray*)fProj->At(ityp?kMCtracklet:kTracklet))){
+      for(Int_t iview(0); iview<nTrkltViews; iview++){
+        cOut = new TCanvas(Form("%s_%s%s_%d", GetName(), typName[ityp], vTrkltName[iview], vTrkltOpt[iview]), "Tracklet Resolution", nx, ny);
+        cOut->Divide(3,2, 1.e-5, 1.e-5);
+        Int_t nplot(0);
+        for(Int_t iplot(0); iplot<6; iplot++){
+          p=cOut->cd(iplot+1); p->SetRightMargin(0.1572581); p->SetTopMargin(0.08262712);
+          if(!(h2 = (TH2*)arr->FindObject(Form("H%s%s%d_2D", typName[ityp], vTrkltName[iview], iplot)))) continue;
+          nplot++;
+          if(vTrkltOpt[iview]==0) h2->Draw("colz");
+          else DrawSigma(h2, "#sigma(#Deltay) [cm]", .15, .6);
+          MakeDetectorPlot(iplot);
+        }
+        if(nplot==6){
+          cOut->Modified();cOut->Update();
+          cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+        }
+        delete cOut;
+      }
+    }
+    // trackIn systematic
+    if((arr = (TObjArray*)fProj->At(ityp?kMCtrackIn:kTrackIn))){
+      for(Int_t iview(0); iview<nTrkInViews; iview++){
+        cOut = new TCanvas(Form("%s_%s%s_%d", GetName(), typName[ityp], vTrkInName[iview][0], vTrkInOpt[iview]), "Track IN Resolution", nx, ny);
+        cOut->Divide(3,2, 1.e-5, 1.e-5);
+        Int_t nplot(0);
+        for(Int_t iplot(0); iplot<6; iplot++){
+          p=cOut->cd(iplot+1); p->SetRightMargin(0.1572581); p->SetTopMargin(0.08262712);
+          if(!(h2 = (TH2*)arr->FindObject(Form("H%s%s_2D", typName[ityp], vTrkInName[iview][iplot])))){
+            AliInfo(Form("Missing H%s%s_2D", typName[ityp], vTrkInName[iview][iplot]));
+            continue;
+          }
+          nplot++;
+          if(vTrkInOpt[iview]==0) h2->Draw("colz");
+          else DrawSigma(h2, ttt[iplot], min[iplot], max[iplot]);
+          MakeDetectorPlot(0);
+        }
+        if(nplot==6) cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+        else delete cOut;
+      }
+      // species
+      const Char_t *plot[] = {"Ph", "Q", "QS"};
+      for(Int_t iview(0); iview<3; iview++){
+        cOut = new TCanvas(Form("%s_%sTrkInSpc%s", GetName(), typName[ityp], plot[iview]), "Track IN PID", Int_t(1.5*nx), Int_t(1.5*ny));
+        cOut->Divide(5,3, 1.e-5, 1.e-5);
+        Int_t nplot(0); const Char_t *chName[] = {"p", "n", ""};
+        for(Int_t iplot(0); iplot<3; iplot++){
+          for(Int_t ispec(0); ispec<AliPID::kSPECIES; ispec++){
+            p=cOut->cd(iplot*AliPID::kSPECIES+ispec+1); p->SetRightMargin(0.1572581); p->SetTopMargin(0.08262712);
+            if(!(h2 = (TH2*)arr->FindObject(Form("H%sTrkIn%s%s%d_2D", typName[ityp], plot[iview], chName[iplot], ispec)))) {
+              AliInfo(Form("Missing H%sTrkIn%s%s%d_2D", typName[ityp], plot[iview], chName[iplot], ispec));
+              continue;
+            }
+            nplot++;
+            h2->Draw("colz");
+            MakeDetectorPlot(0);
+          }
+        }
+        if(nplot==15) cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+        else delete cOut;
+      }
+    }
+  }
+  // track MC systematic
+  if((arr = (TObjArray*)fProj->At(kMCtrack))) {
+    for(Int_t iview(0); iview<nTrkViews; iview++){
+      cOut = new TCanvas(Form("%s_MC%s", GetName(), vTrkName[iview]), "Track Resolution", nx, ny);
+      cOut->Divide(3,2, 1.e-5, 1.e-5);
+      Int_t nplot(0);
+      for(Int_t iplot(0); iplot<6; iplot++){
+        p=cOut->cd(iplot+1); p->SetRightMargin(0.1572581); p->SetTopMargin(0.08262712);
+        if(!(h2 = (TH2*)arr->FindObject(Form("HMC%s%d_2D", vTrkName[iview], iplot)))) continue;
+        h2->Draw("colz"); nplot++;
+      }
+      if(nplot==6) cOut->SaveAs(Form("%s.gif", cOut->GetName()));
+      else delete cOut;
+    }
   }
-  cOut->SaveAs(Form("%s.gif", cOut->GetName()));
 
 
-  // trackIn systematic
-  // define palette
-  Int_t palette[50];
-  for (int i=1;i<49;i++) palette[i] = 50+i; palette[0]=kMagenta; palette[49]=kBlack;
-  gStyle->SetPalette(50, palette);
-  cOut = new TCanvas(Form("TRDsummary%s_%d", GetName(), iSumPlot++), "Track IN Resolution", 1024, 768);
-  cOut->Divide(3,2, 2.e-3, 2.e-3);
-  arr = (TObjArray*)fProj->At(kTrackIn); 
-  for(Int_t iplot(0); iplot<fgNproj[kTrackIn]; iplot++){
-    p=cOut->cd(iplot+1);    p->SetRightMargin(0.1572581);p->SetTopMargin(0.08262712);
-    ((TH2*)arr->At(iplot))->Draw("colz");
-  }
-  cOut->SaveAs(Form("%s.gif", cOut->GetName()));
-
-  delete cOut;
   gStyle->SetPalette(1);
 }
 
+//________________________________________________________
+void AliTRDresolution::DrawSigma(TH2 *h2, const Char_t *title, Float_t m, Float_t M, Float_t scale)
+{
+  // Draw error bars scaled with "scale" instead of content values
+  //use range [m,M] if limits are specified
+
+  if(!h2) return;
+  TAxis *ax(h2->GetXaxis()), *ay(h2->GetYaxis());
+  TH2F *h2e = new TH2F(Form("%s_E", h2->GetName()),
+                Form("%s;%s;%s;%s", h2->GetTitle(), ax->GetTitle(), ay->GetTitle(), title),
+                ax->GetNbins(), ax->GetXmin(), ax->GetXmax(),
+                ay->GetNbins(), ay->GetXmin(), ay->GetXmax());
+  h2e->SetContour(9);
+  TAxis *az(h2e->GetZaxis());
+  if(M>m) az->SetRangeUser(m, M);
+  az->CenterTitle();
+  az->SetTitleOffset(1.5);
+  for(Int_t ix(1); ix<=h2->GetNbinsX(); ix++){
+    for(Int_t iy(1); iy<=h2->GetNbinsY(); iy++){
+      if(h2->GetBinContent(ix, iy)<-100.) continue;
+      Float_t v(scale*h2->GetBinError(ix, iy));
+      if(M>m && v<m) v=m+TMath::Abs((M-m)*1.e-3);
+      h2e->SetBinContent(ix, iy, v);
+    }
+  }
+  h2e->Draw("colz");
+}
+
 //________________________________________________________
 void AliTRDresolution::GetRange(TH2 *h2, Char_t mod, Float_t *range)
 {
-// Returns the range of the bulk of data in histogram h2. Removes outliers. 
+// Returns the range of the bulk of data in histogram h2. Removes outliers.
 // The "range" vector should be initialized with 2 elements
 // Option "mod" can be any of
-//   - 0 : gaussian like distribution 
-//   - 1 : tailed distribution 
+//   - 0 : gaussian like distribution
+//   - 1 : tailed distribution
 
   Int_t nx(h2->GetNbinsX())
       , ny(h2->GetNbinsY())
@@ -977,14 +1264,14 @@ void AliTRDresolution::GetRange(TH2 *h2, Char_t mod, Float_t *range)
   AliMathBase::EvaluateUni(n, data, mean, sigm, Int_t(n*.8));
 
   range[0]=mean-3.*sigm; range[1]=mean+3.*sigm;
-  if(mod==1) range[0]=TMath::Max(Float_t(1.e-3), range[0]); 
+  if(mod==1) range[0]=TMath::Max(Float_t(1.e-3), range[0]);
   AliDebug(2, Form("h[%s] range0[%f %f]", h2->GetName(), range[0], range[1]));
   TH1S h1("h1SF0", "", 100, range[0], range[1]);
   h1.FillN(n,data,0);
   delete [] data;
+
   switch(mod){
-  case 0:// gaussian distribution  
+  case 0:// gaussian distribution
   {
     TF1 fg("fg", "gaus", mean-3.*sigm, mean+3.*sigm);
     h1.Fit(&fg, "QN");
@@ -993,8 +1280,8 @@ void AliTRDresolution::GetRange(TH2 *h2, Char_t mod, Float_t *range)
     AliDebug(2, Form("     rangeG[%f %f]", range[0], range[1]));
     break;
   }
-  case 1:// tailed distribution  
-  {  
+  case 1:// tailed distribution
+  {
     Int_t bmax(h1.GetMaximumBin());
     Int_t jBinMin(1), jBinMax(100);
     for(Int_t ibin(bmax); ibin--;){
@@ -1016,214 +1303,1040 @@ void AliTRDresolution::GetRange(TH2 *h2, Char_t mod, Float_t *range)
   return;
 }
 
+//________________________________________________________
+Bool_t AliTRDresolution::MakeProjectionDetector()
+{
+// Analyse cluster
+  const Int_t kNcontours(9);
+  const Int_t kNstat(100);
+  if(fProj && fProj->At(kDetector)) return kTRUE;
+  if(!fContainer){
+    AliError("Missing data container.");
+    return kFALSE;
+  }
+  THnSparse *H(NULL);
+  if(!(H = (THnSparse*)fContainer->FindObject("hDet2Cluster"))){
+    AliInfo(Form("Missing/Wrong data @ hDet2Cluster."));
+    return kTRUE;
+  }
+  Int_t ndim(H->GetNdimensions());
+  Int_t coord[kNdim]; memset(coord, 0, sizeof(Int_t) * kNdim); Double_t v = 0.;
+  TAxis *aa[kNdim], *ac(NULL); memset(aa, 0, sizeof(TAxis*) * kNdim);
+  for(Int_t id(0); id<ndim; id++) aa[id] = H->GetAxis(id);
+  Int_t nCen(1);
+  if(ndim > 4){
+    ac = H->GetAxis(4);
+    nCen = AliTRDeventInfo::kCentralityClasses;
+  }
+  // build list of projections
+  const Int_t nsel(AliTRDgeometry::kNlayer*AliTRDeventInfo::kCentralityClasses);
+  // define rebinning strategy
+  const Int_t nEtaPhi(4); Int_t rebinEtaPhiX[nEtaPhi] = {1, 2, 2, 1}, rebinEtaPhiY[nEtaPhi] = {2, 1, 1, 5};
+  const Char_t *cenName[AliTRDeventInfo::kCentralityClasses] = {"0-10%", "10-20%", "20-50%", "50-80%", "80-100%"};
+  AliTRDresolutionProjection hp[kDetNproj];  TObjArray php(kDetNproj);
+  Int_t ih(0), isel(-1), np[nsel]; memset(np, 0, nsel*sizeof(Int_t));
+  for(Int_t icen(0); icen<nCen; icen++){
+    for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+      isel++; // new selection
+      hp[ih].Build(Form("HDetQ%d%d", ily, icen),
+                   Form("Detectors :: Q Ly[%d] Cen[%s]", ily, cenName[icen]),
+                   kEta, kPhi, kYrez, aa);
+      hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+      hp[ih].SetShowRange(10., 55.);
+      php.AddLast(&hp[ih++]); np[isel]++;
+    }
+  }
+  AliInfo(Form("Build %3d 3D projections.", ih));
+
+  Int_t ly(0), cen(0);
+  for (Long64_t ib(0); ib < H->GetNbins(); ib++) {
+    v = H->GetBinContent(ib, coord); if(v<1.) continue;
+    ly = coord[kBC]-1;
+
+    // centrality selection
+    cen = 0;
+    if(ac) cen = coord[4]-1;
+
+    isel = cen*AliTRDgeometry::kNlayer+ly; Int_t ioff=isel;
+//    AliDebug(4, Form("SELECTION[%d] :: ch[%c] pt[%c] sp[%d] ly[%d]\n", np[isel], ch==2?'Z':chName[ch], ptName[pt], sp, ly));
+    for(Int_t jh(0); jh<np[isel]; jh++) ((AliTRDresolutionProjection*)php.At(ioff+jh))->Increment(coord, v);
+  }
+  TObjArray *arr(NULL);
+  fProj->AddAt(arr = new TObjArray(kDetNproj), kDetector);
+
+  TH2 *h2(NULL);  Int_t jh(0);
+  for(; ih--; ){
+    if(!hp[ih].fH) continue;
+    if(!(h2 = hp[ih].Projection2D(kNstat, kNcontours, 0, kFALSE))) continue;
+    arr->AddAt(h2, jh++);
+    if(!(h2 = (TH2*)gDirectory->Get(Form("%s_yx", hp[ih].fH->GetName())))) continue;
+    arr->AddAt(h2, jh++);
+  }
+  AliTRDresolutionProjection *pr0(NULL), *pr1(NULL);
+  for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HDetQ%d%d", ily, 0)))){
+      for(Int_t icen(1); icen<nCen; icen++){
+        if((pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HDetQ%d%d", ily, icen)))){
+          (*pr0)+=(*pr1);
+        }
+      }
+      pr0->fH->SetNameTitle(Form("HDetQ%d", ily), Form("Detectors :: Q Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours))) arr->AddAt(h2, jh++);
+    }
+  }
+  AliInfo(Form("Done %3d 2D projections.", jh));
+  return kTRUE;
+}
 
 //________________________________________________________
-Bool_t AliTRDresolution::MakeProjectionCluster()
+Bool_t AliTRDresolution::MakeProjectionCluster(Bool_t mc)
 {
 // Analyse cluster
-  Int_t cidx = kCluster;
+  const Int_t kNcontours(9);
+  const Int_t kNstat(100);
+  Int_t cidx=mc?kMCcluster:kCluster;
   if(fProj && fProj->At(cidx)) return kTRUE;
   if(!fContainer){
     AliError("Missing data container.");
     return kFALSE;
   }
+  const Char_t *projName[] = {"hCluster2Track", "hCluster2MC"};
   THnSparse *H(NULL);
-  if(!(H = (THnSparse*)fContainer->At(cidx))){
-    AliError(Form("Missing/Wrong data @ %d.", cidx));
+  if(!(H = (THnSparse*)fContainer->FindObject(projName[Int_t(mc)]))){
+    AliError(Form("Missing/Wrong data @ %s.", projName[Int_t(mc)]));
     return kFALSE;
   }
-
-  TAxis *aphi(H->GetAxis(kPhi)),
-        *aeta(H->GetAxis(kEta)),
-        *as(H->GetAxis(kSpeciesChgRC)),
-        //*apt(H->GetAxis(kPt)),
-        *ay(H->GetAxis(kYrez));
-        //*az(H->GetAxis(kZrez)),
-        //*ap(H->GetAxis(kPrez));
-  Int_t neta(aeta->GetNbins()), nphi(aphi->GetNbins()), rcBin(as->GetNbins()/2 + 1);
-  TH3I *h3[fgNproj[cidx]];
+  Int_t ndim(H->GetNdimensions()); Bool_t debug(ndim>Int_t(kNdimCl));
+  Int_t coord[kNdim]; memset(coord, 0, sizeof(Int_t) * kNdim); Double_t v = 0.;
+  TAxis *aa[kNdim], *as(NULL), *apt(NULL); memset(aa, 0, sizeof(TAxis*) * kNdim);
+  for(Int_t id(0); id<ndim; id++) aa[id] = H->GetAxis(id);
+  if(ndim > Int_t(kPt)) apt = H->GetAxis(kPt);
+  if(ndim > Int_t(kSpeciesChgRC)) as  = H->GetAxis(kSpeciesChgRC);
+  // build list of projections
+  const Int_t nsel(12);
+  // define rebinning strategy
+  const Int_t nEtaPhi(4); Int_t rebinEtaPhiX[nEtaPhi] = {1, 2, 5, 1}, rebinEtaPhiY[nEtaPhi] = {2, 1, 1, 5};
+  AliTRDresolutionProjection hp[kClNproj];  TObjArray php(kClNproj);
+  const Char_t chName[kNcharge] = {'n', 'p'};const Char_t chSgn[kNcharge] = {'-', '+'};
+  Int_t ih(0), isel(-1), np[nsel]; memset(np, 0, nsel*sizeof(Int_t));
   for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
-    h3[ily] = new TH3I(Form("h3CL%d", ily), Form("r-#phi residuals @ ly[%d];%s;%s;%s", ily, aeta->GetTitle(), aphi->GetTitle(), ay->GetTitle()),
-           neta, aeta->GetXmin(), aeta->GetXmax(),
-           nphi, aphi->GetXmin(), aphi->GetXmax(),
-           ay->GetNbins(), ay->GetXmin(), ay->GetXmax());
+    for(Int_t ich(0); ich<kNcharge; ich++){
+      isel++; // new selection
+      hp[ih].Build(Form("H%sClY%c%d", mc?"MC":"", chName[ich], ily),
+                   Form("Clusters[%c] :: #Deltay Ly[%d]", chSgn[ich], ily),
+                   kEta, kPhi, kYrez, aa);
+      hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+      php.AddLast(&hp[ih++]); np[isel]++;
+      if(!debug) break;
+      hp[ih].Build(Form("H%sClQ%c%d", mc?"MC":"", chName[ich], ily),
+                   Form("Clusters[%c] :: Q Ly[%d]", chSgn[ich], ily),
+                   kEta, kPhi, kSpeciesChgRC, aa);
+      hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+      hp[ih].SetShowRange(20., 40.);
+      php.AddLast(&hp[ih++]); np[isel]++;
+      hp[ih].Build(Form("H%sClYXTC%c%d", mc?"MC":"", chName[ich], ily),
+                   Form("Clusters[%c] :: #Deltay(x,TC) Ly[%d]", chSgn[ich], ily),
+                   kPrez, kZrez, kYrez, aa);
+      php.AddLast(&hp[ih++]); np[isel]++;
+      hp[ih].Build(Form("H%sClYXPh%c%d", mc?"MC":"", chName[ich], ily),
+                    Form("Clusters[%c] :: #Deltay(x,#Phi) Ly[%d]", chSgn[ich], ily),
+                    kPrez, kPt, kYrez, aa);
+      php.AddLast(&hp[ih++]); np[isel]++;
+    }
   }
-  Int_t  coord[AliTRDresolution::kNdim]; memset(coord, 0, sizeof(Int_t) * AliTRDresolution::kNdim); Double_t v = 0.;
+  AliInfo(Form("Build %3d 3D projections.", ih));
+
+  Int_t ly(0), ch(0), rcBin(as?as->FindBin(0.):-1), chBin(apt?apt->FindBin(0.):-1), ioff(0);
   for (Long64_t ib(0); ib < H->GetNbins(); ib++) {
-    v = H->GetBinContent(ib, coord);
-    if(v<1.) continue;
-    if(coord[kSpeciesChgRC]==rcBin) continue; // row cross
-    Int_t ily(coord[kBC]-1);
-    h3[ily]->AddBinContent(h3[ily]->GetBin(coord[kEta], coord[kPhi], coord[kYrez]), v);
-  }
+    v = H->GetBinContent(ib, coord); if(v<1.) continue;
+    ly = coord[kBC]-1;
+    // RC selection
+    if(rcBin>0 && coord[kSpeciesChgRC] == rcBin) continue;
 
-  TF1 fg("fg", "gaus", ay->GetXmin(), ay->GetXmax());
-  if(!fProj){
-    AliInfo("Building array of projections ...");
-    fProj = new TObjArray(kNclasses); fProj->SetOwner(kTRUE);
+    // charge selection
+    ch = 0; // [-] track
+    if(chBin>0 && coord[kPt] > chBin) ch = 1;  // [+] track
+
+    if(debug){
+      isel = ly*2+ch; ioff=isel*4;
+    } else {
+      isel = ly; ioff = isel;
+    }
+//    AliDebug(4, Form("SELECTION[%d] :: ch[%c] pt[%c] sp[%d] ly[%d]\n", np[isel], ch==2?'Z':chName[ch], ptName[pt], sp, ly));
+    for(Int_t jh(0); jh<np[isel]; jh++) ((AliTRDresolutionProjection*)php.At(ioff+jh))->Increment(coord, v);
   }
   TObjArray *arr(NULL);
-  fProj->AddAt(arr = new TObjArray(fgNproj[cidx]), cidx);
-
-  TH2F *h2(NULL);
+  fProj->AddAt(arr = new TObjArray(kClNproj), cidx);
+
+  TH2 *h2(NULL);  Int_t jh(0);
+  for(; ih--; ){
+    if(!hp[ih].fH) continue;
+    //if(hp[ih].fH->GetEntries()<100) continue;
+    Int_t mid(1), nstat(kNstat);
+    if(strchr(hp[ih].fH->GetName(), 'Q')){ mid=2; nstat=300;}
+    if(!(h2 = hp[ih].Projection2D(nstat, kNcontours, mid))) continue;
+    arr->AddAt(h2, jh++);
+  }
+  AliTRDresolutionProjection *pr0(NULL), *pr1(NULL);
   for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
-    arr->AddAt(h2 = new TH2F(Form("h2CLs%d", ily),
-            Form("Cl Resolution Ly[%d];%s;%s;#sigmay [#mum]", ily, aeta->GetTitle(), aphi->GetTitle()),
-            neta, aeta->GetXmin(), aeta->GetXmax(),
-            nphi, aphi->GetXmin(), aphi->GetXmax()), ily);
-    TAxis *ax = h2->GetZaxis();
-    ax->CenterTitle(); ax->SetTitleOffset(1.3);
-    ax->SetRangeUser(250, 500);
-    for(Int_t iphi(1); iphi<=nphi; iphi++){
-      for(Int_t ieta(1); ieta<=neta; ieta++){
-        TH1 *h = h3[ily]->ProjectionZ(Form("h1CLs%d", ily), ieta, ieta, iphi, iphi);
-        Int_t ne(Int_t(h->GetEntries()));
-        if(ne<100.) h2->SetBinContent(ieta, iphi, -999);
-        else {
-          fg.SetParameter(0, ne);fg.SetParameter(1, 0.);fg.SetParameter(2, 0.05);
-          h->Fit(&fg, "QW0");
-          Float_t val=TMath::Max(250., 1.e4*fg.GetParameter(2));
-          h2->SetBinContent(ieta, iphi, val);
-        }
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sClY%c%d", mc?"MC":"", chName[0], ily)))){
+      if((pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sClY%c%d", mc?"MC":"", chName[1], ily)))){
+        (*pr0)+=(*pr1);
+        pr0->fH->SetNameTitle(Form("H%sClY%d", mc?"MC":"", ily), Form("Clusters :: #Deltay Ly[%d]", ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      }
+    }
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sClYXPh%c%d", mc?"MC":"", chName[0], ily)))){
+      if((pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sClYXPh%c%d", mc?"MC":"", chName[1], ily)))){
+        (*pr0)+=(*pr1);
+        pr0->fH->SetNameTitle(Form("H%sClYXPh%d", mc?"MC":"", ily), Form("Clusters :: #Deltay(x,#Phi) Ly[%d]", ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
       }
     }
   }
-  for(Int_t iproj(0); iproj<fgNproj[cidx]; iproj++) delete h3[iproj];
+  AliInfo(Form("Done %3d 2D projections.", jh));
   return kTRUE;
 }
 
 //________________________________________________________
-Bool_t AliTRDresolution::MakeProjectionTracklet()
+Bool_t AliTRDresolution::MakeProjectionTracklet(Bool_t mc)
 {
 // Analyse tracklet
-  Int_t cidx = kTracklet;
+  const Int_t kNcontours(9);
+  const Int_t kNstat(30);
+  const Int_t kNstatQ(30);
+  Int_t cidx=mc?kMCtracklet:kTracklet;
   if(fProj && fProj->At(cidx)) return kTRUE;
   if(!fContainer){
     AliError("Missing data container.");
     return kFALSE;
   }
+  const Char_t *projName[] = {"hTracklet2Track", "hTracklet2MC"};
   THnSparse *H(NULL);
-  if(!(H = (THnSparse*)fContainer->At(cidx))){
-//    AliError(Form("Missing/Wrong data @ %d.", cidx));
+  if(!(H = (THnSparse*)fContainer->FindObject(projName[Int_t(mc)]))){
+    AliError(Form("Missing/Wrong data @ %s.", projName[Int_t(mc)]));
     return kFALSE;
   }
-  AliDebug(2, Form("%s[%d]", H->GetName(), H->GetNdimensions()));
+  const Int_t mdim(kNdim+8);
+  Int_t ndim(H->GetNdimensions()); Bool_t debug(ndim>Int_t(kNdimTrklt));
+  Int_t coord[mdim]; memset(coord, 0, sizeof(Int_t) * mdim); Double_t v = 0.;
+  TAxis *aa[mdim], *as(NULL), *ap(NULL), *ac(NULL); memset(aa, 0, sizeof(TAxis*) * mdim);
+  for(Int_t id(0); id<ndim; id++) aa[id] = H->GetAxis(id);
+  if(ndim > Int_t(kSpeciesChgRC)) as = H->GetAxis(kSpeciesChgRC); // init species/charge selection
+  if(ndim > Int_t(kPt))           ap = H->GetAxis(kPt);           // init pt selection
+  if(ndim > Int_t(kNdim)+1)       ac = H->GetAxis(kNdim+1);       // init centrality selection
+  // calculate size depending on debug level
+  const Int_t nCen(debug?Int_t(AliTRDeventInfo::kCentralityClasses):1);
+  const Int_t nPt(debug?Int_t(kNpt):1);
+  const Int_t nSpc(1);//ndim>kNdimTrklt?fgkNbins[kSpeciesChgRC]:1);
+  const Int_t nCh(debug?Int_t(kNcharge):1);
+
+  // build list of projections
+  const Int_t nsel(AliTRDeventInfo::kCentralityClasses*AliTRDgeometry::kNlayer*kNpt*(AliPID::kSPECIES*kNcharge + 1));
+  // define rebinning strategy
+  const Int_t nEtaPhi(4); Int_t rebinEtaPhiX[nEtaPhi] = {1, 2, 5, 1}, rebinEtaPhiY[nEtaPhi] = {2, 1, 1, 5};
+  AliTRDresolutionProjection hp[kTrkltNproj]; TObjArray php(kTrkltNproj);
+  Int_t ih(0), isel(-1), np[nsel]; memset(np, 0, nsel*sizeof(Int_t));
+  const Char_t chName[kNcharge] = {'n', 'p'};const Char_t chSgn[kNcharge] = {'-', '+'};
+  const Char_t ptName[kNpt] = {'l', 'i', 'h'};
+  const Char_t *ptCut[kNpt] = {"p_{t}[GeV/c]<0.8", "0.8<=p_{t}[GeV/c]<1.5", "p_{t}[GeV/c]>=1.5"};
+  const Char_t *cenName[AliTRDeventInfo::kCentralityClasses] = {"0-10%", "10-20%", "20-50%", "50-80%", "80-100%"};
+  for(Int_t icen(0); icen<nCen; icen++){
+    for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+      for(Int_t ipt(0); ipt<nPt; ipt++){
+        for(Int_t isp(0); isp<nSpc; isp++){
+          for(Int_t ich(0); ich<nCh; ich++){
+            isel++; // new selection
+            hp[ih].Build(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen),
+                        Form("Tracklets[%s%c]:: #Deltay{%s} Ly[%d] Cen[%s]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily, cenName[icen]),
+                        kEta, kPhi, kYrez, aa);
+            //hp[ih].SetShowRange(-0.1,0.1);
+            hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+            php.AddLast(&hp[ih++]); np[isel]++;
+            hp[ih].Build(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen),
+                        Form("Tracklets[%s%c]:: #Delta#phi{%s} Ly[%d] Cen[%s]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily, cenName[icen]),
+                        kEta, kPhi, kPrez, aa);
+            //hp[ih].SetShowRange(-0.5,0.5);
+            hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+            php.AddLast(&hp[ih++]); np[isel]++;
+            hp[ih].Build(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen),
+                        Form("Tracklets[%s%c]:: dQdl{%s} Ly[%d] Cen[%s]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily, cenName[icen]),
+                        kEta, kPhi, kNdim, aa);
+            hp[ih].SetShowRange(1.,2.3);
+            hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+            php.AddLast(&hp[ih++]); np[isel]++;
+            hp[ih].Build(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen),
+                        Form("Tracklets[%s%c]:: OccupancyTB{%s} Ly[%d] Cen[%s]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily, cenName[icen]),
+                        kEta, kPhi, kNdim+2, aa);
+            hp[ih].SetShowRange(30., 70.);
+            hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+            php.AddLast(&hp[ih++]); np[isel]++;
+          }
+        }
+        if(ndim==kNdimTrklt) continue;
+
+        isel++; // new selection
+        hp[ih].Build(Form("H%sTrkltRCZ%c%d%d", mc?"MC":"", ptName[ipt], ily, icen),
+                    Form("Tracklets[RC]:: #Deltaz{%s} Ly[%d] Cen[%s]", ptCut[ipt], ily, cenName[icen]),
+                    kEta, kPhi, kZrez, aa);
+  //      hp[ih].SetShowRange(-0.1,0.1);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        hp[ih].Build(Form("H%sTrkltRCY%c%d%d", mc?"MC":"", ptName[ipt], ily, icen),
+                    Form("Tracklets[RC]:: #Deltay{%s} Ly[%d] Cen[%s]", ptCut[ipt], ily, cenName[icen]),
+                    kEta, kPhi, kYrez, aa);
+        //hp[ih].SetShowRange(-0.1,0.1);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        hp[ih].Build(Form("H%sTrkltRCPh%c%d%d", mc?"MC":"", ptName[ipt], ily, icen),
+                    Form("Tracklets[RC]:: #Delta#phi{%s} Ly[%d] Cen[%s]", ptCut[ipt], ily, cenName[icen]),
+                    kEta, kPhi, kPrez, aa);
+        //hp[ih].SetShowRange(-0.1,0.1);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        hp[ih].Build(Form("H%sTrkltRCQ%c%d%d", mc?"MC":"", ptName[ipt], ily, icen),
+                    Form("Tracklets[RC]:: dQdl{%s} Ly[%d] Cen[%s]", ptCut[ipt], ily, cenName[icen]),
+                    kEta, kPhi, kNdim, aa);
+        //hp[ih].SetShowRange(-0.1,0.1);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+      }
+    }
+  }
+  AliInfo(Form("Build %3d 3D projections.", ih));
+
+  Int_t ly(0), ch(0), sp(2), rcBin(as?as->FindBin(0.):-1), pt(0), cen(0), ioff(0), ispc(0);
+  for (Long64_t ib(0); ib < H->GetNbins(); ib++) {
+    v = H->GetBinContent(ib, coord);
+    if(v<1.) continue;
+    ly = coord[kBC]-1; // layer selection
+    // charge selection
+    ch = 0; sp=0;// [e-] track [dafault]
+    if(rcBin>0){ // debug mode in which species are also saved
+      sp = Int_t(TMath::Abs(as->GetBinCenter(coord[kSpeciesChgRC])))-1;
+      if(coord[kSpeciesChgRC] > rcBin) ch = 1;  // [+] track
+      else if(coord[kSpeciesChgRC] == rcBin) ch = 2;  // [RC] track
+    }
+    // pt selection
+    pt = 0; // low pt
+    if(ap) pt = TMath::Min(coord[kPt]-1, Int_t(kNpt)-1);
+    // centrality selection
+    cen = 0; // default
+    if(ac) cen = coord[kNdim+1]-1;
+    // global selection
+    if(ndim==kNdimTrklt){
+      ioff = ly*4;
+      isel = ly;
+    } else {
+      ispc = nSpc*nCh+1;
+      isel = cen*AliTRDgeometry::kNlayer*kNpt*ispc+ly*kNpt*ispc+pt*ispc; isel+=sp<0?(nSpc*nCh):(sp*nCh+ch);
+      ioff = 4*isel;
+    }
+    AliDebug(4, Form("SELECTION[%d] :: ch[%c] pt[%c] sp[%d] ly[%d] cen[%d]", np[isel], ch==2?'Z':chName[ch], ptName[pt], sp, ly, cen));
+    for(Int_t jh(0); jh<np[isel]; jh++) ((AliTRDresolutionProjection*)php.At(ioff+jh))->Increment(coord, v);
+  }
+  TObjArray *arr(NULL);
+  fProj->AddAt(arr = new TObjArray(kTrkltNproj), cidx);
+
+  TH2 *h2(NULL); Int_t jh(0);
+  for(; ih--; ){
+    if(!hp[ih].fH) continue;
+    Int_t mid(0), nstat(kNstat);
+    if(strchr(hp[ih].fH->GetName(), 'Q')){ mid=2; nstat=kNstatQ;}
+    if(!(h2 = hp[ih].Projection2D(nstat, kNcontours, mid))) continue;
+    arr->AddAt(h2, jh++);
+  }
+  // build combined performance plots
+  AliTRDresolutionProjection *pr0(NULL), *pr1(NULL);
+  for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+    for(Int_t ich(0); ich<nCh; ich++){
+      for(Int_t icen(0); icen<nCen; icen++){
+        for(Int_t ipt(0); ipt<nPt; ipt++){
+          /*!dy*/
+          if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], 0, ily, icen)))){
+            for(Int_t isp(1); isp<nSpc; isp++){
+              if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen)))) continue;
+              (*pr0)+=(*pr1);
+            }
+            pr0->fH->SetNameTitle(Form("H%sTrkltY%c%c%d%d", mc?"MC":"", chName[ich], ptName[ipt], ily, icen),
+                                      Form("Tracklets[%c]:: #Deltay{%s} Ly[%d] Cen[%s]", chSgn[ich], ptCut[ipt], ily, cenName[icen]));
+            if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+            if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))) (*pr1)+=(*pr0);
+          }
+          /*!dphi*/
+          if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], 0, ily, icen)))){
+            for(Int_t isp(1); isp<nSpc; isp++){
+              if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen)))) continue;
+              (*pr0)+=(*pr1);
+            }
+            pr0->fH->SetNameTitle(Form("H%sTrkltPh%c%c%d%d", mc?"MC":"", chName[ich], ptName[ipt], ily, icen),
+                                      Form("Tracklets[%c]:: #Delta#phi{%s} Ly[%d] Cen[%s]", chSgn[ich], ptCut[ipt], ily, cenName[icen]));
+            if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+            if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))) (*pr1)+=(*pr0);
+          }
+          /*!dQ/dl*/
+          if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], 0, ily, icen)))){
+            for(Int_t isp(1); isp<nSpc; isp++){
+              if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen)))) continue;
+              (*pr0)+=(*pr1);
+            }
+            pr0->fH->SetNameTitle(Form("H%sTrkltQ%c%c%d%d", mc?"MC":"", chName[ich], ptName[ipt], ily, icen),
+                                      Form("Tracklets[%c]:: dQdl{%s} Ly[%d] Cen[%s]", chSgn[ich], ptCut[ipt], ily, cenName[icen]));
+            if((h2 = pr0->Projection2D(kNstatQ, kNcontours, 2))) arr->AddAt(h2, jh++);
+            pr0->fH->SetNameTitle(Form("H%sTrkltQS%c%c%d%d", mc?"MC":"", chName[ich], ptName[ipt], ily, icen),
+                                      Form("Tracklets[%c]:: dQdl{%s} Ly[%d] Cen[%s]", chSgn[ich], ptCut[ipt], ily, cenName[icen]));
+            pr0->SetShowRange(2.4, 5.1);
+            if((h2 = pr0->Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+            if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))) (*pr1)+=(*pr0);
+          }
+          /*!TB occupancy*/
+          if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], 0, ily, icen)))){
+            for(Int_t isp(1); isp<nSpc; isp++){
+              if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[ipt], isp, ily, icen)))) continue;
+              (*pr0)+=(*pr1);
+            }
+            pr0->fH->SetNameTitle(Form("H%sTrkltTB%c%c%d%d", mc?"MC":"", chName[ich], ptName[ipt], ily, icen),
+                                      Form("Tracklets[%c]:: OccupancyTB{%s} Ly[%d] Cen[%s]", chSgn[ich], ptCut[ipt], ily, cenName[icen]));
+            if((h2 = pr0->Projection2D(kNstat, kNcontours))) arr->AddAt(h2, jh++);
+            if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))) (*pr1)+=(*pr0);
+          }
+        } // end pt integration
+        /*!dy*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))){
+          pr0->fH->SetNameTitle(Form("H%sTrkltY%c%d%d", mc?"MC":"", chName[ich], ily, icen),
+                                Form("Tracklets[%c]:: #Deltay Ly[%d] Cen[%s]", chSgn[ich], ily, cenName[icen]));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+          if(icen && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+        }
+        /*!dphi*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))){
+          pr0->fH->SetNameTitle(Form("H%sTrkltPh%c%d%d", mc?"MC":"", chName[ich], ily, icen),
+                                Form("Tracklets[%c]:: #Delta#phi Ly[%d] Cen[%s]", chSgn[ich], ily, cenName[icen]));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+          if(icen && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+        }
+        /*!dQ/dl*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))){
+          pr0->fH->SetNameTitle(Form("H%sTrkltQ%c%d%d", mc?"MC":"", chName[ich], ily, icen),
+                                Form("Tracklets[%c]:: dQdl Ly[%d] Cen[%s]", chSgn[ich], ily, cenName[icen]));
+          pr0->SetShowRange(1.,2.3);
+          if((h2 = pr0->Projection2D(kNstatQ, kNcontours, 2))) arr->AddAt(h2, jh++);
+          pr0->fH->SetNameTitle(Form("H%sTrkltQS%c%d%d", mc?"MC":"", chName[ich], ily, icen),
+                                Form("Tracklets[%c]:: dQdl Ly[%d] Cen[%s]", chSgn[ich], ily, cenName[icen]));
+          pr0->SetShowRange(2.4,5.1);
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+          if(icen && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+        }
+        /*!TB occupancy*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, icen)))){
+          pr0->fH->SetNameTitle(Form("H%sTrkltTB%c%d%d", mc?"MC":"", chName[ich], ily, icen),
+                                Form("Tracklets[%c]:: OccupancyTB Ly[%d] Cen[%s]", chSgn[ich], ily, cenName[icen]));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours))) arr->AddAt(h2, jh++);
+          if(icen && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+        }
+      } // end centrality integration
+      /*!dy*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))){
+        pr0->fH->SetNameTitle(Form("H%sTrkltY%c%d", mc?"MC":"", chName[ich], ily), Form("Tracklets[%c] :: #Deltay Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+      }
+      /*!dphi*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))){
+        pr0->fH->SetNameTitle(Form("H%sTrkltPh%c%d", mc?"MC":"", chName[ich], ily), Form("Tracklets[%c] :: #Delta#phi Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+      }
+      /*!dQ/dl*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))){
+        pr0->fH->SetNameTitle(Form("H%sTrkltQ%c%d", mc?"MC":"", chName[ich], ily), Form("Tracklets[%c] :: dQdl Ly[%d]", chSgn[ich], ily));
+        pr0->SetShowRange(1.,2.3);
+        if((h2 = pr0->Projection2D(kNstatQ, kNcontours, 2))) arr->AddAt(h2, jh++);
+        pr0->fH->SetNameTitle(Form("H%sTrkltQS%c%d", mc?"MC":"", chName[ich], ily), Form("Tracklets[%c] :: dQdl Ly[%d]", chSgn[ich], ily));
+        pr0->SetShowRange(2.4,5.1);
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+      }
+      /*!TB occupancy*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[ich], ptName[0], 0, ily, 0)))){
+        pr0->fH->SetNameTitle(Form("H%sTrkltTB%c%d", mc?"MC":"", chName[ich], ily), Form("Tracklets[%c] :: OccupancyTB Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))) (*pr1)+=(*pr0);
+      }
+    } // end charge integration
+    /*!dy*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltY%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkltY%d", mc?"MC":"", ily), Form("Tracklets :: #Deltay Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+    /*!dphi*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltPh%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkltPh%d", mc?"MC":"", ily), Form("Tracklets :: #Delta#phi Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+    /*!dQdl*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltQ%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkltQ%d", mc?"MC":"", ily), Form("Tracklets :: dQdl Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      pr0->fH->SetNameTitle(Form("H%sTrkltQS%d", mc?"MC":"", ily), Form("Tracklets :: dQdl Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+    }
+    /*!TB occupancy*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltTB%c%c%d%d%d", mc?"MC":"", chName[0], ptName[0], 0, ily, 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkltTB%d", mc?"MC":"", ily), Form("Tracklets :: OccupancyTB Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours))) arr->AddAt(h2, jh++);
+    }
+
+    /*! Row Cross processing*/
+    for(Int_t icen(0); icen<nCen; icen++){
+      /*!RC dz*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltRCZ%c%d%d", mc?"MC":"", ptName[0], ily, icen)))){
+        for(Int_t ipt(0); ipt<kNpt; ipt++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltRCZ%c%d%d", mc?"MC":"", ptName[ipt], ily, icen)))) continue;
+          (*pr0)+=(*pr1);
+        }
+        pr0->fH->SetNameTitle(Form("H%sTrkltRCZ%d%d", mc?"MC":"", ily, icen), Form("Tracklets[RC]:: #Deltaz Ly[%d] Cen[%s]", ily, cenName[icen]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(icen && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltRCZ%c%d%d", mc?"MC":"", ptName[0], ily, 0)))) (*pr1)+=(*pr0);
+      }
+    } // end centrality integration for row cross
+    /*!RC dz*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkltRCZ%c%d%d", mc?"MC":"", ptName[0], ily, 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkltRCZ%d", mc?"MC":"", ily), Form("Tracklets[RC] :: #Deltaz Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+  } // end layer loop
+  AliInfo(Form("Done %3d 2D projections.", jh));
   return kTRUE;
 }
 
 //________________________________________________________
-Bool_t AliTRDresolution::MakeProjectionTrackIn()
+Bool_t AliTRDresolution::MakeProjectionTrackIn(Bool_t mc)
 {
 // Analyse track in
-
-  Int_t cidx = kTrackIn;
+  const Int_t kNcontours(9);
+  const Int_t kNstat(30);
+  Int_t cidx=mc?kMCtrackIn:kTrackIn;
   if(fProj && fProj->At(cidx)) return kTRUE;
   if(!fContainer){
     AliError("Missing data container.");
     return kFALSE;
   }
+  const Char_t *projName[] = {"hTracklet2TRDin", "hTRDin2MC"};
   THnSparse *H(NULL);
-  if(!(H = (THnSparse*)fContainer->At(cidx))){
-    AliError(Form("Missing/Wrong data @ %d.", Int_t(cidx)));
+  if(!(H = (THnSparse*)fContainer->FindObject(projName[Int_t(mc)]))){
+    AliError(Form("Missing/Wrong data @ %s.", projName[Int_t(mc)]));
     return kFALSE;
   }
 
-  Int_t  coord[kNdim]; memset(coord, 0, sizeof(Int_t) * kNdim); Double_t v = 0.;
-  TAxis //*abc(H->GetAxis(kBC)),
-        *aphi(H->GetAxis(kPhi)),
-        *aeta(H->GetAxis(kEta)),
-        //*as(H->GetAxis(kSpeciesChgRC)),
-        //*apt(H->GetAxis(kPt)),
-        *ay(H->GetAxis(kYrez)),
-        *az(H->GetAxis(kZrez)),
-        *ap(H->GetAxis(kPrez));
-  Int_t neta(aeta->GetNbins()), nphi(aphi->GetNbins());
-  TH3I *h3[fgNproj[cidx]];
-  h3[0] = new TH3I("h3TI0", Form("r-#phi residuals for neg tracks;%s;%s;%s", aeta->GetTitle(), aphi->GetTitle(), ay->GetTitle()),
-            neta, aeta->GetXmin(), aeta->GetXmax(),
-            nphi, aphi->GetXmin(), aphi->GetXmax(),
-            ay->GetNbins(), ay->GetXmin(), ay->GetXmax());
-  h3[1] = (TH3I*)h3[0]->Clone("h3TI1"); h3[1]->SetTitle("r-#phi residuals for pos tracks");
-  h3[2] = new TH3I("h3TI2", Form("z residuals for row cross;%s;%s;%s", aeta->GetTitle(), aphi->GetTitle(), az->GetTitle()),
-            neta, aeta->GetXmin(), aeta->GetXmax(),
-            nphi, aphi->GetXmin(), aphi->GetXmax(),
-            az->GetNbins(), az->GetXmin(), az->GetXmax());
-  h3[3] = new TH3I("h3TI3", Form("angular residuals for neg tracks;%s;%s;%s", aeta->GetTitle(), aphi->GetTitle(), ap->GetTitle()),
-            neta, aeta->GetXmin(), aeta->GetXmax(),
-            nphi, aphi->GetXmin(), aphi->GetXmax(),
-            ap->GetNbins(), ap->GetXmin(), ap->GetXmax());
-  h3[4] = (TH3I*)h3[3]->Clone("h3TI4"); h3[4]->SetTitle("angular residuals for pos tracks");
+  const Int_t mdim(kNdim+3);
+  Int_t coord[mdim]; memset(coord, 0, sizeof(Int_t) * mdim); Double_t v = 0.;
+  Int_t ndim(H->GetNdimensions());
+  TAxis *aa[mdim], *as(NULL), *ap(NULL), *ax(NULL), *abf(NULL); memset(aa, 0, sizeof(TAxis*) * (mdim));
+  for(Int_t id(0); id<ndim; id++) aa[id] = H->GetAxis(id);
+  if(ndim > Int_t(kSpeciesChgRC)) as = H->GetAxis(kSpeciesChgRC);
+  if(ndim > Int_t(kPt))           ap = H->GetAxis(kPt);
+  if(ndim > Int_t(kNdim)+1)       ax = H->GetAxis(kNdim+1);
+  if(ndim > Int_t(kNdim)+2)      abf = H->GetAxis(kNdim+2);
+  //AliInfo(Form("Using : Species[%c] Pt[%c] BunchFill[%c]", as?'y':'n', ap?'y':'n', abf?'y':'n'));
+  const Int_t nPt(ndim>Int_t(kNdimTrkIn)?Int_t(kNpt):1);
+
+  // build list of projections
+  const Int_t nsel(kNpt*(AliPID::kSPECIES*kNcharge + 1));
+  const Char_t chName[kNcharge] = {'n', 'p'};const Char_t chSgn[kNcharge] = {'-', '+'};
+  const Char_t ptName[kNpt] = {'l', 'i', 'h'};
+  const Char_t *ptCut[kNpt] = {"p_{t}[GeV/c]<0.8", "0.8<=p_{t}[GeV/c]<1.5", "p_{t}[GeV/c]>=1.5"};
+  // define rebinning strategy
+  const Int_t nEtaPhi(4); Int_t rebinEtaPhiX[nEtaPhi] = {1, 2, 5, 1}, rebinEtaPhiY[nEtaPhi] = {2, 1, 1, 5};
+  AliTRDresolutionProjection hp[kMCTrkInNproj]; TObjArray php(kMCTrkInNproj+2);
+  Int_t ih(0), isel(-1), np[nsel]; memset(np, 0, nsel*sizeof(Int_t));
+  // define list of projections
+  for(Int_t ipt(0); ipt<nPt; ipt++){
+    for(Int_t isp(0); isp<AliPID::kSPECIES; isp++){
+      for(Int_t ich(0); ich<kNcharge; ich++){
+        isel++; // new selection
+        hp[ih].Build(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp),
+                     Form("TrackIn[%s%c]:: #Deltay{%s}", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt]),
+                     kEta, kPhi, kYrez, aa);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        hp[ih].Build(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp),
+                     Form("TrackIn[%s%c]:: #Delta#phi{%s}", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt]),
+                     kEta, kPhi, kPrez, aa);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        hp[ih].Build(Form("H%sTrkInQ%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp),
+                     Form("TrackIn[%s%c]:: dQdl {%s}", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt]),
+                     kEta, kPhi, kZrez, aa);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+        if(!ax) continue;
+        hp[ih].Build(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp),
+                     Form("TrackIn[%s%c]:: #Deltax{%s}", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt]),
+                     kEta, kPhi, kNdim+1, aa);
+        hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+        php.AddLast(&hp[ih++]); np[isel]++;
+      }
+    }
+    isel++; // RC tracks
+    hp[ih].Build(Form("H%sTrkInRCZ%c", mc?"MC":"", ptName[ipt]),
+                  Form("TrackIn[RC]:: #Deltaz{%s}", ptCut[ipt]),
+                  kEta, kPhi, kZrez, aa);
+    hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+    php.AddLast(&hp[ih++]); np[isel]++;
+    hp[ih].Build(Form("H%sTrkInRCY%c", mc?"MC":"", ptName[ipt]),
+                  Form("TrackIn[RC]:: #Deltay{%s}", ptCut[ipt]),
+                  kEta, kPhi, kYrez, aa);
+    hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+    php.AddLast(&hp[ih++]); np[isel]++;
+    hp[ih].Build(Form("H%sTrkInRCPh%c", mc?"MC":"", ptName[ipt]),
+                  Form("TrackIn[RC]:: #Delta#phi{%s}", ptCut[ipt]),
+                  kEta, kPhi, kPrez, aa);
+    hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+    php.AddLast(&hp[ih++]); np[isel]++;
+    if(!ax) continue;
+    hp[ih].Build(Form("H%sTrkInRCX%c", mc?"MC":"", ptName[ipt]),
+                  Form("TrackIn[RC]:: #Deltax{%s}", ptCut[ipt]),
+                  kEta, kPhi, kNdim+1, aa);
+    hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+    php.AddLast(&hp[ih++]); np[isel]++;
+  }
+  AliInfo(Form("Build %3d 3D projections.", ih));
+
+  // fill projections
+  Int_t ch(0), pt(0), sp(1), rcBin(as?as->FindBin(0.):-1), ioff(0);
   for (Long64_t ib(0); ib < H->GetNbins(); ib++) {
     v = H->GetBinContent(ib, coord);
     if(v<1.) continue;
-    if(coord[kBC]>1) continue; // bunch cross cut
-    // species selection
-    if(coord[kSpeciesChgRC]<6){
-      h3[0]->AddBinContent(
-        h3[0]->GetBin(coord[kEta], coord[kPhi], coord[kYrez]), v);
-      h3[3]->AddBinContent(
-        h3[3]->GetBin(coord[kEta], coord[kPhi], coord[kPrez]), v);
-    } else if(coord[kSpeciesChgRC]==6) {
-      h3[2]->AddBinContent(
-        h3[2]->GetBin(coord[kEta], coord[kPhi], coord[kYrez]), v);
-    } else if(coord[kSpeciesChgRC]>6) {
-      h3[1]->AddBinContent(
-        h3[1]->GetBin(coord[kEta], coord[kPhi], coord[kYrez]), v);
-      h3[4]->AddBinContent(
-        h3[4]->GetBin(coord[kEta], coord[kPhi], coord[kPrez]), v);
+    if(fBCbinTOF>0 && coord[kBC]!=fBCbinTOF) continue; // TOF bunch cross cut
+    if(fBCbinFill>0 && abf && coord[kNdim+2]!=fBCbinTOF) continue; // Fill bunch cut
+    // charge selection
+    ch = 0; sp=1;// [-] track
+    if(rcBin>0){ // debug mode in which species are also saved
+      sp = Int_t(TMath::Abs(as->GetBinCenter(coord[kSpeciesChgRC])))-1;
+      if(coord[kSpeciesChgRC] > rcBin) ch = 1;  // [+] track
+      else if(coord[kSpeciesChgRC] == rcBin) ch = 2;  // [RC] track
     }
-  }
-  if(!fProj){
-    AliInfo("Building array of projections ...");
-    fProj = new TObjArray(kNclasses); fProj->SetOwner(kTRUE);
+    // pt selection
+    pt = 0; // low pt
+    if(ap) pt = TMath::Min(coord[kPt]-1, Int_t(kNpt)-1);
+    // global selection
+    isel = pt*11; isel+=sp<0?10:(sp*kNcharge+ch);
+    ioff = isel*(ax?4:3);
+    AliDebug(4, Form("SELECTION[%d] :: ch[%c] pt[%c] sp[%d]\n", np[isel], ch==2?'Z':chName[ch], ptName[pt], sp));
+    for(Int_t jh(0); jh<np[isel]; jh++) ((AliTRDresolutionProjection*)php.At(ioff+jh))->Increment(coord, v);
   }
   TObjArray *arr(NULL);
-  fProj->AddAt(arr = new TObjArray(fgNproj[cidx]), cidx);
-
-  TH2F *h2(NULL);
-  for(Int_t iproj(0); iproj<fgNproj[cidx]; iproj++){
-    TAxis *ax(h3[iproj]->GetZaxis());
-    Float_t zm(ax->GetXmin()/3.), zM(ax->GetXmax()/3.), dz=(zM-zm)/50;
-    arr->AddAt(h2 = new TH2F(Form("h2TI%d", iproj),
-            Form("%s;%s;%s;%s", h3[iproj]->GetTitle(), aeta->GetTitle(), aphi->GetTitle(), ax->GetTitle()),
-            neta, aeta->GetXmin(), aeta->GetXmax(),
-            nphi, aphi->GetXmin(), aphi->GetXmax()), iproj);
-    h2->SetContour(50);
-    h2->GetZaxis()->CenterTitle();
-    h2->GetZaxis()->SetRangeUser(zm, zM);
-    zm+=dz; zM-=dz;
-    for(Int_t iphi(1); iphi<=nphi; iphi++){
-      for(Int_t ieta(1); ieta<=neta; ieta++){
-        TH1 *h = h3[iproj]->ProjectionZ(Form("hy%d", iproj), ieta, ieta, iphi, iphi);
-        h2->SetBinContent(ieta, iphi, GetMeanWithBoundary(h, zm, zM, dz));
+  fProj->AddAt(arr = new TObjArray(mc?kMCTrkInNproj:kTrkInNproj), cidx);
+
+  TH2 *h2(NULL); Int_t jh(0);
+  for(; ih--; ){
+    if(!hp[ih].fH) continue;
+    if(!(h2 = hp[ih].Projection2D(kNstat, kNcontours))) continue;
+    arr->AddAt(h2, jh++);
+  }
+  // build combined performance plots
+  // combine up the tree of projections
+  AliTRDresolutionProjection *pr0(NULL), *pr1(NULL);
+  AliTRDresolutionProjection xlow[2], specY[kNcharge*AliPID::kSPECIES], specPh[kNcharge*AliPID::kSPECIES], specQ[kNcharge*AliPID::kSPECIES];
+  for(Int_t ich(0); ich<kNcharge; ich++){
+    // PID dependency - summation over pt
+    for(Int_t isp(0); isp<AliPID::kSPECIES; isp++){
+      /*!dy*/
+      Int_t idx(ich*AliPID::kSPECIES+isp);
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[0], isp)))){
+        specY[idx] = (*pr0);
+        specY[idx].SetNameTitle(Form("H%sTrkInY%c%d", mc?"MC":"", chName[ich], isp), "Sum over pt");
+        specY[idx].fH->SetNameTitle(Form("H%sTrkInY%c%d", mc?"MC":"", chName[ich], isp),
+                              Form("TrackIn[%s%c]:: #Deltay", AliPID::ParticleLatexName(isp), chSgn[ich]));
+        for(Int_t ipt(1); ipt<nPt; ipt++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          specY[idx]+=(*pr1);
+        }
+        php.AddLast(&specY[idx]);
+        if((h2 = specY[idx].Projection2D(kNstat, kNcontours, 1, kFALSE))) arr->AddAt(h2, jh++);
+        if((h2 = (TH2*)gDirectory->Get(Form("%s_yx", specY[idx].fH->GetName())))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%d", mc?"MC":"", chName[0], isp)))) (*pr1)+=specY[idx];
+      }
+      /*!dphi*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[0], isp)))){
+        specPh[idx] = (*pr0);
+        specPh[idx].SetNameTitle(Form("H%sTrkInPh%c%d", mc?"MC":"", chName[ich], isp), "Sum over pt");
+        specPh[idx].fH->SetNameTitle(Form("H%sTrkInPh%c%d", mc?"MC":"", chName[ich], isp),
+                              Form("TrackIn[%s%c]:: #Delta#phi", AliPID::ParticleLatexName(isp), chSgn[ich]));
+        specPh[idx].SetShowRange(-1.5, 1.5);
+        for(Int_t ipt(1); ipt<nPt; ipt++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          specPh[idx]+=(*pr1);
+        }
+        php.AddLast(&specPh[idx]);
+        if((h2 = specPh[idx].Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%d", mc?"MC":"", chName[0], isp)))) (*pr1)+=specPh[idx];
+      }
+      /*!dQdl*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInQ%c%c%d", mc?"MC":"", chName[ich], ptName[0], isp)))){
+        specQ[idx] = (*pr0);
+        specQ[idx].SetNameTitle(Form("H%sTrkInQ%c%d", mc?"MC":"", chName[ich], isp), "Sum over pt");
+        specQ[idx].fH->SetNameTitle(Form("H%sTrkInQ%c%d", mc?"MC":"", chName[ich], isp),
+                              Form("TrackIn[%s%c]:: dQdl", AliPID::ParticleLatexName(isp), chSgn[ich]));
+        specQ[idx].SetShowRange(-2.2, -1.75);
+        specQ[idx].fH->GetZaxis()->SetTitle("dQdl [a.u.]");
+        for(Int_t ipt(1); ipt<nPt; ipt++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInQ%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          specQ[idx]+=(*pr1);
+        }
+        php.AddLast(&specQ[idx]);
+        if((h2 = specQ[idx].Projection2D(kNstat, kNcontours, 2))) arr->AddAt(h2, jh++);
+        specQ[idx].fH->SetName(Form("H%sTrkInQS%c%d", mc?"MC":"", chName[ich], isp));
+        specQ[idx].SetShowRange(-1.75, -1.25);
+        if((h2 = specQ[idx].Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+        if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInQ%c%d", mc?"MC":"", chName[0], isp)))) (*pr1)+=specQ[idx];
+      }
+    }
+    // pt dependency - summation over PID
+    for(Int_t ipt(0); ipt<nPt; ipt++){
+      /*!dy*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], 0)))){
+        for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          (*pr0)+=(*pr1);
+        }
+        pr0->fH->SetNameTitle(Form("H%sTrkInY%c%c", mc?"MC":"", chName[ich], ptName[ipt]),
+                                  Form("TrackIn[%c]:: #Deltay{%s}", chSgn[ich], ptCut[ipt]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))) (*pr1)+=(*pr0);
+      }
+      /*!dphi*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], 0)))){
+        for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          (*pr0)+=(*pr1);
+        }
+        pr0->fH->SetNameTitle(Form("H%sTrkInPh%c%c", mc?"MC":"", chName[ich], ptName[ipt]),
+                                  Form("TrackIn[%c]:: #Delta#phi{%s}", chSgn[ich], ptCut[ipt]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))) (*pr1)+=(*pr0);
+      }
+      /*!dx*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], 0)))){
+        for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+          if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[ipt], isp)))) continue;
+          (*pr0)+=(*pr1);
+        }
+        pr0->fH->SetNameTitle(Form("H%sTrkInX%c%c", mc?"MC":"", chName[ich], ptName[ipt]),
+                                  Form("TrackIn[%c]:: #Deltax{%s}", chSgn[ich], ptCut[ipt]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(!ipt){
+          xlow[ich] = (*pr0);
+          xlow[ich].SetNameTitle(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[0], 5),
+                                 Form("TrackIn[%c]:: #Deltax{%s}", chSgn[ich], ptCut[0]));
+          php.AddLast(&xlow[ich]);
+        }
+        if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))) (*pr1)+=(*pr0);
+      }
+    }
+    /*!dy*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInY%c", mc?"MC":"", chName[ich]),
+                            Form("TrackIn[%c]:: #Deltay", chSgn[ich]));
+      pr0->SetShowRange(-0.3, 0.3);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      if(ich && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))) (*pr1)+=(*pr0);
+    }
+    /*!dy high pt*/
+    if(ich && (pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[0], ptName[2], 0)))){
+      if((pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[ich], ptName[2], 0)))){
+        (*pr0)+=(*pr1);
+        pr0->fH->SetNameTitle(Form("H%sTrkInY%c", mc?"MC":"", ptName[2]), Form("TrackIn :: #Deltay{%s}", ptCut[2]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      }
+    }
+    /*!dphi*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInPh%c", mc?"MC":"", chName[ich]),
+                            Form("TrackIn[%c]:: #Delta#phi", chSgn[ich]));
+      pr0->SetShowRange(-1., 1.);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      if(ich==1 && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))) (*pr1)+=(*pr0);
+    }
+    /*!dx*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[0], 0)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInX%c", mc?"MC":"", chName[ich]),
+                            Form("TrackIn[%c]:: #Deltax", chSgn[ich]));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+      if(ich==1 && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))) (*pr1)+=(*pr0);
+    }
+    /*!dx low pt*/
+    if(ich && (pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[0], ptName[0], 5)))){
+      if((pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[ich], ptName[0], 5)))){
+        (*pr0)+=(*pr1);
+        pr0->fH->SetNameTitle(Form("H%sTrkInX%c", mc?"MC":"", ptName[0]), Form("TrackIn :: #Deltax{%s}", ptCut[0]));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
       }
     }
   }
-//   h2[5] = (TH2F*)h2[0]->Clone("h25");
-//   h2[5]->SetTitle("Systematic shift between neg/pos tracks");
-//   h2[5]->SetZTitle("#Delta(#Delta^{-}y - #Delta^{+}y) [cm]"); h2[5]->Reset();
-//   h2[6] = (TH2F*)h2[1]->Clone("h26");
-//   h2[6]->SetTitle("Average shift of pos&neg tracks");
-//   h2[6]->SetZTitle("<#Delta^{-}y, #Delta^{+}y> [cm]"); h2[6]->Reset();
-//   for(Int_t iphi(1); iphi<=nphi; iphi++){
-//     for(Int_t ieta(1); ieta<=neta; ieta++){
-//       Float_t neg = h2[0]->GetBinContent(ieta, iphi),
-//               pos = h2[1]->GetBinContent(ieta, iphi);
-//       if(neg<-100 || pos<-100){
-//         h2[5]->SetBinContent(ieta, iphi, -999.);
-//         h2[6]->SetBinContent(ieta, iphi, -999.);
-//       } else {
-//         h2[5]->SetBinContent(ieta, iphi, neg-pos);
-//         h2[6]->SetBinContent(ieta, iphi, 0.5*(neg+pos));
-//       }
-//     }
-//   }
-
-  for(Int_t iproj(0); iproj<fgNproj[cidx]; iproj++) delete h3[iproj];
+  for(Int_t isp(0); isp<AliPID::kSPECIES; isp++){
+    /*!dy*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%d", mc?"MC":"", chName[0], isp)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInY%d", mc?"MC":"", isp), Form("TrackIn[%s] :: #Deltay", AliPID::ParticleLatexName(isp)));
+      pr0->SetShowRange(-0.3, 0.3);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1, kFALSE))) arr->AddAt(h2, jh++);
+      if((h2 = (TH2*)gDirectory->Get(Form("%s_yx", pr0->fH->GetName())))) arr->AddAt(h2, jh++);
+    }
+    /*!dphi*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%d", mc?"MC":"", chName[0], isp)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInPh%d", mc?"MC":"", isp), Form("TrackIn[%s] :: #Delta#phi", AliPID::ParticleLatexName(isp)));
+      pr0->SetShowRange(-1., 1.);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+    /*!dQdl*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInQ%c%d", mc?"MC":"", chName[0], isp)))){
+      pr0->fH->SetNameTitle(Form("H%sTrkInQ%d", mc?"MC":"", isp), Form("TrackIn[%s] :: dQdl", AliPID::ParticleLatexName(isp)));
+      pr0->SetShowRange(-2.2, -1.75);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 2))) arr->AddAt(h2, jh++);
+      pr0->fH->SetName(Form("H%sTrkInQS%d", mc?"MC":"", isp));
+      pr0->SetShowRange(-1.7, -1.25);
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 0))) arr->AddAt(h2, jh++);
+    }
+  }
+  /*!dy*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInY%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))){
+    pr0->fH->SetNameTitle(Form("H%sTrkInY", mc?"MC":""), "TrackIn :: #Deltay");
+    pr0->SetShowRange(-0.3, 0.3);
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!dphi*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInPh%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))){
+    pr0->fH->SetNameTitle(Form("H%sTrkInPh", mc?"MC":""), "TrackIn :: #Delta#phi");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!dx*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInX%c%c%d", mc?"MC":"", chName[0], ptName[0], 0)))){
+    pr0->fH->SetNameTitle(Form("H%sTrkInX", mc?"MC":""), "TrackIn :: #Deltax");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!RC dz*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCZ%c", mc?"MC":"", ptName[0])))){
+    for(Int_t ipt(0); ipt<kNpt; ipt++){
+      if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCZ%c", mc?"MC":"", ptName[ipt])))) continue;
+      (*pr0)+=(*pr1);
+    }
+    pr0->fH->SetNameTitle(Form("H%sTrkInRCZ", mc?"MC":""), "TrackIn[RC]:: #Deltaz");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!RC dy*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCY%c", mc?"MC":"", ptName[0])))){
+    for(Int_t ipt(0); ipt<kNpt; ipt++){
+      if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCY%c", mc?"MC":"", ptName[ipt])))) continue;
+      (*pr0)+=(*pr1);
+    }
+    pr0->fH->SetNameTitle(Form("H%sTrkInRCY", mc?"MC":""), "TrackIn[RC]:: #Deltay");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!RC dphi*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCPh%c", mc?"MC":"", ptName[0])))){
+    for(Int_t ipt(0); ipt<kNpt; ipt++){
+      if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCPh%c", mc?"MC":"", ptName[ipt])))) continue;
+      (*pr0)+=(*pr1);
+    }
+    pr0->fH->SetNameTitle(Form("H%sTrkInRCPh", mc?"MC":""), "TrackIn[RC]:: #Delta#phi");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  /*!RC dx*/
+  if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCX%c", mc?"MC":"", ptName[0])))){
+    for(Int_t ipt(0); ipt<kNpt; ipt++){
+      if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("H%sTrkInRCX%c", mc?"MC":"", ptName[ipt])))) continue;
+      (*pr0)+=(*pr1);
+    }
+    pr0->fH->SetNameTitle(Form("H%sTrkInRCX", mc?"MC":""), "TrackIn[RC]:: #Deltax");
+    if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+  }
+  AliInfo(Form("Done %3d 2D projections.", jh));
   return kTRUE;
 }
 
 
+//________________________________________________________
+Bool_t AliTRDresolution::MakeProjectionTrack()
+{
+// Analyse tracklet
+  const Int_t kNcontours(9);
+  const Int_t kNstat(30);
+  Int_t cidx(kMCtrack);
+  if(fProj && fProj->At(cidx)) return kTRUE;
+  if(!fContainer){
+    AliError("Missing data container.");
+    return kFALSE;
+  }
+  THnSparse *H(NULL);
+  if(!(H = (THnSparse*)fContainer->FindObject("hTRD2MC"))){
+    AliError("Missing/Wrong data @ hTRD2MC.");
+    return kFALSE;
+  }
+  Int_t ndim(H->GetNdimensions());
+  Int_t coord[kNdim+1]; memset(coord, 0, sizeof(Int_t) * (kNdim+1)); Double_t v = 0.;
+  TAxis *aa[kNdim+1], *as(NULL), *ap(NULL); memset(aa, 0, sizeof(TAxis*) * (kNdim+1));
+  for(Int_t id(0); id<ndim; id++) aa[id] = H->GetAxis(id);
+  if(ndim > kSpeciesChgRC) as = H->GetAxis(kSpeciesChgRC);
+  if(ndim > kPt) ap = H->GetAxis(kPt);
+
+  // build list of projections
+  const Int_t nsel(AliTRDgeometry::kNlayer*kNpt*AliPID::kSPECIES*7);//, npsel(3);
+  const Char_t chName[kNcharge] = {'n', 'p'};const Char_t chSgn[kNcharge] = {'-', '+'};
+  const Char_t ptName[kNpt] = {'l', 'i', 'h'};
+  const Char_t *ptCut[kNpt] = {"p_{t}[GeV/c]<0.8", "0.8<=p_{t}[GeV/c]<1.5", "p_{t}[GeV/c]>=1.5"};
+  // define rebinning strategy
+  const Int_t nEtaPhi(4); Int_t rebinEtaPhiX[nEtaPhi] = {1, 2, 5, 1}, rebinEtaPhiY[nEtaPhi] = {2, 1, 1, 5};
+  AliTRDresolutionProjection hp[kTrkNproj]; TObjArray php(kTrkNproj);
+  Int_t ih(0), isel(-1), np[nsel]; memset(np, 0, nsel*sizeof(Int_t));
+  for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+    for(Int_t ipt(0); ipt<kNpt; ipt++){
+      for(Int_t isp(0); isp<AliPID::kSPECIES; isp++){
+        for(Int_t ich(0); ich<kNcharge; ich++){
+          isel++; // new selection
+          hp[ih].Build(Form("HMCTrkY%c%c%d%d", chName[ich], ptName[ipt], isp, ily),
+                       Form("Tracks[%s%c]:: #Deltay{%s} Ly[%d]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily),
+                       kEta, kPhi, kYrez, aa);
+          hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+          php.AddLast(&hp[ih++]); np[isel]++;
+          hp[ih].Build(Form("HMCTrkPh%c%c%d%d", chName[ich], ptName[ipt], isp, ily),
+                       Form("Tracks[%s%c]:: #Delta#phi{%s} Ly[%d]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily),
+                       kEta, kPhi, kPrez, aa);
+          hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+          php.AddLast(&hp[ih++]); np[isel]++;
+          hp[ih].Build(Form("HMCTrkDPt%c%c%d%d", chName[ich], ptName[ipt], isp, ily),
+                       Form("Tracks[%s%c]:: #Deltap_{t}/p_{t}{%s} Ly[%d]", AliPID::ParticleLatexName(isp), chSgn[ich], ptCut[ipt], ily),
+                       kEta, kPhi, kNdim, aa);
+          hp[ih].SetShowRange(0.,10.);
+          hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+          php.AddLast(&hp[ih++]); np[isel]++;
+        }
+      }
+      isel++; // new selection
+      hp[ih].Build(Form("HMCTrkZ%c%d", ptName[ipt], ily),
+                    Form("Tracks[RC]:: #Deltaz{%s} Ly[%d]", ptCut[ipt], ily),
+                    kEta, kPhi, kZrez, aa);
+      hp[ih].SetRebinStrategy(nEtaPhi, rebinEtaPhiX, rebinEtaPhiY);
+      php.AddLast(&hp[ih++]); np[isel]++;
+    }
+  }
+
+  Int_t ly(0), ch(0), pt(0), sp(2), rcBin(as?as->FindBin(0.):-1);
+  for (Long64_t ib(0); ib < H->GetNbins(); ib++) {
+    v = H->GetBinContent(ib, coord);
+    if(v<1.) continue;
+    ly = coord[kBC]-1; // layer selection
+    // charge selection
+    ch=0; sp=2;// [pi-] track [dafault]
+    if(rcBin>0){ // debug mode in which species are also saved
+      sp = Int_t(TMath::Abs(as->GetBinCenter(coord[kSpeciesChgRC])))-1;
+      if(coord[kSpeciesChgRC] > rcBin) ch = 1;        // [+] track
+      else if(coord[kSpeciesChgRC] == rcBin) ch = 2;  // [RC] track
+    }
+    // pt selection
+    pt = 0; // low pt [default]
+    if(ap) pt = coord[kPt]-1;
+    // global selection
+    Int_t ioff = ly*kNpt*31+pt*31; ioff+=3*(sp<0?10:(sp*kNcharge+ch));
+    isel = ly*kNpt*11+pt*11; isel+=sp<0?10:(sp*kNcharge+ch);
+    AliDebug(4, Form("SELECTION[%d] :: ch[%c] pt[%c] sp[%d] ly[%d]\n", np[isel], ch==2?'Z':chName[ch], ptName[pt], sp, ly));
+    for(Int_t jh(0); jh<np[isel]; jh++) ((AliTRDresolutionProjection*)php.At(ioff+jh))->Increment(coord, v);
+  }
+  TObjArray *arr(NULL);
+  fProj->AddAt(arr = new TObjArray(kTrkNproj), cidx);
+
+  TH2 *h2(NULL); Int_t jh(0);
+  for(; ih--; ){
+    if(!hp[ih].fH) continue;
+    if(!(h2 = hp[ih].Projection2D(kNstat, kNcontours))) continue;
+    arr->AddAt(h2, jh++);
+  }
+
+  // combine up the tree of projections
+  AliTRDresolutionProjection *pr0(NULL), *pr1(NULL);
+  //Int_t iproj(0), jproj(0);
+  for(Int_t ily(0); ily<AliTRDgeometry::kNlayer; ily++){
+    for(Int_t ich(0); ich<kNcharge; ich++){
+      for(Int_t ipt(0); ipt<kNpt; ipt++){
+        /*!dy*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[ich], ptName[ipt], 0, ily)))){
+          for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+            if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[ich], ptName[ipt], isp, ily)))) continue;
+            (*pr0)+=(*pr1);
+          }
+          AliDebug(2, Form("Rename %s to HMCTrkY%c%c%d", pr0->fH->GetName(), chName[ich], ptName[ipt], ily));
+          pr0->fH->SetNameTitle(Form("HMCTrkY%c%c%d", chName[ich], ptName[ipt], ily),
+                                    Form("Tracks[%c]:: #Deltay{%s} Ly[%d]", chSgn[ich], ptCut[ipt], ily));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+          if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[ich], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+        }
+        /*!dphi*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[ich], ptName[ipt], 0, ily)))){
+          for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+            if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[ich], ptName[ipt], isp, ily)))) continue;
+            (*pr0)+=(*pr1);
+          }
+          AliDebug(2, Form("Rename %s to HMCTrkPh%c%c%d", pr0->fH->GetName(), chName[ich], ptName[ipt], ily));
+          pr0->fH->SetNameTitle(Form("HMCTrkPh%c%c%d", chName[ich], ptName[ipt], ily),
+                                    Form("Tracks[%c]:: #Delta#phi{%s} Ly[%d]", chSgn[ich], ptCut[ipt], ily));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+          if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[ich], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+        }
+
+        /*!dpt/pt*/
+        if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[ich], ptName[ipt], 0, ily)))){
+          for(Int_t isp(1); isp<AliPID::kSPECIES; isp++){
+            if(!(pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[ich], ptName[ipt], isp, ily)))) continue;
+            (*pr0)+=(*pr1);
+          }
+          AliDebug(2, Form("Rename %s to HMCTrkDPt%c%c%d", pr0->fH->GetName(), chName[ich], ptName[ipt], ily));
+          pr0->fH->SetNameTitle(Form("HMCTrkDPt%c%c%d", chName[ich], ptName[ipt], ily),
+                                    Form("Tracks[%c]:: #Deltap_{t}/p_{t}{%s} Ly[%d]", chSgn[ich], ptCut[ipt], ily));
+          if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+          if(ipt && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[ich], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+        }
+      }
+      /*!dy*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[ich], ptName[0], 0, ily)))){
+        pr0->fH->SetNameTitle(Form("HMCTrkY%c%d", chName[ich], ily),
+                              Form("Tracks[%c]:: #Deltay Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich==1 && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[0], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+      }
+      /*!dphi*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[ich], ptName[0], 0, ily)))){
+        pr0->fH->SetNameTitle(Form("HMCTrkPh%c%d", chName[ich], ily),
+                              Form("Tracks[%c]:: #Delta#phi Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich==1 && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[0], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+      }
+      /*!dpt/pt*/
+      if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[ich], ptName[0], 0, ily)))){
+        pr0->fH->SetNameTitle(Form("HMCTrkDPt%c%d", chName[ich], ily),
+                              Form("Tracks[%c]:: #Deltap_{t}/p_{t} Ly[%d]", chSgn[ich], ily));
+        if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+        if(ich==1 && (pr1 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[0], ptName[0], 0, ily)))) (*pr1)+=(*pr0);
+      }
+    }
+    /*!dy*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkY%c%c%d%d", chName[0], ptName[0], 0, ily)))){
+      pr0->fH->SetNameTitle(Form("HMCTrkY%d", ily), Form("Tracks :: #Deltay Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+    /*!dphi*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkPh%c%c%d%d", chName[0], ptName[0], 0, ily)))){
+      pr0->fH->SetNameTitle(Form("HMCTrkPh%d", ily), Form("Tracks :: #Delta#phi Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+    /*!dpt/pt*/
+    if((pr0 = (AliTRDresolutionProjection*)php.FindObject(Form("HMCTrkDPt%c%c%d%d", chName[0], ptName[0], 0, ily)))){
+      pr0->fH->SetNameTitle(Form("HMCTrkDPt%d", ily), Form("Tracks :: #Deltap_{t}/p_{t} Ly[%d]", ily));
+      if((h2 = pr0->Projection2D(kNstat, kNcontours, 1))) arr->AddAt(h2, jh++);
+    }
+  }
+  AliInfo(Form("Done %3d 2D projections.", jh));
+  return kTRUE;
+}
 
 //________________________________________________________
 Bool_t AliTRDresolution::PostProcess()
@@ -1234,16 +2347,14 @@ Bool_t AliTRDresolution::PostProcess()
     AliError("ERROR: list not available");
     return kFALSE;
   }
-
-  // DEFINE MODELS
-  // simple gauss
-  TF1 fg("fGauss", "gaus", -.5, .5);  
-  // Landau for charge resolution
-  TF1 fch("fClCh", "landau", 0., 1000.);  
-  // Landau for e+- pt resolution
-  TF1 fpt("fPt", "landau", -0.1, 0.2);  
+  if(!fProj){
+    AliInfo("Building array of projections ...");
+    fProj = new TObjArray(kNclasses); fProj->SetOwner(kTRUE);
+  }
 
   //PROCESS EXPERIMENTAL DISTRIBUTIONS
+  // Clusters detector
+  if(!MakeProjectionDetector()) return kFALSE;
   // Clusters residuals
   if(!MakeProjectionCluster()) return kFALSE;
   fNRefFigures = 3;
@@ -1253,44 +2364,24 @@ Bool_t AliTRDresolution::PostProcess()
   // TRDin residual/pulls
   if(!MakeProjectionTrackIn()) return kFALSE;
   fNRefFigures = 11;
-  // TRDout residual/pulls
-//  if(!MakeProjectionTrackOut()) return kFALSE;
-  fNRefFigures = 15;
 
   if(!HasMCdata()) return kTRUE;
-
-
   //PROCESS MC RESIDUAL DISTRIBUTIONS
 
   // CLUSTER Y RESOLUTION/PULLS
-//  if(!MakeProjectionClusterMC()) return kFALSE;
+  if(!MakeProjectionCluster(kTRUE)) return kFALSE;
   fNRefFigures = 17;
 
   // TRACKLET RESOLUTION/PULLS
-//  if(!MakeProjectionTrackletMC()) return kFALSE;
+  if(!MakeProjectionTracklet(kTRUE)) return kFALSE;
   fNRefFigures = 21;
 
   // TRACK RESOLUTION/PULLS
-/*  Process3Darray(kMCtrack, 0, &fg, 1.e4);   // y
-  Process3DlinkedArray(kMCtrack, 1, &fg);   // y PULL
-  Process3Darray(kMCtrack, 2, &fg, 1.e4);   // z
-  Process3Darray(kMCtrack, 3, &fg);         // z PULL
-  Process2Darray(kMCtrack, 4, &fg, 1.e3);   // phi
-  Process2Darray(kMCtrack, 5, &fg);         // snp PULL
-  Process2Darray(kMCtrack, 6, &fg, 1.e3);   // theta
-  Process2Darray(kMCtrack, 7, &fg);         // tgl PULL
-  Process3Darray(kMCtrack, 8, &fg, 1.e2);   // pt resolution
-  Process3Darray(kMCtrack, 9, &fg);         // 1/pt pulls
-  Process3Darray(kMCtrack, 10, &fg, 1.e2);  // p resolution*/
-//  if(!MakeProjectionTrackMC(kMCtrack)) return kFALSE;
+  if(!MakeProjectionTrack()) return kFALSE;
   fNRefFigures+=16;
 
   // TRACK TRDin RESOLUTION/PULLS
-//  if(!MakeProjectionTrackMC(kMCtrackIn)) return kFALSE;
-  fNRefFigures+=8;
-
-  // TRACK TRDout RESOLUTION/PULLS
-//  if(!MakeProjectionTrackMC(kMCtrackOut)) return kFALSE;
+  if(!MakeProjectionTrackIn(kTRUE)) return kFALSE;
   fNRefFigures+=8;
 
   return kTRUE;
@@ -1351,7 +2442,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerCluster(const char* name, Bool
   if(!(h = (TH3S*)gROOT->FindObject(hname))){
     Int_t nybins=50;
     if(expand) nybins*=2;
-    h = new TH3S(hname, htitle, 
+    h = new TH3S(hname, htitle,
                  48, -.48, .48,            // phi
                  60, -rr, rr,              // dy
                  nybins, -0.5, nybins-0.5);// segment
@@ -1374,7 +2465,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTracklet(const char* name, Boo
 //  - y reziduals/pulls
 //  - z reziduals/pulls
 //  - phi reziduals
-  TObjArray *arr = BuildMonitorContainerCluster(name, expand, 0.05); 
+  TObjArray *arr = BuildMonitorContainerCluster(name, expand, 0.05);
   arr->Expand(5);
   TH1 *h(NULL); char hname[100], htitle[300];
 
@@ -1416,7 +2507,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTrack(const char* name)
 //  - theta resolution, tgl pulls
 //  - pt resolution, 1/pt pulls, p resolution
 
-  TObjArray *arr = BuildMonitorContainerTracklet(name); 
+  TObjArray *arr = BuildMonitorContainerTracklet(name);
   arr->Expand(11);
   TH1 *h(NULL); char hname[100], htitle[300];
   //TAxis *ax(NULL);
@@ -1443,8 +2534,8 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTrack(const char* name)
     h = new TH2I(hname, htitle, 100, -1., 1., 100, -4.5, 4.5);
   } else h->Reset();
   arr->AddAt(h, 7);
-  
-  const Int_t kNdpt(150); 
+
+  const Int_t kNdpt(150);
   const Int_t kNspc = 2*AliPID::kSPECIES+1;
   Float_t lPt=0.1, lDPt=-.1, lSpc=-5.5;
   Float_t binsPt[kNpt+1], binsSpc[kNspc+1], binsDPt[kNdpt+1];
@@ -1456,7 +2547,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTrack(const char* name)
   snprintf(hname, 100, "%s_%s_Pt", GetNameId(), name);
   snprintf(htitle, 300, "#splitline{P_{t} res for}{\"%s\" @ %s};p_{t} [GeV/c];#Delta p_{t}/p_{t}^{MC};SPECIES", GetNameId(), name);
   if(!(h = (TH3S*)gROOT->FindObject(hname))){
-    h = new TH3S(hname, htitle, 
+    h = new TH3S(hname, htitle,
                  kNpt, binsPt, kNdpt, binsDPt, kNspc, binsSpc);
     //ax = h->GetZaxis();
     //for(Int_t ib(1); ib<=ax->GetNbins(); ib++) ax->SetBinLabel(ib, fgParticle[ib-1]);
@@ -1466,7 +2557,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTrack(const char* name)
   snprintf(hname, 100, "%s_%s_1Pt", GetNameId(), name);
   snprintf(htitle, 300, "#splitline{1/P_{t} pull for}{\"%s\" @ %s};1/p_{t}^{MC} [c/GeV];#Delta(1/p_{t})/#sigma(1/p_{t});SPECIES", GetNameId(), name);
   if(!(h = (TH3S*)gROOT->FindObject(hname))){
-    h = new TH3S(hname, htitle, 
+    h = new TH3S(hname, htitle,
                  kNpt, 0., 2., 100, -4., 4., kNspc, -5.5, 5.5);
     //ax = h->GetZaxis();
     //for(Int_t ib(1); ib<=ax->GetNbins(); ib++) ax->SetBinLabel(ib, fgParticle[ib-1]);
@@ -1476,7 +2567,7 @@ TObjArray* AliTRDresolution::BuildMonitorContainerTrack(const char* name)
   snprintf(hname, 100, "%s_%s_P", GetNameId(), name);
   snprintf(htitle, 300, "P res for \"%s\" @ %s;p [GeV/c];#Delta p/p^{MC};SPECIES", GetNameId(), name);
   if(!(h = (TH3S*)gROOT->FindObject(hname))){
-    h = new TH3S(hname, htitle, 
+    h = new TH3S(hname, htitle,
                  kNpt, binsPt, kNdpt, binsDPt, kNspc, binsSpc);
     //ax = h->GetZaxis();
     //for(Int_t ib(1); ib<=ax->GetNbins(); ib++) ax->SetBinLabel(ib, fgParticle[ib-1]);
@@ -1501,64 +2592,173 @@ TObjArray* AliTRDresolution::Histos()
   const Int_t nhn(100); Char_t hn[nhn]; TString st;
 
   //++++++++++++++++++++++
-  // cluster to track residuals/pulls
+  // cluster to detector
+  snprintf(hn, nhn, "h%s", fgPerformanceName[kDetector]);
+  if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    const Int_t mdim(5);
+    const Char_t *cldTitle[mdim] = {"layer", fgkTitle[kPhi], "pad row", "centrality", "q [a.u.]"/*, "occupancy", "tb [10 Hz]"*/};
+    const Int_t cldNbins[mdim]   = {AliTRDgeometry::kNlayer, fgkNbins[kPhi], 76, AliTRDeventInfo::kCentralityClasses, 100};
+    const Double_t cldMin[mdim]  = {-0.5, fgkMin[kPhi], -0.5, -0.5, 0.},
+                   cldMax[mdim]  = {AliTRDgeometry::kNlayer-0.5, fgkMax[kPhi], 75.5, AliTRDeventInfo::kCentralityClasses - 0.5, 1200.};
+    st = "cluster proprieties;";
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?mdim:Int_t(kNdimDet);
+    for(Int_t idim(0); idim<ndim; idim++){ st += cldTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, cldNbins, cldMin, cldMax);
+  } else H->Reset();
+  fContainer->AddAt(H, kDetector);
+  //++++++++++++++++++++++
+  // cluster to tracklet residuals/pulls
   snprintf(hn, nhn, "h%s", fgPerformanceName[kCluster]);
   if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
-    const Char_t *clTitle[5/*kNdim*/] = {"layer", fgkTitle[kPhi], fgkTitle[kEta], "chg*Q/vd/angle", fgkTitle[kYrez]/*, "#Deltax [cm]", "Q</Q", "#Phi^{*} - ExB [deg]"*/};
-    const Int_t clNbins[5/*kNdim*/]   = {AliTRDgeometry::kNlayer, fgkNbins[kPhi], fgkNbins[kEta], 51, fgkNbins[kYrez]/*, 33, 10, 30*/};
-    const Double_t clMin[5/*kNdim*/]  = {-0.5, fgkMin[kPhi], fgkMin[kEta], -102., fgkMin[kYrez]/3./*, 0., 0.1, -30*/},
-                   clMax[5/*kNdim*/]  = {AliTRDgeometry::kNlayer-0.5, fgkMax[kPhi], fgkMax[kEta], 102., fgkMax[kYrez]/3./*, 3.3, 2.1, 30*/};
+    const Char_t *clTitle[kNdim] = {"layer", fgkTitle[kPhi], fgkTitle[kEta], fgkTitle[kYrez], "#Deltax [cm]", "Q</Q", "Q/angle", "#Phi [deg]"};
+    const Int_t clNbins[kNdim]   = {AliTRDgeometry::kNlayer, fgkNbins[kPhi], fgkNbins[kEta], fgkNbins[kYrez], 45, 30, 30, 15};
+    const Double_t clMin[kNdim]  = {-0.5, fgkMin[kPhi], fgkMin[kEta], fgkMin[kYrez]/10., -.5, 0.1, -2., -45},
+                   clMax[kNdim]  = {AliTRDgeometry::kNlayer-0.5, fgkMax[kPhi], fgkMax[kEta], fgkMax[kYrez]/10., 4., 2.1, 118., 45};
     st = "cluster spatial&charge resolution;";
-    for(Int_t idim(0); idim<5/*kNdim*/; idim++){ st += clTitle[idim]; st+=";";}
-    H = new THnSparseI(hn, st.Data(), kNdim, clNbins, clMin, clMax);
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?Int_t(kNdim):Int_t(kNdimCl);
+    for(Int_t idim(0); idim<ndim; idim++){ st += clTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, clNbins, clMin, clMax);
   } else H->Reset();
   fContainer->AddAt(H, kCluster);
   //++++++++++++++++++++++
   // tracklet to TRD track
   snprintf(hn, nhn, "h%s", fgPerformanceName[kTracklet]);
   if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
-    const Char_t *trTitle[kNdim+1] = {"layer", fgkTitle[kPhi], fgkTitle[kEta], fgkTitle[kSpeciesChgRC], fgkTitle[kYrez], "#Deltaz [cm]/#Phi^{*} - ExB [rad]", fgkTitle[kPrez], "dq/dl [a.u.]"/*, fgkTitle[kPt]*/};
-    const Int_t trNbins[kNdim+1]   = {AliTRDgeometry::kNlayer, fgkNbins[kPhi], fgkNbins[kEta], fgkNbins[kSpeciesChgRC], fgkNbins[kYrez], fgkNbins[kZrez], fgkNbins[kPrez], 30/*, fgkNbins[kPt]*/};
-    const Double_t trMin[kNdim+1]  = {-0.5, fgkMin[kPhi], fgkMin[kEta], fgkMin[kSpeciesChgRC], fgkMin[kYrez], fgkMin[kZrez], fgkMin[kPrez], 0./*, fgkMin[kPt]*/},
-                   trMax[kNdim+1]  = {AliTRDgeometry::kNlayer-0.5, fgkMax[kPhi], fgkMax[kEta], fgkMax[kSpeciesChgRC], fgkMax[kYrez], fgkMax[kZrez], fgkMax[kPrez], 3000./*, fgkMax[kPt]*/};
+    const Int_t mdim(kNdim+8);
+    Char_t *trTitle[mdim]; memcpy(trTitle, fgkTitle, kNdim*sizeof(Char_t*));
+    Int_t trNbins[mdim]; memcpy(trNbins, fgkNbins, kNdim*sizeof(Int_t));
+    Double_t trMin[mdim]; memcpy(trMin, fgkMin, kNdim*sizeof(Double_t));
+    Double_t trMax[mdim]; memcpy(trMax, fgkMax, kNdim*sizeof(Double_t));
+    // set specific fields
+    trMin[kYrez] = -0.45; trMax[kYrez] = 0.45;
+    trMin[kPrez] = -4.5; trMax[kPrez] = 4.5;
+    trMin[kZrez] = -1.5; trMax[kZrez] = 1.5;
+    trTitle[kBC]=StrDup("layer"); trNbins[kBC] = AliTRDgeometry::kNlayer; trMin[kBC] = -0.5; trMax[kBC] = AliTRDgeometry::kNlayer-0.5;
+    Int_t jdim(kNdim); trTitle[jdim]=StrDup("dq/dl [a.u.]"); trNbins[jdim] = 100; trMin[jdim] = 0.; trMax[jdim] = 20;
+    jdim++; trTitle[jdim]=StrDup("centrality"); trNbins[jdim] = AliTRDeventInfo::kCentralityClasses; trMin[jdim] = -.5; trMax[jdim] = AliTRDeventInfo::kCentralityClasses - 0.5;
+    jdim++; trTitle[jdim]=StrDup("occupancy [%]"); trNbins[jdim] = 12; trMin[jdim] = 25.; trMax[jdim] = 85.;
+    jdim++; trTitle[jdim]=StrDup("gap [cm]"); trNbins[jdim] = 80; trMin[jdim] = 0.1; trMax[jdim] = 2.1;
+    jdim++; trTitle[jdim]=StrDup("size_{0} [cm]"); trNbins[jdim] = 16; trMin[jdim] = 0.15; trMax[jdim] = 1.75;
+    jdim++; trTitle[jdim]=StrDup("pos_{0} [cm]"); trNbins[jdim] = 10; trMin[jdim] = 0.; trMax[jdim] = 3.5;
+    jdim++; trTitle[jdim]=StrDup("size_{1} [cm]"); trNbins[jdim] = 16; trMin[jdim] = 0.15; trMax[jdim] = 1.75;
+    jdim++; trTitle[jdim]=StrDup("pos_{1} [cm]"); trNbins[jdim] = 10; trMin[jdim] = 0.; trMax[jdim] = 3.5;
+
     st = "tracklet spatial&charge resolution;";
-    for(Int_t idim(0); idim<kNdim+1; idim++){ st += trTitle[idim]; st+=";";}
-    H = new THnSparseI(hn, st.Data(), kNdim+1, trNbins, trMin, trMax);
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?mdim:kNdimTrklt;
+    for(Int_t idim(0); idim<ndim; idim++){ st += trTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, trNbins, trMin, trMax);
   } else H->Reset();
   fContainer->AddAt(H, kTracklet);
   //++++++++++++++++++++++
   // tracklet to TRDin
   snprintf(hn, nhn, "h%s", fgPerformanceName[kTrackIn]);
   if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    // set specific fields
+    const Int_t mdim(kNdim+3);
+    Char_t *trinTitle[mdim]; memcpy(trinTitle, fgkTitle, kNdim*sizeof(Char_t*));
+    Int_t trinNbins[mdim];   memcpy(trinNbins, fgkNbins, kNdim*sizeof(Int_t));
+    Double_t trinMin[mdim];  memcpy(trinMin, fgkMin, kNdim*sizeof(Double_t));
+    Double_t trinMax[mdim];  memcpy(trinMax, fgkMax, kNdim*sizeof(Double_t));
+    trinNbins[kSpeciesChgRC] = Int_t(kNcharge)*AliPID::kSPECIES+1; trinMin[kSpeciesChgRC] = -AliPID::kSPECIES-0.5; trinMax[kSpeciesChgRC] = AliPID::kSPECIES+0.5;
+    trinTitle[kNdim]=StrDup("detector"); trinNbins[kNdim] = 540; trinMin[kNdim] = -0.5; trinMax[kNdim] = 539.5;
+    trinTitle[kNdim+1]=StrDup("dx [cm]"); trinNbins[kNdim+1]=48; trinMin[kNdim+1]=-2.4; trinMax[kNdim+1]=2.4;
+    trinTitle[kNdim+2]=StrDup("Fill Bunch"); trinNbins[kNdim+2]=3500; trinMin[kNdim+2]=-0.5; trinMax[kNdim+2]=3499.5;
     st = "r-#phi/z/angular residuals @ TRD entry;";
-    for(Int_t idim(0); idim<kNdim; idim++){ st += fgkTitle[idim]; st+=";";}
-    H = new THnSparseI(hn, st.Data(), kNdim, fgkNbins, fgkMin, fgkMax);
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?mdim:kNdimTrkIn;
+    for(Int_t idim(0); idim<ndim; idim++){st+=trinTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, trinNbins, trinMin, trinMax);
   } else H->Reset();
   fContainer->AddAt(H, kTrackIn);
   // tracklet to TRDout
-  fContainer->AddAt(BuildMonitorContainerTracklet("TrkOUT"), kTrackOut);
+//  fContainer->AddAt(BuildMonitorContainerTracklet("TrkOUT"), kTrackOut);
 
 
   // Resolution histos
   if(!HasMCdata()) return fContainer;
 
-  // cluster resolution 
-  fContainer->AddAt(BuildMonitorContainerCluster("MCcl"),  kMCcluster);
-
-  // tracklet resolution
-  fContainer->AddAt(BuildMonitorContainerTracklet("MCtracklet"), kMCtracklet);
-
-  // track resolution
-  TObjArray *arr(NULL);
-  fContainer->AddAt(arr = new TObjArray(AliTRDgeometry::kNlayer), kMCtrack);
-  arr->SetName("MCtrk");
-  for(Int_t il(0); il<AliTRDgeometry::kNlayer; il++) arr->AddAt(BuildMonitorContainerTrack(Form("MCtrk_Ly%d", il)), il);
-
-  // TRDin TRACK RESOLUTION
+  //++++++++++++++++++++++
+  // cluster to TrackRef residuals/pulls
+  snprintf(hn, nhn, "h%s", fgPerformanceName[kMCcluster]);
+  if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    const Char_t *clTitle[kNdim] = {"layer", fgkTitle[kPhi], fgkTitle[kEta], fgkTitle[kYrez], "#Deltax [cm]", "Q</Q", fgkTitle[kSpeciesChgRC], "#Phi [deg]"};
+    const Int_t clNbins[kNdim]   = {AliTRDgeometry::kNlayer, fgkNbins[kPhi], fgkNbins[kEta], fgkNbins[kYrez], 20, 10, Int_t(kNcharge)*AliPID::kSPECIES+1, 15};
+    const Double_t clMin[kNdim]  = {-0.5, fgkMin[kPhi], fgkMin[kEta], fgkMin[kYrez]/10., 0., 0.1, -AliPID::kSPECIES-0.5, -45},
+                   clMax[kNdim]  = {AliTRDgeometry::kNlayer-0.5, fgkMax[kPhi], fgkMax[kEta], fgkMax[kYrez]/10., 4., 2.1, AliPID::kSPECIES+0.5, 45};
+    st = "MC cluster spatial resolution;";
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?kNdim:4;
+    for(Int_t idim(0); idim<ndim; idim++){ st += clTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, clNbins, clMin, clMax);
+  } else H->Reset();
+  fContainer->AddAt(H, kMCcluster);
+  //++++++++++++++++++++++
+  // tracklet to TrackRef
+  snprintf(hn, nhn, "h%s", fgPerformanceName[kMCtracklet]);
+  if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    Char_t *trTitle[kNdim]; memcpy(trTitle, fgkTitle, kNdim*sizeof(Char_t*));
+    Int_t trNbins[kNdim]; memcpy(trNbins, fgkNbins, kNdim*sizeof(Int_t));
+    Double_t trMin[kNdim]; memcpy(trMin, fgkMin, kNdim*sizeof(Double_t));
+    Double_t trMax[kNdim]; memcpy(trMax, fgkMax, kNdim*sizeof(Double_t));
+    // set specific fields
+    trTitle[kBC]=StrDup("layer"); trNbins[kBC] = AliTRDgeometry::kNlayer; trMin[kBC] = -0.5; trMax[kBC] = AliTRDgeometry::kNlayer-0.5;
+    trMin[kYrez] = -0.54; trMax[kYrez] = -trMin[kYrez];
+    trMin[kPrez] = -4.5; trMax[kPrez] = -trMin[kPrez];
+    trMin[kZrez] = -1.5; trMax[kZrez] = -trMin[kZrez];
+    trNbins[kSpeciesChgRC] = Int_t(kNcharge)*AliPID::kSPECIES+1;trMin[kSpeciesChgRC] = -AliPID::kSPECIES-0.5; trMax[kSpeciesChgRC] = AliPID::kSPECIES+0.5;
+
+    st = "MC tracklet spatial resolution;";
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?kNdim:4;
+    for(Int_t idim(0); idim<ndim; idim++){ st += trTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, trNbins, trMin, trMax);
+  } else H->Reset();
+  fContainer->AddAt(H, kMCtracklet);
+  //++++++++++++++++++++++
+  // TRDin to TrackRef
+  snprintf(hn, nhn, "h%s", fgPerformanceName[kMCtrackIn]);
+  if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    st = "MC r-#phi/z/angular residuals @ TRD entry;";
+    // set specific fields
+    Int_t trNbins[kNdim]; memcpy(trNbins, fgkNbins, kNdim*sizeof(Int_t));
+    Double_t trMin[kNdim]; memcpy(trMin, fgkMin, kNdim*sizeof(Double_t));
+    Double_t trMax[kNdim]; memcpy(trMax, fgkMax, kNdim*sizeof(Double_t));
+    trMin[kYrez] = -0.54; trMax[kYrez] = -trMin[kYrez];
+    trMin[kPrez] = -2.4; trMax[kPrez] = -trMin[kPrez];
+    trMin[kZrez] = -0.9; trMax[kZrez] = -trMin[kZrez];
+    trNbins[kSpeciesChgRC] = Int_t(kNcharge)*AliPID::kSPECIES+1;trMin[kSpeciesChgRC] = -AliPID::kSPECIES-0.5; trMax[kSpeciesChgRC] = AliPID::kSPECIES+0.5;
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?kNdim:7;
+    for(Int_t idim(0); idim<ndim; idim++){ st += fgkTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, trNbins, trMin, trMax);
+  } else H->Reset();
   fContainer->AddAt(H, kMCtrackIn);
-
-  // TRDout TRACK RESOLUTION
-  fContainer->AddAt(BuildMonitorContainerTrack("MCtrkOUT"), kMCtrackOut);
+  //++++++++++++++++++++++
+  // track to TrackRef
+  snprintf(hn, nhn, "h%s", fgPerformanceName[kMCtrack]);
+  if(!(H = (THnSparseI*)gROOT->FindObject(hn))){
+    Char_t *trTitle[kNdim+1]; memcpy(trTitle, fgkTitle, kNdim*sizeof(Char_t*));
+    Int_t trNbins[kNdim+1]; memcpy(trNbins, fgkNbins, kNdim*sizeof(Int_t));
+    Double_t trMin[kNdim+1]; memcpy(trMin, fgkMin, kNdim*sizeof(Double_t));
+    Double_t trMax[kNdim+1]; memcpy(trMax, fgkMax, kNdim*sizeof(Double_t));
+    // set specific fields
+    trTitle[kBC]=StrDup("layer"); trNbins[kBC] = AliTRDgeometry::kNlayer; trMin[kBC] = -0.5; trMax[kBC] = AliTRDgeometry::kNlayer-0.5;
+    trMin[kYrez] = -0.9; trMax[kYrez] = -trMin[kYrez];
+    trMin[kPrez] = -1.5; trMax[kPrez] = -trMin[kPrez];
+    trMin[kZrez] = -0.9; trMax[kZrez] = -trMin[kZrez];
+    trNbins[kSpeciesChgRC] = Int_t(kNcharge)*AliPID::kSPECIES+1;trMin[kSpeciesChgRC] = -AliPID::kSPECIES-0.5; trMax[kSpeciesChgRC] = AliPID::kSPECIES+0.5;
+    trTitle[kNdim]=StrDup("#Deltap_{t}/p_{t} [%]"); trNbins[kNdim] = 25; trMin[kNdim] = -4.5; trMax[kNdim] = 20.5;
+
+    st = "MC track spatial&p_{t} resolution;";
+    // define minimum info to be saved in non debug mode
+    Int_t ndim=DebugLevel()>=1?(kNdim+1):4;
+    for(Int_t idim(0); idim<ndim; idim++){ st += trTitle[idim]; st+=";";}
+    H = new THnSparseI(hn, st.Data(), ndim, trNbins, trMin, trMax);
+  } else H->Reset();
+  fContainer->AddAt(H, kMCtrack);
 
   return fContainer;
 }
@@ -1592,7 +2792,7 @@ Bool_t AliTRDresolution::Process(TH2* const h2, TGraphErrors **g, Int_t stat)
   TH1D *h(NULL);
   if((h=(TH1D*)gROOT->FindObject("py"))) delete h;
   Double_t x(0.), y(0.), ex(0.), ey(0.), sy(0.), esy(0.);
-  
+
 
   // do actual loop
   Float_t chi2OverNdf(0.);
@@ -1648,7 +2848,7 @@ Bool_t AliTRDresolution::Process(TH2 * const h2, TF1 *f, Float_t k, TGraphErrors
   Int_t n = 0;
   if((n=g[0]->GetN())) for(;n--;) g[0]->RemovePoint(n);
   if((n=g[1]->GetN())) for(;n--;) g[1]->RemovePoint(n);
-  if(Int_t(h2->GetEntries())){ 
+  if(Int_t(h2->GetEntries())){
     AliDebug(4, Form("%s: g[%s %s]", pn, g[0]->GetName(), g[0]->GetTitle()));
   } else {
     AliDebug(2, Form("%s: g[%s %s]: Missing entries.", pn, g[0]->GetName(), g[0]->GetTitle()));
@@ -1661,7 +2861,7 @@ Bool_t AliTRDresolution::Process(TH2 * const h2, TF1 *f, Float_t k, TGraphErrors
     Int_t abin(ibin*kINTEGRAL+1),bbin(abin+kINTEGRAL-1),mbin(abin+Int_t(kINTEGRAL/2));
     Double_t x = h2->GetXaxis()->GetBinCenter(mbin);
     TH1D *h = h2->ProjectionY(pn, abin, bbin);
-    if((n=(Int_t)h->GetEntries())<150){ 
+    if((n=(Int_t)h->GetEntries())<150){
       AliDebug(4, Form("  x[%f] range[%d %d] stat[%d] low statistics !", x, abin, bbin, n));
       continue;
     }
@@ -1672,7 +2872,7 @@ Bool_t AliTRDresolution::Process(TH2 * const h2, TF1 *f, Float_t k, TGraphErrors
     g[0]->SetPointError(ip, 0., k*f->GetParError(1));
     g[1]->SetPoint(ip, x, k*f->GetParameter(2));
     g[1]->SetPointError(ip, 0., k*f->GetParError(2));
-/*  
+/*
     g[0]->SetPoint(ip, x, k*h->GetMean());
     g[0]->SetPointError(ip, 0., k*h->GetMeanError());
     g[1]->SetPoint(ip, x, k*h->GetRMS());
@@ -1832,7 +3032,7 @@ Bool_t AliTRDresolution::UseTrack(const Int_t np, const AliTrackPoint *points, F
 void AliTRDresolution::GetLandauMpvFwhm(TF1 * const f, Float_t &mpv, Float_t &xm, Float_t &xM)
 {
   //
-  // Get the most probable value and the full width half mean 
+  // Get the most probable value and the full width half mean
   // of a Landau distribution
   //
 
@@ -1842,7 +3042,7 @@ void AliTRDresolution::GetLandauMpvFwhm(TF1 * const f, Float_t &mpv, Float_t &xm
 
   xm = mpv - dx;
   while((fx = f->Eval(xm))>.5*max){
-    if(fx>max){ 
+    if(fx>max){
       max = fx;
       mpv = xm;
     }
@@ -1877,7 +3077,7 @@ void AliTRDresolution::GetLandauMpvFwhm(TF1 * const f, Float_t &mpv, Float_t &xm
 //       AliWarning(Form("Couldn't open \"%s\"", fileList.Data()));
 //       continue;
 //     } else AliInfo(Form("\"%s\"", fileList.Data()));
-// 
+//
 //     TTree *tSys = (TTree*)gFile->Get("tSys");
 //     h2->SetDirectory(gDirectory); h2->Reset("ICE");
 //     tSys->Draw("det:t>>h2", "dx", "goff");
@@ -1888,7 +3088,7 @@ void AliTRDresolution::GetLandauMpvFwhm(TF1 * const f, Float_t &mpv, Float_t &xm
 //     gFile->Close();
 //   }
 //   cwd->cd();
-// 
+//
 //   if(AliLog::GetDebugLevel("PWG1", "AliTRDresolution")>=2){
 //     for(Int_t il(0); il<184; il++) printf("-"); printf("\n");
 //     printf("DET|");for(Int_t it(0); it<30; it++) printf(" tb%02d|", it); printf("\n");
@@ -1910,3 +3110,182 @@ void AliTRDresolution::GetLandauMpvFwhm(TF1 * const f, Float_t &mpv, Float_t &xm
 //   SetLoadCorrection();
 //   return kTRUE;
 // }
+
+//________________________________________________________
+AliTRDresolution::AliTRDresolutionProjection::AliTRDresolutionProjection()
+  :TNamed()
+  ,fH(NULL)
+  ,fNrebin(0)
+  ,fRebinX(NULL)
+  ,fRebinY(NULL)
+{
+  // constructor
+  memset(fAx, 0, 3*sizeof(Int_t));
+  memset(fRange, 0, 4*sizeof(Float_t));
+}
+
+//________________________________________________________
+AliTRDresolution::AliTRDresolutionProjection::~AliTRDresolutionProjection()
+{
+  // destructor
+  if(fH) delete fH;
+}
+
+//________________________________________________________
+void AliTRDresolution::AliTRDresolutionProjection::Build(const Char_t *n, const Char_t *t, Int_t ix, Int_t iy, Int_t iz, TAxis *aa[])
+{
+// check and build (if neccessary) projection determined by axis "ix", "iy" and "iz"
+  if(!aa[ix] || !aa[iy] || !aa[iz]) return;
+  TAxis *ax(aa[ix]), *ay(aa[iy]), *az(aa[iz]);
+  // check ax definiton to protect against older versions of the data
+  if(ax->GetNbins()<=0 || (ax->GetXmax()-ax->GetXmin())<=0.){
+    AliWarning(Form("Wrong definition of axis[%d] \"%s\"[%d](%f %f).", ix, ax->GetTitle(), ax->GetNbins(), ax->GetXmin(), ax->GetXmax()));
+    return;
+  }
+  if(ay->GetNbins()<=0 || (ay->GetXmax()-ay->GetXmin())<=0.){
+    AliWarning(Form("Wrong definition of axis[%d] \"%s\"[%d](%f %f).", ix, ay->GetTitle(), ay->GetNbins(), ay->GetXmin(), ay->GetXmax()));
+    return;
+  }
+  if(az->GetNbins()<=0 || (az->GetXmax()-az->GetXmin())<=0.){
+    AliWarning(Form("Wrong definition of axis[%d] \"%s\"[%d](%f %f).", ix, az->GetTitle(), az->GetNbins(), az->GetXmin(), az->GetXmax()));
+    return;
+  }
+  SetNameTitle(n,t);
+  fH = new TH3I(n, Form("%s;%s;%s;%s", t, ax->GetTitle(), ay->GetTitle(), az->GetTitle()),
+    ax->GetNbins(), ax->GetXmin(), ax->GetXmax(),
+    ay->GetNbins(), ay->GetXmin(), ay->GetXmax(),
+    az->GetNbins(), az->GetXmin(), az->GetXmax());
+  fAx[0] = ix; fAx[1] = iy; fAx[2] = iz;
+  fRange[0] = az->GetXmin()/3.; fRange[1] = az->GetXmax()/3.;
+}
+
+//________________________________________________________
+AliTRDresolution::AliTRDresolutionProjection& AliTRDresolution::AliTRDresolutionProjection::operator=(const AliTRDresolutionProjection& rhs)
+{
+// copy projections
+  if(this == &rhs) return *this;
+
+  TNamed::operator=(rhs);
+  if(fNrebin){fNrebin=0; delete [] fRebinX; delete [] fRebinY;}
+  if(rhs.fNrebin) SetRebinStrategy(rhs.fNrebin, rhs.fRebinX, rhs.fRebinY);
+  memcpy(fAx, rhs.fAx, 3*sizeof(Int_t));
+  memcpy(fRange, rhs.fRange, 4*sizeof(Float_t));
+  if(fH) delete fH;
+  if(rhs.fH) fH=(TH3I*)rhs.fH->Clone(Form("%s_CLONE", rhs.fH->GetName()));
+  return *this;
+}
+
+//________________________________________________________
+AliTRDresolution::AliTRDresolutionProjection& AliTRDresolution::AliTRDresolutionProjection::operator+=(const AliTRDresolutionProjection& other)
+{
+// increment projections
+  if(!fH || !other.fH) return *this;
+  AliDebug(2, Form("%s+=%s [%s+=%s]", GetName(), other.GetName(), fH->GetName(), (other.fH)->GetName()));
+  fH->Add(other.fH);
+  return *this;
+}
+
+//________________________________________________________
+void AliTRDresolution::AliTRDresolutionProjection::Increment(Int_t bin[], Double_t v)
+{
+// increment bin with value "v" pointed by general coord in "bin"
+  if(!fH) return;
+  AliDebug(4, Form("  %s", fH->GetName()));
+  fH->AddBinContent(fH->GetBin(bin[fAx[0]],bin[fAx[1]],bin[fAx[2]]), Int_t(v));
+}
+
+//________________________________________________________
+TH2* AliTRDresolution::AliTRDresolutionProjection::Projection2D(const Int_t nstat, const Int_t ncol, const Int_t mid, Bool_t del)
+{
+// build the 2D projection and adjust binning
+
+  const Char_t *title[] = {"Mean", "#mu", "MPV"};
+  if(!fH) return NULL;
+  TAxis *ax(fH->GetXaxis()), *ay(fH->GetYaxis()), *az(fH->GetZaxis());
+  TH2 *h2s(NULL);
+  if(!(h2s = (TH2*)fH->Project3D("yx"))) return NULL;
+  Int_t irebin(0), dxBin(1), dyBin(1);
+  while(irebin<fNrebin && (AliTRDresolution::GetMeanStat(h2s, .5, ">")<nstat)){
+    h2s->Rebin2D(fRebinX[irebin], fRebinY[irebin]);
+    dxBin*=fRebinX[irebin];dyBin*=fRebinY[irebin];
+    irebin++;
+  }
+  Int_t nx(h2s->GetNbinsX()), ny(h2s->GetNbinsY());
+  if(h2s && del) delete h2s;
+
+  // start projection
+  TH1 *h(NULL); Int_t n(0);
+  Float_t dz=(fRange[1]-fRange[1])/ncol;
+  TString titlez(az->GetTitle()); TObjArray *tokenTitle(titlez.Tokenize(" "));
+  TH2 *h2 = new TH2F(Form("%s_2D", fH->GetName()),
+            Form("%s;%s;%s;%s(%s) %s", fH->GetTitle(), ax->GetTitle(), ay->GetTitle(), title[mid], (*tokenTitle)[0]->GetName(), tokenTitle->GetEntriesFast()>1?(*tokenTitle)[1]->GetName():""),
+            nx, ax->GetXmin(), ax->GetXmax(), ny, ay->GetXmin(), ay->GetXmax());
+  h2->SetContour(ncol);
+  h2->GetZaxis()->CenterTitle();
+  h2->GetZaxis()->SetTitleOffset(1.4);
+  h2->GetZaxis()->SetRangeUser(fRange[0], fRange[1]);
+  //printf("%s[%s] nx[%d] ny[%d]\n", h2->GetName(), h2->GetTitle(), nx, ny);
+  for(Int_t iy(0); iy<ny; iy++){
+    for(Int_t ix(0); ix<nx; ix++){
+      h = fH->ProjectionZ(Form("%s_z", h2->GetName()), ix*dxBin+1, (ix+1)*dxBin+1, iy*dyBin+1, (iy+1)*dyBin+1);
+      Int_t ne((Int_t)h->Integral());
+      if(ne<nstat/2){
+        h2->SetBinContent(ix+1, iy+1, -999);
+        h2->SetBinError(ix+1, iy+1, 1.);
+        n++;
+      }else{
+        Float_t v(h->GetMean()), ve(h->GetRMS());
+        if(mid==1){
+          TF1 fg("fg", "gaus", az->GetXmin(), az->GetXmax());
+          fg.SetParameter(0, Float_t(ne)); fg.SetParameter(1, v); fg.SetParameter(2, ve);
+          h->Fit(&fg, "WQ");
+          v = fg.GetParameter(1); ve = fg.GetParameter(2);
+        } else if (mid==2) {
+          TF1 fl("fl", "landau", az->GetXmin(), az->GetXmax());
+          fl.SetParameter(0, Float_t(ne)); fl.SetParameter(1, v); fl.SetParameter(2, ve);
+          h->Fit(&fl, "WQ");
+          v = fl.GetMaximumX(); ve = fl.GetParameter(2);
+/*          TF1 fgle("gle", "[0]*TMath::Landau(x, [1], [2], 1)*TMath::Exp(-[3]*x/[1])", az->GetXmin(), az->GetXmax());
+          fgle.SetParameter(0, fl.GetParameter(0));
+          fgle.SetParameter(1, fl.GetParameter(1));
+          fgle.SetParameter(2, fl.GetParameter(2));
+          fgle.SetParameter(3, 1.);fgle.SetParLimits(3, 0., 5.);
+          h->Fit(&fgle, "WQ");
+          v = fgle.GetMaximumX(); ve = fgle.GetParameter(2);*/
+        }
+        if(v<fRange[0]) h2->SetBinContent(ix+1, iy+1, fRange[0]+0.1*dz);
+        else h2->SetBinContent(ix+1, iy+1, v);
+        h2->SetBinError(ix+1, iy+1, ve);
+      }
+    }
+  }
+  if(h) delete h;
+  if(n==nx*ny){delete h2; h2=NULL;} // clean empty projections
+  return h2;
+}
+
+//________________________________________________________
+void AliTRDresolution::SetRangeZ(TH2 *h2, Float_t min, Float_t max)
+{
+// Set range on Z axis such to avoid outliers
+
+  Float_t c(0.), dz(1.e-3*(max-min));
+  for(Int_t ix(1); ix<=h2->GetXaxis()->GetNbins(); ix++){
+    for(Int_t iy(1); iy<=h2->GetYaxis()->GetNbins(); iy++){
+      if((c = h2->GetBinContent(ix, iy))<10) continue;
+      if(c<=min) h2->SetBinContent(ix, iy, min+dz);
+    }
+  }
+  h2->GetZaxis()->SetRangeUser(min, max);
+}
+
+//________________________________________________________
+void AliTRDresolution::AliTRDresolutionProjection::SetRebinStrategy(Int_t n, Int_t rebx[], Int_t reby[])
+{
+// define rebinning strategy for this projection
+  fNrebin = n;
+  fRebinX = new Int_t[n]; memcpy(fRebinX, rebx, n*sizeof(Int_t));
+  fRebinY = new Int_t[n]; memcpy(fRebinY, reby, n*sizeof(Int_t));
+}
+
+