1 /**************************************************************************
2 * Copyright(c) 2007, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
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 **************************************************************************/
18 // This class extracts the signal parameters (energy, time, quality)
19 // from ALTRO samples. Energy is in ADC counts, time is in time bin units.
20 // A fitting algorithm evaluates the energy and the time from Minuit minimization
23 // AliPHOSRawFitter *fitter=new AliPHOSRawFitter();
24 // fitter->SetChannelGeo(module,cellX,cellZ,caloFlag);
25 // fitter->SetCalibData(fgCalibData) ;
26 // fitter->Eval(sig,sigStart,sigLength);
27 // Double_t amplitude = fitter.GetEnergy();
28 // Double_t time = fitter.GetTime();
29 // Bool_t isLowGain = fitter.GetCaloFlag()==0;
31 // Author: Dmitri Peressounko (Oct.2008)
32 // Modified: Yuri Kharlov (Jul.2009)
34 // --- ROOT system ---
40 // --- AliRoot header files ---
42 #include "AliPHOSCalibData.h"
43 #include "AliPHOSRawFitterv1.h"
44 #include "AliPHOSPulseGenerator.h"
46 ClassImp(AliPHOSRawFitterv1)
48 //-----------------------------------------------------------------------------
49 AliPHOSRawFitterv1::AliPHOSRawFitterv1():
51 fSampleParamsLow(0x0),
52 fSampleParamsHigh(0x0),
55 //Default constructor.
57 gMinuit = new TMinuit(100);
58 fSampleParamsHigh =new TArrayD(7) ;
59 fSampleParamsHigh->AddAt(2.174,0) ;
60 fSampleParamsHigh->AddAt(0.106,1) ;
61 fSampleParamsHigh->AddAt(0.173,2) ;
62 fSampleParamsHigh->AddAt(0.06106,3) ;
63 //last two parameters are pedestal and overflow
64 fSampleParamsLow=new TArrayD(7) ;
65 fSampleParamsLow->AddAt(2.456,0) ;
66 fSampleParamsLow->AddAt(0.137,1) ;
67 fSampleParamsLow->AddAt(2.276,2) ;
68 fSampleParamsLow->AddAt(0.08246,3) ;
69 fToFit = new TList() ;
72 //-----------------------------------------------------------------------------
73 AliPHOSRawFitterv1::~AliPHOSRawFitterv1()
77 delete fSampleParamsLow ;
80 if(fSampleParamsHigh){
81 delete fSampleParamsHigh ;
90 //-----------------------------------------------------------------------------
91 AliPHOSRawFitterv1::AliPHOSRawFitterv1(const AliPHOSRawFitterv1 &phosFitter ):
92 AliPHOSRawFitterv0(phosFitter),
93 fSampleParamsLow(0x0),
94 fSampleParamsHigh(0x0),
98 fToFit = new TList() ;
99 fSampleParamsLow =new TArrayD(*(phosFitter.fSampleParamsLow)) ;
100 fSampleParamsHigh=new TArrayD(*(phosFitter.fSampleParamsHigh)) ;
103 //-----------------------------------------------------------------------------
104 AliPHOSRawFitterv1& AliPHOSRawFitterv1::operator = (const AliPHOSRawFitterv1 &phosFitter)
106 //Assignment operator.
108 fToFit = new TList() ;
109 if(fSampleParamsLow){
110 fSampleParamsLow = phosFitter.fSampleParamsLow ;
111 fSampleParamsHigh= phosFitter.fSampleParamsHigh ;
114 fSampleParamsLow =new TArrayD(*(phosFitter.fSampleParamsLow)) ;
115 fSampleParamsHigh=new TArrayD(*(phosFitter.fSampleParamsHigh)) ;
120 //-----------------------------------------------------------------------------
121 Bool_t AliPHOSRawFitterv1::Eval(const UShort_t *signal, Int_t sigStart, Int_t sigLength)
123 //Extract an energy deposited in the crystal,
124 //crystal' position (module,column,row),
125 //time and gain (high or low).
126 //First collects sample, then evaluates it and if it has
127 //reasonable shape, fits it with Gamma2 function and extracts
130 if (fCaloFlag == 2 || fNBunches > 1) {
138 const Float_t kBaseLine = 1.0;
139 const Int_t kPreSamples = 10;
141 TArrayI *fSamples = new TArrayI(sigLength); // array of sample amplitudes
142 TArrayI *fTimes = new TArrayI(sigLength); // array of sample time stamps
143 for (Int_t i=0; i<sigLength; i++) {
146 pedMean += signal[i];
147 pedRMS += signal[i]*signal[i] ;
149 fSamples->AddAt(signal[i],sigLength-i-1);
150 fTimes ->AddAt(i ,i);
155 const Float_t sampleMaxHG=102.332 ; //maximal height of HG sample with given parameterization
156 const Float_t sampleMaxLG=277.196 ; //maximal height of LG sample with given parameterization
157 const Float_t maxEtoFit=5 ; //fit only samples above this energy, accept all samples (with good aRMS) below it
158 Double_t pedestal = 0;
162 fPedestalRMS=(pedRMS - pedMean*pedMean/nPed)/nPed ;
163 if(fPedestalRMS > 0.)
164 fPedestalRMS = TMath::Sqrt(fPedestalRMS) ;
165 fEnergy -= (Double_t)(pedMean/nPed); // pedestal subtraction
171 //take pedestals from DB
172 pedestal = (Double_t) fAmpOffset ;
174 Float_t truePed = fCalibData->GetADCpedestalEmc(fModule, fCellZ, fCellX) ;
175 Int_t altroSettings = fCalibData->GetAltroOffsetEmc(fModule, fCellZ, fCellX) ;
176 pedestal += truePed - altroSettings ;
179 AliWarning(Form("Can not read data from OCDB")) ;
184 if (fEnergy < kBaseLine) fEnergy = 0;
187 while(iStart<sigLength && fSamples->At(iStart)-pedestal <kBaseLine) iStart++ ;
188 fTime = sigStart-sigLength+iStart;
190 //calculate time and energy
198 for (Int_t i=0; i<sigLength; i++){
199 if(signal[i] > pedestal){
200 Double_t de = signal[i] - pedestal ;
206 if(de > 2 && tStart==0)
208 if(maxAmp < signal[i]){
215 if (maxBin==sigLength-1){//bad "rising" sample
222 fEnergy=Double_t(maxAmp)-pedestal ;
223 fOverflow =0 ; //look for plato on the top of sample
224 if (fEnergy>500 && //this is not fluctuation of soft sample
225 maxBin<sigLength-1 && fSamples->At(maxBin+1)==maxAmp){ //and there is a plato
231 aRMS = aRMS/wts - aMean*aMean;
234 //do not take too small energies
235 if (fEnergy < kBaseLine)
238 //do not test quality of too soft samples
239 if (fEnergy < maxEtoFit){
241 if (aRMS < 2.) //sigle peak
248 // if sample has reasonable mean and RMS, try to fit it with gamma2
250 gMinuit->mncler(); // Reset Minuit's list of paramters
251 gMinuit->SetPrintLevel(-1) ; // No Printout
252 gMinuit->SetFCN(AliPHOSRawFitterv1::UnfoldingChiSquare) ;
253 // To set the address of the minimization function
255 fToFit->Clear("nodelete") ;
256 Double_t b=0,bmin=0,bmax=0 ;
257 if (fCaloFlag == 0){ // Low gain
258 fSampleParamsLow->AddAt(pedestal,4) ;
260 fSampleParamsLow->AddAt(double(maxAmp),5) ;
262 fSampleParamsLow->AddAt(double(1023),5) ;
263 fSampleParamsLow->AddAt(double(iStart),6) ;
264 fToFit->AddFirst((TObject*)fSampleParamsLow) ;
265 b=fSampleParamsLow->At(2) ;
269 else if (fCaloFlag == 1){ // High gain
270 fSampleParamsHigh->AddAt(pedestal,4) ;
272 fSampleParamsHigh->AddAt(double(maxAmp),5) ;
274 fSampleParamsHigh->AddAt(double(1023),5);
275 fSampleParamsHigh->AddAt(double(iStart),6);
276 fToFit->AddFirst((TObject*)fSampleParamsHigh) ;
277 b=fSampleParamsHigh->At(2) ;
281 fToFit->AddLast((TObject*)fSamples) ;
282 fToFit->AddLast((TObject*)fTimes) ;
284 gMinuit->SetObjectFit((TObject*)fToFit) ; // To tranfer pointer to UnfoldingChiSquare
286 gMinuit->mnparm(0, "t0", 1.*tStart, 0.01, -500., 500., ierflg) ;
288 // AliWarning(Form("Unable to set initial value for fit procedure : t0=%e\n",1.*tStart) ) ;
292 return kTRUE ; //will scan further
295 if (fCaloFlag == 0) // Low gain
296 amp0 = fEnergy/sampleMaxLG;
297 else if (fCaloFlag == 1) // High gain
298 amp0 = fEnergy/sampleMaxHG;
300 gMinuit->mnparm(1, "Energy", amp0 , 0.01*amp0, 0, 0, ierflg) ;
302 // AliWarning(Form("Unable to set initial value for fit procedure : E=%e\n", amp0)) ;
306 return kTRUE ; //will scan further
309 gMinuit->mnparm(2, "p2", b, 0.01*b, bmin, bmax, ierflg) ;
311 // AliWarning(Form("Unable to set initial value for fit procedure : E=%e\n", amp0)) ;
315 return kTRUE ; //will scan further
318 Double_t p0 = 0.0001 ; // "Tolerance" Evaluation stops when EDM = 0.0001*p0 ; The number of function call slightly
322 gMinuit->mnexcm("SET STR", &p2, 0, ierflg) ; // force TMinuit to reduce function calls
323 gMinuit->mnexcm("SET GRA", &p1, 1, ierflg) ; // force TMinuit to use my gradient
324 // gMinuit->SetMaxIterations(100);
325 gMinuit->mnexcm("SET NOW", &p2 , 0, ierflg) ; // No Warnings
327 gMinuit->mnexcm("MIGRAD", &p0, 0, ierflg) ; // minimize
331 gMinuit->GetParameter(0,t0, t0err) ;
332 gMinuit->GetParameter(1,efit, err) ;
334 Double_t bfit, berr ;
335 gMinuit->GetParameter(2,bfit,berr) ;
337 //Calculate total energy
338 //this is parameterization of dependence of pulse height on parameter b
339 if(fCaloFlag == 0) // Low gain
340 efit *= 99.54910 + 78.65038*bfit ;
341 else if(fCaloFlag == 1) // High gain
342 efit *= 80.33109 + 128.6433*bfit ;
344 if(efit < 0. || efit > 10000.){
345 //set energy to previously found max
351 //evaluate fit quality
352 Double_t fmin,fedm,errdef ;
353 Int_t npari,nparx,istat;
354 gMinuit->mnstat(fmin,fedm,errdef,npari,nparx,istat) ;
355 fQuality = fmin/sigLength ;
356 //compare quality with some parameterization
357 if (fCaloFlag == 0) // Low gain
358 fQuality /= 2.00 + 0.0020*fEnergy ;
359 else if (fCaloFlag == 1) // High gain
360 fQuality /= 0.75 + 0.0025*fEnergy ;
363 fTime += t0 - 4.024*bfit ; //-10.402*bfit+4.669*bfit*bfit ; //Correction for 70 samples
364 // fTime += sigStart;
370 //_____________________________________________________________________________
371 void AliPHOSRawFitterv1::UnfoldingChiSquare(Int_t & /*nPar*/, Double_t * Grad, Double_t & fret, Double_t * x, Int_t iflag)
373 // Number of parameters, Gradient, Chi squared, parameters, what to do
375 TList * toFit= (TList*)gMinuit->GetObjectFit() ;
376 TArrayD * params=(TArrayD*)toFit->At(0) ;
377 TArrayI * samples = (TArrayI*)toFit->At(1) ;
378 TArrayI * times = (TArrayI*)toFit->At(2) ;
382 for(Int_t iparam = 0 ; iparam < 3 ; iparam++)
383 Grad[iparam] = 0 ; // Will evaluate gradient
388 Double_t n=params->At(0) ;
389 Double_t alpha=params->At(1) ;
390 Double_t beta=params->At(3) ;
391 Double_t ped=params->At(4) ;
393 Double_t overflow=params->At(5) ;
394 Int_t iBin = (Int_t) params->At(6) ;
395 Int_t nSamples=TMath::Min(iBin+70,samples->GetSize()) ; //Here we set number of points to fit (70)
396 // iBin - first non-zero sample
397 Int_t tStep=times->At(iBin+1)-times->At(iBin) ;
398 Double_t ddt=times->At(iBin)-t0-tStep ;
399 Double_t exp1=TMath::Exp(-alpha*ddt) ;
400 Double_t exp2=TMath::Exp(-beta*ddt) ;
401 Double_t dexp1=TMath::Exp(-alpha*tStep) ;
402 Double_t dexp2=TMath::Exp(-beta*tStep) ;
403 for(Int_t i = iBin; i<nSamples ; i++) {
404 Double_t dt=double(times->At(i))-t0 ;
405 Double_t fsample = double(samples->At(i)) ;
406 if(fsample>=overflow)
416 Double_t dtn=TMath::Power(dt,n) ;
417 Double_t dtnE=dtn*exp1 ;
418 Double_t dt2E=dt*dt*exp2 ;
419 Double_t fit=ped+en*(dtnE + b*dt2E) ;
420 diff = fsample - fit ;
422 if(iflag == 2){ // calculate gradient
423 Grad[0] += en*diff*(dtnE*(n/dt-alpha)+b*dt2E*(2./dt-beta)) ; //derivative over t0
424 Grad[1] -= diff*(dtnE+b*dt2E) ;
425 Grad[2] -= en*diff*dt2E ;
429 for(Int_t iparam = 0 ; iparam < 3 ; iparam++)
432 //-----------------------------------------------------------------------------
433 Double_t AliPHOSRawFitterv1::Gamma2(Double_t dt,Double_t en,Double_t b,TArrayD * params){ //Function for fitting samples
435 //dt-time after start
437 //function parameters
439 Double_t ped=params->At(4) ;
441 return ped ; //pedestal
443 return ped+en*(TMath::Power(dt,params->At(0))*TMath::Exp(-dt*params->At(1))+b*dt*dt*TMath::Exp(-dt*params->At(3))) ;