FastCentHelper.C

Go to the documentation of this file.

#ifndef FASTCENTHELPER_H
#define FASTCENTHELPER_H
#ifndef __CINT__
# include <TAxis.h>
# include <TString.h>
# include <TList.h>
# include <TH1.h>
# include <TH2.h>
# include <TError.h>
# include <THStack.h>
# include <TClass.h>
# include <TStyle.h>
# include <TProfile.h>
#else
class TAxis;
class TString;
class TList;
class TH1;
class TH2;
class TCollection;
class TClass;
class TH1D;
class TArrayI;
#endif

struct FastCentHelper
{
  TAxis*       fCentAxis;
  TString      fCentMeth;
  TList*       fCentList;
  TH1*         fCentAll; 
  TH1*         fCentAcc; 
  TH2*         fCentMult; 
  TH2*         fCentNPart; 
  TH2*         fCentNBin; 
  TH2*         fCentB; 
  TArrayI      fMapping; 
  FastCentHelper(const char* method)
    : fCentAxis(0),
      fCentMeth(method),
      fCentList(0),
      fCentAll(0),
      fCentAcc(0),
      fCentMult(0),
      fCentNPart(0),
      fCentNBin(0),
      fCentB(0),
      fMapping(0)
  {
    TString    axis("default");
    TString    meth(method);
    TObjArray* tokens = meth.Tokenize(":");

    if (fCentMeth.IsNull()) {
      SetCentAxis(axis);
      return;
    }
    fCentMeth = tokens->At(0)->GetName();
    if (tokens->GetEntriesFast() > 1)
      axis = tokens->At(1)->GetName();
    
    if (fCentMeth.Contains("RefMult")) SetCentAxis("mult");
    else                               SetCentAxis(axis);
  }
  void SetCentAxis(Int_t n, Double_t low, Double_t high)
  {
    if (fCentAxis) {
      delete fCentAxis;
      fCentAxis = 0;
    }
    fCentAxis = new TAxis(n, low, high);
  }
  void SetCentAxis(Int_t n, Double_t* edges)
  {
    if (fCentAxis) {
      delete fCentAxis;
      fCentAxis = 0;
    }
    fCentAxis = new TAxis(n, edges);
  }
  void SetCentAxis(const char* spec)
  {
    Info("SetCentAxis", "Setting centrality axis from %s", spec);
    TString    s(spec);
    s.ToLower();
    if (s.IsNull()) return;
    if (s.EqualTo("pbpb") || s.EqualTo("aa") || s.EqualTo("default")) {
      Printf("Setting centrality axis Pb-Pb");
      Double_t aa[] = { 0, 5, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100 };
      SetCentAxis(11, aa);
      fCentAxis->SetUniqueID(2);
      return;
    }
    if (s.EqualTo("ppb") || s.EqualTo("pbp") ||
  s.EqualTo("pa") || s.EqualTo("ap")) {
      Printf("Setting centrality axis p-Pb/Pb-p");
      Double_t pa[] = { 0, 5, 10, 20, 40, 60, 80, 100 };
      SetCentAxis(7, pa);
      fCentAxis->SetUniqueID(3);
      return;
    }
    if (s.EqualTo("pp")) {
      Printf("Setting centrality axis pp");
      Double_t pp[] = { 0, 0.01, 0.1, 1, 5, 10, 15, 20, 30, 40, 50, 70, 100 };
      SetCentAxis(12, pp);
      fCentAxis->SetUniqueID(1);
      return;
    }
    
    TObjArray* tokens  = s.Tokenize(":");
    Int_t      nTokens = tokens->GetEntriesFast();
    TArrayD    edges(nTokens);
    for (Int_t i = 0; i < nTokens; i++) {
      TObjString* token = static_cast<TObjString*>(tokens->At(i));
      TString&    edge  = token->String();
      edges[i]          = edge.Atof();
    }
    SetCentAxis(edges.GetSize()-1, edges.GetArray());
    delete tokens;
  }
  Int_t GetCentralityColor(Double_t, Double_t high) const
  {
    Float_t  fc       = high / 100;
    Int_t    nCol     = gStyle->GetNumberOfColors();
    Int_t    icol     = TMath::Min(nCol-1,int(fc * nCol + .5));
    Int_t    col      = gStyle->GetColorPalette(icol);
    //Info("GetCentralityColor","%3d: %3d-%3d -> %3d",bin,centLow,centHigh,col);
    return col;
  }
  virtual const char* HistName(Double_t low, Double_t high) const
  {
    return Form("h%03dd%02d_%03dd%02d",
    Int_t(low),  Int_t(100*low) %100,
    Int_t(high), Int_t(100*high)%100);
  }
  virtual const char* HistName(Int_t i) const
  {
    if (!fCentAxis) return "?";
    return HistName(fCentAxis->GetBinLowEdge(i), fCentAxis->GetBinUpEdge(i));
  }
  virtual const char* HistTitle(Double_t low, Double_t high) const
  {
    if (fCentMeth.BeginsWith("RefMult")) {
      Int_t iLow  = low;
      Int_t iHigh = high;
      if (iLow == iHigh) {
  if (iLow == 0) return " 0";
  else           return Form("%2d+", iLow);
      }
      return Form("%2d-%2d", iLow+1, iHigh);
    }      
    return Form("%6.2f-%6.2f%%", low, high);
  }
  void ModHist(TObject* o, Double_t low, Double_t high, Int_t lvl=0)
  {
    if (!o) return;
    if (lvl == 0) {
      Printf("Base level, setting names on %p", o);
      if (o->IsA()->InheritsFrom(TNamed::Class())) {
  TNamed* n = static_cast<TNamed*>(o);
  n->SetName(HistName(low, high));
  n->SetTitle(HistTitle(low, high));
      }
    }
    if (o->IsA()->InheritsFrom(TCollection::Class())) {
      Printf("Got a collection, will loop on that");
      TCollection* c = static_cast<TCollection*>(o);
      c->SetName(HistName(low, high));

      TObject* oo = 0;
      TIter    next(c);
      while ((oo = next())) ModHist(oo, low, high, lvl+1);
      return;
    }
    Color_t col = GetCentralityColor(low, high);
    if (o->IsA()->InheritsFrom(TH1::Class())) {
      Printf("Got a histogram, will modify that");
      TH1* h = static_cast<TH1*>(o);
      h->SetLineColor(col);
      h->SetLineStyle(1);
      h->SetMarkerColor(col);
      h->SetMarkerStyle(24);
      h->SetFillColor(kWhite);
      h->SetFillStyle(0);
      h->SetMinimum(0);
      h->Sumw2();
    }
  }
  void CreateHistos(TCollection* output, TObject* (*callback)())
  {
    // Create our stack 
    // fCentStack = new THStack("stack", "Stack of all dN_{ch}/d#eta");
    fCentList  = new TList;
    fCentList->SetName("byCent");
    for (Int_t i = 1; i <= fCentAxis->GetNbins(); i++) {
      Double_t low  = fCentAxis->GetBinLowEdge(i);
      Double_t high = fCentAxis->GetBinUpEdge(i);
      Printf("Calling call-back for %5.1f-%5.1f%%", low, high);
      TObject* obj  = (*callback)();
      Printf("Got call back return %p", obj);
      ModHist(obj, low, high);
      Printf("Now adding %s (%s)to centrality list",
       obj->GetName(), obj->ClassName());
      fCentList->Add(obj);
    }
    if (fCentMeth.BeginsWith("RefMult")) {
      // Create null-bin 
      TObject* first = (*callback)();
      ModHist(first, 0, 0);
      fCentList->AddFirst(first);

      // Create overflow-bin
      TObject* last = (*callback)();
      ModHist(last, 100, 100);
      fCentList->AddLast(last);
    }      
    output->Add(fCentList);
    // output->ls();

    if (fCentAxis->GetXbins()->GetArray()) 
      fCentAll = new TH1D("cent", "All Centralities",
        fCentAxis->GetNbins(),
        fCentAxis->GetXbins()->GetArray());
    else
      fCentAll = new TH1D("cent", "All Centralities",
        fCentAxis->GetNbins(),
        fCentAxis->GetXmin(),
        fCentAxis->GetXmax());
    fCentAll->SetXTitle("Centrality [%]");
    fCentAll->SetYTitle("Events");
    fCentAll->SetFillColor(kRed+2);
    fCentAll->SetFillStyle(3002);
    fCentAll->SetMarkerStyle(20);
    fCentAll->SetMarkerColor(kRed+2);
    fCentAll->SetLineColor(kRed+2);
    fCentAll->SetDirectory(0);
    fCentAll->SetMinimum(0);
    output->Add(fCentAll);

    fCentAcc = static_cast<TH1*>(fCentAll->Clone("centAcc"));
    fCentAcc->SetTitle("Accepted centralities");
    fCentAcc->SetFillColor(kGreen+2);
    fCentAcc->SetMarkerColor(kGreen+2);
    fCentAcc->SetLineColor(kGreen+2);
    fCentAcc->SetDirectory(0);
    output->Add(fCentAcc);
    // output->ls();

    Printf("End of create outputs");
  }
  void CreateDiagnostics(TCollection* output, TH1* centHist)
  {
    if (fCentMult || fCentNPart) return;

    fCentMult  = 0;
    fCentNPart = 0;
    fCentNBin  = 0;
    Int_t maxNPart = 2*210;
    Int_t maxNBin  = 7*210;
    if (fCentAxis->GetXbins()->GetArray()) {
      fCentNPart = new TH2D("centNPart", "Centrality vs. N_{part}",
          fCentAxis->GetNbins(), 
          fCentAxis->GetXbins()->GetArray(),
          maxNPart, 0, maxNPart);
      fCentNBin  = new TH2D("centNBin", "Centrality vs. N_{bin}", 
          fCentAxis->GetNbins(), 
          fCentAxis->GetXbins()->GetArray(),
          maxNBin, 0, maxNBin);
      fCentB     = new TH2D("centB", "Centrality vs. b",
          fCentAxis->GetNbins(), 
          fCentAxis->GetXbins()->GetArray(),
          200, 0, 20);
    } else {
      fCentNPart = new TH2D("centNPart", "Centrality vs. N_{part}",
          fCentAxis->GetNbins(), fCentAxis->GetXmin(), 
          fCentAxis->GetXmax(),
          maxNPart, 0, maxNPart);
      fCentNBin  = new TH2D("centNBin", "Centrality vs. N_{bin}", 
          fCentAxis->GetNbins(), fCentAxis->GetXmin(), 
          fCentAxis->GetXmax(),
          maxNBin, 0, maxNBin);
      fCentB     = new TH2D("centB", "Centrality vs. b",
          fCentAxis->GetNbins(), fCentAxis->GetXmin(), 
          fCentAxis->GetXmax(),
          200, 0, 20);
    }

    fCentNPart->SetXTitle(Form("Centrality (%s) %%", fCentMeth.Data()));
    fCentNPart->SetYTitle("N_{part}");
    fCentNPart->SetDirectory(0);

    fCentNBin->SetXTitle(Form("Centrality (%s) %%", fCentMeth.Data()));
    fCentNBin->SetYTitle("N_{bin}");
    fCentNBin->SetDirectory(0);

    fCentB->SetXTitle(Form("Centrality (%s) %%", fCentMeth.Data()));
    fCentB->SetYTitle("b [fm]");
    fCentB->SetDirectory(0);
    
    output->Add(fCentNPart);
    output->Add(fCentNBin);
    output->Add(fCentB);

    if (!centHist) return;;
    if (fCentAxis->GetXbins()->GetArray()) {
      fCentMult  = new TH2D("centMult","Event multiplicity vs. centrality",
          centHist->GetXaxis()->GetNbins(),
          centHist->GetXaxis()->GetXmin(),
          centHist->GetXaxis()->GetXmax(),
          fCentAxis->GetNbins(),
          fCentAxis->GetXbins()->GetArray());
    } else {
      fCentMult  = new TH2D("centMult","Event multiplicity vs. centrality",
          centHist->GetXaxis()->GetNbins(),
          centHist->GetXaxis()->GetXmin(),
          centHist->GetXaxis()->GetXmax(),
          fCentAxis->GetNbins(),
          fCentAxis->GetXmin(), fCentAxis->GetXmax());
    }
    fCentMult->SetXTitle(Form("Event multiplicity (%s)", fCentMeth.Data()));
    fCentMult->SetYTitle(Form("Centrality (%s) %%", fCentMeth.Data()));
    fCentMult->SetDirectory(0);    
    output->Add(fCentMult);

    return;
  }    
  Int_t CheckCentrality(Double_t cent,
      Double_t mult,
      Double_t b,
      Double_t nPart,
      Double_t nBin)
  {
    Int_t ret = -1;
    fCentAll->Fill(cent);
    if (fCentMult) fCentMult->Fill(mult, cent);
    fCentB->Fill(cent, b);
    if (cent < 0 || cent > 999) {
      Warning("FillDiagnostics",
        "Centrality is unreasonable: %f -> %f",mult, cent);
      return ret;
    }
    Int_t n = fCentAxis->GetNbins();
    ret = fCentAxis->FindBin(cent);
    if (ret-1 == n && cent == fCentAxis->GetXmax())
      ret = n;
    if (ret < 1 || ret > n) {
      Warning("ProcessHeader", "Centrality %f -> %f -> bin # %d",
        mult, cent, ret);
      ret = -1;
      return ret;
    }
    fCentNPart->Fill(cent, nPart);
    fCentNBin->Fill(cent, nBin);
    if (ret == n) cent -= 0.001;
    fCentAcc->Fill(cent);
    return ret;
  }
  TObject* CentObject(Int_t bin, TClass* cls=0) const
  {
    if (!fCentList) {
      Warning("CentObject", "No centrality objects defined");
      return 0;
    }
    if (fMapping.GetArray()) {
      if (bin >= fMapping.GetSize()) {
  Warning("CentObject", "Bin # %2d out of range [%2d,%2d]",
    bin, 1, fMapping.GetSize());
  return 0;
      }
      Int_t old = bin;
      bin = fMapping[old];
      // Info("CentObject", "Mapped bin %d to index %d", old, bin);
    }
    if (bin <= 0 || bin > fCentList->GetEntries()) {
      if (!fMapping.GetArray()) 
  Warning("CentObject", "Bin # %2d out of range [%2d,%2d]",
    bin, 1, fCentList->GetEntries());
      return 0;
    }
    TObject* o = fCentList->At(bin-1);
    if (!o) {
      Warning("CentObject", "No centrality object defined for bin %d", bin);
      return 0;
    }
    if (cls && !o->IsA()->InheritsFrom(cls)) {
      Warning("CentObject", "Centrality object %s is not a %s, but a %s",
        o->GetName(), cls->GetName(), o->ClassName());
      return 0;
    }
    return o;
  }
  TH1* CentHist(Int_t bin) const
  {
    return static_cast<TH1*>(CentObject(bin,TH1::Class()));
  }
  TCollection* CentCollection(Int_t bin) const
  {
    return static_cast<TCollection*>(CentObject(bin,TCollection::Class()));
  }
    
