/[PAMELA software]/quicklook/tracker/flight/macros/FTrkQLook_EXPERT.cxx
ViewVC logotype

Diff of /quicklook/tracker/flight/macros/FTrkQLook_EXPERT.cxx

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

revision 1.30 by pam-fi, Mon Feb 26 16:41:06 2007 UTC revision 1.31 by pam-fi, Thu Mar 8 01:41:02 2007 UTC
# Line 2  Line 2 
2   * FTrkQLook_EXPERT.cxx   * FTrkQLook_EXPERT.cxx
3   *   *
4   * autor: D.Fedele   * autor: D.Fedele
5   * version v1r24   * version v1r25
6   * Parameters:   * Parameters:
7   *      file - the data file to analyze   *      file - the data file to analyze
8   *      fromevent - first event to analyze   *      fromevent - first event to analyze
# Line 143  void FTrkQLook_EXPERT(TString file,Int_t Line 143  void FTrkQLook_EXPERT(TString file,Int_t
143    
144    //    //
145    // information about the RunHeader    // information about the RunHeader
146    ULong64_t HOBT[neventH];    ULong_t HOBT[neventH];
147    Int_t trk_cal_us[neventH];    Int_t trk_cal_us[neventH];
148    ULong_t acq_info[neventH];      ULong_t acq_info[neventH];  
149    Int_t countnboot=1;    Int_t countnboot=1;
# Line 180  void FTrkQLook_EXPERT(TString file,Int_t Line 180  void FTrkQLook_EXPERT(TString file,Int_t
180    }    }
181    const Int_t tsize=maxsize;    const Int_t tsize=maxsize;
182    Int_t tempt[tsize][5];    Int_t tempt[tsize][5];
183    ULong64_t xt[tsize];    ULong_t xt[tsize];
184    
185    Int_t cntpgtemp=1,cntpgdat=0,cntpgmag=0;    Int_t cntpgtemp=1,cntpgdat=0,cntpgmag=0;
186    //    //
# Line 212  void FTrkQLook_EXPERT(TString file,Int_t Line 212  void FTrkQLook_EXPERT(TString file,Int_t
212    }    }
213    const Int_t bsize=maxsize;    const Int_t bsize=maxsize;
214    Int_t magt[bsize][5];    Int_t magt[bsize][5];
215    ULong64_t xb[bsize];    ULong_t xb[bsize];
216    siztmp=0;    siztmp=0;
217    //    //
218    // information about the magnetic field    // information about the magnetic field
# Line 249  void FTrkQLook_EXPERT(TString file,Int_t Line 249  void FTrkQLook_EXPERT(TString file,Int_t
249    // write the file for the TrkAlarm packet    // write the file for the TrkAlarm packet
250    if(alnevent==0) alarm1 <<endl<< "------>  NO ALARM!!! <-------"<< endl;    if(alnevent==0) alarm1 <<endl<< "------>  NO ALARM!!! <-------"<< endl;
251    else{    else{
252      Long64_t obt=0;      ULong_t obt=0;
253      for (Int_t ev=0; ev<alnevent; ev++){      for (Int_t ev=0; ev<alnevent; ev++){
254        altr->GetEntry(ev);        altr->GetEntry(ev);
255        ph = aleh->GetPscuHeader();        ph = aleh->GetPscuHeader();
256    
257        if(ph->GetOrbitalTime()<obt && ev>0)        if((ULong_t)ph->GetOrbitalTime()<obt && ev>0)
258          alarm1<<endl<<"NEW CPU BOOT"<<endl;          alarm1<<endl<<"NEW CPU BOOT"<<endl;
259        obt=ph->GetOrbitalTime();        obt=ph->GetOrbitalTime();
260                    
261        alarm1 << "================================================="<< endl;        alarm1 << "================================================="<< endl;
262        alarm1 << "PSCU-Pkt N. "<< ph->GetCounter() ;        alarm1 << "PSCU-Pkt N. "<< ph->GetCounter() ;
263        alarm1 << " - OBT "<< ph->GetOrbitalTime() << " ms"<<endl;        alarm1 << " - OBT "<< (ULong_t)ph->GetOrbitalTime() << " ms"<<endl;
264        alarm1 << "(ROOT-tree entry "<<ev<<")"<<endl;        alarm1 << "(ROOT-tree entry "<<ev<<")"<<endl;
265        alarm1 << "================================================="<< endl<<endl;        alarm1 << "================================================="<< endl<<endl;
266                    
# Line 737  void FTrkQLook_EXPERT(TString file,Int_t Line 737  void FTrkQLook_EXPERT(TString file,Int_t
737      // and fill graphs and histos      // and fill graphs and histos
738    
739      Int_t al=0;      Int_t al=0;
740        ULong_t obtx=0;
741      Double_t x[MAXSTORAGE];      Double_t x[MAXSTORAGE];
742      Float_t yc[MAXSTORAGE][12];      Float_t yc[MAXSTORAGE][12];
743      Double_t eventint[MAXSTORAGE];      Double_t eventint[MAXSTORAGE];
# Line 750  void FTrkQLook_EXPERT(TString file,Int_t Line 751  void FTrkQLook_EXPERT(TString file,Int_t
751    
752        if(ev==maxevent-1) maxev=maxevent-1;        if(ev==maxevent-1) maxev=maxevent-1;
753    
754        if((ph->GetOrbitalTime()<x[ev-minev-1] && ev-minev!=0) || ev-minev==MAXSTORAGE){        if(((ULong_t)ph->GetOrbitalTime()<x[ev-minev-1] && ev-minev!=0) || ev-minev==MAXSTORAGE){
755          maxev=ev;          maxev=ev;
756          break;          break;
757        }        }
758        else{        else{
759          x[(ev-minev)]= ph->GetOrbitalTime();          obtx = ph->GetOrbitalTime();
760            x[(ev-minev)]=(Double_t)obtx;
761          ALARM=0;          ALARM=0;
762          Int_t dsp=0;          Int_t dsp=0;
763          Int_t noacq=0;          Int_t noacq=0;
# Line 889  void FTrkQLook_EXPERT(TString file,Int_t Line 891  void FTrkQLook_EXPERT(TString file,Int_t
891            al=1;            al=1;
892            alarm <<endl<< "================================================="<< endl;            alarm <<endl<< "================================================="<< endl;
893            alarm << "PSCU-Pkt N. "<< ph->GetCounter() ;            alarm << "PSCU-Pkt N. "<< ph->GetCounter() ;
894            alarm << " - OBT "<< ph->GetOrbitalTime() << " ms"<<endl;            alarm << " - OBT "<< (ULong_t)ph->GetOrbitalTime() << " ms"<<endl;
895            alarm << "Total events "<<nevent<<endl;            alarm << "Total events "<<nevent<<endl;
896            alarm << "(ROOT-tree entry "<<ev<<" in page "<<ii+1<<" )"<<endl;            alarm << "(ROOT-tree entry "<<ev<<" in page "<<ii+1<<" )"<<endl;
897            alarm << "================================================="<< endl;            alarm << "================================================="<< endl;
# Line 1197  void FTrkQLook_EXPERT(TString file,Int_t Line 1199  void FTrkQLook_EXPERT(TString file,Int_t
1199        b.DrawBox(896.,0.,1024.,maxhist);              b.DrawBox(896.,0.,1024.,maxhist);      
1200      }      }
1201      else if(i==6){      else if(i==6){
       b.SetFillColor(6);  
       b.SetFillStyle(3945);  
       b.DrawBox(1024.,0.,1280.,maxhist);  
   
1202        b.SetFillColor(107);        b.SetFillColor(107);
1203        b.SetFillStyle(3954);        b.SetFillStyle(3954);
1204        b.DrawBox(512.,0.,768.,maxhist);        b.DrawBox(512.,0.,768.,maxhist);
1205          b.DrawBox(1024.,0.,1280.,maxhist);
1206        b.DrawBox(1280.,0.,1792.,maxhist);        b.DrawBox(1280.,0.,1792.,maxhist);
1207        b.DrawBox(2560.,0.,2816.,maxhist);        b.DrawBox(2560.,0.,2816.,maxhist);
1208     }     }
# Line 1212  void FTrkQLook_EXPERT(TString file,Int_t Line 1211  void FTrkQLook_EXPERT(TString file,Int_t
1211        b.SetFillStyle(3954);        b.SetFillStyle(3954);
1212        b.DrawBox(512.,0.,768.,maxhist);        b.DrawBox(512.,0.,768.,maxhist);
1213        b.DrawBox(896.,0.,1535.,maxhist);        b.DrawBox(896.,0.,1535.,maxhist);
1214          b.DrawBox(2024.,0.,2280.,maxhist);
1215      }      }
1216      else if(i==8){      else if(i==8){
1217        b.SetFillColor(107);        b.SetFillColor(107);
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.23