prod/acrcaf/qa_pp/plot_macros/plotPhiVz.C

   1 {
   2 gROOT->SetStyle("Plain");
   3 gStyle->SetOptStat(0);
   4 gStyle->SetPalette(1);
   5
   6 //open files and get lists
   7 TList *l;
   8 TFile f0("QAsym.proof.root");
   9 l = (TList *)f0.Get("QAsymHists");
  10
  11
  12 TH2F* fHpos;
  13 TH2F* fHpneg;
  14
  15 fHpos=  (TH2F*) l->FindObject("fRecPhiPosVz");
  16 fHneg=  (TH2F*) l->FindObject("fRecPhiNegVz");
  17
  18
  19
  20
  21
  22
  23 TCanvas * dca = new TCanvas("pt", "pt", 100, 100, 1020, 520);
  24 dca->Divide(2,1);
  25 dca->cd(1);
  26 fHpos->Draw("colz");
  27 fHpos->SetTitle("positive tracks");
  28 fHpos->SetYTitle("esdtrack->Zv()");
  29
  30 dca->cd(2);
  31 fHneg->Draw("colz");
  32 fHneg->SetMaximum(fHpos->GetMaximum());
  33 fHneg->SetTitle("negative tracks");
  34 fHneg->SetYTitle("esdtrack->Zv()");
  35
  36
  37
  38 }
  39
  40
  41
  42 }