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