  TObject* GetOutputObject(TCollection* output, const char* name, TClass* cls)
  {
    TObject* o = output->FindObject(name);
    if (!o) {
      Warning("GetOutputObject", "Object %s not found in output", name);
      output->ls();
      return 0;
    }
    if (cls && !o->IsA()->InheritsFrom(cls)) {
      Warning("GetOutputObject", "Object %s from output is not a %s, but a %s",
        o->GetName(), cls->GetName(), o->ClassName());
      return o;
    }
    return o;
  }
  TH2*   Get2DDiag(TCollection* output,
       const char*  name,
       Bool_t       projX) 
  {
    TH2* h = static_cast<TH2*>(GetOutputObject(output, name, TH2::Class()));
    if (!h) return 0;
    TProfile* p = (projX ?
       h->ProfileX(Form("%sMean", name)) :
       h->ProfileY(Form("%sMean", name)));
    p->SetDirectory(0);
    output->Add(p);
    
    return h;
  }
  Bool_t Finalize(TCollection* output, Long_t minEvents,
      TH1* (*callback)(TObject*,Int_t))
  {
    
    fCentAll   = static_cast<TH1*>(GetOutputObject(output, "cent",
               TH1::Class()));
    fCentAcc   = static_cast<TH1*>(GetOutputObject(output, "centAcc",
               TH1::Class()));
    fCentMult  = Get2DDiag(output, "centMult", false);
    fCentNPart = Get2DDiag(output, "centNPart",true);
    fCentNBin  = Get2DDiag(output, "centNBin", true);
    fCentB     = Get2DDiag(output, "centB",    true);
    fCentList = static_cast<TList*>(GetOutputObject(output, "byCent",
                TList::Class()));
    if (!fCentList || !fCentAll || !fCentAcc) {
      Warning("Finalize", "Missing stack and histograms");
      return false;
    }
    Info("Terminate", "Accepted %d/%d=%6.2f%% events",
   int(fCentAcc->GetEntries()), int(fCentAll->GetEntries()),
   100*fCentAcc->GetEntries()/fCentAll->GetEntries());

    fMapping.Set(fCentAll->GetNbinsX()+1);
    fMapping.Reset(-1);
    THStack*  stack = new THStack("all", "All");
    TList*    hists = fCentList; // ->GetHists();
    TObjLink* link  = hists->FirstLink();
    Int_t     bin   = 1;
    Int_t     cnt   = 0;
    Long64_t  sum   = 0;
    Long64_t  total = 0;
    Long64_t  all   = fCentAll->GetEntries();
    while (link) {
      TObject* o = link->GetObject();
      if (!o) {
  link = link->Next();
  bin++;
  continue;
      }
      Int_t m = fCentAcc->GetBinContent(bin);
      total += m;
      printf("%9d events in bin %s ...", m, o->GetTitle());
      if (m < minEvents) {
  // Too few event, remove this
  TObjLink* tmp = link->Next();
  hists->Remove(link);
  link = tmp;
  delete o;
  Printf(" removed");
  bin++;
  continue;
      }
      sum += m;
      TH1* h = (*callback)(o,m);
      stack->Add(h);
      Printf(" processed [%2d->%2d]", bin, cnt);
      link = link->Next();
      fMapping[bin] = cnt+1;
      cnt++;
      bin++;
#if 0
      TH1*  h = static_cast<TH1*>(o);
      Int_t n = h->GetBinContent(0);
      h->SetBinContent(0,0);
      printf("%9d (%9d) events in bin %s ...", n, m, o->GetTitle());
      if (n < minEvents) {
  // Too few event, remove this
  TObjLink* tmp = link->Next();
  hists->Remove(link);
  link = tmp;
  delete o;
  Printf(" removed");
  bin++;
  continue;
      }
      sum += m;
      // Scale
      h->Scale(1. / n, "width");
      stack->Add(h);
      Printf(" scaled");
      link = link->Next();
      bin++;
#endif 
    }
    Printf("ana/acc/all: %9lld/%9lld/%9lld [%6.2f%%/%6.2f%%]",
     sum, total, all, float(100*sum)/total, float(100*total)/all);
    output->Add(stack);
    for (Int_t i = 1; i < fMapping.GetSize(); i++)
      Printf("  %3d -> %3d", i, fMapping[i]);
  }
  void Print(Option_t* option="") const
  {
    Int_t nBins = (fCentAxis?fCentAxis->GetNbins():0);
    Printf("  Method:               %s", fCentMeth.Data());
    Printf("  Axis:                 %d", nBins);
    if (nBins < 2) return;
    printf("   ");
    for (Int_t i = 1; i <= nBins; i++)
      printf("%5.1f-",fCentAxis->GetBinLowEdge(i));
    Printf("%5.1f%%", fCentAxis->GetBinUpEdge(nBins));
  }
  ClassDef(FastCentHelper,1);
};
#endif

//
// EOF
//