6         gROOT->LoadMacro(
"$VMCWORKDIR/gconfig/rootlogon.C");
rootlogon();
 
   10         TCanvas *
c1=
new TCanvas(
"c1",
"c1",600,600);
 
   13         TH1F *m1=
new TH1F(
"m1",
"#eta: m(#gamma #gamma)",100,0.547-0.15,0.547+0.15);
 
   14         TH1F *
m2=
new TH1F(
"m2",
"J/#psi: m(e^{+} e^{-})",100,3.096-0.35,3.096+0.35);
 
   15         TH1F *m3=
new TH1F(
"m3",
"#chi_{c0}: m(J/#psi #gamma)",100,3.415-0.35,3.415+0.35);
 
   17         TH1F *nn=
new TH1F(
"nn",
"n neutrals",20,0,20);
 
   18         TH1F *
nc=
new TH1F(
"nc",
"n charged",20,0,20);
 
   20         PndEventReader evr(fsig);
 
   22         if (nevts==0) nevts=evr.GetEntries();
 
   25         TCandList 
gam, pip, pim, 
eta, jpsi, chi_c;
 
   27         TPidMassSelector *etaMassSel=
new TPidMassSelector(
"eta",0.547,0.04);
 
   28         TPidMassSelector *jpsiMassSel=
new TPidMassSelector(
"jpsi",3.096,0.04);
 
   32         while (evr.GetEvent() && i++<nevts)
 
   34                 if (0==i%100) cout <<
"evt "<<i<<endl;
 
   36                 evtinfo=evr.GetEventInfo();
 
   49                 evr.FillList(gam,
"Neutral");
 
   50                 evr.FillList(pip,
"PionVeryLoosePlus");
 
   51                 evr.FillList(pim,
"PionVeryLooseMinus");
 
   54                 for (j=0;j<eta.GetLength();++j) m1->Fill(eta[j].M()); 
 
   55                 eta.Select(etaMassSel);
 
   57                 jpsi.Combine(gam, eta, pip, pim);
 
   58                 for (j=0;j<jpsi.GetLength();++j) m2->Fill(jpsi[j].M()); 
 
   59                 jpsi.Select(jpsiMassSel);
 
   61                 chi_c.Combine(jpsi,gam);
 
   62                 for (j=0;j<chi_c.GetLength();++j) m3->Fill(chi_c[j].M()); 
 
   66         c1->cd(1); m1->Draw();
 
   67         c1->cd(2); m2->Draw();
 
   68         c1->cd(3); m3->Draw();
 
   69         c1->cd(4); nn->Draw();
 
   76     printf(
"RealTime=%f seconds, CpuTime=%f seconds\n",rtime,ctime);
 
printf("RealTime=%f seconds, CpuTime=%f seconds\n", rtime, ctime)
TString m2(TString pts, TString exts="e px py pz")
int ana_chic(TString fsig, TString fbkg, int nevts=0)