30fd9edc861d77ddbf3e0ba83bc04bad44b64d9b
[u/mrichter/AliRoot.git] / MUON / AliMUONTrackReconstructor.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15 /*
16 $Log$
17
18 Revision 1.6  2001/01/26 20:00:53  hristov
19 Major upgrade of AliRoot code
20
21 Revision 1.4  2000/12/21 22:14:38  morsch
22 Clean-up of coding rule violations.
23
24 Revision 1.3  2000/10/02 21:28:09  fca
25 Removal of useless dependecies via forward declarations
26
27 Revision 1.2  2000/06/15 07:58:49  morsch
28 Code from MUON-dev joined
29
30 Revision 1.1.2.7  2000/06/09 22:06:29  morsch
31 Some coding rule violations corrected. Will soon be obsolete.
32
33 Revision 1.1.2.6  2000/05/02 07:15:29  morsch
34 Put back TH1.h and TH2.h includes.
35
36 Revision 1.1.2.5  2000/02/17 18:12:43  morsch
37 Corrections in trackf_read_spoint causing segmentation violations in previous version (I. Chevrot)
38 New histos (I. Chevrot)
39
40 Revision 1.1.2.4  2000/02/15 18:01:08  morsch
41 Log messages
42
43 Revision 1.1.2.3  2000/02/15 17:59:01  morsch
44 Log message added
45
46 Revision 1.1.2.2  2000/02/15 18:54:56  morsch
47 Reference between track contributing to reconstructed hit and particle corrected  
48 */
49
50 #include "AliCallf77.h" 
51 #include "AliMUONTrackReconstructor.h" 
52 #include "AliRun.h"
53 #include "AliMUON.h"
54 #include "AliMC.h"
55
56 #include "AliMUONHit.h"
57 #include "AliMUONPadHit.h"
58 #include "AliMUONDigit.h"
59 #include "AliMUONRawCluster.h"
60 #include "AliMUONReconstHit.h"
61
62 #include "AliPDG.h"
63
64 #include <TRandom.h> 
65 #include <TFile.h> 
66 #include <TH1.h>
67 #include <TH2.h>  
68 #include <TTree.h> 
69 #include <TParticle.h> 
70 #include <TMinuit.h>
71 #include <iostream.h>
72
73 #ifndef WIN32 
74 # define reco_init       reco_init_
75 # define cutpxz          cutpxz_
76 # define sigmacut        sigmacut_
77 # define xpreci          xpreci_
78 # define ypreci          ypreci_
79 # define reconstmuon     reconstmuon_
80 # define reconstmuon2    reconstmuon2_
81 # define trackf_read_geant     trackf_read_geant_
82 # define trackf_read_fit     trackf_read_fit_
83 # define trackf_read_spoint     trackf_read_spoint_
84 # define chfill          chfill_
85 # define chfill2         chfill2_
86 # define chf1            chf1_
87 # define chfnt           chfnt_
88 # define hist_create     hist_create_
89 # define hist_closed     hist_closed_
90 # define rndm            rndm_
91 # define fcn             fcn_
92 # define trackf_fit      trackf_fit_
93 # define prec_fit        prec_fit_
94 # define fcnfit          fcnfit_
95 # define reco_term       reco_term_
96 #else 
97 # define reco_init       RECO_INIT
98 # define cutpxz          CUTPXZ
99 # define sigmacut        SIGMACUT
100 # define xpreci          XPRECI
101 # define ypreci          YPRECI
102 # define reconstmuon     RECONSTMUON
103 # define reconstmuon2    RECONSTMUON2
104 # define trackf_read_geant     TRACKF_READ_GEANT
105 # define trackf_read_fit     TRACKF_READ_FIT
106 # define trackf_read_spoint     TRACKF_READ_SPOINT
107 # define chfill          CHFILL
108 # define chfill2         CHFILL2
109 # define chf1            CHF1
110 # define chfnt           CHFNT
111 # define hist_create     HIST_CREATE
112 # define hist_closed     HIST_CLOSED
113 # define rndm            RNDM
114 # define fcn             FCN
115 # define trackf_fit      TRACKF_FIT
116 # define prec_fit        PREC_FIT
117 # define fcnfit          FCNFIT
118 # define reco_term       RECO_TERM
119 #endif 
120
121 extern "C"
122 {
123 void type_of_call reco_init(Double_t &, Double_t &, Double_t &);
124 void type_of_call reco_term();
125 void type_of_call cutpxz(Double_t &);
126 void type_of_call sigmacut(Double_t &);
127 void type_of_call xpreci(Double_t &);
128 void type_of_call ypreci(Double_t &);
129 void type_of_call reconstmuon(Int_t &, Int_t &, Int_t &, Int_t &, Int_t &);
130 void type_of_call reconstmuon2(Int_t &, Int_t &, Int_t &);
131 void type_of_call trackf_read_fit(Int_t &, Int_t &, Int_t &, Int_t *, Double_t *, Double_t *);
132 void type_of_call trackf_read_geant(Int_t *, Double_t *, Double_t *, Double_t *, Int_t *, Int_t *, Double_t *, Double_t *, Double_t *, Double_t *,Int_t &, Double_t *, Double_t *, Double_t *, Int_t &, Int_t &, Double_t *, Double_t *, Double_t *, Double_t *); 
133 void type_of_call trackf_read_spoint(Int_t *, Double_t *, Double_t *, Double_t *, Int_t *, Int_t *, Double_t *, Double_t *, Double_t *, Double_t *,Int_t &, Double_t *, Double_t *, Double_t *, Int_t &, Int_t &, Double_t *, Double_t *, Double_t *, Double_t *); 
134 void type_of_call chfill(Int_t &, Float_t &, Float_t &, Float_t &);
135 void type_of_call chfill2(Int_t &, Float_t &, Float_t &, Float_t &);
136 void type_of_call chf1(Int_t &, Float_t &, Float_t &);
137 void type_of_call chfnt(Int_t &, Int_t &, Int_t *, Int_t *, Float_t *, Float_t *, Float_t *, Float_t *, Float_t *, Float_t *, Float_t *, Float_t *);
138 void type_of_call hist_create();
139 void type_of_call hist_closed();
140 void type_of_call fcnf(Int_t &, Double_t *, Double_t &, Double_t *, Int_t);
141 void type_of_call fcn(Int_t &, Double_t *, Double_t &, Double_t *, Int_t &, Int_t &);
142 void type_of_call trackf_fit(Int_t &, Double_t *, Double_t *, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &);
143 void type_of_call prec_fit(Double_t &, Double_t &, Double_t &, Double_t &, Double_t&, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &);
144 void type_of_call fcnfitf(Int_t &, Double_t *, Double_t &, Double_t *, Int_t);
145 void type_of_call fcnfit(Int_t &, Double_t *, Double_t &, Double_t *, Int_t &, Int_t &);
146 Float_t type_of_call rndm() {return gRandom->Rndm();}
147 void type_of_call fit_trace(Float_t &, Float_t &, Float_t &, Float_t &, Float_t &, Float_t &, Int_t &, Int_t &, Int_t &, Int_t &);
148 }
149
150 static TTree *gAliNtupleGlobal;
151 static TFile *gAliFileGlobal;
152 static TTree *gAliTreeK1;
153 static TTree *gAliTrH1;
154 static TClonesArray *gAliHits2;        //List of hits for one track only
155 static TClonesArray *gAliParticles2;   //List of particles in the Kine tree
156
157
158 // variables of the tracking ntuple 
159 struct { 
160   Int_t ievr;           // number of event 
161   Int_t ntrackr;        // number of tracks per event
162   Int_t istatr[500];    // 1 = good muon, 2 = ghost, 0 = something else
163   Int_t isignr[500];    // sign of the track
164   Float_t pxr[500];     // x momentum of the reconstructed track
165   Float_t pyr[500];     // y momentum of the reconstructed track
166   Float_t pzr[500];     // z momentum of the reconstructed track
167   Float_t zvr[500];     // z vertex 
168   Float_t chi2r[500];   // chi2 of the fit of the track with the field map
169   Float_t pxv[500];     // x momentum at vertex
170   Float_t pyv[500];     // y momentum at vertex
171   Float_t pzv[500];     // z momentum at vertex
172 } NtupleSt;
173
174 ClassImp(AliMUONTrackReconstructor)
175
176 //___________________________________________________
177 AliMUONTrackReconstructor::AliMUONTrackReconstructor()
178 {
179 // Constructor
180 //
181    fSPxzCut   = 3.0;
182    fSSigmaCut = 4.0;
183    fSXPrec    = 0.01; 
184    fSYPrec    = 0.144;
185 }
186
187 //_____________________________________________________________________________
188 void AliMUONTrackReconstructor::Reconst2(Int_t &ifit, Int_t &idebug, Int_t &nev)
189 {
190 //
191 //
192     reconstmuon2(ifit,idebug,nev);
193 }
194
195 //_____________________________________________________________________________
196 void AliMUONTrackReconstructor::Reconst(Int_t &ifit, Int_t &idebug, Int_t bgdEvent, Int_t &nev, Int_t &idres, Int_t &ireadgeant, Option_t *option,Text_t *filename)
197 {
198   //
199   // open kine and hits tree of background file for reconstruction of geant hits 
200   // call tracking fortran program
201   static Bool_t first=kTRUE;
202   static TFile *pFile;
203   char *addBackground = strstr(option,"Add");
204   
205   if (addBackground ) { // only in case of background with geant hits 
206     if(first) {
207       fFileName=filename;
208       cout<<"filename  "<<fFileName<<endl;
209       pFile=new TFile(fFileName);
210       cout<<"I have opened "<<fFileName<<" file "<<endl;
211       gAliHits2     = new TClonesArray("AliMUONHit",1000);
212       gAliParticles2 = new TClonesArray("TParticle",1000);
213       first=kFALSE;
214     }
215     pFile->cd();
216     if(gAliHits2) gAliHits2->Clear();
217     if(gAliParticles2) gAliParticles2->Clear();
218     if(gAliTrH1) delete gAliTrH1;
219     gAliTrH1=0;
220     if(gAliTreeK1) delete gAliTreeK1;
221     gAliTreeK1=0;
222     // Get Hits Tree header from file
223     char treeName[20];
224     sprintf(treeName,"TreeH%d",bgdEvent);
225     gAliTrH1 = (TTree*)gDirectory->Get(treeName);
226     //     printf("gAliTrH1 %p of treename %s for event %d \n",gAliTrH1,treeName,bgdEvent);
227     if (!gAliTrH1) {
228       printf("ERROR: cannot find Hits Tree for event:%d\n",bgdEvent);
229     }
230     // set branch addresses
231     TBranch *branch;
232     char branchname[30];
233     AliMUON *pMUON  = (AliMUON*) gAlice->GetModule("MUON");  
234     sprintf(branchname,"%s",pMUON->GetName());       
235     if (gAliTrH1 && gAliHits2) {
236       branch = gAliTrH1->GetBranch(branchname);
237       if (branch) branch->SetAddress(&gAliHits2);
238     }
239     gAliTrH1->GetEntries();
240     // get the Kine tree
241     sprintf(treeName,"TreeK%d",bgdEvent);
242     gAliTreeK1 = (TTree*)gDirectory->Get(treeName);
243     if (!gAliTreeK1) {
244       printf("ERROR: cannot find Kine Tree for event:%d\n",bgdEvent);
245     }
246     // set branch addresses
247     if (gAliTreeK1) 
248       gAliTreeK1->SetBranchAddress("Particles", &gAliParticles2);
249     gAliTreeK1->GetEvent(0);
250     
251     // get back to the first file
252     TTree *treeK = gAlice->TreeK();
253     TFile *file1 = 0;
254     if (treeK) file1 = treeK->GetCurrentFile();
255     file1->cd();
256     
257   } // end if addBackground
258   
259   // call tracking fortran program
260   reconstmuon(ifit,idebug,nev,idres,ireadgeant);
261 }
262
263 //________________________________________________________________________________
264 void AliMUONTrackReconstructor::Init(Double_t &seff, Double_t &sb0, Double_t &sbl3)
265 {
266   //
267   // introduce in fortran program somme parameters and cuts for tracking 
268   // create output file "reconst.root" (histos + ntuple)
269   cutpxz(fSPxzCut);          // Pxz cut (GeV/c) to begin the track finding
270   sigmacut(fSSigmaCut);      // Number of sigmas delimiting the searching areas
271   xpreci(fSXPrec);           // Chamber precision in X (cm) 
272   ypreci(fSYPrec);           // Chamber precision in Y (cm)
273   reco_init(seff,sb0,sbl3);
274 }
275
276 //__________________________________________
277 void AliMUONTrackReconstructor::FinishEvent()
278 {
279    // Finish
280    // TTree *treeK = gAlice->TreeK();
281    // TFile *file1 = 0;
282    // if (treeK) file1 = treeK->GetCurrentFile();
283    // file1->cd();
284 }
285
286 //_____________________________________
287 void AliMUONTrackReconstructor::Close()
288 {
289   //
290   // write histos and ntuple to "reconst.root" file
291     reco_term();
292 }
293
294 //________________________________________________________
295 void chfill(Int_t &id, Float_t &x, Float_t &y, Float_t &w)
296 {
297   //
298   // fill histo like hfill in fortran
299     char name[5];
300     sprintf(name,"h%d",id);
301     TH1F *h1 = (TH1F*) gDirectory->Get(name);
302     h1->Fill(x);
303 }
304
305 //_________________________________________________________
306 void chfill2(Int_t &id, Float_t &x, Float_t &y, Float_t &w)
307 {
308   //
309   // fill histo like hfill2 in fortran
310     char name[5];
311     sprintf(name,"h%d",id);
312     TH2F *h2 = (TH2F*) gDirectory->Get(name);
313     h2->Fill(x,y,w);
314 }
315
316 //__________________________________________
317 void chf1(Int_t &id, Float_t &x, Float_t &w)
318 {
319   //
320   // fill histo like hf1 in fortran
321     char name[5];
322     sprintf(name,"h%d",id);
323     TH1F *h1 = (TH1F*) gDirectory->Get(name);
324     h1->Fill(x,w);
325 }
326
327 //_________________
328 void hist_create()
329 {
330   //
331   // Create an output file ("reconst.root")
332   // Create some histograms and an ntuple
333
334     gAliFileGlobal = new TFile("reconst.root","RECREATE","Ntuple - reconstruction");
335
336    gAliNtupleGlobal = new TTree("ntuple","Reconst ntuple");
337    gAliNtupleGlobal->Branch("ievr",&NtupleSt.ievr,"ievr/I");
338    gAliNtupleGlobal->Branch("ntrackr",&NtupleSt.ntrackr,"ntrackr/I");
339    gAliNtupleGlobal->Branch("istatr",&NtupleSt.istatr[0],"istatr[500]/I");
340    gAliNtupleGlobal->Branch("isignr",&NtupleSt.isignr[0],"isignr[500]/I");
341    gAliNtupleGlobal->Branch("pxr",&NtupleSt.pxr[0],"pxr[500]/F");
342    gAliNtupleGlobal->Branch("pyr",&NtupleSt.pyr[0],"pyr[500]/F");
343    gAliNtupleGlobal->Branch("pzr",&NtupleSt.pzr[0],"pzr[500]/F");
344    gAliNtupleGlobal->Branch("zvr",&NtupleSt.zvr[0],"zvr[500]/F");
345    gAliNtupleGlobal->Branch("chi2r",&NtupleSt.chi2r[0],"chi2r[500]/F");
346    gAliNtupleGlobal->Branch("pxv",&NtupleSt.pxv[0],"pxv[500]/F");
347    gAliNtupleGlobal->Branch("pyv",&NtupleSt.pyv[0],"pyv[500]/F");
348    gAliNtupleGlobal->Branch("pzv",&NtupleSt.pzv[0],"pzv[500]/F");
349
350    // test aliroot
351
352   new TH1F("h100","particule id du hit geant",20,0.,20.);
353   new TH1F("h101","position en x du hit geant",100,-200.,200.);
354   new TH1F("h102","position en y du hit geant",100,-200.,200.);
355   new TH1F("h103","chambre de tracking concernee",15,0.,14.);
356   new TH1F("h104","moment ptot du hit geant",50,0.,100.);
357   new TH1F("h105","px au vertex",50,0.,20.);
358   new TH1F("h106","py au vertex",50,0.,20.);
359   new TH1F("h107","pz au vertex",50,0.,20.);
360   new TH1F("h108","position zv",50,-15.,15.);
361   new TH1F("h109","position en x du hit reconstruit",100,-300.,300.);
362   new TH1F("h110","position en y du hit reconstruit",100,-300.,300.);
363   new TH1F("h111","delta x station 1",100,-0.3,0.3);
364   new TH1F("h112","delta x station 2",100,-0.3,0.3);
365   new TH1F("h113","delta x station 3",100,-0.3,0.3);
366   new TH1F("h114","delta x station 4",100,-0.5,0.5);
367   new TH1F("h115","delta x station 5",100,-0.5,0.5);
368   new TH1F("h116","delta x station 1",100,-2,2);
369   new TH1F("h117","delta x station 2",100,-2,2);
370   new TH1F("h121","delta y station 1",100,-0.04,0.04);
371   new TH1F("h122","delta y station 2",100,-0.04,0.04);
372   new TH1F("h123","delta y station 3",100,-0.04,0.04);
373   new TH1F("h124","delta y station 4",100,-0.04,0.04);
374   new TH1F("h125","delta y station 5",100,-0.04,0.04);
375
376   /*  char hname[30];
377       char hname1[30];
378       for (int i=0;i<10;i++) {
379       sprintf(hname,"deltax%d",i);
380       sprintf(hname1,"h12%d",i);
381       new TH1F(hname1,hname ,100,-0.4,0.4);
382       sprintf(hname,"deltay%d",i);
383       sprintf(hname1,"h13%d",i);
384       new TH1F(hname1,hname ,100,-0.4,0.4);
385       }
386   */
387   new TH2F("h2000","VAR X st. 5",30,3.0,183.0,100,0.,25.);
388   new TH2F("h2001","VAR Y st. 5",30,3.0,183.0,100,0.,25.);
389
390   new TH2F("h2500","P vs X HHIT",30,3.0,183.0,200,0.,200.);
391   new TH2F("h2501","P vs X HHIT**2",30,3.0,183.0,200,0.,5000.);
392   new TH2F("h2502","P vs X EPH2 st. 5",30,3.0,183.0,100,0.,0.000005);
393   new TH2F("h2503","P vs X EAL2 st. 5",30,3.0,183.0,100,0.,0.01);
394   //new TH2F("h2504","P vs X EXM2 st. 5",30,3.0,183.0,100,0.,1.5);
395   new TH2F("h2504","P vs X EXM2 st. 5",30,3.0,183.0,100,0.,0.1);
396   new TH2F("h2505","P vs X EYM2 st. 5",30,3.0,183.0,100,0.,30.);
397
398   new TH2F("h2507","P vs X EPH st. 5",30,3.0,183.0,100,0.,0.003);
399   new TH2F("h2508","P vs X EAL st. 5",30,3.0,183.0,100,0.,0.3);
400   //new TH2F("h2509","P vs X EXM st. 5",30,3.0,183.0,100,0.,1.5);
401   new TH2F("h2509","P vs X EXM st. 5",30,3.0,183.0,100,0.,0.4);
402   new TH2F("h2510","P vs X EYM st. 5",30,3.0,183.0,100,0.,30.);
403
404   new TH2F("h2511","P vs X EPH cut st. 5",30,3.0,183.0,100,0.,0.01);
405   new TH2F("h2512","P vs X EAL cut st. 5",30,3.0,183.0,100,0.,0.3);
406   //new TH2F("h2513","P vs X EXM cut st. 5",30,3.0,183.0,100,0.,1.5);
407   new TH2F("h2513","P vs X EXM cut st. 5",30,3.0,183.0,100,0.,0.4);
408   new TH2F("h2514","P vs X EYM cut st. 5",30,3.0,183.0,100,0.,30.);
409   // 4
410   new TH2F("h2400","P vs X HHIT",30,3.0,183.0,200,0.,200.);
411   new TH2F("h2401","P vs X HHIT**2",30,3.0,183.0,200,0.,5000.);
412   new TH2F("h2402","P vs X EPH2 st. 4",30,3.0,183.0,100,0.,0.000005);
413   new TH2F("h2403","P vs X EAL2 st. 4",30,3.0,183.0,100,0.,0.05);
414   //new TH2F("h2404","P vs X EXM2 st. 4",30,3.0,183.0,100,0.,1.5);
415   new TH2F("h2404","P vs X EXM2 st. 4",30,3.0,183.0,100,0.,0.1);
416   new TH2F("h2405","P vs X EYM2 st. 4",30,3.0,183.0,100,0.,30.);
417
418   new TH2F("h2407","P vs X EPH st. 4",30,3.0,183.0,100,0.,0.003);
419   new TH2F("h2408","P vs X EAL st. 4",30,3.0,183.0,100,0.,0.3);
420   //new TH2F("h2409","P vs X EXM st. 4",30,3.0,183.0,100,0.,1.5);
421   new TH2F("h2409","P vs X EXM st. 4",30,3.0,183.0,100,0.,0.1);
422   new TH2F("h2410","P vs X EYM st. 4",30,3.0,183.0,100,0.,30.);
423
424   new TH2F("h2411","P vs X EPH cut st. 4",30,3.0,183.0,100,0.,0.01);
425   new TH2F("h2412","P vs X EAL cut st. 4",30,3.0,183.0,100,0.,0.3);
426   //new TH2F("h2413","P vs X EXM cut st. 4",30,3.0,183.0,100,0.,1.5);
427   new TH2F("h2413","P vs X EXM cut st. 4",30,3.0,183.0,100,0.,0.1);
428   new TH2F("h2414","P vs X EYM cut st. 4",30,3.0,183.0,100,0.,30.);
429   // 3
430   new TH1F("h2301","P2",30,3.0,183.0);
431   new TH2F("h2302","P2 vs X EPH2 st. 3",30,3.0,183.0,100,0.,0.0006);
432   new TH2F("h2303","P2 vs X EAL2 st. 3",30,3.0,183.0,100,0.,0.0005);
433   //new TH2F("h2304","P2 vs X EXM2 st. 3",30,3.0,183.0,100,0.,1.5);
434   new TH2F("h2304","P2 vs X EXM2 st. 3",30,3.0,183.0,100,0.,2.);
435   new TH2F("h2305","P2 vs X EYM2 st. 3",30,3.0,183.0,100,0.,3.);
436
437   new TH2F("h2307","P vs X EPH2 st. 3",30,3.0,183.0,100,0.,0.0006);
438   new TH2F("h2308","P vs X EAL2 st. 3",30,3.0,183.0,100,0.,0.005);
439   //new TH2F("h2309","P vs X EXM2 st. 3",30,3.0,183.0,100,0.,1.5);
440   new TH2F("h2309","P vs X EXM2 st. 3",30,3.0,183.0,100,0.,2.);
441   new TH2F("h2310","P vs X EYM2 st. 3",30,3.0,183.0,100,0.,3.);
442
443   new TH2F("h2311","P vs X EPH cut st. 3",30,3.0,183.0,100,0.,0.06);
444   new TH2F("h2312","P vs X EAL cut st. 3",30,3.0,183.0,100,0.,0.05);
445   //new TH2F("h2313","P vs X EXM cut st. 3",30,3.0,183.0,100,0.,1.5);
446   new TH2F("h2313","P vs X EXM cut st. 3",30,3.0,183.0,100,0.,6.);
447   new TH2F("h2314","P vs X EYM cut st. 3",30,3.0,183.0,100,0.,7.);
448
449   new TH2F("h2315","P2 vs X EPH cut st. 3",30,3.0,183.0,100,0.,0.06);
450   new TH2F("h2316","P2 vs X EAL cut st. 3",30,3.0,183.0,100,0.,0.05);
451   //new TH2F("h2317","P2 vs X EXM cut st. 3",30,3.0,183.0,100,0.,1.5);
452   new TH2F("h2317","P2 vs X EXM cut st. 3",30,3.0,183.0,100,0.,6.);
453   new TH2F("h2318","P2 vs X EYM cut st. 3",30,3.0,183.0,100,0.,7.);
454   
455   // 2
456   new TH1F("h2201","P2",30,3.0,183.0);
457   new TH2F("h2202","P2 vs X EPH2 st. 2",30,3.0,183.0,100,0.,0.0006);
458   new TH2F("h2203","P2 vs X EAL2 st. 2",30,3.0,183.0,100,0.,0.005);
459   //new TH2F("h2204","P2 vs X EXM2 st. 2",30,3.0,183.0,100,0.,1.5);
460   new TH2F("h2204","P2 vs X EXM2 st. 2",30,3.0,183.0,100,0.,7.);
461   new TH2F("h2205","P2 vs X EYM2 st. 2",30,3.0,183.0,100,0.,5.);
462
463   new TH2F("h2207","P vs X EPH2 st. 2",30,3.0,183.0,100,0.,0.0006);
464   new TH2F("h2208","P vs X EAL2 st. 2",30,3.0,183.0,100,0.,0.005);
465   //new TH2F("h2209","P vs X EXM2 st. 2",30,3.0,183.0,100,0.,1.5);
466   new TH2F("h2209","P vs X EXM2 st. 2",30,3.0,183.0,100,0.,7.);
467   new TH2F("h2210","P vs X EYM2 st. 2",30,3.0,183.0,100,0.,5.);
468
469   new TH2F("h2211","P vs X EPH cut st. 2",30,3.0,183.0,100,0.,0.05);
470   new TH2F("h2212","P vs X EAL cut st. 2",30,3.0,183.0,100,0.,0.2);
471   //new TH2F("h2213","P vs X EXM cut st. 2",30,3.0,183.0,100,0.,1.5);
472   new TH2F("h2213","P vs X EXM cut st. 2",30,3.0,183.0,100,0.,11.);
473   new TH2F("h2214","P vs X EYM cut st. 2",30,3.0,183.0,100,0.,10.);
474
475   new TH2F("h2215","P2 vs X EPH cut st. 2",30,3.0,183.0,100,0.,0.05);
476   new TH2F("h2216","P2 vs X EAL cut st. 2",30,3.0,183.0,100,0.,0.2);
477   //new TH2F("h2217","P2 vs X EXM cut st. 2",30,3.0,183.0,100,0.,1.5);
478   new TH2F("h2217","P2 vs X EXM cut st. 2",30,3.0,183.0,100,0.,11.);
479   new TH2F("h2218","P2 vs X EYM cut st. 2",30,3.0,183.0,100,0.,10.);
480
481   // 1
482   new TH2F("h2102","P2 vs X EPH2 st. 2",30,3.0,183.0,100,0.,0.0006);
483   new TH2F("h2103","P2 vs X EAL2 st. 2",30,3.0,183.0,100,0.,0.005);
484   //new TH2F("h2104","P2 vs X EXM2 st. 2",30,3.0,183.0,100,0.,1.5);
485   new TH2F("h2104","P2 vs X EXM2 st. 2",30,3.0,183.0,100,0.,7.);
486   new TH2F("h2105","P2 vs X EYM2 st. 2",30,3.0,183.0,100,0.,7.);
487
488   new TH2F("h2107","P vs X EPH2 st. 2",30,3.0,183.0,100,0.,0.0006);
489   new TH2F("h2108","P vs X EAL2 st. 2",30,3.0,183.0,100,0.,0.005);
490   //new TH2F("h2109","P vs X EXM2 st. 2",30,3.0,183.0,100,0.,1.5);
491   new TH2F("h2109","P vs X EXM2 st. 2",30,3.0,183.0,100,0.,7.);
492   new TH2F("h2110","P vs X EYM2 st. 2",30,3.0,183.0,100,0.,7.);
493
494   new TH2F("h2111","P vs X EPH cut st. 2",30,3.0,183.0,100,0.,0.1);
495   new TH2F("h2112","P vs X EAL cut st. 2",30,3.0,183.0,100,0.,0.2);
496   //new TH2F("h2113","P vs X EXM cut st. 2",30,3.0,183.0,100,0.,1.5);
497   new TH2F("h2113","P vs X EXM cut st. 2",30,3.0,183.0,100,0.,11.);
498   new TH2F("h2114","P vs X EYM cut st. 2",30,3.0,183.0,100,0.,11.);
499
500   new TH2F("h2115","P2 vs X EPH cut st. 2",30,3.0,183.0,100,0.,0.1);
501   new TH2F("h2116","P2 vs X EAL cut st. 2",30,3.0,183.0,100,0.,0.2);
502   //new TH2F("h2117","P2 vs X EXM cut st. 2",30,3.0,183.0,100,0.,1.5);
503   new TH2F("h2117","P2 vs X EXM cut st. 2",30,3.0,183.0,100,0.,11.);
504   new TH2F("h2118","P2 vs X EYM cut st. 2",30,3.0,183.0,100,0.,11.);
505
506   // 2,3,4,5
507   new TH1F("h2701","P2 fit 2",30,3.0,183.0);
508   new TH2F("h2702","P2 vs X EPH2 st. 1 fit 2",30,3.0,183.0,100,0.,0.0006);
509   new TH2F("h2703","P2 vs X EAL2 st. 1 fit 2",30,3.0,183.0,100,0.,0.005);
510   // new TH2F("h2704","P2 vs X EXM2 st. 1 fit 2",30,3.0,183.0,100,0.,1.5);
511   new TH2F("h2704","P2 vs X EXM2 st. 1 fit 2",30,3.0,183.0,100,0.,2.);
512   new TH2F("h2705","P2 vs X EYM2 st. 1 fit 2",30,3.0,183.0,100,0.,3.);
513
514   new TH2F("h2707","P vs X EPH2 st. 1 fit 2",30,3.0,183.0,100,0.,0.0006);
515   new TH2F("h2708","P vs X EAL2 st. 1 fit 2",30,3.0,183.0,100,0.,0.005);
516   //new TH2F("h2709","P vs X EXM2 st. 1 fit 2",30,3.0,183.0,100,0.,1.5);
517   new TH2F("h2709","P vs X EXM2 st. 1 fit 2",30,3.0,183.0,100,0.,2.);
518   new TH2F("h2710","P vs X EYM2 st. 1 fit 2",30,3.0,183.0,100,0.,3.);
519
520   new TH2F("h2711","P vs X EPH cut st. 1 fit 2",30,3.0,183.0,100,0.,0.07);
521   new TH2F("h2712","P vs X EAL cut st. 1 fit 2",30,3.0,183.0,100,0.,0.2);
522   //new TH2F("h2713","P vs X EXM cut st. 1 fit 2",30,3.0,183.0,100,0.,1.5);
523   new TH2F("h2713","P vs X EXM cut st. 1 fit 2",30,3.0,183.0,100,0.,6.);
524   new TH2F("h2714","P vs X EYM cut st. 1 fit 2",30,3.0,183.0,100,0.,7.);
525
526   new TH2F("h2715","P2 vs X EPH cut st. 1 fit 2",30,3.0,183.0,100,0.,0.07);
527   new TH2F("h2716","P2 vs X EAL cut st. 1 fit 2",30,3.0,183.0,100,0.,0.2);
528   //new TH2F("h2717","P2 vs X EXM cut st. 1 fit 2",30,3.0,183.0,100,0.,1.5);
529   new TH2F("h2717","P2 vs X EXM cut st. 1 fit 2",30,3.0,183.0,100,0.,6.);
530   new TH2F("h2718","P2 vs X EYM cut st. 1 fit 2",30,3.0,183.0,100,0.,7.);
531
532   // 1,3,4,5
533   new TH1F("h2801","P2 fit 1",30,3.0,183.0);
534   new TH2F("h2802","P2 vs X EPH2 st. 2 fit 1",30,3.0,183.0,100,0.,0.0006);
535   new TH2F("h2803","P2 vs X EAL2 st. 2 fit 1",30,3.0,183.0,100,0.,0.005);
536   //new TH2F("h2804","P2 vs X EXM2 st. 2 fit 1",30,3.0,183.0,100,0.,1.5);
537   new TH2F("h2804","P2 vs X EXM2 st. 2 fit 1",30,3.0,183.0,100,0.,2.);
538   new TH2F("h2805","P2 vs X EYM2 st. 2 fit 1",30,3.0,183.0,100,0.,3.);
539
540   new TH2F("h2807","P vs X EPH2 st. 2 fit 1",30,3.0,183.0,100,0.,0.0006);
541   new TH2F("h2808","P vs X EAL2 st. 2 fit 1",30,3.0,183.0,100,0.,0.005);
542   //new TH2F("h2809","P vs X EXM2 st. 2 fit 1",30,3.0,183.0,100,0.,1.5);
543   new TH2F("h2809","P vs X EXM2 st. 2 fit 1",30,3.0,183.0,100,0.,2.);
544   new TH2F("h2810","P vs X EYM2 st. 2 fit 1",30,3.0,183.0,100,0.,3.);
545
546   new TH2F("h2811","P vs X EPH cut st. 2 fit 1",30,3.0,183.0,100,0.,0.05);
547   new TH2F("h2812","P vs X EAL cut st. 2 fit 1",30,3.0,183.0,100,0.,0.2);
548   //new TH2F("h2813","P vs X EXM cut st. 2 fit 1",30,3.0,183.0,100,0.,1.5);
549   new TH2F("h2813","P vs X EXM cut st. 2 fit 1",30,3.0,183.0,100,0.,5.);
550   new TH2F("h2814","P vs X EYM cut st. 2 fit 1",30,3.0,183.0,100,0.,7.);
551
552   new TH2F("h2815","P2 vs X EPH cut st. 2 fit 1",30,3.0,183.0,100,0.,0.05);
553   new TH2F("h2816","P2 vs X EAL cut st. 2 fit 1",30,3.0,183.0,100,0.,0.2);
554   //new TH2F("h2817","P2 vs X EXM cut st. 2 fit 1",30,3.0,183.0,100,0.,1.5);
555   new TH2F("h2817","P2 vs X EXM cut st. 2 fit 1",30,3.0,183.0,100,0.,5.);
556   new TH2F("h2818","P2 vs X EYM cut st. 2 fit 1",30,3.0,183.0,100,0.,7.);
557
558
559   new TH2F("h1111","dx vs x station 1",30,-250.,250.,30,-0.5,0.5);
560   new TH2F("h1112","dx vs x station 2",30,-250.,250.,30,-0.5,0.5);
561   new TH2F("h1113","dx vs x station 3",30,-250.,250.,30,-0.5,0.5);
562   new TH2F("h1114","dx vs x station 4",30,-250.,250.,30,-0.5,0.5);
563   new TH2F("h1115","dx vs x station 5",30,-250.,250.,30,-0.5,0.5);
564   new TH2F("h1121","dy vs y station 1",30,-250.,250.,30,-0.04,0.04);
565   new TH2F("h1122","dy vs y station 2",30,-250.,250.,30,-0.04,0.04);
566   new TH2F("h1123","dy vs y station 3",30,-250.,250.,30,-0.04,0.04);
567   new TH2F("h1124","dy vs y station 4",30,-250.,250.,30,-0.04,0.04);
568   new TH2F("h1125","dy vs y station 5",30,-250.,250.,30,-0.04,0.04);
569
570   // fin de test
571
572   new TH1F("h500","Acceptance en H st. 4",500,0.,500.);
573   new TH1F("h600","Acceptance en H st. 5",500,0.,500.);
574   new TH1F("h700","X vertex track found",200,-10.,10.);
575   new TH1F("h701","Y vertex track found",200,-10.,10.);
576   new TH1F("h800","Rap. muon gen.",100,0.,5.);
577   new TH1F("h801","Rap. muon gen. recons.",100,0.,5.);
578   new TH1F("h802","Rap. muon gen. ghost ",100,0.,5.);
579   new TH1F("h900","Pt muon gen.",100,0.,20.);
580   new TH1F("h901","Pt muon gen. recons.",100,0.,20.);
581   new TH1F("h902","Pt muon gen. ghost",100,0.,20.);
582   new TH1F("h910","phi muon gen.",100,-10.,10.);
583   new TH1F("h911","phi muon gen. recons.",100,-10.,10.);
584   new TH1F("h912","phi muon gen. ghost",100,-10.,10.);
585   new TH2F("h1001","Y VS X hit st. 1",300,-300.,300.,300,-300.,300.);
586   new TH2F("h1002","Y VS X hit st. 2",300,-300.,300.,300,-300.,300.);
587   new TH2F("h1003","Y VS X hit st. 3",300,-300.,300.,300,-300.,300.);
588   new TH2F("h1004","Y VS X hit st. 4",300,-300.,300.,300,-300.,300.);
589   new TH2F("h1005","Y VS X hit st. 5",300,-300.,300.,300,-300.,300.);
590   //  Histos variance dans 4      
591   new TH2F("h11","VAR X st. 4",30,3.0,183.0,100,0.,2.);
592   new TH2F("h12","VAR Y st. 4",30,3.0,183.0,100,0.,600.);
593   new TH2F("h13","VAR PHI st. 4",30,3.0,183.0,100,0.,0.0001);
594   new TH2F("h14","VAR ALM st. 4",30,3.0,183.0,100,0.,0.05);
595   new TH1F("h15","P",30,3.0,183.0);
596   new TH1F("h411","VAR X st. 4",100,-1.42,1.42);
597   new TH1F("h412","VAR Y st. 4",100,-25.,25.);
598   new TH1F("h413","VAR PHI st. 4",100,-0.01,0.01);
599   new TH1F("h414","VAR ALM st. 4",100,-0.23,0.23);
600   // histo2
601   new TH2F("h211","histo2-VAR X st. 4",30,3.0,183.0,100,0.,2.);
602   new TH2F("h212","histo2-VAR Y st. 4",30,3.0,183.0,100,0.,600.);
603   new TH1F("h213","histo2-VAR X st. 4",100,-1.42,1.42);
604   new TH1F("h214","histo2-VAR Y st. 4",100,-25.,25.);
605   new TH1F("h215","histo2-P",30,3.0,183.0);
606
607   //  Histos variance dans 2      
608   new TH2F("h21","VAR X st. 2",30,3.0,183.0,100,0.,3.);
609   new TH2F("h22","VAR Y st. 2",30,3.0,183.0,100,0.,7.);
610   new TH2F("h23","VAR PHI st. 2",30,3.0,183.0,100,0.,0.006);
611   new TH2F("h24","VAR ALM st. 2",30,3.0,183.0,100,0.,0.005);
612   new TH1F("h25","P",30,3.0,183.0);
613   new TH1F("h421","VAR X st. 2",100,-1.72,1.72);
614   new TH1F("h422","VAR Y st. 2",100,-2.7,2.7);
615   new TH1F("h423","VAR PHI st. 2",100,-0.08,0.08);
616   new TH1F("h424","VAR ALM st. 2",100,-0.072,0.072);
617   // histo2
618   new TH2F("h221","histo2-VAR X st. 2",30,3.0,183.0,100,0.,3.);
619   new TH2F("h222","histo2-VAR Y st. 2",30,3.0,183.0,100,0.,7.);
620   new TH1F("h223","histo2-VAR X st. 2",100,-1.72,1.72);
621   new TH1F("h224","histo2-VAR Y st. 2",100,-2.7,2.7);
622   new TH1F("h225","histo2-P",30,3.0,183.0);
623
624   //  Histos variance dans 1      
625   new TH2F("h31","VAR X st. 1",30,3.0,183.0,100,0.,2.);
626   new TH2F("h32","VAR Y st. 1",30,3.0,183.0,100,0.,0.5);
627   new TH2F("h33","VAR PHI st. 1",30,3.0,183.0,100,0.,0.006);
628   new TH2F("h34","VAR ALM st. 1",30,3.0,183.0,100,0.,0.005);
629   new TH1F("h35","P",30,3.0,183.0);
630   new TH1F("h431","VAR X st. 1",100,-1.42,1.42);
631   new TH1F("h432","VAR Y st. 1",100,-0.72,0.72);
632   new TH1F("h433","VAR PHI st. 1",100,-0.08,0.08);
633   new TH1F("h434","VAR ALM st. 1",100,-0.072,0.072);
634   //  Histos variance dans 1      
635   new TH2F("h41","VAR X st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,4.);
636   new TH2F("h42","VAR Y st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,20.);
637   new TH2F("h43","VAR PHI st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,0.005);
638   new TH2F("h44","VAR ALM st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,0.005);
639   new TH1F("h45","P",30,3.0,183.0);
640   new TH1F("h441","VAR X st. 1 fit 5,4,3,2,V",100,-2.,2.);
641   new TH1F("h442","VAR Y st. 1 fit 5,4,3,2,V",100,-4.5,4.5);
642   new TH1F("h443","VAR PHI st. 1 fit 5,4,3,2,V",100,-0.072,0.072);
643   new TH1F("h444","VAR ALM st. 1 fit 5,4,3,2,V",100,-0.072,0.072);
644   // histo2
645   new TH2F("h241","histo2-VAR X st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,4.);
646   new TH2F("h242","histo2-VAR Y st. 1 fit 5,4,3,2,V",30,3.0,183.0,100,0.,20.);
647   new TH1F("h243","histo2-VAR X st. 1 fit 5,4,3,2,V",100,-2.,2.);
648   new TH1F("h244","histo2-VAR Y st. 1 fit 5,4,3,2,V",100,-4.5,4.5);
649   new TH1F("h245","histo2-P",30,3.0,183.0);
650
651   //  Histos variance dans 2      
652   new TH2F("h51","VAR X st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,0.5);
653   new TH2F("h52","VAR Y st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,2.);
654   new TH2F("h53","VAR PHI st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,0.005);
655   new TH2F("h54","VAR ALM st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,0.01);
656   new TH1F("h55","P",30,3.0,183.0);
657   new TH1F("h451","VAR X st. 2 fit 5,4,3,1,V",100,-0.72,0.72);
658   new TH1F("h452","VAR Y st. 2 fit 5,4,3,1,V",100,-1.42,1.42);
659   new TH1F("h453","VAR PHI st. 2 fit 5,4,3,1,V",100,-0.072,0.072);
660   new TH1F("h454","VAR ALM st. 2 fit 5,4,3,1,V",100,-0.1,0.1);
661   new TH1F("h999","PTOT",30,3.0,183.0);
662   // histo2
663   new TH2F("h251","histo2-VAR X st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,0.5);
664   new TH2F("h252","histo2-VAR Y st. 2 fit 5,4,3,1,V",30,3.0,183.0,100,0.,2.);
665   new TH1F("h253","histo2-VAR X st. 2 fit 5,4,3,1,V",100,-0.72,0.72);
666   new TH1F("h254","histo2-VAR Y st. 2 fit 5,4,3,1,V",100,-1.42,1.42);
667   new TH1F("h255","histo2-P",30,3.0,183.0);
668   //  Histos variance dans 3      
669   new TH2F("h61","VAR X st. 3 fit 4,5,V",30,3.0,183.0,100,0.,5.);
670   new TH2F("h62","VAR Y st. 3 fit 4,5,V",30,3.0,183.0,100,0.,2.);
671   new TH2F("h63","VAR PHI st. 3 fit 4,5,V",30,3.0,183.0,100,0.,0.0006);
672   new TH2F("h64","VAR ALM st. 3 fit 4,5,V",30,3.0,183.0,100,0.,0.0006);
673   new TH1F("h65","P",30,3.0,183.0);
674   new TH1F("h461","VAR X st. 3 fit 4,5,V",100,-2.25,2.25);
675   new TH1F("h462","VAR Y st. 3 fit 4,5,V",100,-1.42,1.42);
676   new TH1F("h463","VAR PHI st. 3 fit 4,5,V",100,-0.024,0.024);
677   new TH1F("h464","VAR ALM st. 3 fit 4,5,V",100,-0.024,0.024);
678   // histo2
679   new TH2F("h261","histo2-VAR X st. 3 fit 4,5,V",30,3.0,183.0,100,0.,5.);
680   new TH2F("h262","histo2-VAR Y st. 3 fit 4,5,V",30,3.0,183.0,100,0.,2.);
681   new TH1F("h263","histo2-VAR X st. 3 fit 4,5,V",100,-2.25,2.25);
682   new TH1F("h264","histo2-VAR Y st. 3 fit 4,5,V",100,-1.42,1.42);
683   new TH1F("h265","Phisto2-",30,3.0,183.0);
684   // Histos dx,dy distribution between chambers inside stations
685   new TH1F("h71","DX in st. ID-70",100,-5.,5.);
686   new TH1F("h81","DY in st. ID-80",100,-5.,5.);
687   new TH1F("h72","DX in st. ID-70",100,-5.,5.);
688   new TH1F("h82","DY in st. ID-80",100,-5.,5.);
689   new TH1F("h73","DX in st. ID-70",100,-5.,5.);
690   new TH1F("h83","DY in st. ID-80",100,-5.,5.);
691   new TH1F("h74","DX in st. ID-70",100,-5.,5.);
692   new TH1F("h84","DY in st. ID-80",100,-5.,5.);
693   new TH1F("h75","DX in st. ID-70",100,-5.,5.);
694   new TH1F("h85","DY in st. ID-80",100,-5.,5.);
695 }
696
697 //_____________________________________________________________________________
698 void chfnt(Int_t &ievr, Int_t &ntrackr, Int_t *istatr, Int_t *isignr, Float_t *pxr, Float_t *pyr, Float_t *pzr, Float_t *zvr, Float_t *chi2r,  Float_t *pxv, Float_t *pyv, Float_t *pzv)
699 {
700   //
701   // fill the ntuple 
702     NtupleSt.ievr = ievr;
703     NtupleSt.ntrackr = ntrackr;
704     for (Int_t i=0; i<500; i++) {
705         NtupleSt.istatr[i] = istatr[i];
706         NtupleSt.isignr[i] = isignr[i]; 
707         NtupleSt.pxr[i]    = pxr[i]; 
708         NtupleSt.pyr[i]    = pyr[i];
709         NtupleSt.pzr[i]    = pzr[i];
710         NtupleSt.zvr[i]    = zvr[i];
711         NtupleSt.chi2r[i]  = chi2r[i];
712         NtupleSt.pxv[i]    = pxv[i]; 
713         NtupleSt.pyv[i]    = pyv[i];
714         NtupleSt.pzv[i]    = pzv[i];
715     }
716     gAliNtupleGlobal->Fill();   
717 }
718
719 //________________
720 void hist_closed()
721 {
722   //
723   // write histos and ntuple to "reconst.root" file
724   gAliFileGlobal->Write();
725 }
726
727 //________________________________________________________________________
728 void trackf_read_fit(Int_t &ievr, Int_t &nev, Int_t &nhittot1, Int_t *izch, Double_t *xgeant, Double_t *ygeant) 
729 {
730
731   // introduce aliroot variables in fortran common 
732   // tracking study from geant hits 
733   //
734
735   AliMUON *pMUON  = (AliMUON*) gAlice->GetModule("MUON");
736   TTree *treeH = gAlice->TreeH();
737   Int_t ntracks = (Int_t)treeH->GetEntries();
738   cout<<"ntrack="<<ntracks<<endl;
739
740   nhittot1 = 0;
741
742 //  Loop over tracks
743   for (Int_t track=0; track<ntracks;track++) {
744       gAlice->ResetHits();
745       treeH->GetEvent(track);
746       
747       if (pMUON)  {
748
749 //  Loop over hits
750           for(AliMUONHit* mHit=(AliMUONHit*)pMUON->FirstHit(-1); 
751               mHit;
752               mHit=(AliMUONHit*)pMUON->NextHit()) 
753           {
754 <<<<<<< AliMUONTrackReconstructor.cxx
755               if (mHit->Chamber() > 10) continue;
756 =======
757               if (mHit->fChamber > 10) continue;
758 >>>>>>> 1.6
759               Int_t ftrack = mHit->Track();
760               Int_t id = gAlice->Particle(ftrack)->GetPdgCode();
761               
762               if (id==kMuonPlus||id==kMuonMinus) {
763                   xgeant[nhittot1]   = mHit->Y();
764                   ygeant[nhittot1]   = mHit->X();
765                   izch[nhittot1]     = mHit->Chamber();
766 //                printf("id %d ch %d x %f y %f\n",id,izch[nhittot1],xgeant[nhittot1],ygeant[nhittot1]);  
767                   nhittot1++;
768               }
769           } // hit loop
770       } // if pMUON
771   } // track loop
772
773   ievr=nev;
774   gAliFileGlobal->cd();    
775 }
776
777 //______________________________________________________________________________
778 void trackf_read_geant(Int_t *itypg, Double_t *xtrg, Double_t *ytrg, Double_t *ptotg, Int_t *idg, Int_t *izch, Double_t *pvert1g, Double_t *pvert2g, Double_t *pvert3g, Double_t *zvertg, Int_t &nhittot1, Double_t *cx, Double_t *cy, Double_t *cz, Int_t &ievr,Int_t &nev,Double_t *xgeant, Double_t *ygeant, Double_t *clsize1, Double_t *clsize2) 
779 {
780   //
781   // introduce aliroot variables in fortran common 
782   // tracking study from geant hits 
783   //
784
785   AliMUON *pMUON  = (AliMUON*) gAlice->GetModule("MUON");
786   
787   //  TTree *treeK = gAlice->TreeK();
788   TTree *treeH = gAlice->TreeH();
789   Int_t ntracks = (Int_t)treeH->GetEntries();
790   cout<<"ntrack="<<ntracks<<endl;
791
792   Int_t maxidg = 0;
793   Int_t nres=0;
794   
795 //
796 //  Loop over tracks
797 //
798
799   for (Int_t track=0; track<ntracks;track++) {
800       gAlice->ResetHits();
801       treeH->GetEvent(track);
802       
803       if (pMUON)  {
804 //
805 //  Loop over hits
806 //
807           for(AliMUONHit* mHit=(AliMUONHit*)pMUON->FirstHit(-1); 
808               mHit;
809               mHit=(AliMUONHit*)pMUON->NextHit()) 
810           {
811               if (maxidg<=20000) {
812                 
813 <<<<<<< AliMUONTrackReconstructor.cxx
814                 if (mHit->Chamber() > 10) continue;
815 =======
816                 if (mHit->fChamber > 10) continue;
817 >>>>>>> 1.6
818                 TParticle *particle;
819                 Int_t ftrack = mHit->Track();
820                 Int_t id = gAlice->Particle(ftrack)->GetPdgCode();
821
822 //              if (id==kMuonPlus||id==kMuonMinus) {
823                     
824                     // inversion de x et y car le champ est inverse dans le programme tracking
825                     xtrg[maxidg]   = 0;       
826                     ytrg[maxidg]   = 0;       
827                     xgeant[maxidg]   = mHit->Y();             // x-pos of hit
828                     ygeant[maxidg]   = mHit->X();             // y-pos of hit
829                     clsize1[maxidg]   = 0;     // cluster size on 1-st cathode
830                     clsize2[maxidg]   = 0;     // cluster size on 2-nd cathode
831                     cx[maxidg]     = mHit->Cy();              // Px/P of hit
832                     cy[maxidg]     = mHit->Cx();              // Py/P of hit
833                     cz[maxidg]     = mHit->Cz();              // Pz/P of hit
834                     izch[maxidg]   = mHit->Chamber();         
835                     /*      
836                     Int_t pdgtype  = Int_t(mHit->fParticle); // particle number
837                     itypg[maxidg]  = gMC->IdFromPDG(pdgtype);
838                     */
839                     itypg[maxidg] = 0;
840                     if (id==kMuonPlus) itypg[maxidg]  = 5;
841                     if (id==kMuonMinus) itypg[maxidg]  = 6;
842
843                     //printf("ich, itypg[maxidg] %d %d\n",izch[maxidg],itypg[maxidg]);
844
845                     ptotg[maxidg]  = mHit->Momentum();          // P of hit 
846                     
847                     particle = gAlice->Particle(ftrack);
848                     Float_t thet = particle->Theta();
849                     thet = thet*180./3.1416;
850                     
851                     //cout<<"chambre "<<izch[maxidg]<<"  ptot="<<ptotg[maxidg]<<"   theta="<<thet<<"   phi="<<mHit->fPhi<<" z="<<zz<<endl;          
852                     
853                     Int_t iparent = particle->GetFirstMother();
854                     if (iparent >= 0) {
855                         Int_t ip;
856                         while(1) {
857                             ip=gAlice->Particle(iparent)->GetFirstMother();
858                             if (ip < 0) {
859                                 break;
860                             } else {
861                                 iparent = ip;
862                             }
863                         }
864                     }
865                     //printf("iparent - %d\n",iparent);
866                     Int_t id1  = ftrack; // numero de la particule generee au vertex
867                     Int_t idum = track+1;
868                     Int_t id2 = gAlice->Particle(iparent)->GetPdgCode();
869
870                     if (id2==443) id2=114;
871                     else id2=116;
872                    
873                     if (id2==116) {
874                       nres++;
875                     }
876                     //printf("id2 %d\n",id2);
877                     idg[maxidg] = 30000*id1+10000*idum+id2;
878                     
879                     pvert1g[maxidg] = particle->Py();      // Px vertex
880                     pvert2g[maxidg] = particle->Px();      // Py vertex  
881                     pvert3g[maxidg] = particle->Pz();      // Pz vertex
882                     zvertg[maxidg]  = particle->Vz();      // z vertex 
883             
884                     //      cout<<"x="<<xgeant[maxidg]<<endl;
885                     //cout<<"y="<<ygeant[maxidg]<<endl;
886                     //cout<<"typ="<<itypg[maxidg]<<endl;
887
888                     maxidg ++;
889
890                 }
891               }
892           } // hit loop
893 //      } // if pMUON
894   } // track loop first file
895
896   if (gAliTrH1 && gAliHits2 ) { // if background file
897     ntracks =(Int_t)gAliTrH1->GetEntries();
898     printf("Trackf_read - 2-nd file - ntracks %d\n",ntracks);
899
900     //  Loop over tracks
901     for (Int_t track=0; track<ntracks; track++) {
902       
903       if (gAliHits2) gAliHits2->Clear();
904       gAliTrH1->GetEvent(track);
905
906       //  Loop over hits
907       AliMUONHit *mHit;
908       for (int i=0;i<gAliHits2->GetEntriesFast();i++) 
909         {
910           mHit=(AliMUONHit*) (*gAliHits2)[i];
911           if (mHit->Chamber() > 10) continue;
912           if (maxidg<=20000) {
913             
914             // inversion de x et y car le champ est inverse dans le programme tracking !!!!
915             xtrg[maxidg]   = 0;                    // only for reconstructed point
916             ytrg[maxidg]   = 0;                    // only for reconstructed point
917             xgeant[maxidg]   = mHit->Y();           // x-pos of hit
918             ygeant[maxidg]   = mHit->X();           // y-pos of hit
919             clsize1[maxidg]   = 0;           // cluster size on 1-st cathode
920             clsize2[maxidg]   = 0;           // cluster size on 2-nd cathode
921             cx[maxidg]     = mHit->Cy();            // Px/P of hit
922             cy[maxidg]     = mHit->Cx();            // Py/P of hit
923             cz[maxidg]     = mHit->Cz();            // Pz/P of hit
924             izch[maxidg]   = mHit->Chamber();       // chamber number
925             ptotg[maxidg]  = mHit->Momentum();      // P of hit 
926             
927             Int_t ftrack = mHit->Track();
928             Int_t id1  = ftrack;                   // track number 
929             Int_t idum = track+1;
930             
931             TClonesArray *fPartArray = gAliParticles2;
932 //          TParticle *Part=NULL;
933             Int_t id = ((TParticle*) fPartArray->UncheckedAt(ftrack))->GetPdgCode();
934             if (id==kMuonPlus||id==kMuonMinus) {
935                 if (id==kMuonPlus) itypg[maxidg]  = 5;
936                 else  itypg[maxidg]  = 6;
937             } else itypg[maxidg]=0;
938             
939             Int_t id2=0; // set parent to 0 for background !!
940             idg[maxidg] = 30000*id1+10000*idum+id2;
941             
942
943             pvert1g[maxidg] = 0;      // Px vertex
944             pvert2g[maxidg] = 0;      // Py vertex  
945             pvert3g[maxidg] = 0;      // Pz vertex
946             zvertg[maxidg]  = 0;      // z vertex 
947             maxidg ++;
948
949           } // check limits (maxidg)
950         } // hit loop 
951     } // track loop
952   } // if gAliTrH1
953
954   ievr = nev;
955   nhittot1 = maxidg ;
956   cout<<"nhittot1="<<nhittot1<<endl;
957
958   static Int_t nbres=0;
959   if (nres>=19) nbres++;
960   printf("nres, nbres %d %d \n",nres,nbres);
961
962   gAliFileGlobal->cd();      
963
964 }
965
966 //________________________________________________________________________
967 void trackf_read_spoint(Int_t *itypg, Double_t *xtrg, Double_t *ytrg, Double_t *ptotg, Int_t *idg, Int_t *izch, Double_t *pvert1g, Double_t *pvert2g, Double_t *pvert3g, Double_t *zvertg, Int_t &nhittot1, Double_t *cx, Double_t *cy, Double_t *cz, Int_t &ievr,Int_t &nev,Double_t *xgeant, Double_t *ygeant,Double_t *clsize1, Double_t *clsize2) 
968
969 {
970     //
971     // introduce aliroot variables in fortran common 
972     // tracking study from reconstructed points 
973     //
974     AliMUON *pMUON  = (AliMUON*) gAlice->GetModule("MUON");
975     
976     cout<<"numero de l'evenement "<<nev<<endl;
977     
978     TTree *treeR = gAlice->TreeR();
979     Int_t nent=(Int_t)treeR->GetEntries();
980     if (nev < 10) 
981         printf("Found %d entries in the tree (must be one per cathode per event! + 1empty)\n",
982                nent);
983 //
984     
985     Int_t mult1, mult2;
986     
987     if (pMUON) {
988         Int_t mpoi=0;
989         for (Int_t ich=0;ich<10;ich++) {
990             printf("chambre %d\n",ich+1);
991             TClonesArray *reconstPoints  = pMUON->RawClustAddress(ich);
992
993             pMUON->ResetRawClusters();
994             treeR->GetEvent(nent-1);
995             Int_t npoints = (Int_t) reconstPoints->GetEntries();
996             if (!npoints) continue;
997             printf("\n ch %d npoints = %d\n",ich+1,npoints);
998             //  Loop over reconstruted points
999             for (Int_t ipoi=0; ipoi<npoints; ipoi++) {
1000                 printf("  point %d\n",ipoi);
1001                 AliMUONRawCluster* point = 
1002                     (AliMUONRawCluster*) reconstPoints->UncheckedAt(ipoi);
1003                 
1004                 mult1=point->fMultiplicity[0];
1005                 mult2=point->fMultiplicity[1];        
1006                 xtrg[mpoi]=(Double_t) point->fY[0];
1007                 ytrg[mpoi]=(Double_t) point->fX[0];
1008                 izch[mpoi]=ich+1;
1009                 Int_t itrack  = point->fTracks[1];
1010                 Int_t ihit    = point->fTracks[0];
1011                 xgeant[mpoi] = 0;
1012                 ygeant[mpoi] = 0;
1013                 clsize1[mpoi] = mult1;
1014                 clsize2[mpoi] = mult2;
1015                 Int_t id1, id2, idum;
1016                 id1=id2=idum=-1;
1017                 itypg[mpoi]=0;
1018                 ihit = ihit-1;
1019                 if (ihit >=0 && itrack >=0) {
1020                     gAlice->ResetHits();
1021                     gAlice->TreeH()->GetEvent(itrack);
1022                     TClonesArray *pMUONhits  = pMUON->Hits();
1023                     AliMUONHit* mHit;
1024                     mHit=(AliMUONHit*) (pMUONhits->UncheckedAt(ihit));
1025                     Int_t id = (Int_t) mHit->Particle();
1026                     xgeant[mpoi] = mHit->Y();          
1027                     ygeant[mpoi] = mHit->X(); 
1028                     if (id == kMuonPlus)  itypg[mpoi]=5;
1029                     if (id == kMuonMinus) itypg[mpoi]=6;
1030                     TParticle *particle;
1031                     particle = gAlice->Particle(mHit->Track());
1032                     TParticle* particleM=gAlice->Particle(particle->GetFirstMother());
1033                     Int_t iparent=particleM->GetPdgCode();
1034                     printf("\n Particle Id:%d %d \n", id, iparent);
1035                     if (iparent == 443) id2=114;
1036                     if (iparent == 553) id2=116;
1037                 }
1038                 id1=itrack;
1039                 idum=itrack+1;
1040                 idg[mpoi] = 30000*id1+10000*idum+id2;
1041                 mpoi++;
1042             } // loop over points
1043         } // loop over chamber
1044         ievr = nev;
1045         cout<<"evenement "<<ievr<<endl;
1046         nhittot1 = mpoi;
1047         cout<<"nhittot1="<<nhittot1<<endl;
1048         
1049         treeR->Reset();
1050
1051         gAliFileGlobal->cd();
1052
1053     } // if pMUON
1054 }
1055
1056 //____________________________________________________________________________
1057 void trackf_fit(Int_t &ivertex, Double_t *pest, Double_t *pstep, Double_t &pxzinv, Double_t &tphi, Double_t &talam, Double_t &xvert, Double_t &yvert)
1058 {
1059   //
1060   //  Fit a track candidate with the following input parameters: 
1061   //  INPUT :  IVERTEX  : vertex flag, if IVERTEX=1 (XVERT,YVERT) are free paramaters
1062   //                                   if IVERTEX=1 (XVERT,YVERT)=(0.,0.) 
1063   //           PEST(5)  : starting value of parameters (minuit)
1064   //           PSTEP(5) : step size for parameters (minuit)
1065   //  OUTPUT : PXZINV,TPHI,TALAM,XVERT,YVERT : fitted value of the parameters
1066
1067   static Double_t arglist[10];
1068   static Double_t c[5] = {0.4, 0.45, 0.45, 90., 90.};
1069   static Double_t b1, b2, epxz, efi, exs, exvert, eyvert;
1070   TString chname;
1071   Int_t ierflg = 0;
1072   
1073   TMinuit *gMinuit = new TMinuit(5);
1074   gMinuit->mninit(5,10,7);
1075   gMinuit->SetFCN(fcnf);  // constant m.f.
1076
1077   arglist[0] = -1;
1078   
1079   gMinuit->mnexcm("SET PRINT", arglist, 1, ierflg);
1080   //      gMinuit->mnseti('track fitting');
1081   
1082   gMinuit->mnparm(0, "invmom",  pest[0], pstep[0], -c[0], c[0], ierflg);
1083   gMinuit->mnparm(1, "azimuth", pest[1], pstep[1], -c[1], c[1], ierflg);
1084   gMinuit->mnparm(2, "deep",    pest[2], pstep[2], -c[2], c[2], ierflg);
1085   if (ivertex==1) {
1086     gMinuit->mnparm(3, "x ", pest[3], pstep[3], -c[3], c[3], ierflg);
1087     gMinuit->mnparm(4, "y ", pest[4], pstep[4], -c[4], c[4], ierflg);  
1088   }   
1089   
1090   gMinuit->mnexcm("SET NOGR", arglist, 0, ierflg);
1091   gMinuit->mnexcm("MINIMIZE", arglist, 0, ierflg);
1092   gMinuit->mnexcm("EXIT" , arglist, 0, ierflg);
1093   
1094   gMinuit->mnpout(0, chname, pxzinv, epxz, b1, b2, ierflg);
1095   gMinuit->mnpout(1, chname, tphi, efi, b1, b2, ierflg);
1096   gMinuit->mnpout(2, chname, talam, exs, b1, b2, ierflg);
1097   if (ivertex==1) {
1098     gMinuit->mnpout(3, chname, xvert, exvert, b1, b2, ierflg);
1099     gMinuit->mnpout(4, chname, yvert, eyvert, b1, b2, ierflg);
1100   }   
1101   
1102   delete gMinuit;
1103 }
1104            
1105 //________________________________________________________________________________
1106 void fcnf(Int_t &npar, Double_t *grad, Double_t &fval, Double_t *pest, Int_t iflag)
1107 {
1108   //
1109   // function called by trackf_fit
1110       Int_t futil = 0;
1111       fcn(npar,grad,fval,pest,iflag,futil);
1112 }
1113
1114 //____________________________________________________________________________
1115 void prec_fit(Double_t &pxzinv, Double_t &fis, Double_t &alams, Double_t &xvert, Double_t &yvert, Double_t &pxzinvf, Double_t &fif, Double_t &alf, Double_t &xvertf, Double_t &yvertf, Double_t &epxzinv, Double_t &efi, Double_t &exs, Double_t &exvert, Double_t &eyvert)
1116 {
1117   // 
1118   // minuit fits for tracking finding 
1119                                                                             
1120       static Double_t arglist[10];
1121       static Double_t c1[5] = {0.001, 0.001, 0.001, 1., 1.};
1122       static Double_t c2[5] = {0.5, 0.5, 0.5, 120., 120.};
1123       static Double_t emat[9];
1124       static Double_t b1, b2;
1125       Double_t fmin, fedm, errdef; 
1126       Int_t npari, nparx, istat;
1127
1128       TString chname;
1129       Int_t ierflg = 0;
1130       
1131       TMinuit *gMinuit = new TMinuit(5);
1132       gMinuit->mninit(5,10,7);
1133       gMinuit->SetFCN(fcnfitf);
1134
1135       arglist[0] = -1.;
1136       gMinuit->mnexcm("SET PRINT", arglist, 1, ierflg);
1137       
1138       //      gMinuit->mnseti('track fitting');
1139
1140       gMinuit->mnparm(0,"invmom",   pxzinv, c1[0], -c2[0], c2[0], ierflg); // 0.003, 0.5
1141       gMinuit->mnparm(1,"azimuth ", fis,    c1[1], -c2[1], c2[1], ierflg);
1142       gMinuit->mnparm(2,"deep    ", alams,  c1[2], -c2[2], c2[2], ierflg);
1143       gMinuit->mnparm(3,"xvert",    xvert,  c1[3], -c2[3], c2[3], ierflg);
1144       gMinuit->mnparm(4,"yvert",    yvert,  c1[4], -c2[4], c2[4], ierflg);
1145
1146       gMinuit->mnexcm("SET NOGR", arglist, 0, ierflg);
1147       arglist[0] = 2.;
1148       gMinuit->mnexcm("MINIMIZE", arglist, 0, ierflg);
1149       gMinuit->mnexcm("EXIT", arglist, 0, ierflg);
1150  
1151       gMinuit->mnpout(0, chname, pxzinvf, epxzinv, b1, b2, ierflg);
1152       gMinuit->mnpout(1, chname, fif, efi, b1, b2, ierflg);
1153       gMinuit->mnpout(2, chname, alf, exs, b1, b2, ierflg);
1154       gMinuit->mnpout(3, chname, xvertf, exvert, b1, b2, ierflg);
1155       gMinuit->mnpout(4, chname, yvertf, eyvert, b1, b2, ierflg);
1156   
1157       gMinuit->mnemat(emat, 3);
1158       gMinuit->mnstat(fmin, fedm, errdef, npari, nparx, istat);
1159
1160      delete gMinuit;
1161 }
1162
1163 //____________________________________________________________________
1164 void fcnfitf(Int_t &npar, Double_t *grad, Double_t &fval, Double_t *xval, Int_t iflag)
1165 {
1166   //
1167   // function called by prec_fit 
1168       Int_t futil = 0;
1169       fcnfit(npar,grad,fval,xval,iflag,futil);
1170 }