fa8fb709d4902e56ae3cadd7274860feb52b87bd
[u/mrichter/AliRoot.git] / RICH / AliRICHClusterFinder.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
17 #include "AliRICHClusterFinder.h"
18 #include "AliRICHMap.h"
19 #include <TMinuit.h>
20 #include <TParticle.h>
21 #include <TVector3.h>
22 #include <AliLoader.h>
23 #include <AliStack.h>
24 #include <AliRun.h>
25 #include "AliRICHParam.h"
26
27 void RICHMinMathieson(Int_t &npar, Double_t *gin, Double_t &chi2, Double_t *par, Int_t iflag);
28
29 ClassImp(AliRICHClusterFinder)
30 //__________________________________________________________________________________________________
31 AliRICHClusterFinder::AliRICHClusterFinder(AliRunLoader *pRunLoader)   
32 {//main ctor
33   fRICH = (AliRICH*) pRunLoader->GetAliRun()->GetDetector("RICH");
34
35   AliDebug(1,"main ctor Start.");
36   
37   fDigitMap = 0;
38   fRawCluster.Reset();
39   fResolvedCluster.Reset();
40   AliDebug(1,"main ctor Stop.");
41 }//main ctor
42 //__________________________________________________________________________________________________
43 void AliRICHClusterFinder::Exec(const Option_t *)
44 {
45 //Main method of cluster finder. Loops on  events and chambers, everything else is done in FindClusters()  
46   AliDebug(1,"Exec Start.");
47     
48   R()->GetLoader()                ->LoadDigits();   
49 //  R()->GetLoader()->GetRunLoader()->LoadHeader(); 
50   if(!R()->GetLoader()->GetRunLoader()->TreeK()) R()->GetLoader()->GetRunLoader()->LoadKinematics();
51
52   for(Int_t iEventN=0;iEventN<gAlice->GetEventsPerRun();iEventN++){//events loop
53     AliDebug(1,Form("Processing event %i...",iEventN));
54     R()->GetLoader()->GetRunLoader()->GetEvent(iEventN);
55     
56     R()->GetLoader()->MakeTree("R");  R()->MakeBranch("R");
57     R()->ResetDigits();               R()->ClustersReset();
58     
59     R()->GetLoader()->TreeD()->GetEntry(0);
60     for(Int_t iChamber=1;iChamber<=kNchambers;iChamber++){//chambers loop
61       FindClusters(iChamber);
62     }//chambers loop
63     R()->GetLoader()->TreeR()->Fill();  R()->GetLoader()->WriteRecPoints("OVERWRITE");//write out clusters for current event
64   }//events loop  
65   
66   R()->ResetDigits();//reset and unload everything
67   R()->ClustersReset();
68   R()->GetLoader()                ->UnloadDigits(); 
69   R()->GetLoader()                ->UnloadRecPoints();  
70 //  R()->GetLoader()->GetRunLoader()->UnloadHeader();
71   R()->GetLoader()->GetRunLoader()->UnloadKinematics();
72
73   AliDebug(1,"Stop.");      
74 }//Exec()
75 //__________________________________________________________________________________________________
76 void AliRICHClusterFinder::FindClusters(Int_t iChamber)
77 {
78 //Loops on digits for a given chamber, forms raw clusters, then tries to resolve them if requested
79   Int_t iNdigits=R()->Digits(iChamber)->GetEntriesFast();
80   AliDebug(1,Form("Start for chamber %i with %i digits.",iChamber,iNdigits));  
81   
82   if(iNdigits==0)return;//no digits for a given chamber, nothing to do
83
84   fDigitMap=new AliRICHMap(R()->Digits(iChamber));//create digit map for the given chamber
85
86   for(Int_t iDigN=0;iDigN<iNdigits;iDigN++){//digits loop for a given chamber    
87     AliRICHDigit *dig=(AliRICHDigit*)R()->Digits(iChamber)->At(iDigN);
88     Int_t i=dig->X();   Int_t j=dig->Y();
89     if(fDigitMap->TestHit(i,j)==kUsed) continue;//this digit is already taken, go after next digit
90         
91     FormRawCluster(i,j);//form raw cluster starting from (i,j) pad 
92     AliDebug(1,"After FormRawCluster:");ToAliDebug(1,fRawCluster.Print());  
93     FindLocalMaxima();  //find number of local maxima and initial center of gravity
94     AliDebug(1,"After FindLocalMaxima:");ToAliDebug(1,fRawCluster.Print());  
95     
96     if(AliRICHParam::IsResolveClusters()&&fNlocals<=6&&fRawCluster.Size()>1){
97       FitCoG(); //serialization of resolved clusters will happen inside
98     }else{//cluster size=1 or resolving is switched off
99       WriteRawCluster();//simply output the formed raw cluster without deconvolution
100     }
101     fRawCluster.Reset(); fResolvedCluster.Reset();
102   }//digits loop for a given chamber
103
104   delete fDigitMap;
105   
106   AliDebug(1,"Stop.");  
107 }//FindClusters()
108 //__________________________________________________________________________________________________
109 void AliRICHClusterFinder::FindClusterContribs(AliRICHCluster *pCluster)
110 {
111 //Finds cerenkov-feedback-mip mixture for a given cluster
112   AliDebug(1,"Start.");ToAliDebug(1,pCluster->Print());
113
114 //  R()->GetLoader()->GetRunLoader()->LoadHeader(); //...message from AliRunLoader...hopefully will disappear in future...
115   // sometimes no stack found if the above line is commented out!!
116   AliStack *pStack = R()->GetLoader()->GetRunLoader()->Stack();
117   if(!pStack)
118   {AliInfo("No Stack found!!! No contrib to cluster found.");return;}
119   
120   TObjArray *pDigits = pCluster->Digits();
121   if(!pDigits) return; //??????????
122   Int_t iNmips=0,iNckovs=0,iNfeeds=0;
123   TArrayI contribs(3*pCluster->Size());
124   Int_t *pindex = new Int_t[3*pCluster->Size()];
125   for(Int_t iDigN=0;iDigN<pCluster->Size();iDigN++) {//loop on digits of a given cluster
126     contribs[3*iDigN]  =((AliRICHDigit*)pDigits->At(iDigN))->GetTrack(0);
127     if (contribs[3*iDigN] >= 10000000) contribs[3*iDigN] = 0;
128     contribs[3*iDigN+1]=((AliRICHDigit*)pDigits->At(iDigN))->GetTrack(1);
129     if (contribs[3*iDigN+1] >= 10000000) contribs[3*iDigN+1] = 0;
130     contribs[3*iDigN+2]=((AliRICHDigit*)pDigits->At(iDigN))->GetTrack(2);
131     if (contribs[3*iDigN+2] >= 10000000) contribs[3*iDigN+2] = 0;
132   }//loop on digits of a given cluster
133   TMath::Sort(contribs.GetSize(),contribs.GetArray(),pindex);
134   for(Int_t iDigN=0;iDigN<3*pCluster->Size()-1;iDigN++) {//loop on digits to sort tids
135     AliDebug(1,Form("%4i for digit n. %4i",contribs[pindex[iDigN]],iDigN));
136     if(contribs[pindex[iDigN]]!=contribs[pindex[iDigN+1]]) {
137       Int_t thecontrib = contribs[pindex[iDigN]];
138       if (thecontrib>=pStack->GetNtrack()) continue;//PH this should not happen 
139       TParticle* particle = pStack->Particle(thecontrib);
140       if (!particle) continue;//PH this should not happen
141       Int_t code   = particle->GetPdgCode();
142       Double_t charge = 0;
143       if(particle->GetPDG()) charge=particle->GetPDG()->Charge();
144       AliDebug(1,Form(" charge of particle %f",charge));
145
146       if(code==50000050) iNckovs++;
147       if(code==50000051) iNfeeds++;
148       if(charge!=0) iNmips++;
149     }
150   }//loop on digits to sort Tid
151   
152   if (contribs[pindex[3*pCluster->Size()-1]]!=-1) {
153
154      TParticle* particle = pStack->Particle(contribs[pindex[3*pCluster->Size()-1]]);
155      Int_t code   = particle->GetPdgCode();
156      Double_t charge = 0;
157      if(particle->GetPDG()) charge=particle->GetPDG()->Charge();
158      AliDebug(1,Form(" charge of particle %f",charge));
159      if(code==50000050) iNckovs++;
160      if(code==50000051) iNfeeds++;
161      if(charge!=0) iNmips++;
162   }
163     
164   pCluster->CFM(iNckovs,iNfeeds,iNmips);
165 //  
166   delete [] pindex; 
167   ToAliDebug(1,pCluster->Print());
168   AliDebug(1,"Stop.");
169 }//FindClusterContribs()
170 //__________________________________________________________________________________________________
171 void  AliRICHClusterFinder::FormRawCluster(Int_t i, Int_t j)
172 {
173 //Builds the raw cluster (before deconvolution). Starts from the first pad (i,j) then calls itself recursevly  for all neighbours.
174   AliDebug(1,Form("Start with digit(%i,%i) Q=%f",i,j,((AliRICHDigit*)fDigitMap->GetHit(i,j))->Q()));
175   
176   fRawCluster.AddDigit((AliRICHDigit*) fDigitMap->GetHit(i,j));//take this pad in cluster
177   fDigitMap->FlagHit(i,j);//flag this pad as taken  
178
179   Int_t listX[4], listY[4];    //  Now look recursively for all neighbours
180   for (Int_t iNei=0;iNei<R()->P()->PadNeighbours(i,j,listX,listY);iNei++)
181     if(fDigitMap->TestHit(listX[iNei],listY[iNei])==kUnused) FormRawCluster(listX[iNei],listY[iNei]);    
182 }//FormRawCluster()
183 //__________________________________________________________________________________________________
184 void AliRICHClusterFinder::FindLocalMaxima()
185 {
186 //find number of local maxima in the current raw cluster and then calculates initial center of gravity
187   fNlocals=0;
188   AliDebug(1,Form("Cluster size of the Raw cluster ---> %i",fRawCluster.Size()));
189   for(Int_t iDig1=0;iDig1<fRawCluster.Size();iDig1++) {
190     Int_t iNotMax = 0;
191     AliRICHDigit *pDig1 = (AliRICHDigit *)fRawCluster.Digits()->At(iDig1);
192     if(!pDig1) {fNlocals=0;return;}
193     TVector pad1 = pDig1->Pad();
194     Int_t padQ1 = (Int_t)(pDig1->Q()+0.1);
195     Int_t padC1 = pDig1->ChFbMi();
196     for(Int_t iDig2=0;iDig2<fRawCluster.Size();iDig2++) {
197       AliRICHDigit *pDig2 = (AliRICHDigit *)fRawCluster.Digits()->At(iDig2);
198       if(!pDig2) {fNlocals=0;return;}
199       TVector pad2 = pDig2->Pad();
200       Int_t padQ2 = (Int_t)(pDig2->Q()+0.1);
201       if(iDig1==iDig2) continue;
202       Int_t diffx = TMath::Sign(Int_t(pad1[0]-pad2[0]),1);
203       Int_t diffy = TMath::Sign(Int_t(pad1[1]-pad2[1]),1);
204       if((diffx+diffy)<=1) {
205          if(padQ2>=padQ1) iNotMax++;
206       }
207     }
208     if(iNotMax==0) {
209       TVector2 x2=AliRICHParam::Pad2Loc(pad1);
210       fLocalX[fNlocals]=x2.X();fLocalY[fNlocals]=x2.Y();
211       fLocalQ[fNlocals] = (Double_t)padQ1;
212       fLocalC[fNlocals] = padC1;
213       fNlocals++;
214     }
215   }
216   AliDebug(1,Form("Number of local maxima found ---> %i",fNlocals));
217   fRawCluster.CoG(fNlocals); //first initial approximation of the CoG...to start minimization.
218 }//FindLocalMaxima()
219 //__________________________________________________________________________________________________
220 void AliRICHClusterFinder::WriteRawCluster()
221 {
222 //Add the current raw cluster to the list of clusters
223   AliDebug(1,"Start.");
224   
225   FindClusterContribs(&fRawCluster);  
226   R()->ClusterAdd(fRawCluster);
227   
228   ToAliDebug(1,fRawCluster.Print()); AliDebug(1,"Stop."); 
229 }//WriteRawCluster()
230 //__________________________________________________________________________________________________
231 void AliRICHClusterFinder::WriteResolvedCluster()
232 {
233 //Add the current resolved cluster to the list of clusters
234   AliDebug(1,"Start.");
235   
236   FindClusterContribs(&fResolvedCluster);
237   R()->ClusterAdd(fResolvedCluster);
238   
239   ToAliDebug(1,fResolvedCluster.Print()); AliDebug(1,"Stop.");  
240 }//WriteResolvedCluster()
241 //__________________________________________________________________________________________________
242 void AliRICHClusterFinder::FitCoG()
243 {
244 //Fits cluster of size  by the corresponding number of Mathieson shapes.
245 //This methode is only invoked in case everything is ok to start deconvolution  
246   AliDebug(1,"Start with:"); ToAliDebug(1,fRawCluster.Print());
247   
248   Double_t arglist;
249   Int_t ierflag = 0;
250
251   AliDebug(1,Form("MINUIT Started with %i parameters and %i local maxima",3*fNlocals-1,fNlocals));
252
253 //  TMinuit *pMinuit = new TMinuit(3*fNlocals-1);
254   TMinuit *pMinuit = new TMinuit(100);
255   pMinuit->mninit(5,10,7);
256   
257   arglist = -1;
258   pMinuit->mnexcm("SET PRI",&arglist, 1, ierflag);
259   pMinuit->mnexcm("SET NOW",&arglist, 0, ierflag);
260   
261   TString chname;
262   Int_t ierflg;
263   
264   pMinuit->SetObjectFit((TObject*)this);
265   pMinuit->SetFCN(RICHMinMathieson);
266   
267   Double_t vstart,lower, upper;
268   Double_t stepX= 0.01;
269   Double_t stepY= 0.01;
270   Double_t stepQ= 0.01;
271   
272   for(Int_t i=0;i<fNlocals;i++) {
273     AliDebug(1,Form(" local minimum n. %i with Xstart %f and Ystart %f",i,fLocalX[i],fLocalY[i]));
274     vstart   = fLocalX[i];
275     lower    = vstart - 2*AliRICHParam::PadSizeX();
276     upper    = vstart + 2*AliRICHParam::PadSizeX();
277     pMinuit->mnparm(3*i  ,Form("xCoG  %i",i),vstart,stepX,lower,upper,ierflag);
278     AliDebug(1,Form("xCoG %i vstart %f lower %f upper %f ",i,vstart,lower,upper));
279
280     vstart   = fLocalY[i];
281     lower    = vstart - 2*AliRICHParam::PadSizeY();
282     upper    = vstart + 2*AliRICHParam::PadSizeY();
283     pMinuit->mnparm(3*i+1,Form("yCoG  %i",i),vstart,stepY,lower,upper,ierflag);
284     AliDebug(1,Form("yCoG %i vstart %f lower %f upper %f ",i,vstart,lower,upper));
285     if(i==fNlocals-1) break;                    // last parameter is constrained
286     vstart = fLocalQ[i]/fRawCluster.Q();
287     lower  = 0;
288     upper  = 1;
289     pMinuit->mnparm(3*i+2,Form("qfrac %i",i),vstart,stepQ,lower,upper,ierflag);
290     AliDebug(1,Form("qfrac %i vstart %f lower %f upper %f ",i,vstart,lower,upper));
291   }
292   
293   arglist = -1;
294   pMinuit->mnexcm("SET NOGR",&arglist, 1, ierflag);
295   arglist = 1;
296   pMinuit->mnexcm("SET ERR", &arglist, 1,ierflg);
297   arglist = -1;
298   pMinuit->mnexcm("SIMPLEX",&arglist, 0, ierflag);
299   pMinuit->mnexcm("MIGRAD",&arglist, 0, ierflag);
300 //  pMinuit->mnexcm("EXIT" ,&arglist, 0, ierflag);
301   
302   Double_t xCoG[50],yCoG[50],qfracCoG[50];
303   Double_t eps, b1, b2;
304
305   Double_t qfraclast=0;  
306   for(Int_t i=0;i<fNlocals;i++) {
307     pMinuit->mnpout(3*i  ,chname,     xCoG[i], eps , b1, b2, ierflg);
308     pMinuit->mnpout(3*i+1,chname,     yCoG[i], eps , b1, b2, ierflg);
309     if(i==fNlocals-1) break;
310     pMinuit->mnpout(3*i+2,chname, qfracCoG[i], eps , b1, b2, ierflg);
311     qfraclast+=qfracCoG[i];
312    }
313   qfracCoG[fNlocals-1] = 1 - qfraclast;
314
315   delete pMinuit;
316
317   for(Int_t i=0;i<fNlocals;i++){//resolved positions loop
318     fResolvedCluster.Fill(&fRawCluster,xCoG[i],yCoG[i],qfracCoG[i],fLocalC[i]);
319     WriteResolvedCluster();
320   }
321  
322
323   AliDebug(1,"Stop.");
324
325 }//FitCoG()
326 //__________________________________________________________________________________________________
327 void RICHMinMathieson(Int_t &npar, Double_t *, Double_t &chi2, Double_t *par, Int_t )
328 {
329 //Mathieson minimization function 
330   
331   AliRICHCluster *pRawCluster = ((AliRICHClusterFinder*)gMinuit->GetObjectFit())->GetRawCluster();
332
333   TVector2 centroid[50];
334   Double_t q[50];
335   Int_t nFunctions = (npar+1)/3;
336   Double_t qfract = 0;
337   for(Int_t i=0;i<nFunctions;i++) {
338     centroid[i].Set(par[3*i],par[3*i+1]);
339     if(i==nFunctions-1) break;
340     q[i]=par[3*i+2];
341     qfract+=q[i];
342   }
343   q[nFunctions-1] = 1 - qfract;
344     
345   chi2 = 0;
346   Int_t qtot = pRawCluster->Q();
347   for(Int_t i=0;i<pRawCluster->Size();i++) {
348     TVector  pad=((AliRICHDigit *)pRawCluster->Digits()->At(i))->Pad();
349     Double_t padQ = ((AliRICHDigit *)pRawCluster->Digits()->At(i))->Q();
350     Double_t qfracpar=0;
351     for(Int_t j=0;j<nFunctions;j++) {
352       qfracpar += q[j]*AliRICHParam::FracQdc(centroid[j],pad);
353     }
354     chi2 += TMath::Power((qtot*qfracpar-padQ),2)/padQ;
355   }     
356 }//RICHMinMathieson()
357 //__________________________________________________________________________________________________