/[PAMELA software]/calo/flight/CaloFranzini/src/CaloFranzini.cpp
ViewVC logotype

Diff of /calo/flight/CaloFranzini/src/CaloFranzini.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by mocchiut, Mon Jan 21 10:24:11 2008 UTC revision 1.11 by mocchiut, Mon Dec 14 14:35:53 2009 UTC
# Line 16  CaloFranzini::CaloFranzini(){ Line 16  CaloFranzini::CaloFranzini(){
16    
17  CaloFranzini::CaloFranzini(PamLevel2 *l2p){    CaloFranzini::CaloFranzini(PamLevel2 *l2p){  
18    //    //
19    file = NULL;    lfile = NULL;
20      ffile = NULL;
21    brig = NULL;    brig = NULL;
22    brigm = NULL;    brigm = NULL;
23    nbin = 0;    nbin = 0;
# Line 35  CaloFranzini::CaloFranzini(PamLevel2 *l2 Line 36  CaloFranzini::CaloFranzini(PamLevel2 *l2
36    PKT = 0;    PKT = 0;
37    atime = 0;    atime = 0;
38    //    //
39      usepl18x = false;
40      //
41    crig = false;    crig = false;
42    sel = true;    sel = true;
43    cont = false;    cont = false;
# Line 52  void CaloFranzini::Clear(){ Line 55  void CaloFranzini::Clear(){
55    longtzeta = 0.;    longtzeta = 0.;
56    fulltzeta = 0.;    fulltzeta = 0.;
57    degfre = 0;    degfre = 0;
58      fdegfre = 0;
59    memset(estrip, 0, 2*22*96*sizeof(Float_t));    memset(estrip, 0, 2*22*96*sizeof(Float_t));
60    memset(qplane, 0, 43*sizeof(Float_t));    memset(qplane, 0, 43*sizeof(Float_t));
61    //    //
62      numneg = 0;
63      numpos = 0;
64      negfulltzeta = 0.;
65      posfulltzeta = 0.;
66      aveposvar = 0.;
67      avenegvar = 0.;
68      minsvalue =  numeric_limits<UInt_t>::max();
69      maxsvalue =  numeric_limits<UInt_t>::min();
70      //
71  }  }
72    
73  void CaloFranzini::Print(){  void CaloFranzini::Print(){
# Line 64  void CaloFranzini::Print(){ Line 77  void CaloFranzini::Print(){
77    printf("========================================================================\n");    printf("========================================================================\n");
78    printf(" OBT: %u PKT: %u ATIME: %u \n",OBT,PKT,atime);    printf(" OBT: %u PKT: %u ATIME: %u \n",OBT,PKT,atime);
79    printf(" debug                [debug flag]:.. %i\n",debug);    printf(" debug                [debug flag]:.. %i\n",debug);
80    printf(" degree of freedom                :.. %i\n",this->GetDegreeOfFreedom());      printf(" long  degree of freedom          :.. %i\n",this->GetLongDegreeOfFreedom());  
81    printf(" longtzeta                        :.. %f\n",longtzeta);      printf(" longtzeta                        :.. %f\n",longtzeta);  
82    printf(" longtzeta normalized             :.. %f\n",this->GetNormLongTZeta());      printf(" longtzeta normalized             :.. %f\n",this->GetNormLongTZeta());  
83    //  printf(" fulltzeta                        :.. %f\n",fulltzeta);      printf(" full degree of freedom           :.. %i\n",this->GetFullDegreeOfFreedom());  
84    //  printf(" longtzeta normalized             :.. %f\n",this->GetNormFullTZeta());      printf(" fulltzeta                        :.. %f\n",fulltzeta);  
85      printf(" fulltzeta normalized             :.. %f\n",this->GetNormFullTZeta());  
86      printf(" fulltzeta negative contribute    :.. %f\n",negfulltzeta);  
87      printf(" fulltzeta positive contribute    :.. %f\n",posfulltzeta);  
88      printf(" fulltzeta number of negatives    :.. %i\n",numneg);  
89      printf(" fulltzeta number of positives    :.. %i\n",numpos);  
90      printf(" fulltzeta minimum variance       :.. %f\n",minsvalue);  
91      printf(" fulltzeta maximum variance       :.. %f\n",maxsvalue);  
92      printf(" fulltzeta average positive var   :.. %f\n",aveposvar);  
93      printf(" fulltzeta average negative var   :.. %f\n",avenegvar);  
94    printf("========================================================================\n");    printf("========================================================================\n");
95    //    //
96  }  }
97    
98  void CaloFranzini::Delete(){  void CaloFranzini::Delete(){
99    //    //
100    if ( file ) file->Close();    if ( ffile ) ffile->Close();
101      if ( lfile ) lfile->Close();
102    //    //
103    Clear();    Clear();
104    //    //
# Line 108  void CaloFranzini::SetNoWcalo(Int_t n){ Line 131  void CaloFranzini::SetNoWcalo(Int_t n){
131    };    };
132  }  }
133    
134    void CaloFranzini::SplitInto(Int_t NoWpreSampler, Int_t NoWcalo){
135      this->SetNoWpreSampler(0);
136      this->SetNoWcalo(0);
137      if ( NoWpreSampler < NoWcalo ){
138              this->SetNoWpreSampler(NoWpreSampler);
139              this->SetNoWcalo(NoWcalo);
140      } else {
141              this->SetNoWcalo(NoWcalo);            
142              this->SetNoWpreSampler(NoWpreSampler);
143      };
144    }
145    
146    
147  void CaloFranzini::Process(){  void CaloFranzini::Process(){
148    this->Process(0);    this->Process(0);
149  }  }
# Line 120  void CaloFranzini::Process(Int_t itr){ Line 156  void CaloFranzini::Process(Int_t itr){
156      return;      return;
157    };    };
158    //    //
159    if ( !nbin || !file || !brig ){    if ( !nbin || !brig || (!lfile && !ffile) ){
160      printf(" ERROR: it seems covariance matrix file has not been opened (CaloFranzini::Open()) \n");      printf(" ERROR: it seems covariance matrix file has not been opened (CaloFranzini::Open()) \n");
161      printf(" ERROR: CaloFranzini variables _NOT_ filled \n");      printf(" ERROR: CaloFranzini variables _NOT_ filled \n");
162      return;      return;
# Line 158  void CaloFranzini::Process(Int_t itr){ Line 194  void CaloFranzini::Process(Int_t itr){
194    Int_t plane = 0;    Int_t plane = 0;
195    Int_t strip = 0;    Int_t strip = 0;
196    Float_t mip = 0.;    Float_t mip = 0.;
   for ( Int_t i=0; i<L2->GetCaloLevel1()->istrip; i++ ){  
     //  
     mip = L2->GetCaloLevel1()->DecodeEstrip(i,view,plane,strip);  
     //  
     estrip[view][plane][strip] = mip;  
     //      
     nplane = 1 - view + 2 * (plane - N);  
     if ( nplane > (37-(2*N)) ) nplane--;  
     //  
 //    if ( plane == (18+N) ) mip = 0.;  
     if ( nplane > -1 ) qplane[nplane] += mip;  
     //  
   };  
197    //    //
198    //    //
199    //    //
200    if ( dolong ){    if ( dolong ){
201      //      //
202        for ( Int_t i=0; i<L2->GetCaloLevel1()->istrip; i++ ){
203          //
204          mip = L2->GetCaloLevel1()->DecodeEstrip(i,view,plane,strip);
205          //
206          if ( !usepl18x && view==0 && plane==18 ) mip = 0.;
207          //
208          estrip[view][plane][strip] = mip;
209          //    
210          nplane = 1 - view + 2 * (plane - N);
211          if ( nplane > (37-(2*N)) ) nplane--;
212          //
213          //    if ( plane == (18+N) ) mip = 0.;
214          if ( nplane > -1 ) qplane[nplane] += mip;
215          //
216        };
217        //
218      if ( cont ){      if ( cont ){
219        for (Int_t i=0; i<22; i++){        for (Int_t i=0; i<22; i++){
220          if ( i == (18+N) ){          if ( i == (18+N) ){
# Line 213  void CaloFranzini::Process(Int_t itr){ Line 252  void CaloFranzini::Process(Int_t itr){
252      //      //
253      degfre = TMath::Min(dgf,NC);      degfre = TMath::Min(dgf,NC);
254      //      //
255      Float_t longzdiag = 0.;      //    Float_t longzdiag = 0.;
256      Float_t longzout = 0.;      //    Float_t longzout = 0.;
257      //      //
258      if ( degfre > 0 ){      if ( degfre > 0 ){
259        for (Int_t i = 0; i < degfre; i++){        for (Int_t i = 0; i < degfre; i++){
260          if ( i != mask18b ){          if ( i != mask18b ){
261            for (Int_t j = 0; j < degfre; j++){              for (Int_t j = 0; j < degfre; j++){  
262              if ( j != mask18b ){              if ( j != mask18b ){
263                if ( i == j ){  //            if ( i == j ){
264                  longzdiag += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));  //              longzdiag += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));
265                  if ( debug ) printf(" %i %i %f %f %f %f %f\n",i,j,qplane[i],this->GetAverageAt(i,rig),this->GetHmatrixAt(i,j,rig),qplane[j],this->GetAverageAt(j,rig));  //              if ( debug ) printf(" %i %i %f %f %f %f %f\n",i,j,qplane[i],this->GetAverageAt(i,rig),this->GetHmatrixAt(i,j,rig),qplane[j],this->GetAverageAt(j,rig));
266                } else {  //            } else {
267                  longzout += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));  //              longzout += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));
268                  if ( debug && i == (j+1) ) printf(" %i %i %f %f %f %f %f\n",i,j,qplane[i],this->GetAverageAt(i,rig),this->GetHmatrixAt(i,j,rig),qplane[j],this->GetAverageAt(j,rig));  //              if ( debug && i == (j+1) ) printf(" %i %i %f %f %f %f %f\n",i,j,qplane[i],this->GetAverageAt(i,rig),this->GetHmatrixAt(i,j,rig),qplane[j],this->GetAverageAt(j,rig));
269                };  //            };
270                  //
271                longtzeta += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));                longtzeta += (qplane[i]-this->GetAverageAt(i,rig)) * this->GetHmatrixAt(i,j,rig) * (qplane[j]-this->GetAverageAt(j,rig));
272                  //
273              };              };
274            };            };
275          };          };
276        };        };
277        if ( debug ) printf(" diagonal total %f out of diagonal total %f \n",longzdiag,longzout);        //      if ( debug ) printf(" diagonal total %f out of diagonal total %f \n",longzdiag,longzout);
278      };      };
279    };    };
280    if ( dofull ){    if ( dofull ){
281      printf(" ERROR: NOT IMPLEMENTED YET\n");      //    printf(" ERROR: NOT IMPLEMENTED YET\n");
282      printf(" ERROR: CaloFranzini variables _NOT_ filled \n");      //    printf(" ERROR: CaloFranzini variables _NOT_ filled \n");
283    };        //
284        // FULL CALORIMETER
285        //
286        CaloTrkVar *ct = L2->GetTrack(0)->GetCaloTrack();
287        //
288        Int_t dgf = 0;
289        Int_t cs = 0;
290        Int_t cd = 0;
291        Int_t mstrip = 0;
292        //
293        Int_t maxnpl = 0;
294        Float_t mipv[43][11];
295        memset(mipv,0,43*11*sizeof(Float_t));
296        //
297        for ( Int_t i=0; i<L2->GetCaloLevel1()->istrip; i++ ){
298          //
299          mip = L2->GetCaloLevel1()->DecodeEstrip(i,view,plane,strip);
300          //
301          if ( !usepl18x && view==0 && plane==18 ) mip = 0.;
302          //
303          //      nplane = 1 - view + 2 * plane;
304          //      if ( nplane > 37 ) nplane--;
305          nplane = 1 - view + 2 * (plane - N);
306          if ( nplane > (37-(2*N)) ) nplane--;
307          //
308          cs = ct->tibar[plane][view] - 1;
309          //
310          if ( ct->tibar[plane][view] > -1 ){
311            //
312            cd = 95 - cs;
313            //
314            mstrip = cd + strip;
315            //
316            Int_t lstr = this->ConvertStrip(mstrip);
317            //
318            if ( nplane > maxnpl ) maxnpl = nplane;
319            if ( nplane > -1 ) mipv[nplane][lstr] += mip;
320            //
321          };
322          //      mipv[nplane][lstr] += mip;
323          //
324        };
325        //
326        Float_t mip1 = 1.;
327        Int_t cs1;
328        Int_t cd1;
329        Float_t mip2 = 1.;
330        Int_t cs2;
331        Int_t cd2;
332        Int_t mi = -1;
333        Int_t mj = -1;
334        Int_t nn1 = 0;
335        Int_t pl1 = 0;
336        Int_t vi1 = 0;
337        Int_t nn2 = 0;
338        Int_t pl2 = 0;
339        Int_t vi2 = 0;
340        Int_t mstrip1min = 0;
341        Int_t mstrip1max = 0;
342        Int_t mstrip2min = 0;
343        Int_t mstrip2max = 0;
344        //
345        Int_t tonpl = TMath::Min(maxnpl,NC);
346        //
347        Int_t rbi = 0;
348        for (Int_t i = 0; i<nbin-1; i++){
349          if ( rig>=brigm->At(i) && rig < brigm->At(i+1) ){
350            rbi = i;
351            break;
352          };
353        };
354        //
355        //
356        Int_t therigb = rbi;
357        //
358        if ( rig < brigm->At(2) ){
359    //      therigb = 0;
360          therigb = 2;
361        };
362        //    if ( rig >= brigm->At(nbin-5) ){
363        if ( rig >= brigm->At(nbin-2) ){
364          therigb = nbin - 3;
365          //      therigb = nbin - 5;
366        };
367        Int_t mtherig = therigb;
368        if ( mtherig >= 13 ) mtherig = 12;
369        //
370        if ( debug ) printf(" rig %f brigm0 %f brigm n2 %f nbin %i \n",rig,brigm->At(0),brigm->At(nbin-2),nbin);
371        //
372        if ( cont ){
373          for (Int_t i=0; i<22; i++){
374            if ( i == (18+N) ){
375              mask18b =  1 + 2 * (i - N);
376              break;
377            };
378          };
379        };  
380        //  
381        if ( sel ){
382          for (Int_t i=0; i<22; i++){
383            if ( i == (18-N) ){
384              mask18b =  1 + 2 * (i - N);
385              break;
386            };
387          };
388        };
389        //
390        if ( mask18b == 37 ) mask18b = -1;
391        //
392        if ( debug ) printf("Start main loop \n");
393        //
394        for (Int_t nplane1=0; nplane1<tonpl; nplane1++){
395          //
396          if ( nplane1 != mask18b ){
397            //
398            if ( nplane1 >= 37 ) nn1 = nplane1 + 1;
399            vi1 = 1;
400            if ( nn1%2 ) vi1 = 0;
401            pl1 = (nn1 - 1 + vi1)/2;
402            //
403            cs1 = ct->tibar[pl1][vi1] - 1;
404            //
405            if ( ct->tibar[pl1][vi1] > -1 ){
406              //
407              dgf++;
408              //
409              cd1 = 95 - cs1;
410              //
411              Int_t at1 = TMath::Max(0,(cd1+0));
412              Int_t at2 = TMath::Min(190,(cd1+95));
413              mstrip1min = this->ConvertStrip(at1);
414              mstrip1max = this->ConvertStrip(at2) + 1;
415              //
416              for (Int_t mstrip1=mstrip1min; mstrip1<mstrip1max; mstrip1++){
417                //
418                mj = -1;
419                //
420                //      if ( debug ) printf(" get mip1 %i %i %f %i \n",nplane1,mstrip1,rig,therigb);
421                mip1 = mipv[nplane1][mstrip1] - this->GetFullAverageAt(nplane1,mstrip1,rig,therigb);
422                if ( mip1 < 0 ){
423                  numneg++;
424                  avenegvar += mip1;
425                };
426                if ( mip1 >= 0 ){
427                  numpos++;
428                  aveposvar += mip1;
429                };
430                if ( mip1 < minsvalue ) minsvalue = mip1;
431                if ( mip1 >= maxsvalue ) maxsvalue = mip1;
432                //
433                mi = (nplane1 * 11) + mstrip1;
434                //
435                if ( mip1 != 0. ){
436                  //
437                  for (Int_t nplane2=0; nplane2<tonpl; nplane2++){
438                    //
439                    if ( nplane2 != mask18b ){
440                      //
441                      if ( nplane2 >= 37 ) nn2 = nplane2 + 1;
442                      vi2 = 1;
443                      if ( nn2%2 ) vi2 = 0;
444                      pl1 = (nn2 - 1 + vi2)/2;
445                      //
446                      cs2 = ct->tibar[pl2][vi2] - 1;
447                      //
448                      if ( ct->tibar[pl2][vi2] > -1 ){
449                        //
450                        cd2 = 95 - cs2;
451                        //
452                        Int_t t1 = TMath::Max(0,(cd2+0));
453                        Int_t t2 = TMath::Min(190,(cd2+95));
454                        mstrip2min = this->ConvertStrip(t1);
455                        mstrip2max = this->ConvertStrip(t2) + 1;
456                        //
457                        for (Int_t mstrip2=mstrip2min; mstrip2<mstrip2max; mstrip2++){
458                          //              
459                          mip2 = mipv[nplane2][mstrip2] - this->GetFullAverageAt(nplane2,mstrip2,rig,therigb);
460                          //
461                          if ( mip2 != 0. ){
462                            //
463    //                      Int_t sh = -5 + nplane1;
464    //                      if ( sh > 5 ) sh -= 11*nplane1;
465    //                      //
466    //                      mj = (nplane2 * 11) + mstrip2 + sh;
467    //                      //
468    //                      if ( mj < 0 ) mj += 473;
469    //                      if ( mj >= 473 ) mj -= 473;
470    //                      //
471                            mj = (nplane2 * 11) + mstrip2;
472                            //
473                            Float_t svalue =  mip1 * this->GetFullHmatrixAt(mi,mj,rig,mtherig,therigb) * mip2;
474                            //                      fulltzeta += mip1 * this->GetFullHmatrixAt(mi,mj,rig,therigb) * mip2;
475                            fulltzeta += svalue;
476                            if ( svalue < 0. ) negfulltzeta += svalue;
477                            if ( svalue > 0. ) posfulltzeta += svalue;
478                            //              (*fmatrix[rbi])[mi][mj] += (mip1 * mip2);
479                            //                      if ( mstrip1 == mstrip2 ) printf("\n\n=> nplane1 %i nplane2 %i mstrip1 %i mstrip2 %i \n => mip1 %f H %f mip2 %f \n => mipv1 %f ave1 %f mipv2 %f ave2 %f \n => rig %f rigbin %i mtherigb %i\n",nplane1,nplane2,mstrip1,mstrip2,mip1,this->GetFullHmatrixAt(mi,mj,rig,mtherig),mip2,mipv[nplane1][mstrip1],this->GetFullAverageAt(nplane1,mstrip1,rig,therigb),mipv[nplane2][mstrip2],this->GetFullAverageAt(nplane2,mstrip2,rig,therigb),rig,therigb,mtherig);
480                            //
481                          };
482                        };
483                      };
484                    };
485                  };
486                };
487              };
488            };
489          };
490        };
491        //
492        fdegfre = dgf*11;
493        if ( numpos ) aveposvar /= numpos;
494        if ( numneg ) avenegvar /= numneg;
495        //
496      };
497    //    //
498  //  if ( debug ) this->Print();    //  if ( debug ) this->Print();
499    if ( debug ) printf(" exit \n");    if ( debug ) printf(" exit \n");
500  }  }
501    
# Line 249  void CaloFranzini::Process(Int_t itr){ Line 503  void CaloFranzini::Process(Int_t itr){
503  Float_t CaloFranzini::GetNormLongTZeta(){  Float_t CaloFranzini::GetNormLongTZeta(){
504    Process();    Process();
505    Float_t normz = 0.;    Float_t normz = 0.;
506    if ( degfre > 0 ) normz = longtzeta/(Float_t)degfre;    if ( degfre != 0 ) normz = longtzeta/(Float_t)degfre;
507    return normz;    return normz;
508  }  }
509    
510  Float_t CaloFranzini::GetNormFullTZeta(){  Float_t CaloFranzini::GetNormFullTZeta(){
511    Process();    Process();
512    Float_t normz = 0.;    Float_t normz = 0.;
513    if ( degfre > 0 ) normz = fulltzeta/(Float_t)degfre;    if ( fdegfre != 0 ) normz = fulltzeta/(Float_t)fdegfre;
514    return normz;    return normz;
515  }  }
516    
517  Bool_t CaloFranzini::CreateMatrixFile(TString matrixfile){    Bool_t CaloFranzini::CreateMatrixFile(TString matrixfile){  
518    //    //
519    file = new TFile(matrixfile.Data(),"READ");    lfile = new TFile(matrixfile.Data(),"READ");
520    //    //
521    if ( !file || file->IsZombie() ){    if ( !lfile || lfile->IsZombie() ){
522      file = new TFile(matrixfile.Data(),"RECREATE");      if ( dolong ){
523      printf(" Create file %s \n",file->GetName());        lfile = new TFile(matrixfile.Data(),"RECREATE");
524          printf(" Create file %s \n",lfile->GetName());
525        };
526        if ( dofull ){
527          ffile = new TFile(matrixfile.Data(),"RECREATE");
528          printf(" Create file %s \n",ffile->GetName());
529        };
530    } else {    } else {
531        lfile->Close();
532      printf(" ERROR: file %s already existing!\n Choose another name or delete the old file\n",matrixfile.Data());      printf(" ERROR: file %s already existing!\n Choose another name or delete the old file\n",matrixfile.Data());
533      return(false);      return(false);
534    };    };
# Line 278  Bool_t CaloFranzini::CreateMatrixFile(TS Line 539  Bool_t CaloFranzini::CreateMatrixFile(TS
539    
540  Bool_t CaloFranzini::UpdateMatrixFile(TString matrixfile){    Bool_t CaloFranzini::UpdateMatrixFile(TString matrixfile){  
541    //    //
542    file = new TFile(matrixfile.Data(),"UPDATE");    if ( dolong ){
543        lfile = new TFile(matrixfile.Data(),"UPDATE");
544        //
545        if ( !lfile || lfile->IsZombie() ){
546          printf(" ERROR: file %s already existing!\n Choose another name or delete the old file\n",matrixfile.Data());
547          return(false);
548        };
549      };
550    //    //
551    if ( !file || file->IsZombie() ){    if ( dofull ){
552      printf(" ERROR: file %s already existing!\n Choose another name or delete the old file\n",matrixfile.Data());      ffile = new TFile(matrixfile.Data(),"UPDATE");
553      return(false);      //
554        if ( !ffile || ffile->IsZombie() ){
555          printf(" ERROR: file %s already existing!\n Choose another name or delete the old file\n",matrixfile.Data());
556          return(false);
557        };
558    };    };
559    //    //
560    return(true);    return(true);
# Line 290  Bool_t CaloFranzini::UpdateMatrixFile(TS Line 562  Bool_t CaloFranzini::UpdateMatrixFile(TS
562  }  }
563    
564  void CaloFranzini::WriteNumBin(Int_t numbin){  void CaloFranzini::WriteNumBin(Int_t numbin){
565    file->cd();    if ( dolong ){
566    TArrayI nbi(1, &numbin);      lfile->cd();
567    file->WriteObject(&nbi, "nbinenergy");      TArrayI nbi(1, &numbin);
568        lfile->WriteObject(&nbi, "nbinenergy");
569      };
570      if ( dofull ){
571        ffile->cd();
572        TArrayI nbi(1, &numbin);
573        ffile->WriteObject(&nbi, "nbinenergy");
574      };
575  }  }
576    
577  void CaloFranzini::WriteRigBin(TArrayF *rigbin){  void CaloFranzini::WriteRigBin(TArrayF *rigbin){
578    file->cd();    if ( dolong ){
579    //  rigbin->Write("binrig");      lfile->cd();
580    file->WriteObject(&(*rigbin), "binrig");      //  rigbin->Write("binrig");
581        lfile->WriteObject(&(*rigbin), "binrig");
582      };
583      if ( dofull ){
584        ffile->cd();
585        //  rigbin->Write("binrig");
586        ffile->WriteObject(&(*rigbin), "binrig");
587      };
588  }  }
589    
590  void CaloFranzini::WriteLongMean(TArrayF *qpl, Int_t bin){  void CaloFranzini::WriteLongMean(TArrayF *qpl, Int_t bin){
591    file->cd();    lfile->cd();
592    TString name = Form("qplmeann%i",bin);    TString name = Form("qplmeann%i",bin);
593    file->WriteObject(&(*qpl),name.Data());    lfile->WriteObject(&(*qpl),name.Data());
594  }  }
595    
596  void CaloFranzini::WriteFullMean(TMatrixD *qpl, Int_t bin){  void CaloFranzini::WriteFullMean(TMatrixD *qpl, Int_t bin){
597    file->cd();    ffile->cd();
598    TString name = Form("fqplmeann%i",bin);    TString name = Form("fqplmeann%i",bin);
599    file->WriteObject(&(*qpl),name.Data());    ffile->WriteObject(&(*qpl),name.Data());
600    file->Purge();    ffile->Purge();
601  }  }
602    
603  void CaloFranzini::WriteFullNMean(TMatrixD *qpl, Int_t bin){  void CaloFranzini::WriteFullNMean(TMatrixD *qpl, Int_t bin){
604    file->cd();    ffile->cd();
605    TString name = Form("fnqplmeann%i",bin);    TString name = Form("fnqplmeann%i",bin);
606    file->WriteObject(&(*qpl),name.Data());    ffile->WriteObject(&(*qpl),name.Data());
607    file->Purge();    ffile->Purge();
608  }  }
609    
610  void CaloFranzini::WriteInvertedLongMatrix(TMatrixD mat, Int_t bin){  void CaloFranzini::WriteInvertedLongMatrix(TMatrixD mat, Int_t bin){
611    file->cd();    lfile->cd();
612    TString name = Form("matrixn%i",bin);    TString name = Form("matrixn%i",bin);
613    //  mat.Write(name.Data());    //  mat.Write(name.Data());
614    file->WriteObject(&mat,name.Data());    lfile->WriteObject(&mat,name.Data());
615  }  }
616    
617  void CaloFranzini::WriteInvertedFullMatrix(TMatrixD mat, Int_t bin){  void CaloFranzini::WriteInvertedFullMatrix(TMatrixD mat, Int_t bin){
618    file->cd();    ffile->cd();
619    TString name = Form("fmatrixn%i",bin);    TString name = Form("fmatrixn%i",bin);
620    //  mat.Write(name.Data());    //  mat.Write(name.Data());
621    file->WriteObject(&mat,name.Data());    ffile->WriteObject(&mat,name.Data());
622  }  }
623    
624  void CaloFranzini::WriteLongMatrix(TMatrixD *mat, Int_t bin){  void CaloFranzini::WriteLongMatrix(TMatrixD *mat, Int_t bin){
625    file->cd();    lfile->cd();
626    TString name = Form("origmatrixn%i",bin);    TString name = Form("origmatrixn%i",bin);
627    //  mat.Write(name.Data());    //  mat.Write(name.Data());
628    file->WriteObject(&(*mat),name.Data());    lfile->WriteObject(&(*mat),name.Data());
629  }  }
630    
631  void CaloFranzini::WriteFullMatrix(TMatrixD *mat, Int_t bin){  void CaloFranzini::WriteFullMatrix(TMatrixD *mat, Int_t bin){
632    file->cd();    ffile->cd();
633    TString name = Form("origfmatrixn%i",bin);    TString name = Form("origfmatrixn%i",bin);
634    //  mat.Write(name.Data());    //  mat.Write(name.Data());
635    file->WriteObject(&(*mat),name.Data());    ffile->WriteObject(&(*mat),name.Data());
636    file->Purge();    ffile->Purge();
637  }  }
638    
639  void CaloFranzini::WriteFullNMatrix(TMatrixF *mat, Int_t bin){  void CaloFranzini::WriteFullNMatrix(TMatrixF *mat, Int_t bin){
640    file->cd();    ffile->cd();
641    TString name = Form("origfnmatrixn%i",bin);    TString name = Form("origfnmatrixn%i",bin);
642    //  mat.Write(name.Data());    //  mat.Write(name.Data());
643    file->WriteObject(&(*mat),name.Data());    ffile->WriteObject(&(*mat),name.Data());
644    file->Purge();    ffile->Purge();
645  }  }
646    
647  void CaloFranzini::CloseMatrixFile(){  void CaloFranzini::CloseMatrixFile(){
648    file->cd();    if ( dolong ){
649    file->Close();      lfile->cd();
650        lfile->Close();
651      };
652      if ( dofull ){
653        ffile->cd();
654        ffile->Close();
655      };
656  }  }
657    
   
658  Bool_t CaloFranzini::Open(TString matrixfile){    Bool_t CaloFranzini::Open(TString matrixfile){  
659      return(this->Open(matrixfile,""));
660    }
661    
662    Bool_t CaloFranzini::Open(TString longmatrixfile, TString fullmatrixfile){  
663    //    //
664    // find matrix file    // find matrix file
665    //    //
666    if ( !strcmp(matrixfile.Data(),"") ){    if ( !strcmp(longmatrixfile.Data(),"") ){
667      if (dolong) matrixfile = (TString)gSystem->ExpandPathName("$PAM_CALIB")+"/cal-param/covmatrix_longel.root";          if (dolong) longmatrixfile = (TString)gSystem->ExpandPathName("$PAM_CALIB")+"/cal-param/covmatrix_longel.root";    
     if (dofull) matrixfile = (TString)gSystem->ExpandPathName("$PAM_CALIB")+"/cal-param/covmatrix_fullel.root";      
   };  
   //  
   file = new TFile(matrixfile.Data(),"READ");  
   //  
   if ( !file || file->IsZombie() ){  
     printf(" ERROR: cannot open file %s \n",matrixfile.Data());  
     return(false);  
668    };    };
669    //    if ( !strcmp(fullmatrixfile.Data(),"") ){
670    if ( !this->LoadBin() ){      if (dofull) fullmatrixfile = (TString)gSystem->ExpandPathName("$PAM_CALIB")+"/cal-param/covmatrix_fullel.root";    
     printf(" %s \n",matrixfile.Data());  
     return(false);  
671    };    };
672    //    //
673    if ( dolong ){    if ( dolong ){
674        //
675        lfile = new TFile(longmatrixfile.Data(),"READ");
676        //
677        if ( !lfile || lfile->IsZombie() ){
678          printf(" ERROR: cannot open file %s \n",longmatrixfile.Data());
679          return(false);
680        };
681        //
682        if ( !this->LoadBin() ){
683          printf(" %s \n",longmatrixfile.Data());
684          return(false);
685        };
686        //
687      if ( !this->LoadLong() ){      if ( !this->LoadLong() ){
688        printf(" %s \n",matrixfile.Data());        printf(" %s \n",longmatrixfile.Data());
689        return(false);        return(false);
690      };      };
691      //      //
692      if ( !this->LoadMatrices() ){      if ( !this->LoadMatrices() ){
693        printf(" %s \n",matrixfile.Data());        printf(" %s \n",longmatrixfile.Data());
694        return(false);        return(false);
695      };      };
696    };    };
697    //    //
698    if ( dofull ){    if ( dofull ){
699        //
700        ffile = new TFile(fullmatrixfile.Data(),"READ");
701        //
702        if ( !ffile || ffile->IsZombie() ){
703          printf(" ERROR: cannot open file %s \n",fullmatrixfile.Data());
704          return(false);
705        };
706        //
707        if ( !dolong ){
708          //
709          if ( !this->LoadBin(true) ){
710            printf(" %s \n",fullmatrixfile.Data());
711            return(false);
712          };      
713          //
714        };
715      if ( !this->LoadFull() ){      if ( !this->LoadFull() ){
716        printf(" %s \n",matrixfile.Data());        printf(" %s \n",fullmatrixfile.Data());
717        return(false);        return(false);
718      };      };
719      //      //
720      if ( !this->LoadFullMatrices() ){      if ( !this->LoadFullMatrices() ){
721        printf(" %s \n",matrixfile.Data());        printf(" %s \n",fullmatrixfile.Data());
722        return(false);        return(false);
723      };      };
724    };    };
# Line 414  Bool_t CaloFranzini::Open(TString matrix Line 728  Bool_t CaloFranzini::Open(TString matrix
728    //    //
729  }  }
730    
731    
732  Bool_t CaloFranzini::LoadBin(){  Bool_t CaloFranzini::LoadBin(){
733      return(this->LoadBin(false));
734    }
735    
736    Bool_t CaloFranzini::LoadBin(Bool_t full){
737    //    //
738    TArrayI *numbin = (TArrayI*)file->Get("nbinenergy");    if ( !full ) {
739    if ( !numbin ){      //
740      printf(" ERROR: cannot read number of bins from file ");      TArrayI *numbin = (TArrayI*)lfile->Get("nbinenergy");
741      return(false);      if ( !numbin ){
742    };        printf(" ERROR: cannot read number of bins from file ");
743    nbin = (Int_t)numbin->At(0);        return(false);
744    if ( nbin <= 0 ){      };
745      printf(" ERROR: cannot work with 0 energy bins from file ");      nbin = (Int_t)numbin->At(0);
746      return(false);      if ( nbin <= 0 ){
747    };        printf(" ERROR: cannot work with 0 energy bins from file ");
748    //        return(false);
749    brig = (TArrayF*)file->Get("binrig");      };
750    if ( !brig ){      //
751      printf(" ERROR: cannot read rigidity binning from file ");      brig = (TArrayF*)lfile->Get("binrig");
752      return(false);      if ( !brig ){
753    };        printf(" ERROR: cannot read rigidity binning from file ");
754    //        return(false);
755    brigm=(TArrayF*)file->Get("binrigmean");      };
756    if ( !brigm ){      //
757      printf(" ERROR: cannot read mean rigidity binning from file ");      brigm=(TArrayF*)lfile->Get("binrigmean");
758      return(false);      if ( !brigm ){
759          printf(" ERROR: cannot read mean rigidity binning from file ");
760          return(false);
761        };
762        //
763      } else {
764        //
765        TArrayI *numbin = (TArrayI*)ffile->Get("nbinenergy");
766        if ( !numbin ){
767          printf(" ERROR: cannot read number of bins from file ");
768          return(false);
769        };
770        nbin = (Int_t)numbin->At(0);
771        if ( nbin <= 0 ){
772          printf(" ERROR: cannot work with 0 energy bins from file ");
773          return(false);
774        };
775        //
776        brig = (TArrayF*)ffile->Get("binrig");
777        if ( !brig ){
778          printf(" ERROR: cannot read rigidity binning from file ");
779          return(false);
780        };
781        //
782        brigm=(TArrayF*)ffile->Get("binrigmean");
783        if ( !brigm ){
784          printf(" ERROR: cannot read mean rigidity binning from file ");
785          return(false);
786        };
787    };    };
788    //    //
789    return(true);    return(true);
# Line 446  Bool_t CaloFranzini::LoadLong(){ Line 793  Bool_t CaloFranzini::LoadLong(){
793    //    //
794    for (Int_t i=0;i<17;i++){    for (Int_t i=0;i<17;i++){
795      TString name = Form("qplmeann%i",i);      TString name = Form("qplmeann%i",i);
796      qplmean[i] = (TArrayF*)file->Get(name.Data());      qplmean[i] = (TArrayF*)lfile->Get(name.Data());
797      if ( !qplmean[i] ){      if ( !qplmean[i] ){
798        printf(" ERROR: cannot read average from file ");        printf(" ERROR: cannot read average from file ");
799        return(false);        return(false);
# Line 460  Bool_t CaloFranzini::LoadFull(){ Line 807  Bool_t CaloFranzini::LoadFull(){
807    //    //
808    for (Int_t i=0;i<17;i++){    for (Int_t i=0;i<17;i++){
809      TString name = Form("fqplmeann%i",i);      TString name = Form("fqplmeann%i",i);
810      fqplmean[i] = (TMatrixD*)file->Get(name.Data());      fqplmean[i] = (TMatrixD*)ffile->Get(name.Data());
811      if ( !fqplmean[i] ){      if ( !fqplmean[i] ){
812        printf(" ERROR: cannot read average from file ");        printf(" ERROR: cannot read average from file ");
813        return(false);        return(false);
# Line 474  Bool_t CaloFranzini::LoadMatrices(){ Line 821  Bool_t CaloFranzini::LoadMatrices(){
821    //    //
822    for (Int_t i=0;i<17;i++){    for (Int_t i=0;i<17;i++){
823          TString name1 = Form("matrixn%i",i);          TString name1 = Form("matrixn%i",i);
824          hmat[i] = (TMatrixD*)file->Get(name1.Data());          hmat[i] = (TMatrixD*)lfile->Get(name1.Data());
825    };    };
826    //    //
827    return(true);    return(true);
# Line 484  Bool_t CaloFranzini::LoadFullMatrices(){ Line 831  Bool_t CaloFranzini::LoadFullMatrices(){
831    //    //
832    for (Int_t i=0;i<17;i++){    for (Int_t i=0;i<17;i++){
833          TString name1 = Form("fmatrixn%i",i);          TString name1 = Form("fmatrixn%i",i);
834          hfmat[i] = (TMatrixF*)file->Get(name1.Data());          hfmat[i] = (TMatrixD*)ffile->Get(name1.Data());
835    };    };
836    //    //
837    return(true);    return(true);
# Line 515  TMatrixD *CaloFranzini::LoadCovarianceMa Line 862  TMatrixD *CaloFranzini::LoadCovarianceMa
862  TMatrixD *CaloFranzini::LoadFullAverage(Int_t rigbin){  TMatrixD *CaloFranzini::LoadFullAverage(Int_t rigbin){
863    //    //
864    TString name = Form("fqplmeann%i",rigbin);    TString name = Form("fqplmeann%i",rigbin);
865    TMatrixD *fmean=(TMatrixD*)file->Get(name.Data());    TMatrixD *fmean=(TMatrixD*)ffile->Get(name.Data());
866    //    //
867    return(fmean);    return(fmean);
868    //    //
# Line 524  TMatrixD *CaloFranzini::LoadFullAverage( Line 871  TMatrixD *CaloFranzini::LoadFullAverage(
871  TMatrixF *CaloFranzini::LoadFullMatrix(Int_t rigbin){  TMatrixF *CaloFranzini::LoadFullMatrix(Int_t rigbin){
872    //    //
873    TString name = Form("origfmatrixn%i",rigbin);    TString name = Form("origfmatrixn%i",rigbin);
874    TMatrixF *fmatri=(TMatrixF*)file->Get(name.Data());    TMatrixF *fmatri=(TMatrixF*)ffile->Get(name.Data());
875    //    //
876    return(fmatri);    return(fmatri);
877    //    //
878  }  }
879    
880  void CaloFranzini::LoadFullMatrix(Int_t rigbin, TMatrixF *&fmatri){  void CaloFranzini::LoadFullMatrix(Int_t rigbin, TMatrixF *fmatri){
881    //    //
882    TString name = Form("origfmatrixn%i",rigbin);    TString name = Form("origfmatrixn%i",rigbin);
883    fmatri=(TMatrixF*)file->Get(name.Data());    fmatri=(TMatrixF*)ffile->Get(name.Data());
884    //    //
885  }  }
886    
887  void CaloFranzini::UnLoadFullAverage(Int_t rigbin){  void CaloFranzini::UnLoadFullAverage(Int_t rigbin){
888    //    //
889    TString name = Form("fqplmeann%i",rigbin);    TString name = Form("fqplmeann%i",rigbin);
890    file->Delete(name.Data());    ffile->Delete(name.Data());
891    //    //
892  }  }
893    
894  void CaloFranzini::UnLoadFullMatrix(Int_t rigbin){  void CaloFranzini::UnLoadFullMatrix(Int_t rigbin){
895    //    //
896    TString name = Form("origfmatrixn%i",rigbin);    TString name = Form("origfmatrixn%i",rigbin);
897    file->Delete(name.Data());    ffile->Delete(name.Data());
898    //    //
899  }  }
900    
901  TMatrixF *CaloFranzini::LoadFullNMatrix(Int_t rigbin){  TMatrixF *CaloFranzini::LoadFullNMatrix(Int_t rigbin){
902    //    //
903    TString name = Form("origfnmatrixn%i",rigbin);    TString name = Form("origfnmatrixn%i",rigbin);
904    TMatrixF *fnmatri=(TMatrixF*)file->Get(name.Data());    TMatrixF *fnmatri=(TMatrixF*)ffile->Get(name.Data());
905    //    //
906    return(fnmatri);    return(fnmatri);
907    //    //
# Line 563  TMatrixF *CaloFranzini::LoadFullNMatrix( Line 910  TMatrixF *CaloFranzini::LoadFullNMatrix(
910  void CaloFranzini::UnLoadFullNMatrix(Int_t rigbin){  void CaloFranzini::UnLoadFullNMatrix(Int_t rigbin){
911    //    //
912    TString name = Form("origfnmatrixn%i",rigbin);    TString name = Form("origfnmatrixn%i",rigbin);
913    file->Delete(name.Data());    ffile->Delete(name.Data());
914    //    //
915  }  }
916    
917  TMatrixD *CaloFranzini::LoadFullNAverage(Int_t rigbin){  TMatrixD *CaloFranzini::LoadFullNAverage(Int_t rigbin){
918    //    //
919    TString name = Form("fnqplmeann%i",rigbin);    TString name = Form("fnqplmeann%i",rigbin);
920    TMatrixD *fnmean=(TMatrixD*)file->Get(name.Data());    TMatrixD *fnmean=(TMatrixD*)ffile->Get(name.Data());
921    //    //
922    return(fnmean);    return(fnmean);
923    //    //
# Line 579  TMatrixD *CaloFranzini::LoadFullNAverage Line 926  TMatrixD *CaloFranzini::LoadFullNAverage
926  void CaloFranzini::UnLoadFullNAverage(Int_t rigbin){  void CaloFranzini::UnLoadFullNAverage(Int_t rigbin){
927    //    //
928    TString name = Form("fnqplmeann%i",rigbin);    TString name = Form("fnqplmeann%i",rigbin);
929    file->Delete(name.Data());    ffile->Delete(name.Data());
930    //    //
931  }  }
932    
# Line 706  Float_t CaloFranzini::GetFullAverageAt(I Line 1053  Float_t CaloFranzini::GetFullAverageAt(I
1053    if ( a == 0. || minene == 0. || ave != ave ){    if ( a == 0. || minene == 0. || ave != ave ){
1054      Float_t m = (maxene-minene)/(maxrig-minrig);      Float_t m = (maxene-minene)/(maxrig-minrig);
1055      Float_t q = minene - m * minrig;      Float_t q = minene - m * minrig;
1056      ave = rig * m + q;      ave = rig * m + q;
1057    };    };
1058    //      //  
1059    //  ave += (44.-plane)*strip;    //  ave += (44.-plane)*strip;
# Line 731  Float_t CaloFranzini::GetHmatrixAt(Int_t Line 1078  Float_t CaloFranzini::GetHmatrixAt(Int_t
1078    //    //
1079    if ( rig < brigm->At(0) ){    if ( rig < brigm->At(0) ){
1080      if ( rig < brig->At(0) ){      if ( rig < brig->At(0) ){
1081  //      printf(" WARNING: Event with rigidity lower than the first qplmean bin (rig = %f, lower limit = %f)\n",rig,brigm->At(0));        //      printf(" WARNING: Event with rigidity lower than the first qplmean bin (rig = %f, lower limit = %f)\n",rig,brigm->At(0));
1082      };      };
1083      therigb = 0;      therigb = 0;
1084    };    };
1085  //  if ( rig >= brigm->At(nbin-4) ){ // -2    //  if ( rig >= brigm->At(nbin-4) ){ // -2
1086    if ( rig >= brigm->At(nbin-2) ){    if ( rig >= brigm->At(nbin-2) ){
1087      if ( rig >= brig->At(nbin-2) ) {      if ( rig >= brig->At(nbin-2) ) {
1088  //      printf(" WARNING: Event with rigidity higher than the last qplmean bin (rig = %f, upper limit = %f)\n",rig,brigm->At(nbin-2));        //      printf(" WARNING: Event with rigidity higher than the last qplmean bin (rig = %f, upper limit = %f)\n",rig,brigm->At(nbin-2));
1089      };      };
1090  //    therigb = nbin - 5;// -3      //    therigb = nbin - 5;// -3
1091      therigb = nbin - 3;      therigb = nbin - 3;
1092    };    };
1093    //    //
# Line 785  Float_t CaloFranzini::GetFullHmatrixAt(I Line 1132  Float_t CaloFranzini::GetFullHmatrixAt(I
1132    //    //
1133    if ( rig < brigm->At(0) ){    if ( rig < brigm->At(0) ){
1134      if ( rig < brig->At(0) ){      if ( rig < brig->At(0) ){
1135  //      printf(" WARNING: Event with rigidity lower than the first qplmean bin (rig = %f, lower limit = %f)\n",rig,brigm->At(0));        //      printf(" WARNING: Event with rigidity lower than the first qplmean bin (rig = %f, lower limit = %f)\n",rig,brigm->At(0));
1136      };      };
1137      therigb = 0;      therigb = 0;
1138    };    };
1139  //  if ( rig >= brigm->At(nbin-4) ){ // -2  //  if ( rig >= brigm->At(nbin-4) ){ // -2
1140    if ( rig >= brigm->At(nbin-2) ){    if ( rig >= brigm->At(nbin-2) ){
1141        //if ( rig >= brigm->At(nbin-5) ){
1142      if ( rig >= brig->At(nbin-2) ) {      if ( rig >= brig->At(nbin-2) ) {
1143  //      printf(" WARNING: Event with rigidity higher than the last qplmean bin (rig = %f, upper limit = %f)\n",rig,brigm->At(nbin-2));        //      printf(" WARNING: Event with rigidity higher than the last qplmean bin (rig = %f, upper limit = %f)\n",rig,brigm->At(nbin-2));
1144      };      };
1145  //    therigb = nbin - 5;// -3      //    therigb = nbin - 5;// -3
1146        //  therigb = nbin - 5;// -3
1147      therigb = nbin - 3;      therigb = nbin - 3;
1148    };    };
1149    //    //
1150    if ( therigb < 2 ) therigb = 2;    if ( therigb < 2 ) therigb = 2;
1151      if ( therigb > 13 ) therigb = 13;
1152    //    //
1153    return(this->GetFullHmatrixAt(iindex,jindex,rig,therigb));    return(this->GetFullHmatrixAt(iindex,jindex,rig,therigb));
1154    //    //
1155  }  }
1156    
1157    
1158  Float_t CaloFranzini::GetFullHmatrixAt(Int_t iindex, Int_t jindex, Float_t rig, Int_t therigb){  Float_t CaloFranzini::GetFullHmatrixAt(Int_t iindex, Int_t jindex, Float_t rig, Int_t therigb){
1159    //    //
1160      return(this->GetFullHmatrixAt(iindex,jindex,rig,therigb,0));
1161      //
1162    }
1163    
1164    Float_t CaloFranzini::GetFullHmatrixAt(Int_t iindex, Int_t jindex, Float_t rig, Int_t therigb, Int_t mtherig){  
1165      //
1166      //  Int_t lofit = 12;
1167      Int_t lofit = 3;
1168      //
1169      Float_t lowrig = 0.;
1170    Float_t minrig;    Float_t minrig;
1171    Float_t maxrig;    Float_t maxrig;
1172    //    //
1173      if ( mtherig > lofit ) lowrig = brigm->At(therigb-1);
1174    minrig = brigm->At(therigb);    minrig = brigm->At(therigb);
1175    maxrig = brigm->At(therigb+1);    maxrig = brigm->At(therigb+1);
1176    //  printf(" therigb %i minrig %f maxrig %f rig %f %i i %i j \n",therigb,minrig,maxrig,rig,iindex,jindex);    //if ( therigb > 10 )  printf(" therigb %i minrig %f maxrig %f rig %f %i i %i j \n",therigb,minrig,maxrig,rig,iindex,jindex);
1177    //    //
1178      Float_t lowene = 0.;
1179      if ( mtherig > lofit ) lowene = (*hfmat[therigb-1])[iindex][jindex];
1180    Float_t minene = (*hfmat[therigb])[iindex][jindex];    Float_t minene = (*hfmat[therigb])[iindex][jindex];
1181    Float_t maxene = (*hfmat[therigb+1])[iindex][jindex];    Float_t maxene = (*hfmat[therigb+1])[iindex][jindex];
1182    //  printf(" therigb %i minrig %f maxrig %f minene %f maxene %f a %f b %f rig %f ave %f \n",therigb,minrig,maxrig,minene,maxene,a,b,rig,ave);    //  printf(" therigb %i minrig %f maxrig %f minene %f maxene %f a %f b %f rig %f ave %f \n",therigb,minrig,maxrig,minene,maxene,a,b,rig,ave);
1183    //    //
1184  //  Float_t a = 0.;    Float_t ave = 0.;
 //  Float_t b = 0.;  
 //  Float_t ave = 0.;  
 //  if ( minene == 0. ){  
 //        
 //  } else {  
 //      b = log(maxene/minene)/(maxrig-minrig);  
 //      a = minene/exp(minrig*b);  
 //      ave = a*exp(b*rig);  
 //  };  
1185    //    //
1186    Float_t m = (maxene-minene)/(maxrig-minrig);    //  Float_t a = 0.;
1187    Float_t q = minene - m * minrig;    //  Float_t b = 0.;
1188    Float_t ave = rig * m + q;    //  Float_t ave = 0.;
1189    if ( debug ) printf(" therigb %i minrig %f maxrig %f minene %f maxene %f a %f b %f rig %f ave %f \n",therigb,minrig,maxrig,minene,maxene,m,q,rig,ave);    //  if ( minene == 0. ){
1190      //    
1191      //  } else {
1192      //    b = log(maxene/minene)/(maxrig-minrig);
1193      //    a = minene/exp(minrig*b);
1194      //    ave = a*exp(b*rig);
1195      //  };
1196      //
1197      if ( mtherig > lofit ){
1198        //
1199        // FIT
1200        //
1201    //     Float_t x[3]={lowrig,minrig,maxrig};
1202    //     Float_t y[3]={lowene,minene,maxene};
1203    //     //
1204    //     TGraph *tg= new TGraph(3,x,y);
1205    //     //
1206    //     //     gStyle->SetLabelSize(0.04);
1207    //     //     gStyle->SetNdivisions(510,"XY");
1208    //     //     TCanvas *c = new TCanvas();
1209    //     //     c->Draw();
1210    //     //     c->cd();
1211    //     //     tg->Draw("AP");
1212    //     //
1213    //     TF1 *fun = new TF1("fun","pol2");
1214    //     tg->Fit("fun","QNC");
1215    //     //
1216    //     ave = fun->GetParameter(0) + rig * fun->GetParameter(1) + rig * rig * fun->GetParameter(2);
1217    //     //
1218    //     //    printf(" therigb %i ave %f rig %f lowrig %f minrig %f maxrig %f lowene %f minene %f maxene %f \n",therigb,ave,rig,lowrig,minrig,maxrig,lowene,minene,maxene);
1219    //     //
1220    //     //
1221    //     //     c->Modified();
1222    //     //     c->Update();
1223    //     //     gSystem->ProcessEvents();
1224    //     //     gSystem->Sleep(6000);
1225    //     //     c->Close();
1226    //     //     gStyle->SetLabelSize(0);
1227    //     //     gStyle->SetNdivisions(1,"XY");
1228    //     //
1229    //    tg->Delete();
1230    //    fun->Delete();
1231        Float_t mrigl = (lowrig+minrig)/2.;
1232        Float_t mrigu = (minrig+maxrig)/2.;
1233        Float_t menel = (lowene+minene)/2.;
1234        Float_t meneu = (minene+maxene)/2.;
1235        Float_t m = (meneu-menel)/(mrigu-mrigl);
1236        Float_t q = menel - m * mrigl;
1237        ave = rig * m + q;
1238        //
1239      } else {
1240        Float_t m = (maxene-minene)/(maxrig-minrig);
1241        Float_t q = minene - m * minrig;
1242        ave = rig * m + q;
1243        if ( debug ) printf(" therigb %i minrig %f maxrig %f minene %f maxene %f a %f b %f rig %f ave %f \n",therigb,minrig,maxrig,minene,maxene,m,q,rig,ave);
1244      };
1245    //    //
1246    //    //
1247    return(ave);    return(ave);
# Line 927  void CaloFranzini::DrawLongAverage(Int_t Line 1337  void CaloFranzini::DrawLongAverage(Int_t
1337  Int_t CaloFranzini::ConvertStrip(Int_t mstrip){    Int_t CaloFranzini::ConvertStrip(Int_t mstrip){  
1338    //    //
1339    Int_t lastrip = 0;    Int_t lastrip = 0;
1340    //  //   //
1341    if ( mstrip < 50 ) lastrip = 0;  //   if ( mstrip < 50 ) lastrip = 0;
1342    //  //   //
1343    if ( mstrip >= 50 && mstrip < 64 ) lastrip = 1;  //   if ( mstrip >= 50 && mstrip < 64 ) lastrip = 1;
1344    //  //   //
1345    if ( mstrip >= 64 && mstrip < 70 ) lastrip = 2;  //   if ( mstrip >= 64 && mstrip < 70 ) lastrip = 2;
1346    //  //   //
1347    if ( mstrip >= 70 && mstrip < 75 ) lastrip = 3;  //   if ( mstrip >= 70 && mstrip < 75 ) lastrip = 3;
1348    //  //   //
1349    if ( mstrip >= 75 && mstrip < 84 ){      //   if ( mstrip >= 75 && mstrip < 84 ){    
1350      lastrip = (int)trunc((mstrip - 75)/3.) + 4;  //     lastrip = (int)trunc((mstrip - 75)/3.) + 4;
1351    };  //   };
1352    //  //   //
1353    if ( mstrip >= 84 && mstrip < 90 ){      //   if ( mstrip >= 84 && mstrip < 90 ){    
1354      lastrip = (int)trunc((mstrip - 84)/2.) + 7;  //     lastrip = (int)trunc((mstrip - 84)/2.) + 7;
1355    };  //   };
1356    //  //   //
1357    if ( mstrip >= 90 && mstrip < 101 ){      //   if ( mstrip >= 90 && mstrip < 101 ){    
1358      lastrip = mstrip - 90 + 10;  //     lastrip = mstrip - 90 + 10;
1359    //   };
1360    //   //
1361    //   if ( mstrip >= 101 && mstrip < 107 ){    
1362    //     lastrip = (int)trunc((mstrip - 101)/2.) + 21;
1363    //   };
1364    //   //
1365    //   //
1366    //   if ( mstrip >= 107 && mstrip < 116 ){    
1367    //     lastrip = (int)trunc((mstrip - 107)/3.) + 24;
1368    //   };
1369    //   //
1370    //   if ( mstrip >= 116 && mstrip < 121 ) lastrip = 27;
1371    //   //
1372    //   if ( mstrip >= 121 && mstrip < 127 ) lastrip = 28;
1373    //   //
1374    //   if ( mstrip >= 127 && mstrip < 141 ) lastrip = 29;
1375    //   //
1376    //   if ( mstrip >= 141 ) lastrip = 30;
1377    //   //
1378      //
1379      if ( mstrip < 83 ) lastrip = 0;
1380      //
1381      if ( mstrip >= 83 && mstrip < 90 ) lastrip = 1;
1382      //
1383      if ( mstrip >= 90 && mstrip < 93 ) lastrip = 2;
1384      //
1385      if ( mstrip >= 93 && mstrip < 98 ){    
1386        lastrip = mstrip - 93 + 3;
1387    };    };
1388    //    //
1389    if ( mstrip >= 101 && mstrip < 107 ){        if ( mstrip >= 98 && mstrip < 101 ) lastrip = 8;
     lastrip = (int)trunc((mstrip - 101)/2.) + 21;  
   };  
   //  
   //  
   if ( mstrip >= 107 && mstrip < 116 ){      
     lastrip = (int)trunc((mstrip - 107)/3.) + 24;  
   };  
   //  
   if ( mstrip >= 116 && mstrip < 121 ) lastrip = 27;  
   //  
   if ( mstrip >= 121 && mstrip < 127 ) lastrip = 28;  
1390    //    //
1391    if ( mstrip >= 127 && mstrip < 141 ) lastrip = 29;    if ( mstrip >= 101 && mstrip < 107 ) lastrip = 9;
1392    //    //
1393    if ( mstrip >= 141 ) lastrip = 30;    if ( mstrip >= 107 ) lastrip = 10;
1394    //    //
1395    return(lastrip);    return(lastrip);
1396  }  }
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.23