]> git.uio.no Git - u/mrichter/AliRoot.git/blame - TPC/AliTPCclustererMI.cxx
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add gating grid and central electrode pulse analisys (Marian)
[u/mrichter/AliRoot.git] / TPC / AliTPCclustererMI.cxx
CommitLineData
1c53abe2 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
88cb7938 16/* $Id$ */
1c53abe2 17
18//-------------------------------------------------------
19// Implementation of the TPC clusterer
20//
21// Origin: Marian Ivanov
22//-------------------------------------------------------
23
d7a11555 24#include "AliTPCReconstructor.h"
1c53abe2 25#include "AliTPCclustererMI.h"
26#include "AliTPCclusterMI.h"
27#include <TObjArray.h>
28#include <TFile.h>
65c045f0 29#include "TGraph.h"
30#include "TF1.h"
31#include "TRandom.h"
32#include "AliMathBase.h"
33
1c53abe2 34#include "AliTPCClustersArray.h"
35#include "AliTPCClustersRow.h"
36#include "AliDigits.h"
37#include "AliSimDigits.h"
38#include "AliTPCParam.h"
194b0609 39#include "AliTPCRecoParam.h"
f8aae377 40#include "AliRawReader.h"
41#include "AliTPCRawStream.h"
42#include "AliRunLoader.h"
43#include "AliLoader.h"
cc5e9db0 44#include "Riostream.h"
1c53abe2 45#include <TTree.h>
13116aec 46#include "AliTPCcalibDB.h"
47#include "AliTPCCalPad.h"
48#include "AliTPCCalROC.h"
65c045f0 49#include "TTreeStream.h"
50#include "AliLog.h"
13116aec 51
52
1c53abe2 53ClassImp(AliTPCclustererMI)
54
55
56
194b0609 57 AliTPCclustererMI::AliTPCclustererMI(const AliTPCParam* par, const AliTPCRecoParam * recoParam)
1c53abe2 58{
22c352f8 59 fIsOldRCUFormat = kFALSE;
1c53abe2 60 fInput =0;
61 fOutput=0;
f8aae377 62 fParam = par;
194b0609 63 if (recoParam) {
64 fRecoParam = recoParam;
65 }else{
66 //set default parameters if not specified
67 fRecoParam = AliTPCReconstructor::GetRecoParam();
68 if (!fRecoParam) fRecoParam = AliTPCRecoParam::GetLowFluxParam();
69 }
65c045f0 70 fDebugStreamer = new TTreeSRedirector("TPCsignal.root");
71 fAmplitudeHisto = 0;
72}
73
74AliTPCclustererMI::~AliTPCclustererMI(){
75 DumpHistos();
76 if (fAmplitudeHisto) delete fAmplitudeHisto;
77 if (fDebugStreamer) delete fDebugStreamer;
1c53abe2 78}
22c352f8 79
1c53abe2 80void AliTPCclustererMI::SetInput(TTree * tree)
81{
82 //
83 // set input tree with digits
84 //
85 fInput = tree;
86 if (!fInput->GetBranch("Segment")){
87 cerr<<"AliTPC::Digits2Clusters(): no porper input tree !\n";
88 fInput=0;
89 return;
90 }
91}
92
93void AliTPCclustererMI::SetOutput(TTree * tree)
94{
95 //
96 //
97 fOutput= tree;
98 AliTPCClustersRow clrow;
99 AliTPCClustersRow *pclrow=&clrow;
100 clrow.SetClass("AliTPCclusterMI");
101 clrow.SetArray(1); // to make Clones array
102 fOutput->Branch("Segment","AliTPCClustersRow",&pclrow,32000,200);
103}
104
105
106Float_t AliTPCclustererMI::GetSigmaY2(Int_t iz){
107 // sigma y2 = in digits - we don't know the angle
753797ce 108 Float_t z = iz*fParam->GetZWidth()+fParam->GetNTBinsL1()*fParam->GetZWidth();
1c53abe2 109 Float_t sd2 = (z*fParam->GetDiffL()*fParam->GetDiffL())/
110 (fPadWidth*fPadWidth);
111 Float_t sres = 0.25;
112 Float_t res = sd2+sres;
113 return res;
114}
115
116
117Float_t AliTPCclustererMI::GetSigmaZ2(Int_t iz){
118 //sigma z2 = in digits - angle estimated supposing vertex constraint
753797ce 119 Float_t z = iz*fZWidth+fParam->GetNTBinsL1()*fParam->GetZWidth();
1c53abe2 120 Float_t sd2 = (z*fParam->GetDiffL()*fParam->GetDiffL())/(fZWidth*fZWidth);
121 Float_t angular = fPadLength*(fParam->GetZLength()-z)/(fRx*fZWidth);
122 angular*=angular;
123 angular/=12.;
124 Float_t sres = fParam->GetZSigma()/fZWidth;
125 sres *=sres;
126 Float_t res = angular +sd2+sres;
127 return res;
128}
129
13116aec 130void AliTPCclustererMI::MakeCluster(Int_t k,Int_t max,Float_t *bins, UInt_t /*m*/,
1c53abe2 131AliTPCclusterMI &c)
132{
133 Int_t i0=k/max; //central pad
134 Int_t j0=k%max; //central time bin
135
136 // set pointers to data
137 //Int_t dummy[5] ={0,0,0,0,0};
13116aec 138 Float_t * matrix[5]; //5x5 matrix with digits - indexing i = 0 ..4 j = -2..2
139 Float_t * resmatrix[5];
1c53abe2 140 for (Int_t di=-2;di<=2;di++){
141 matrix[di+2] = &bins[k+di*max];
142 resmatrix[di+2] = &fResBins[k+di*max];
143 }
144 //build matrix with virtual charge
145 Float_t sigmay2= GetSigmaY2(j0);
146 Float_t sigmaz2= GetSigmaZ2(j0);
147
148 Float_t vmatrix[5][5];
149 vmatrix[2][2] = matrix[2][0];
150 c.SetType(0);
6c024a0e 151 c.SetMax((UShort_t)(vmatrix[2][2])); // write maximal amplitude
1c53abe2 152 for (Int_t di =-1;di <=1;di++)
153 for (Int_t dj =-1;dj <=1;dj++){
154 Float_t amp = matrix[di+2][dj];
155 if ( (amp<2) && (fLoop<2)){
156 // if under threshold - calculate virtual charge
157 Float_t ratio = TMath::Exp(-1.2*TMath::Abs(di)/sigmay2)*TMath::Exp(-1.2*TMath::Abs(dj)/sigmaz2);
158 amp = ((matrix[2][0]-2)*(matrix[2][0]-2)/(matrix[-di+2][-dj]+2))*ratio;
159 if (amp>2) amp = 2;
160 vmatrix[2+di][2+dj]=amp;
161 vmatrix[2+2*di][2+2*dj]=0;
162 if ( (di*dj)!=0){
163 //DIAGONAL ELEMENTS
164 vmatrix[2+2*di][2+dj] =0;
165 vmatrix[2+di][2+2*dj] =0;
166 }
167 continue;
168 }
169 if (amp<4){
170 //if small amplitude - below 2 x threshold - don't consider other one
171 vmatrix[2+di][2+dj]=amp;
172 vmatrix[2+2*di][2+2*dj]=0; // don't take to the account next bin
173 if ( (di*dj)!=0){
174 //DIAGONAL ELEMENTS
175 vmatrix[2+2*di][2+dj] =0;
176 vmatrix[2+di][2+2*dj] =0;
177 }
178 continue;
179 }
180 //if bigger then take everything
181 vmatrix[2+di][2+dj]=amp;
182 vmatrix[2+2*di][2+2*dj]= matrix[2*di+2][2*dj] ;
183 if ( (di*dj)!=0){
184 //DIAGONAL ELEMENTS
185 vmatrix[2+2*di][2+dj] = matrix[2*di+2][dj];
186 vmatrix[2+di][2+2*dj] = matrix[2+di][dj*2];
187 }
188 }
189
190
191
192 Float_t sumw=0;
193 Float_t sumiw=0;
194 Float_t sumi2w=0;
195 Float_t sumjw=0;
196 Float_t sumj2w=0;
197 //
198 for (Int_t i=-2;i<=2;i++)
199 for (Int_t j=-2;j<=2;j++){
200 Float_t amp = vmatrix[i+2][j+2];
201
202 sumw += amp;
203 sumiw += i*amp;
204 sumi2w += i*i*amp;
205 sumjw += j*amp;
206 sumj2w += j*j*amp;
207 }
208 //
209 Float_t meani = sumiw/sumw;
210 Float_t mi2 = sumi2w/sumw-meani*meani;
211 Float_t meanj = sumjw/sumw;
212 Float_t mj2 = sumj2w/sumw-meanj*meanj;
213 //
214 Float_t ry = mi2/sigmay2;
215 Float_t rz = mj2/sigmaz2;
216
217 //
218 if ( ( (ry<0.6) || (rz<0.6) ) && fLoop==2) return;
194b0609 219 if ( (ry <1.2) && (rz<1.2) || (!fRecoParam->GetDoUnfold())) {
220 //
221 //if cluster looks like expected or Unfolding not switched on
222 //standard COG is used
1c53abe2 223 //+1.2 deviation from expected sigma accepted
224 // c.fMax = FitMax(vmatrix,meani,meanj,TMath::Sqrt(sigmay2),TMath::Sqrt(sigmaz2));
225
226 meani +=i0;
227 meanj +=j0;
228 //set cluster parameters
229 c.SetQ(sumw);
230 c.SetY(meani*fPadWidth);
231 c.SetZ(meanj*fZWidth);
232 c.SetSigmaY2(mi2);
233 c.SetSigmaZ2(mj2);
234 AddCluster(c);
235 //remove cluster data from data
236 for (Int_t di=-2;di<=2;di++)
237 for (Int_t dj=-2;dj<=2;dj++){
13116aec 238 resmatrix[di+2][dj] -= vmatrix[di+2][dj+2];
1c53abe2 239 if (resmatrix[di+2][dj]<0) resmatrix[di+2][dj]=0;
240 }
241 resmatrix[2][0] =0;
242 return;
243 }
244 //
245 //unfolding when neccessary
246 //
247
13116aec 248 Float_t * matrix2[7]; //7x7 matrix with digits - indexing i = 0 ..6 j = -3..3
249 Float_t dummy[7]={0,0,0,0,0,0};
1c53abe2 250 for (Int_t di=-3;di<=3;di++){
251 matrix2[di+3] = &bins[k+di*max];
252 if ((k+di*max)<3) matrix2[di+3] = &dummy[3];
253 if ((k+di*max)>fMaxBin-3) matrix2[di+3] = &dummy[3];
254 }
255 Float_t vmatrix2[5][5];
256 Float_t sumu;
257 Float_t overlap;
258 UnfoldCluster(matrix2,vmatrix2,meani,meanj,sumu,overlap);
259 //
260 // c.fMax = FitMax(vmatrix2,meani,meanj,TMath::Sqrt(sigmay2),TMath::Sqrt(sigmaz2));
261 meani +=i0;
262 meanj +=j0;
263 //set cluster parameters
264 c.SetQ(sumu);
265 c.SetY(meani*fPadWidth);
266 c.SetZ(meanj*fZWidth);
267 c.SetSigmaY2(mi2);
268 c.SetSigmaZ2(mj2);
269 c.SetType(Char_t(overlap)+1);
270 AddCluster(c);
271
272 //unfolding 2
273 meani-=i0;
274 meanj-=j0;
275 if (gDebug>4)
276 printf("%f\t%f\n", vmatrix2[2][2], vmatrix[2][2]);
277}
278
279
280
13116aec 281void AliTPCclustererMI::UnfoldCluster(Float_t * matrix2[7], Float_t recmatrix[5][5], Float_t & meani, Float_t & meanj,
1c53abe2 282 Float_t & sumu, Float_t & overlap )
283{
284 //
285 //unfold cluster from input matrix
286 //data corresponding to cluster writen in recmatrix
287 //output meani and meanj
288
289 //take separatelly y and z
290
291 Float_t sum3i[7] = {0,0,0,0,0,0,0};
292 Float_t sum3j[7] = {0,0,0,0,0,0,0};
293
294 for (Int_t k =0;k<7;k++)
295 for (Int_t l = -1; l<=1;l++){
296 sum3i[k]+=matrix2[k][l];
297 sum3j[k]+=matrix2[l+3][k-3];
298 }
299 Float_t mratio[3][3]={{1,1,1},{1,1,1},{1,1,1}};
300 //
301 //unfold y
302 Float_t sum3wi = 0; //charge minus overlap
303 Float_t sum3wio = 0; //full charge
304 Float_t sum3iw = 0; //sum for mean value
305 for (Int_t dk=-1;dk<=1;dk++){
306 sum3wio+=sum3i[dk+3];
307 if (dk==0){
308 sum3wi+=sum3i[dk+3];
309 }
310 else{
311 Float_t ratio =1;
312 if ( ( ((sum3i[dk+3]+3)/(sum3i[3]-3))+1 < (sum3i[2*dk+3]-3)/(sum3i[dk+3]+3))||
313 sum3i[dk+3]<=sum3i[2*dk+3] && sum3i[dk+3]>2 ){
314 Float_t xm2 = sum3i[-dk+3];
315 Float_t xm1 = sum3i[+3];
316 Float_t x1 = sum3i[2*dk+3];
317 Float_t x2 = sum3i[3*dk+3];
cc5e9db0 318 Float_t w11 = TMath::Max((Float_t)(4.*xm1-xm2),(Float_t)0.000001);
319 Float_t w12 = TMath::Max((Float_t)(4 *x1 -x2),(Float_t)0.);
1c53abe2 320 ratio = w11/(w11+w12);
321 for (Int_t dl=-1;dl<=1;dl++)
322 mratio[dk+1][dl+1] *= ratio;
323 }
324 Float_t amp = sum3i[dk+3]*ratio;
325 sum3wi+=amp;
326 sum3iw+= dk*amp;
327 }
328 }
329 meani = sum3iw/sum3wi;
330 Float_t overlapi = (sum3wio-sum3wi)/sum3wio;
331
332
333
334 //unfold z
335 Float_t sum3wj = 0; //charge minus overlap
336 Float_t sum3wjo = 0; //full charge
337 Float_t sum3jw = 0; //sum for mean value
338 for (Int_t dk=-1;dk<=1;dk++){
339 sum3wjo+=sum3j[dk+3];
340 if (dk==0){
341 sum3wj+=sum3j[dk+3];
342 }
343 else{
344 Float_t ratio =1;
345 if ( ( ((sum3j[dk+3]+3)/(sum3j[3]-3))+1 < (sum3j[2*dk+3]-3)/(sum3j[dk+3]+3)) ||
346 (sum3j[dk+3]<=sum3j[2*dk+3] && sum3j[dk+3]>2)){
347 Float_t xm2 = sum3j[-dk+3];
348 Float_t xm1 = sum3j[+3];
349 Float_t x1 = sum3j[2*dk+3];
350 Float_t x2 = sum3j[3*dk+3];
cc5e9db0 351 Float_t w11 = TMath::Max((Float_t)(4.*xm1-xm2),(Float_t)0.000001);
352 Float_t w12 = TMath::Max((Float_t)(4 *x1 -x2),(Float_t)0.);
1c53abe2 353 ratio = w11/(w11+w12);
354 for (Int_t dl=-1;dl<=1;dl++)
355 mratio[dl+1][dk+1] *= ratio;
356 }
357 Float_t amp = sum3j[dk+3]*ratio;
358 sum3wj+=amp;
359 sum3jw+= dk*amp;
360 }
361 }
362 meanj = sum3jw/sum3wj;
363 Float_t overlapj = (sum3wjo-sum3wj)/sum3wjo;
364 overlap = Int_t(100*TMath::Max(overlapi,overlapj)+3);
365 sumu = (sum3wj+sum3wi)/2.;
366
367 if (overlap ==3) {
368 //if not overlap detected remove everything
369 for (Int_t di =-2; di<=2;di++)
370 for (Int_t dj =-2; dj<=2;dj++){
371 recmatrix[di+2][dj+2] = matrix2[3+di][dj];
372 }
373 }
374 else{
375 for (Int_t di =-1; di<=1;di++)
376 for (Int_t dj =-1; dj<=1;dj++){
377 Float_t ratio =1;
378 if (mratio[di+1][dj+1]==1){
379 recmatrix[di+2][dj+2] = matrix2[3+di][dj];
380 if (TMath::Abs(di)+TMath::Abs(dj)>1){
381 recmatrix[2*di+2][dj+2] = matrix2[3+2*di][dj];
382 recmatrix[di+2][2*dj+2] = matrix2[3+di][2*dj];
383 }
384 recmatrix[2*di+2][2*dj+2] = matrix2[3+2*di][2*dj];
385 }
386 else
387 {
388 //if we have overlap in direction
389 recmatrix[di+2][dj+2] = mratio[di+1][dj+1]* matrix2[3+di][dj];
390 if (TMath::Abs(di)+TMath::Abs(dj)>1){
cc5e9db0 391 ratio = TMath::Min((Float_t)(recmatrix[di+2][dj+2]/(matrix2[3+0*di][1*dj]+1)),(Float_t)1.);
1c53abe2 392 recmatrix[2*di+2][dj+2] = ratio*recmatrix[di+2][dj+2];
393 //
cc5e9db0 394 ratio = TMath::Min((Float_t)(recmatrix[di+2][dj+2]/(matrix2[3+1*di][0*dj]+1)),(Float_t)1.);
1c53abe2 395 recmatrix[di+2][2*dj+2] = ratio*recmatrix[di+2][dj+2];
396 }
397 else{
398 ratio = recmatrix[di+2][dj+2]/matrix2[3][0];
399 recmatrix[2*di+2][2*dj+2] = ratio*recmatrix[di+2][dj+2];
400 }
401 }
402 }
403 }
404 if (gDebug>4)
405 printf("%f\n", recmatrix[2][2]);
406
407}
408
409Float_t AliTPCclustererMI::FitMax(Float_t vmatrix[5][5], Float_t y, Float_t z, Float_t sigmay, Float_t sigmaz)
410{
411 //
412 // estimate max
413 Float_t sumteor= 0;
414 Float_t sumamp = 0;
415
416 for (Int_t di = -1;di<=1;di++)
417 for (Int_t dj = -1;dj<=1;dj++){
418 if (vmatrix[2+di][2+dj]>2){
419 Float_t teor = TMath::Gaus(di,y,sigmay*1.2)*TMath::Gaus(dj,z,sigmaz*1.2);
420 sumteor += teor*vmatrix[2+di][2+dj];
421 sumamp += vmatrix[2+di][2+dj]*vmatrix[2+di][2+dj];
422 }
423 }
424 Float_t max = sumamp/sumteor;
425 return max;
426}
427
428void AliTPCclustererMI::AddCluster(AliTPCclusterMI &c){
429 //
430 // transform cluster to the global coordinata
431 // add the cluster to the array
432 //
433 Float_t meani = c.GetY()/fPadWidth;
434 Float_t meanj = c.GetZ()/fZWidth;
435
436 Int_t ki = TMath::Nint(meani-3);
437 if (ki<0) ki=0;
438 if (ki>=fMaxPad) ki = fMaxPad-1;
439 Int_t kj = TMath::Nint(meanj-3);
440 if (kj<0) kj=0;
441 if (kj>=fMaxTime-3) kj=fMaxTime-4;
442 // ki and kj shifted to "real" coordinata
f8aae377 443 if (fRowDig) {
444 c.SetLabel(fRowDig->GetTrackIDFast(kj,ki,0)-2,0);
445 c.SetLabel(fRowDig->GetTrackIDFast(kj,ki,1)-2,1);
446 c.SetLabel(fRowDig->GetTrackIDFast(kj,ki,2)-2,2);
447 }
1c53abe2 448
449
450 Float_t s2 = c.GetSigmaY2();
451 Float_t w=fParam->GetPadPitchWidth(fSector);
452
453 c.SetSigmaY2(s2*w*w);
454 s2 = c.GetSigmaZ2();
455 w=fZWidth;
456 c.SetSigmaZ2(s2*w*w);
457 c.SetY((meani - 2.5 - 0.5*fMaxPad)*fParam->GetPadPitchWidth(fSector));
458 c.SetZ(fZWidth*(meanj-3));
753797ce 459 c.SetZ(c.GetZ() - 3.*fParam->GetZSigma() + fParam->GetNTBinsL1()*fParam->GetZWidth()); // PASA delay + L1 delay
1c53abe2 460 c.SetZ(fSign*(fParam->GetZLength() - c.GetZ()));
508541c7 461 c.SetX(fRx);
462 c.SetDetector(fSector);
463 c.SetRow(fRow);
464
1c53abe2 465 if (ki<=1 || ki>=fMaxPad-1 || kj==1 || kj==fMaxTime-2) {
466 //c.SetSigmaY2(c.GetSigmaY2()*25.);
467 //c.SetSigmaZ2(c.GetSigmaZ2()*4.);
468 c.SetType(-(c.GetType()+3)); //edge clusters
469 }
470 if (fLoop==2) c.SetType(100);
471
472 TClonesArray * arr = fRowCl->GetArray();
45bcf167 473 // AliTPCclusterMI * cl =
474 new ((*arr)[fNcluster]) AliTPCclusterMI(c);
1c53abe2 475
476 fNcluster++;
477}
478
479
480//_____________________________________________________________________________
f8aae377 481void AliTPCclustererMI::Digits2Clusters()
1c53abe2 482{
483 //-----------------------------------------------------------------
484 // This is a simple cluster finder.
485 //-----------------------------------------------------------------
1c53abe2 486
f8aae377 487 if (!fInput) {
488 Error("Digits2Clusters", "input tree not initialised");
1c53abe2 489 return;
490 }
491
f8aae377 492 if (!fOutput) {
493 Error("Digits2Clusters", "output tree not initialised");
494 return;
1c53abe2 495 }
496
13116aec 497 AliTPCCalPad * gainTPC = AliTPCcalibDB::Instance()->GetPadGainFactor();
498
1c53abe2 499 AliSimDigits digarr, *dummy=&digarr;
500 fRowDig = dummy;
501 fInput->GetBranch("Segment")->SetAddress(&dummy);
502 Stat_t nentries = fInput->GetEntries();
503
f8aae377 504 fMaxTime=fParam->GetMaxTBin()+6; // add 3 virtual time bins before and 3 after
1c53abe2 505
1c53abe2 506 Int_t nclusters = 0;
13116aec 507
1c53abe2 508 for (Int_t n=0; n<nentries; n++) {
509 fInput->GetEvent(n);
508541c7 510 if (!fParam->AdjustSectorRow(digarr.GetID(),fSector,fRow)) {
1c53abe2 511 cerr<<"AliTPC warning: invalid segment ID ! "<<digarr.GetID()<<endl;
512 continue;
513 }
508541c7 514 Int_t row = fRow;
13116aec 515 AliTPCCalROC * gainROC = gainTPC->GetCalROC(fSector); // pad gains per given sector
516
517 //
1c53abe2 518 AliTPCClustersRow *clrow= new AliTPCClustersRow();
519 fRowCl = clrow;
520 clrow->SetClass("AliTPCclusterMI");
521 clrow->SetArray(1);
522
523 clrow->SetID(digarr.GetID());
524 fOutput->GetBranch("Segment")->SetAddress(&clrow);
f8aae377 525 fRx=fParam->GetPadRowRadii(fSector,row);
1c53abe2 526
527
f8aae377 528 const Int_t kNIS=fParam->GetNInnerSector(), kNOS=fParam->GetNOuterSector();
1c53abe2 529 fZWidth = fParam->GetZWidth();
530 if (fSector < kNIS) {
f8aae377 531 fMaxPad = fParam->GetNPadsLow(row);
1c53abe2 532 fSign = (fSector < kNIS/2) ? 1 : -1;
f8aae377 533 fPadLength = fParam->GetPadPitchLength(fSector,row);
534 fPadWidth = fParam->GetPadPitchWidth();
1c53abe2 535 } else {
f8aae377 536 fMaxPad = fParam->GetNPadsUp(row);
1c53abe2 537 fSign = ((fSector-kNIS) < kNOS/2) ? 1 : -1;
f8aae377 538 fPadLength = fParam->GetPadPitchLength(fSector,row);
539 fPadWidth = fParam->GetPadPitchWidth();
1c53abe2 540 }
541
542
543 fMaxBin=fMaxTime*(fMaxPad+6); // add 3 virtual pads before and 3 after
13116aec 544 fBins =new Float_t[fMaxBin];
545 fResBins =new Float_t[fMaxBin]; //fBins with residuals after 1 finder loop
546 memset(fBins,0,sizeof(Float_t)*fMaxBin);
547 memset(fResBins,0,sizeof(Float_t)*fMaxBin);
1c53abe2 548
549 if (digarr.First()) //MI change
550 do {
13116aec 551 Float_t dig=digarr.CurrentDigit();
f8aae377 552 if (dig<=fParam->GetZeroSup()) continue;
1c53abe2 553 Int_t j=digarr.CurrentRow()+3, i=digarr.CurrentColumn()+3;
9d4f75a9 554 Float_t gain = gainROC->GetValue(row,digarr.CurrentColumn());
13116aec 555 fBins[i*fMaxTime+j]=dig/gain;
1c53abe2 556 } while (digarr.Next());
557 digarr.ExpandTrackBuffer();
558
f8aae377 559 FindClusters();
8569a2b0 560
561 fOutput->Fill();
88cb7938 562 delete clrow;
563 nclusters+=fNcluster;
8569a2b0 564 delete[] fBins;
565 delete[] fResBins;
88cb7938 566 }
f8aae377 567
19dd5b2f 568 Info("Digits2Clusters", "Number of found clusters : %d", nclusters);
f8aae377 569}
570
571void AliTPCclustererMI::Digits2Clusters(AliRawReader* rawReader)
572{
573//-----------------------------------------------------------------
22c352f8 574// This is a cluster finder for the TPC raw data.
575// The method assumes NO ordering of the altro channels.
576// The pedestal subtraction can be switched on and off
577// using an option of the TPC reconstructor
f8aae377 578//-----------------------------------------------------------------
579
580 if (!fOutput) {
581 Error("Digits2Clusters", "output tree not initialised");
582 return;
583 }
584
f8aae377 585 fRowDig = NULL;
586
22c352f8 587 AliTPCCalPad * gainTPC = AliTPCcalibDB::Instance()->GetPadGainFactor();
588
f8aae377 589 Int_t nclusters = 0;
88cb7938 590
f8aae377 591 fMaxTime = fParam->GetMaxTBin() + 6; // add 3 virtual time bins before and 3 after
592 const Int_t kNIS = fParam->GetNInnerSector();
593 const Int_t kNOS = fParam->GetNOuterSector();
594 const Int_t kNS = kNIS + kNOS;
595 fZWidth = fParam->GetZWidth();
596 Int_t zeroSup = fParam->GetZeroSup();
597
22c352f8 598 Float_t** allBins = NULL;
599 Float_t** allBinsRes = NULL;
f8aae377 600
22c352f8 601 // Loop over sectors
602 for(fSector = 0; fSector < kNS; fSector++) {
f8aae377 603
22c352f8 604 AliTPCCalROC * gainROC = gainTPC->GetCalROC(fSector); // pad gains per given sector
605
606 Int_t nRows = 0;
607 Int_t nDDLs = 0, indexDDL = 0;
608 if (fSector < kNIS) {
609 nRows = fParam->GetNRowLow();
610 fSign = (fSector < kNIS/2) ? 1 : -1;
611 nDDLs = 2;
612 indexDDL = fSector * 2;
613 }
614 else {
615 nRows = fParam->GetNRowUp();
616 fSign = ((fSector-kNIS) < kNOS/2) ? 1 : -1;
617 nDDLs = 4;
618 indexDDL = (fSector-kNIS) * 4 + kNIS * 2;
619 }
620
621 allBins = new Float_t*[nRows];
622 allBinsRes = new Float_t*[nRows];
623
624 for (Int_t iRow = 0; iRow < nRows; iRow++) {
625 Int_t maxPad;
626 if (fSector < kNIS)
627 maxPad = fParam->GetNPadsLow(iRow);
628 else
629 maxPad = fParam->GetNPadsUp(iRow);
630
631 Int_t maxBin = fMaxTime*(maxPad+6); // add 3 virtual pads before and 3 after
632 allBins[iRow] = new Float_t[maxBin];
633 allBinsRes[iRow] = new Float_t[maxBin];
634 memset(allBins[iRow],0,sizeof(Float_t)*maxBin);
635 memset(allBinsRes[iRow],0,sizeof(Float_t)*maxBin);
636 }
637
638 // Loas the raw data for corresponding DDLs
639 rawReader->Reset();
640 AliTPCRawStream input(rawReader);
641 input.SetOldRCUFormat(fIsOldRCUFormat);
362c9d61 642 rawReader->Select("TPC",indexDDL,indexDDL+nDDLs-1);
f8aae377 643
22c352f8 644 // Begin loop over altro data
645 while (input.Next()) {
646
647 if (input.GetSector() != fSector)
648 AliFatal(Form("Sector index mismatch ! Expected (%d), but got (%d) !",fSector,input.GetSector()));
649
22c352f8 650
651 Int_t iRow = input.GetRow();
652 if (iRow < 0 || iRow >= nRows)
653 AliFatal(Form("Pad-row index (%d) outside the range (%d -> %d) !",
654 iRow, 0, nRows -1));
655
656 Int_t iPad = input.GetPad() + 3;
657
658 Int_t maxPad;
659 if (fSector < kNIS)
660 maxPad = fParam->GetNPadsLow(iRow);
661 else
662 maxPad = fParam->GetNPadsUp(iRow);
663
664 if (input.GetPad() < 0 || input.GetPad() >= maxPad)
665 AliFatal(Form("Pad index (%d) outside the range (%d -> %d) !",
666 input.GetPad(), 0, maxPad -1));
667
668 Int_t iTimeBin = input.GetTime() + 3;
669 if ( input.GetTime() < 0 || input.GetTime() >= fParam->GetMaxTBin())
670 AliFatal(Form("Timebin index (%d) outside the range (%d -> %d) !",
671 input.GetTime(), 0, fParam->GetMaxTBin() -1));
672
673 Int_t maxBin = fMaxTime*(maxPad+6); // add 3 virtual pads before and 3 after
674
675 if (((iPad*fMaxTime+iTimeBin) >= maxBin) ||
676 ((iPad*fMaxTime+iTimeBin) < 0))
677 AliFatal(Form("Index outside the allowed range"
678 " Sector=%d Row=%d Pad=%d Timebin=%d"
679 " (Max.index=%d)",fSector,iRow,iPad,iTimeBin,maxBin));
680
681 Float_t signal = input.GetSignal();
194b0609 682 // if (!fPedSubtraction && signal <= zeroSup) continue;
683 if (!fRecoParam->GetCalcPedestal() && signal <= zeroSup) continue;
22c352f8 684
685 Float_t gain = gainROC->GetValue(iRow,input.GetPad());
686 allBins[iRow][iPad*fMaxTime+iTimeBin] = signal/gain;
65c045f0 687 allBins[iRow][iPad*fMaxTime+0] = 1; // pad with signal
22c352f8 688 } // End of the loop over altro data
689
690 // Now loop over rows and perform pedestal subtraction
194b0609 691 // if (fPedSubtraction) {
692 if (fRecoParam->GetCalcPedestal()) {
22c352f8 693 for (Int_t iRow = 0; iRow < nRows; iRow++) {
694 Int_t maxPad;
695 if (fSector < kNIS)
696 maxPad = fParam->GetNPadsLow(iRow);
697 else
698 maxPad = fParam->GetNPadsUp(iRow);
699
700 for (Int_t iPad = 0; iPad < maxPad + 6; iPad++) {
65c045f0 701 if (allBins[iRow][iPad*fMaxTime+0] !=1) continue; // no data
22c352f8 702 Float_t *p = &allBins[iRow][iPad*fMaxTime+3];
65c045f0 703 //Float_t pedestal = TMath::Median(fMaxTime, p);
704 Int_t id[3] = {fSector, iRow, iPad-3};
705 Float_t pedestal = ProcesSignal(p, fMaxTime, id);
22c352f8 706 for (Int_t iTimeBin = 0; iTimeBin < fMaxTime; iTimeBin++) {
707 allBins[iRow][iPad*fMaxTime+iTimeBin] -= pedestal;
7fef31a6 708 if (iTimeBin < AliTPCReconstructor::GetRecoParam()->GetFirstBin())
709 allBins[iRow][iPad*fMaxTime+iTimeBin] = 0;
710 if (iTimeBin > AliTPCReconstructor::GetRecoParam()->GetLastBin())
711 allBins[iRow][iPad*fMaxTime+iTimeBin] = 0;
22c352f8 712 if (allBins[iRow][iPad*fMaxTime+iTimeBin] < zeroSup)
713 allBins[iRow][iPad*fMaxTime+iTimeBin] = 0;
714 }
715 }
f8aae377 716 }
22c352f8 717 }
718
719 // Now loop over rows and find clusters
720 for (fRow = 0; fRow < nRows; fRow++) {
721 fRowCl = new AliTPCClustersRow;
722 fRowCl->SetClass("AliTPCclusterMI");
723 fRowCl->SetArray(1);
724 fRowCl->SetID(fParam->GetIndex(fSector, fRow));
725 fOutput->GetBranch("Segment")->SetAddress(&fRowCl);
726
727 fRx = fParam->GetPadRowRadii(fSector, fRow);
728 fPadLength = fParam->GetPadPitchLength(fSector, fRow);
f8aae377 729 fPadWidth = fParam->GetPadPitchWidth();
22c352f8 730 if (fSector < kNIS)
731 fMaxPad = fParam->GetNPadsLow(fRow);
732 else
733 fMaxPad = fParam->GetNPadsUp(fRow);
f8aae377 734 fMaxBin = fMaxTime*(fMaxPad+6); // add 3 virtual pads before and 3 after
22c352f8 735
736 fBins = allBins[fRow];
737 fResBins = allBinsRes[fRow];
738
739 FindClusters();
740
741 fOutput->Fill();
742 delete fRowCl;
743 nclusters += fNcluster;
744 } // End of loop to find clusters
745
746
747 for (Int_t iRow = 0; iRow < nRows; iRow++) {
748 delete [] allBins[iRow];
749 delete [] allBinsRes[iRow];
f8aae377 750 }
751
22c352f8 752 delete [] allBins;
753 delete [] allBinsRes;
f8aae377 754
22c352f8 755 } // End of loop over sectors
f8aae377 756
f8aae377 757 Info("Digits2Clusters", "Number of found clusters : %d\n", nclusters);
22c352f8 758
f8aae377 759}
760
761void AliTPCclustererMI::FindClusters()
762{
763 //add virtual charge at the edge
764 for (Int_t i=0; i<fMaxTime; i++){
765 Float_t amp1 = fBins[i+3*fMaxTime];
766 Float_t amp0 =0;
767 if (amp1>0){
768 Float_t amp2 = fBins[i+4*fMaxTime];
769 if (amp2==0) amp2=0.5;
770 Float_t sigma2 = GetSigmaY2(i);
771 amp0 = (amp1*amp1/amp2)*TMath::Exp(-1./sigma2);
772 if (gDebug>4) printf("\n%f\n",amp0);
773 }
13116aec 774 fBins[i+2*fMaxTime] = amp0;
f8aae377 775 amp0 = 0;
776 amp1 = fBins[(fMaxPad+2)*fMaxTime+i];
777 if (amp1>0){
778 Float_t amp2 = fBins[i+(fMaxPad+1)*fMaxTime];
779 if (amp2==0) amp2=0.5;
780 Float_t sigma2 = GetSigmaY2(i);
781 amp0 = (amp1*amp1/amp2)*TMath::Exp(-1./sigma2);
782 if (gDebug>4) printf("\n%f\n",amp0);
783 }
13116aec 784 fBins[(fMaxPad+3)*fMaxTime+i] = amp0;
f8aae377 785 }
786
787// memcpy(fResBins,fBins, fMaxBin*2);
788 memcpy(fResBins,fBins, fMaxBin);
789 //
790 fNcluster=0;
791 //first loop - for "gold cluster"
792 fLoop=1;
13116aec 793 Float_t *b=&fBins[-1]+2*fMaxTime;
194b0609 794 Int_t crtime = Int_t((fParam->GetZLength()-fRecoParam->GetCtgRange()*fRx)/fZWidth-fParam->GetNTBinsL1()-5);
f8aae377 795
796 for (Int_t i=2*fMaxTime; i<fMaxBin-2*fMaxTime; i++) {
797 b++;
798 if (*b<8) continue; //threshold form maxima
799 if (i%fMaxTime<crtime) {
800 Int_t delta = -(i%fMaxTime)+crtime;
801 b+=delta;
802 i+=delta;
803 continue;
804 }
805
806 if (!IsMaximum(*b,fMaxTime,b)) continue;
807 AliTPCclusterMI c;
808 Int_t dummy=0;
809 MakeCluster(i, fMaxTime, fBins, dummy,c);
810 //}
811 }
812 //memcpy(fBins,fResBins, fMaxBin*2);
813 //second loop - for rest cluster
814 /*
815 fLoop=2;
816 b=&fResBins[-1]+2*fMaxTime;
817 for (Int_t i=2*fMaxTime; i<fMaxBin-2*fMaxTime; i++) {
818 b++;
819 if (*b<25) continue; // bigger threshold for maxima
820 if (!IsMaximum(*b,fMaxTime,b)) continue;
821 AliTPCclusterMI c;
822 Int_t dummy;
823 MakeCluster(i, fMaxTime, fResBins, dummy,c);
824 //}
825 }
826 */
8569a2b0 827}
65c045f0 828
829
830Double_t AliTPCclustererMI::ProcesSignal(Float_t *signal, Int_t nchannels, Int_t id[3]){
831 //
832 // process signal on given pad - + streaming of additional information in special mode
833 //
834 // id[0] - sector
835 // id[1] - row
836 // id[2] - pad
837 Int_t offset =100;
194b0609 838 Float_t kMin =fRecoParam->GetDumpAmplitudeMin(); // minimal signal to be dumped
65c045f0 839 Double_t median = TMath::Median(nchannels-offset, &(signal[offset]));
840 if (AliLog::GetDebugLevel("","AliTPCclustererMI")==0) return median;
841 //
842
843 Double_t mean = TMath::Mean(nchannels-offset, &(signal[offset]));
844 Double_t rms = TMath::RMS(nchannels-offset, &(signal[offset]));
845 Double_t *dsignal = new Double_t[nchannels];
846 Double_t *dtime = new Double_t[nchannels];
847 Float_t max = 0;
848 Float_t maxPos = 0;
849 for (Int_t i=0; i<nchannels; i++){
850 dtime[i] = i;
851 dsignal[i] = signal[i];
852 if (signal[i]>max && i <fMaxTime-100) { // temporary remove spike signals at the end
853 max = signal[i];
854 maxPos = i;
855 }
856 }
857
194b0609 858 Double_t mean06=0, mean09=0;
859 Double_t rms06=0, rms09=0;
65c045f0 860 AliMathBase::EvaluateUni(nchannels-offset, &(dsignal[offset]), mean06, rms06, int(0.6*(nchannels-offset)));
65c045f0 861 AliMathBase::EvaluateUni(nchannels-offset, &(dsignal[offset]), mean09, rms09, int(0.9*(nchannels-offset)));
7fef31a6 862 //
65c045f0 863 //
864 UInt_t uid[3] = {UInt_t(id[0]),UInt_t(id[1]),UInt_t(id[2])};
865 if (uid[0]< AliTPCROC::Instance()->GetNSectors()
866 && uid[1]< AliTPCROC::Instance()->GetNRows(uid[0]) &&
867 uid[2] < AliTPCROC::Instance()->GetNPads(uid[0], uid[1])){
868 if (!fAmplitudeHisto){
869 fAmplitudeHisto = new TObjArray(72);
870 }
871 TObjArray * sectorArray = (TObjArray*)fAmplitudeHisto->UncheckedAt(uid[0]);
872 if (!sectorArray){
873 Int_t npads = AliTPCROC::Instance()->GetNChannels(uid[0]);
874 sectorArray = new TObjArray(npads);
875 fAmplitudeHisto->AddAt(sectorArray, uid[0]);
876 }
877 Int_t position = uid[2]+ AliTPCROC::Instance()->GetRowIndexes(uid[0])[uid[1]];
878 TH1F * histo = (TH1F*)sectorArray->UncheckedAt(position);
879 if (!histo){
880 char hname[100];
881 sprintf(hname,"Amp_%d_%d_%d",uid[0],uid[1],uid[2]);
882 TFile * backup = gFile;
883 fDebugStreamer->GetFile()->cd();
194b0609 884 histo = new TH1F(hname, hname, 100, 5,100);
65c045f0 885 //histo->SetDirectory(0); // histogram not connected to directory -(File)
886 sectorArray->AddAt(histo, position);
887 if (backup) backup->cd();
888 }
889 for (Int_t i=0; i<nchannels; i++){
890 if (signal[i]>0) histo->Fill(signal[i]);
891 }
892 }
893 //
894 TGraph * graph;
895 Bool_t random = (gRandom->Rndm()<0.0001);
896 if (max-median>kMin || rms06>2.*fParam->GetZeroSup() || random){
897 graph =new TGraph(nchannels, dtime, dsignal);
898 if (rms06>2.*fParam->GetZeroSup() || random)
899 (*fDebugStreamer)<<"SignalN"<< //noise pads - or random sample of pads
900 "Sector="<<uid[0]<<
901 "Row="<<uid[1]<<
902 "Pad="<<uid[2]<<
903 "Graph.="<<graph<<
904 "Max="<<max<<
905 "MaxPos="<<maxPos<<
906 //
907 "Median="<<median<<
908 "Mean="<<mean<<
909 "RMS="<<rms<<
910 "Mean06="<<mean06<<
911 "RMS06="<<rms06<<
65c045f0 912 "Mean09="<<mean09<<
913 "RMS09="<<rms09<<
914 "\n";
915 if (max-median>kMin)
916 (*fDebugStreamer)<<"SignalB"<< // pads with signal
917 "Sector="<<uid[0]<<
918 "Row="<<uid[1]<<
919 "Pad="<<uid[2]<<
920 "Graph.="<<graph<<
921 "Max="<<max<<
922 "MaxPos="<<maxPos<<
923 //
924 "Median="<<median<<
925 "Mean="<<mean<<
926 "RMS="<<rms<<
927 "Mean06="<<mean06<<
928 "RMS06="<<rms06<<
65c045f0 929 "Mean09="<<mean09<<
930 "RMS09="<<rms09<<
931 "\n";
932 delete graph;
933 }
934
935 (*fDebugStreamer)<<"Signal"<<
936 "Sector="<<uid[0]<<
937 "Row="<<uid[1]<<
938 "Pad="<<uid[2]<<
939 "Max="<<max<<
940 "MaxPos="<<maxPos<<
941 //
942 "Median="<<median<<
943 "Mean="<<mean<<
944 "RMS="<<rms<<
945 "Mean06="<<mean06<<
946 "RMS06="<<rms06<<
65c045f0 947 "Mean09="<<mean09<<
948 "RMS09="<<rms09<<
949 "\n";
7fef31a6 950 //
951 //
952 // Central Electrode signal analysis
953 //
954 Double_t ceQmax =0, ceQsum=0, ceTime=0;
955 Double_t cemean = mean06, cerms=rms06 ;
956 Int_t cemaxpos= 0;
957 Double_t ceThreshold=5.*cerms;
958 Double_t ceSumThreshold=8.*cerms;
959 const Int_t cemin=5; // range for the analysis of the ce signal +- channels from the peak
960 const Int_t cemax=5;
961 if (max-mean06>ceThreshold) for (Int_t i=nchannels-2; i>1; i--){
962 if ( (dsignal[i]-mean06)>ceThreshold && dsignal[i]>=dsignal[i+1] && dsignal[i]>=dsignal[i-1] ){
963 cemaxpos=i;
964 break;
965 }
966 }
967 if (cemaxpos!=0){
968 for (Int_t i=cemaxpos-cemin; i<cemaxpos+cemax; i++){
969 if (i>0 && i<nchannels){
970 Double_t val=dsignal[i]- cemean;
971 ceTime+=val*dtime[i];
972 ceQsum+=val;
973 if (val>ceQmax) ceQmax=val;
974 }
975 }
976 if (ceQmax&&ceQsum>ceSumThreshold) {
977 ceTime/=ceQsum;
978 (*fDebugStreamer)<<"Signalce"<<
979 "Sector="<<uid[0]<<
980 "Row="<<uid[1]<<
981 "Pad="<<uid[2]<<
982 "Max="<<ceQmax<<
983 "Qsum="<<ceQsum<<
984 "Time="<<ceTime<<
985 //
986 "\n";
987 }
988 }
989 // end of ce signal analysis
990 //
991
992 //
993 // Gating grid signal analysis
994 //
995 Double_t ggQmax =0, ggQsum=0, ggTime=0;
996 Double_t ggmean = mean06, ggrms=rms06 ;
997 Int_t ggmaxpos= 0;
998 Double_t ggThreshold=5.*ggrms;
999 Double_t ggSumThreshold=8.*ggrms;
1000 const Int_t ggmin=5; // range for the analysis of the gg signal +- channels from the peak
1001 const Int_t ggmax=5;
1002 if (max-mean06>ggThreshold) for (Int_t i=1; i<nchannels-1; i++){
1003 if ( (dsignal[i]-mean06)>ggThreshold && dsignal[i]>=dsignal[i+1] && dsignal[i]>=dsignal[i-1] ){
1004 ggmaxpos=i;
1005 break;
1006 }
1007 }
1008 if (ggmaxpos!=0){
1009 for (Int_t i=ggmaxpos-ggmin; i<ggmaxpos+ggmax; i++){
1010 if (i>0 && i<nchannels && dsignal[i]>0){
1011 Double_t val=dsignal[i]- ggmean;
1012 ggTime+=val*dtime[i];
1013 ggQsum+=val;
1014 if (val>ggQmax) ggQmax=val;
1015 }
1016 }
1017 if (ggQmax&&ggQsum>ggSumThreshold) {
1018 ggTime/=ggQsum;
1019 (*fDebugStreamer)<<"Signalgg"<<
1020 "Sector="<<uid[0]<<
1021 "Row="<<uid[1]<<
1022 "Pad="<<uid[2]<<
1023 "Max="<<ggQmax<<
1024 "Qsum="<<ggQsum<<
1025 "Time="<<ggTime<<
1026 //
1027 "\n";
1028 }
1029 }
1030 // end of gg signal analysis
1031
1032
65c045f0 1033 delete [] dsignal;
1034 delete [] dtime;
194b0609 1035 if (rms06>fRecoParam->GetMaxNoise()) return 1024+median; // sign noisy channel in debug mode
65c045f0 1036 return median;
1037}
1038
1039
1040
1041void AliTPCclustererMI::DumpHistos(){
1042 if (!fAmplitudeHisto) return;
1043 for (UInt_t isector=0; isector<AliTPCROC::Instance()->GetNSectors(); isector++){
1044 TObjArray * array = (TObjArray*)fAmplitudeHisto->UncheckedAt(isector);
1045 if (!array) continue;
1046 for (UInt_t ipad = 0; ipad <(UInt_t)array->GetEntriesFast(); ipad++){
1047 TH1F * histo = (TH1F*) array->UncheckedAt(ipad);
1048 if (!histo) continue;
1049 if (histo->GetEntries()<100) continue;
1050 histo->Fit("gaus","q");
1051 Float_t mean = histo->GetMean();
1052 Float_t rms = histo->GetRMS();
1053 Float_t gmean = histo->GetFunction("gaus")->GetParameter(1);
1054 Float_t gsigma = histo->GetFunction("gaus")->GetParameter(2);
1055 Float_t max = histo->GetFunction("gaus")->GetParameter(0);
1056
1057 // get pad number
1058 UInt_t row=0, pad =0;
1059 const UInt_t *indexes = AliTPCROC::Instance()->GetRowIndexes(isector);
1060 for (UInt_t irow=0; irow< AliTPCROC::Instance()->GetNRows(isector); irow++){
1061 if (indexes[irow]<ipad){
1062 row = irow;
1063 pad = ipad-indexes[irow];
1064 }
1065 }
1066 Int_t rpad = pad - (AliTPCROC::Instance()->GetNPads(isector,row))/2;
1067 //
1068 (*fDebugStreamer)<<"Fit"<<
1069 "Sector="<<isector<<
1070 "Row="<<row<<
1071 "Pad="<<pad<<
1072 "RPad="<<rpad<<
1073 "Max="<<max<<
1074 "Mean="<<mean<<
1075 "RMS="<<rms<<
1076 "GMean="<<gmean<<
1077 "GSigma="<<gsigma<<
1078 "\n";
1079 if (array->UncheckedAt(ipad)) fDebugStreamer->StoreObject(array->UncheckedAt(ipad));
1080 }
1081 }
1082}