1 Int_t diaglevel=2; // 1->Hits, 2->Spectra, 3->Statistics
4 void RICHpadtestC (Int_t evNumber1=0,Int_t evNumber2=0)
6 /////////////////////////////////////////////////////////////////////////
7 // This macro is a small example of a ROOT macro
8 // illustrating how to read the output of GALICE
9 // and do some analysis.
11 /////////////////////////////////////////////////////////////////////////
14 Int_t NpadX = 162; // number of pads on X
15 Int_t NpadY = 162; // number of pads on Y
18 for (Int_t i=0;i<NpadX;i++) {
19 for (Int_t j=0;j<NpadY;j++) {
26 // Dynamically link some shared libs
28 if (gClassTable->GetID("AliRun") < 0) {
29 gROOT->LoadMacro("loadlibs.C");
33 // Connect the Root Galice file containing Geometry, Kine and Hits
35 TFile *file = (TFile*)gROOT->GetListOfFiles()->FindObject("galice.root");
36 if (!file) file = new TFile("galice.root");
38 // Get AliRun object from file or create it if not on file
41 gAlice = (AliRun*)file->Get("gAlice");
42 if (gAlice) printf("AliRun object found on file\n");
43 if (!gAlice) gAlice = new AliRun("gAlice","Alice test program");
46 // Create some histograms
53 /*TH2F *hc1 = new TH2F("hc1","Chamber 1 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
54 TH2F *hc2 = new TH2F("hc2","Chamber 2 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
55 TH2F *hc3 = new TH2F("hc3","Chamber 3 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
56 TH2F *hc4 = new TH2F("hc4","Chamber 4 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
57 TH2F *hc5 = new TH2F("hc5","Chamber 5 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
58 TH2F *hc6 = new TH2F("hc6","Chamber 6 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
59 TH2F *hc7 = new TH2F("hc7","Chamber 7 signal distribution",NpadX,xmin,xmax,NpadY,ymin,ymax);
60 TH2F *h = new TH2F("h","Detector hit distribution",150,-300,300,150,-300,300);
61 TH1F *Clcharge = new TH1F("Clcharge","Cluster Charge Distribution",500,0.,500.);
62 TH2F *cerenkov = new TH2F("cerenkov","Cerenkov hit distribution",150,-300,300,150,-300,300);
63 TH1F *ckovangle = new TH1F("ckovangle","Cerenkov angle per photon",200,.6,.85);
64 TH1F *hckphi = new TH1F("hckphi","Cerenkov phi angle per photon",620,-3.1,3.1);
65 TH2F *feedback = new TH2F("feedback","Feedback hit distribution",150,-300,300,150,-300,300);
66 TH2F *mip = new TH2F("mip","Mip hit distribution",150,-300,300,150,-300,300);
67 TH1F *mother = new TH1F("mother","Cerenkovs per Mip",75,0.,75.);
68 TH1F *radius = new TH1F("radius","Mean distance to Mip",200,0.,20.);
69 TH1F *phspectra1 = new TH1F("phspectra","Photon Spectra",200,5.,10.);
70 TH1F *phspectra2 = new TH1F("phspectra","Photon Spectra",200,5.,10.);
71 TH1F *totalphotons = new TH1F("totalphotons","Produced Photons per Mip",100,200,700.);
72 TH1F *feedbacks = new TH1F("feedbacks","Produced Feedbacks per Mip",50,0.5,50.);
73 TH1F *padnumber = new TH1F("padnumber","Number of pads per cluster",50,-0.5,50.);
74 TH1F *padsev = new TH1F("padsev","Number of pads hit per event",50,0.5,100.);
75 TH1F *clusev = new TH1F("clusev","Number of clusters per event",50,0.5,50.);
76 TH1F *photev = new TH1F("photev","Number of photons per event",50,0.5,50.);
77 TH1F *feedev = new TH1F("feedev","Number of feedbacks per event",50,0.5,50.);
78 TH1F *padsmip = new TH1F("padsmip","Number of pads per event inside MIP region",50,0.5,50.);
79 TH1F *padscl = new TH1F("padscl","Number of pads per event from cluster count",50,0.5,100.);*/
80 TH1F *pionspectra1 = new TH1F("pionspectra1","Pion Spectra",200,-4,2);
81 TH1F *pionspectra2 = new TH1F("pionspectra2","Pion Spectra",200,-4,2);
82 TH1F *pionspectra3 = new TH1F("pionspectra3","Pion Spectra",200,-4,2);
83 TH1F *protonspectra1 = new TH1F("protonspectra1","Proton Spectra",200,-4,2);
84 TH1F *protonspectra2 = new TH1F("protonspectra2","Proton Spectra",200,-4,2);
85 TH1F *protonspectra3 = new TH1F("protonspectra3","Proton Spectra",200,-4,2);
86 TH1F *kaonspectra1 = new TH1F("kaonspectra1","Kaon Spectra",100,-4,2);
87 TH1F *kaonspectra2 = new TH1F("kaonspectra2","Kaon Spectra",100,-4,2);
88 TH1F *kaonspectra3 = new TH1F("kaonspectra3","Kaon Spectra",100,-4,2);
89 TH1F *electronspectra1 = new TH1F("electronspectra1","Electron Spectra",100,-4,2);
90 TH1F *electronspectra2 = new TH1F("electronspectra2","Electron Spectra",100,-4,2);
91 TH1F *electronspectra3 = new TH1F("electronspectra3","Electron Spectra",100,-4,2);
92 TH1F *muonspectra1 = new TH1F("muonspectra1","Muon Spectra",100,-4,2);
93 TH1F *muonspectra2 = new TH1F("muonspectra2","Muon Spectra",100,-4,2);
94 TH1F *muonspectra3 = new TH1F("muonspectra3","Muon Spectra",100,-4,2);
95 TH1F *neutronspectra1 = new TH1F("neutronspectra1","Neutron Spectra",100,-4,2);
96 TH1F *neutronspectra2 = new TH1F("neutronspectra2","Neutron Spectra",100,-4,2);
97 TH1F *neutronspectra3 = new TH1F("neutronspectra2","Neutron Spectra",100,-4,2);
98 TH1F *chargedspectra1 = new TH1F("chargedspectra1","Charged particles above 1 GeV Spectra",100,-1,3);
99 TH1F *chargedspectra2 = new TH1F("chargedspectra2","Charged particles above 1 GeV Spectra",100,-1,3);
100 TH1F *chargedspectra3 = new TH1F("chargedspectra2","Charged particles above 1 GeV Spectra",100,-1,3);
101 /* TH1F *hitsX = new TH1F("digitsX","Distribution of hits along x-axis",200,-300,300);
102 TH1F *hitsY = new TH1F("digitsY","Distribution of hits along z-axis",200,-300,300);*/
103 TH2F *production = new TH2F("production","Mother production vertices",100,-300,300,100,0,600);
108 // Start loop over events
113 //Int_t mothers[100000];
114 //Int_t mothers2[100000];
121 Int_t pion=0, kaon=0, proton=0, electron=0, positron=0, neutron=0, highneutrons=0, muon=0;
122 Int_t chargedpions=0,primarypions=0,highprimarypions=0,chargedkaons=0,primarykaons=0,highprimarykaons=0;
123 Int_t chargedmuons=0, photons=0, primaryphotons=0, highprimaryphotons=0;
127 //for (Int_t i=0;i<100;i++) mothers[i]=0;
128 for (int nev=0; nev<= evNumber2; nev++) {
129 Int_t nparticles = gAlice->GetEvent(nev);
132 //cout<<"nev "<<nev<<endl;
133 printf ("Event number : %d\n",nev);
134 //cout<<"nparticles "<<nparticles<<endl;
135 printf ("Number of particles: %d\n",nparticles);
136 if (nev < evNumber1) continue;
137 if (nparticles <= 0) return;
139 // Get pointers to RICH detector and Hits containers
141 AliRICH *RICH = (AliRICH*)gAlice->GetDetector("RICH");
142 Int_t nent=(Int_t)gAlice->TreeR()->GetEntries();
143 gAlice->TreeR()->GetEvent(nent-1);
144 TClonesArray *Rawclusters = RICH->RawClustAddress(2); // Raw clusters branch
145 //printf ("Rawclusters:%p",Rawclusters);
146 Int_t nrawclusters = Rawclusters->GetEntriesFast();
147 //printf (" nrawclusters:%d\n",nrawclusters);
148 TTree *TH = gAlice->TreeH();
149 Int_t ntracks = TH->GetEntries();
153 /* Int_t nent=(Int_t)gAlice->TreeD()->GetEntries();
154 gAlice->TreeD()->GetEvent(nent-1);
157 TClonesArray *Digits = RICH->DigitsAddress(2); // Raw clusters branch
158 Int_t ndigits = Digits->GetEntriesFast();
159 //printf("Digits:%d\n",ndigits);
160 padsev->Fill(ndigits,(float) 1);*/
162 /* for (Int_t ich=0;ich<7;ich++)
164 TClonesArray *Digits = RICH->DigitsAddress(ich); // Raw clusters branch
165 Int_t ndigits = Digits->GetEntriesFast();
166 //printf("Digits:%d\n",ndigits);
167 padsev->Fill(ndigits,(float) 1);
169 for (Int_t hit=0;hit<ndigits;hit++) {
170 dHit = (AliRICHDigit*) Digits->UncheckedAt(hit);
171 //Int_t nchamber = padHit->fChamber; // chamber number
172 //Int_t nhit = dHit->fHitNumber; // hit number
173 Int_t qtot = dHit->fSignal; // charge
174 Int_t ipx = dHit->fPadX; // pad number on X
175 Int_t ipy = dHit->fPadY; // pad number on Y
176 //Int_t iqpad = dHit->fQpad; // charge per pad
177 //Int_t rpad = dHit->fRSec; // R-position of pad
178 //printf ("Pad hit, PadX:%d, PadY:%d\n",ipx,ipy);
179 if( ipx<=162 && ipy <=162 && ich==0) hc1->Fill(ipx,ipy,(float) qtot);
180 if( ipx<=162 && ipy <=162 && ich==1) hc2->Fill(ipx,ipy,(float) qtot);
181 if( ipx<=162 && ipy <=162 && ich==2) hc3->Fill(ipx,ipy,(float) qtot);
182 if( ipx<=162 && ipy <=162 && ich==3) hc4->Fill(ipx,ipy,(float) qtot);
183 if( ipx<=162 && ipy <=162 && ich==4) hc5->Fill(ipx,ipy,(float) qtot);
184 if( ipx<=162 && ipy <=162 && ich==5) hc6->Fill(ipx,ipy,(float) qtot);
185 if( ipx<=162 && ipy <=162 && ich==6) hc7->Fill(ipx,ipy,(float) qtot);
190 // Start loop on tracks in the hits containers
192 for (Int_t track=0; track<ntracks;track++) {
193 printf ("Processing Track: %d\n",track);
195 Int_t nbytes += TH->GetEvent(track);
197 //RICH->ResetRawClusters();
198 TClonesArray *PadHits = RICH->PadHits(); // Cluster branch
199 TClonesArray *Hits = RICH->Hits(); // Hits branch
200 TClonesArray *Cerenkovs = RICH->Cerenkovs(); // Cerenkovs branch
202 //see hits distribution
203 Int_t nhits = Hits->GetEntriesFast();
204 if (nhits) Nh+=nhits;
205 //printf("nhits %d\n",nhits);
206 for (Int_t hit=0;hit<nhits;hit++) {
207 mHit = (AliRICHHit*) Hits->UncheckedAt(hit);
208 Int_t nch = mHit->fChamber; // chamber number
209 Float_t x = mHit->fX; // x-pos of hit
210 Float_t y = mHit->fZ; // y-pos
211 Float_t z = mHit->fY;
212 Int_t index = mHit->fTrack;
213 Int_t particle = mHit->fParticle;
216 //hitsX->Fill(x,(float) 1);
217 //hitsY->Fill(y,(float) 1);
219 //printf("Particle:%d\n",particle);
221 TParticle *current = (TParticle*)(*gAlice->Particles())[index];
223 R=TMath::Sqrt(current->Vx()*current->Vx() + current->Vy()*current->Vy());
225 //printf("Particle type: %d\n",current->GetPdgCode());
226 if (TMath::Abs(particle) < 50000051)
228 //if (TMath::Abs(particle) == 50000050 || TMath::Abs(particle) == 2112)
229 if (TMath::Abs(particle) == 2112 || TMath::Abs(particle) == 50000050)
231 //gMC->Rndm(&random, 1);
232 if (random->Rndm() < .1)
233 production->Fill(current->Vz(),R,(float) 1);
234 if (TMath::Abs(particle) == 50000050)
240 if (current->Energy()>0.001)
241 highprimaryphotons +=1;
244 if (TMath::Abs(particle) == 2112)
247 if (current->Energy()>0.0001)
253 production->Fill(current->Vz(),R,(float) 1);
254 printf("Adding %d at %f\n",particle,R);
256 //mip->Fill(x,y,(float) 1);
259 if (TMath::Abs(particle)==211 || TMath::Abs(particle)==111)
261 pionspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
262 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
263 pionspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
266 pionspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
267 printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\R:%f\n\n\n\n\n\n\n\n\n",R);
269 printf("Pion mass: %e\n",current->GetCalcMass());
271 if (TMath::Abs(particle)==211)
277 if (current->Energy()>1)
278 highprimarypions +=1;
282 if (TMath::Abs(particle)==2212)
284 protonspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
285 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
286 protonspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
288 protonspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
289 //printf("\n\n\n\n\n\n\nProton mass: %e\n\n\n\n\n\n\n\n\n",current->GetCalcMass());
292 if (TMath::Abs(particle)==321 || TMath::Abs(particle)==130 || TMath::Abs(particle)==310
293 || TMath::Abs(particle)==311)
295 kaonspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
296 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
297 kaonspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
299 kaonspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
300 printf("Kaon mass: %e\n",current->GetCalcMass());
302 if (TMath::Abs(particle)==321)
308 if (current->Energy()>1)
309 highprimarykaons +=1;
313 if (TMath::Abs(particle)==11)
315 electronspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
316 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
317 electronspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
319 electronspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
320 printf("Electron mass: %e\n",current->GetCalcMass());
326 if (TMath::Abs(particle)==13)
328 muonspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
329 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
330 muonspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
332 muonspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
333 printf("Muon mass: %e\n",current->GetCalcMass());
336 if (TMath::Abs(particle)==2112)
338 neutronspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
339 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
340 neutronspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
343 neutronspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
344 printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\R:%f\n\n\n\n\n\n\n\n\n",R);
346 printf("Neutron mass: %e\n",current->GetCalcMass());
349 if(TMath::Abs(particle)==211 || TMath::Abs(particle)==2212 || TMath::Abs(particle)==321)
351 if (current->Energy()-current->GetCalcMass()>1)
353 chargedspectra1->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
354 if (current->Vx()>.005 && current->Vy()>.005 && current->Vz()>.005)
355 chargedspectra2->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
357 chargedspectra3->Fill(TMath::Log10(current->Energy() - current->GetCalcMass()),(float) 1);
360 //printf("Hits:%d\n",hit);
361 //printf ("Chamber number:%d x:%f y:%f\n",nch,x,y);
362 // Fill the histograms
364 //h->Fill(x,y,(float) 1);
369 /* Int_t ncerenkovs = Cerenkovs->GetEntriesFast();
372 for (Int_t hit=0;hit<ncerenkovs;hit++) {
373 cHit = (AliRICHCerenkov*) Cerenkovs->UncheckedAt(hit);
374 Int_t nchamber = cHit->fChamber; // chamber number
375 Int_t index = cHit->fTrack;
376 Int_t pindex = cHit->fIndex;
377 Int_t cx = cHit->fX; // x-position
378 Int_t cy = cHit->fZ; // y-position
379 Int_t cmother = cHit->fCMother; // Index of mother particle
380 Int_t closs = cHit->fLoss; // How did the paryicle get lost?
381 //printf ("Cerenkov hit, X:%d, Y:%d\n",cx,cy);
383 TParticle *current = (TParticle*)(*gAlice->Particles())[index];
385 if (current->GetPdgCode() == 50000051)
389 feedback->Fill(cx,cy,(float) 1);
393 if (current->GetPdgCode() == 50000050)
396 cerenkov->Fill(cx,cy,(float) 1);
398 TParticle *MIP = (TParticle*)(*gAlice->Particles())[current->GetFirstMother()];
399 //TParticle *MIP = (TParticle*)(*gAlice->Particles())[MIP1->GetFirstDaughter()];
400 //printf("Second Mother:%d",MIP1->GetFirstDaughter());
401 mom[0] = current->Px();
402 mom[1] = current->Py();
403 mom[2] = current->Pz();
404 Float_t energy = current->Energy();
405 Float_t Mip_px = MIP->Px();
406 Float_t Mip_py = MIP->Py();
407 Float_t Mip_pz = MIP->Pz();
409 Float_t r = mom[0]*mom[0] + mom[1]*mom[1] + mom[2]*mom[2];
410 Float_t rt = TMath::Sqrt(r);
411 Float_t Mip_r = Mip_px*Mip_px + Mip_py*Mip_py + Mip_pz*Mip_pz;
412 Float_t Mip_rt = TMath::Sqrt(Mip_r);
413 Float_t coscerenkov = (mom[0]*Mip_px + mom[1]*Mip_py + mom[2]*Mip_pz)/(rt*Mip_rt);
414 Float_t cherenkov = TMath::ACos(coscerenkov);
415 ckovangle->Fill(cherenkov,(float) 1); //Cerenkov angle calculus
416 Float_t ckphi=TMath::ATan2(mom[0], mom[2]);
417 hckphi->Fill(ckphi,(float) 1);
419 //mipHit = (AliRICHHit*) Hits->UncheckedAt(0);
421 Float_t mx = MIP->Vx();
422 Float_t my = MIP->Vz();
423 Float_t mz = MIP->Vy();
425 //Float_t mx = mipHit->fX;
426 //Float_t my = mipHit->fZ;
427 Float_t dx = cx - mx;
428 Float_t dy = cy - my;
429 Float_t final_radius = TMath::Sqrt(dx*dx+dy*dy);
430 radius->Fill(final_radius,(float) 1);
434 phspectra1->Fill(energy*1e9,(float) 1);
438 phspectra2->Fill(energy*1e9,(float) 1);
439 for (Int_t nmothers=0;nmothers<=ntracks;nmothers++){
440 if (cmother == nmothers){
451 for (Int_t hit=0;hit<nrawclusters;hit++) {
452 rcHit = (AliRICHRawCluster*) Rawclusters->UncheckedAt(hit);
453 //Int_t nchamber = rcHit->fChamber; // chamber number
454 //Int_t nhit = cHit->fHitNumber; // hit number
455 Int_t qtot = rcHit->fQ; // charge
456 Int_t fx = rcHit->fX; // x-position
457 Int_t fy = rcHit->fY; // y-position
458 Int_t type = rcHit->fCtype; // cluster type ?
459 Int_t mult = rcHit->fMultiplicity; // How many pads form the cluster
462 if (fx>-4 && fx<4 && fy>-4 && fy<4) {
465 padnumber->Fill(mult,(float) 1);
467 if (mult<4) Clcharge->Fill(qtot,(float) 1);
474 /* for (Int_t nmothers=0;nmothers<ntracks;nmothers++){
475 totalphotons->Fill(mothers[nmothers],(float) 1);
476 mother->Fill(mothers2[nmothers],(float) 1);
477 //printf ("Entries in %d : %d\n",nmothers, mothers[nmothers]);
480 /* clusev->Fill(nraw,(float) 1);
481 photev->Fill(phot,(float) 1);
482 feedev->Fill(feed,(float) 1);
483 padsmip->Fill(padmip,(float) 1);
484 padscl->Fill(pads,(float) 1);
485 printf("Photons:%d\n",phot);
494 //Create canvases, set the view range, show histograms
500 TCanvas *c1 = new TCanvas("c1","Alice RICH pad hits",50,10,1200,700);
503 hc1->SetXTitle("ix (npads)");
506 hc2->SetXTitle("ix (npads)");
509 hc3->SetXTitle("ix (npads)");
512 hc4->SetXTitle("ix (npads)");
515 hc5->SetXTitle("ix (npads)");
518 hc6->SetXTitle("ix (npads)");
521 hc7->SetXTitle("ix (npads)");
524 TCanvas *c4 = new TCanvas("c4","Hits per type",400,10,600,700);
528 feedback->SetFillColor(42);
529 feedback->SetXTitle("x (pads)");
530 feedback->SetYTitle("y (pads)");
534 mip->SetFillColor(42);
535 mip->SetXTitle("x (pads)");
536 mip->SetYTitle("y (pads)");
540 cerenkov->SetFillColor(42);
541 cerenkov->SetXTitle("x (pads)");
542 cerenkov->SetYTitle("y (pads)");
547 h->SetXTitle("x (cm)");
548 h->SetYTitle("y (cm)");
551 TCanvas *c10 = new TCanvas("c10","Hits distribution",400,10,600,350);
555 hitsX->SetFillColor(42);
556 hitsX->SetXTitle("(GeV)");
560 hitsY->SetFillColor(42);
561 hitsY->SetXTitle("(GeV)");
569 /*TCanvas *c6 = new TCanvas("c6","Photon Spectra",50,10,600,350);
573 phspectra2->SetFillColor(42);
574 phspectra2->SetXTitle("energy (eV)");
577 phspectra1->SetFillColor(42);
578 phspectra1->SetXTitle("energy (eV)");
579 phspectra1->Draw();*/
581 //TCanvas *c9 = new TCanvas("c9","Particles Spectra",400,10,600,700);
582 TCanvas *c9 = new TCanvas("c9","Pion Spectra",400,10,600,700);
586 pionspectra1->SetFillColor(42);
587 pionspectra1->SetXTitle("log(GeV)");
588 pionspectra2->SetFillColor(46);
589 pionspectra2->SetXTitle("log(GeV)");
590 pionspectra3->SetFillColor(10);
591 pionspectra3->SetXTitle("log(GeV)");
593 pionspectra1->Draw();
594 pionspectra2->Draw("same");
595 pionspectra3->Draw("same");
599 TCanvas *c10 = new TCanvas("c10","Proton Spectra",400,10,600,700);
600 protonspectra1->SetFillColor(42);
601 protonspectra1->SetXTitle("log(GeV)");
602 protonspectra2->SetFillColor(46);
603 protonspectra2->SetXTitle("log(GeV)");
604 protonspectra3->SetFillColor(10);
605 protonspectra3->SetXTitle("log(GeV)");
607 protonspectra1->Draw();
608 protonspectra2->Draw("same");
609 protonspectra3->Draw("same");
612 TCanvas *c11 = new TCanvas("c11","Kaon Spectra",400,10,600,700);
613 kaonspectra1->SetFillColor(42);
614 kaonspectra1->SetXTitle("log(GeV)");
615 kaonspectra2->SetFillColor(46);
616 kaonspectra2->SetXTitle("log(GeV)");
617 kaonspectra3->SetFillColor(10);
618 kaonspectra3->SetXTitle("log(GeV)");
620 kaonspectra1->Draw();
621 kaonspectra2->Draw("same");
622 kaonspectra3->Draw("same");
625 TCanvas *c12 = new TCanvas("c12","Charged Particles Spectra",400,10,600,700);
626 chargedspectra1->SetFillColor(42);
627 chargedspectra1->SetXTitle("log(GeV)");
628 chargedspectra2->SetFillColor(46);
629 chargedspectra2->SetXTitle("log(GeV)");
630 chargedspectra3->SetFillColor(10);
631 chargedspectra3->SetXTitle("log(GeV)");
633 chargedspectra1->Draw();
634 chargedspectra2->Draw("same");
635 chargedspectra3->Draw("same");
637 //TCanvas *c16 = new TCanvas("c16","Particles Spectra II",400,10,600,700);
641 TCanvas *c13 = new TCanvas("c13","Electron Spectra",400,10,600,700);
642 electronspectra1->SetFillColor(42);
643 electronspectra1->SetXTitle("log(GeV)");
644 electronspectra2->SetFillColor(46);
645 electronspectra2->SetXTitle("log(GeV)");
646 electronspectra3->SetFillColor(10);
647 electronspectra3->SetXTitle("log(GeV)");
649 electronspectra1->Draw();
650 electronspectra2->Draw("same");
651 electronspectra3->Draw("same");
654 TCanvas *c14 = new TCanvas("c14","Muon Spectra",400,10,600,700);
655 muonspectra1->SetFillColor(42);
656 muonspectra1->SetXTitle("log(GeV)");
657 muonspectra2->SetFillColor(46);
658 muonspectra2->SetXTitle("log(GeV)");
659 muonspectra3->SetFillColor(10);
660 muonspectra3->SetXTitle("log(GeV)");
662 muonspectra1->Draw();
663 muonspectra2->Draw("same");
664 muonspectra3->Draw("same");
667 TCanvas *c16 = new TCanvas("c16","Neutron Spectra",400,10,600,700);
668 neutronspectra1->SetFillColor(42);
669 neutronspectra1->SetXTitle("log(GeV)");
670 neutronspectra2->SetFillColor(46);
671 neutronspectra2->SetXTitle("log(GeV)");
672 neutronspectra3->SetFillColor(10);
673 neutronspectra3->SetXTitle("log(GeV)");
675 neutronspectra1->Draw();
676 neutronspectra2->Draw("same");
677 neutronspectra3->Draw("same");
679 TCanvas *c15 = new TCanvas("c15","Mothers Production Vertices",500,100,800,800);
680 production->SetFillColor(42);
681 production->SetXTitle("z (m)");
682 production->SetYTitle("R (m)");
690 TCanvas *c3=new TCanvas("c3","Clusters Statistics",400,10,600,700);
694 Clcharge->SetFillColor(42);
695 Clcharge->SetXTitle("ADC units");
699 padnumber->SetFillColor(42);
700 padnumber->SetXTitle("(counts)");
704 clusev->SetFillColor(42);
705 clusev->SetXTitle("(counts)");
711 TCanvas *c11 = new TCanvas("c11","Cherenkov per Mip",400,10,600,700);
712 mother->SetFillColor(42);
713 mother->SetXTitle("counts");
718 TCanvas *c5 = new TCanvas("c5","Ring Statistics",50,10,600,350);
722 ckovangle->SetFillColor(42);
723 ckovangle->SetXTitle("angle (radians)");
727 radius->SetFillColor(42);
728 radius->SetXTitle("radius (cm)");
731 TCanvas *c7 = new TCanvas("c7","Production Statistics",400,10,600,700);
735 totalphotons->SetFillColor(42);
736 totalphotons->SetXTitle("Photons (counts)");
737 totalphotons->Draw();
740 photev->SetFillColor(42);
741 photev->SetXTitle("(counts)");
745 feedev->SetFillColor(42);
746 feedev->SetXTitle("(counts)");
750 padsev->SetFillColor(42);
751 padsev->SetXTitle("(counts)");
759 TCanvas *c8 = new TCanvas("c25","Number of pads per event inside MIP region",400,10,600,700);
760 padsmip->SetFillColor(42);
761 padsmip->SetXTitle("(counts)");
766 /*TCanvas *c8 = new TCanvas("c8","Number of pads per event inside MIP region",400,10,600,700);
767 hckphi->SetFillColor(42);
768 hckphi->SetXTitle("phi");
772 // calculate the number of pads which give a signal
776 for (Int_t i=0; i< NpadX;i++) {
777 for (Int_t j=0;j< NpadY;j++) {
783 //printf("The total number of pads which give a signal: %d %d\n",Nh,Nh1);
785 printf("****************************************\n");
786 printf("* Particle * Flux(m2) *\n");
787 printf("****************************************\n");
789 printf("* Pions: * %3.1f *\n",pion/11.757312);
790 printf("* Charged Pions: * %3.1f *\n",chargedpions/11.757312);
791 printf("* Primary Pions: * %3.1f *\n",primarypions/11.757312);
792 printf("* Primary Pions (p>1GeV): * %3.1f *\n",highprimarypions/11.757312);
793 printf("* Kaons: * %3.1f *\n",kaon/11.757312);
794 printf("* Charged Kaons: * %3.1f *\n",chargedkaons/11.757312);
795 printf("* Primary Kaons: * %3.1f *\n",primarykaons/11.757312);
796 printf("* Primary Kaons (p>1GeV): * %3.1f *\n",highprimarykaons/11.757312);
797 printf("* Muons: * %3.1f *\n",muon/11.757312);
798 printf("* Electrons: * %3.1f *\n",electron/11.757312);
799 printf("* Positrons: * %3.1f *\n",positron/11.757312);
800 printf("* Protons: * %3.1f *\n",proton/11.757312);
801 printf("* All Charged: * %3.1f *\n",(chargedpions+chargedkaons+muon+electron+positron+proton)/11.757312);
802 printf("****************************************\n");
803 printf("* Photons: * %3.1f *\n",photons/11.757312);
804 printf("* Primary Photons: * %3.1f *\n",primaryphotons/11.757312);
805 printf("* Primary Photons (p>1MeV): * %3.1f *\n",highprimaryphotons/11.757312);
806 printf("****************************************\n");
807 printf("* Neutrons: * %3.1f *\n",neutron);
808 printf("* Neutrons (p>100keV: * %3.1f *\n",highneutrons);
809 printf("****************************************\n");
811 printf("End of macro\n");