TrackerLevel2/src/TrkLevel1.cpp

/**
 * \file TrkLevel1.cpp
 * \author Elena Vannuccini
 */
#include <TrkLevel1.h>
#include <iostream>
using namespace std;
//......................................
// F77 routines
//......................................
extern "C" {
        
//      int readetaparam_(); 
    float cog_(int*,int*);
    float pfaeta_(int*,float*);
    float pfaeta2_(int*,float*);
    float pfaeta3_(int*,float*);
    float pfaeta4_(int*,float*);
        
}
//--------------------------------------
//
//
//--------------------------------------
TrkCluster::TrkCluster(){
        
//    cout << "TrkCluster::TrkCluster()"<<endl;
    view     = -1;
    maxs     = -1;
    indmax   = -1;
        
    CLlength = 0;
    clsignal = 0; 
    clsigma  = 0; 
    cladc    = 0; 
    clbad    = 0; 

};
//--------------------------------------
//
//
//--------------------------------------
TrkCluster::TrkCluster(const TrkCluster& t){
        
    view     = t.view;
    maxs     = t.maxs;
    indmax   = t.indmax;
        
    CLlength = t.CLlength;      
    if(CLlength){
        clsignal = new Float_t[CLlength];
        clsigma  = new Float_t[CLlength];
        cladc    = new Int_t[CLlength];
        clbad    = new Bool_t[CLlength];
        for(Int_t i=0; i<CLlength;i++){
            clsignal[i] = t.clsignal[i]; 
            clsigma[i]  = t.clsigma[i]; 
            cladc[i]    = t.cladc[i]; 
            clbad[i]    = t.clbad[i]; 
        };
    };
};
//--------------------------------------
//
//
//--------------------------------------
void TrkCluster::Clear(){
    
//    cout << "void TrkCluster::Clear()"<<endl;
    if(CLlength){
        delete [] clsignal; 
        delete [] clsigma; 
        delete [] cladc; 
        delete [] clbad; 
    }

    view     = 0;
    maxs     = 0;
    indmax   = 0;
        
    CLlength = 0;
    clsignal = 0; 
    clsigma  = 0; 
    cladc    = 0; 
    clbad    = 0; 

};
//--------------------------------------
//
//
//--------------------------------------
/**
 * Evaluate the cluster signal including a maximum number of adjacent 
 * strips, around maxs, having a significant signal. 
 * @param nstrip   Maximum number of strips.
 * @param cut      Inclusion cut ( s > cut*sigma ).
 * If nstrip<=0 only the inclusion cut is used to determine the cluster size.
 */
Float_t TrkCluster::GetSignal(Int_t nstrip, Float_t cut){
    
    if(CLlength<=0)return 0;

    Float_t s = 0;
    
    if( nstrip<=0 ){
//          for(Int_t is = 0; is < CLlength; is++){
//              Float_t scut = cut*clsigma[is];
//              if(clsignal[is] > scut) s += clsignal[is];
//          };
        for(Int_t is = indmax+1; is < CLlength; is++){
            Float_t scut = cut*clsigma[is];
            if(clsignal[is] > scut) s += clsignal[is];
            else break;
        };
        for(Int_t is = indmax; is >=0; is--){
            Float_t scut = cut*clsigma[is];
            if(clsignal[is] > scut) s += clsignal[is];
            else break;
        };
        return s;
    };
    
    
    Int_t il = indmax;
    Int_t ir = indmax;
    Int_t inc = 0;

    if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;

    while ( inc < nstrip ){
        Float_t sl = -100000;
        Float_t sr = -100000;
        if( il >= 0       ) sl = clsignal[il];
        if( ir < CLlength ) sr = clsignal[ir];
        if( sl == sr && inc == 0 ){
            s += clsignal[il]; //cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
            il--; 
            ir++;
        }else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
            s += sl;//cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
            il--; 
        }else if ( sl < sr && sr > cut*clsigma[ir] ){
            s += sr;//cout << inc<<" - " << clsignal[ir]<<" "<<s<<endl;
            ir++;
        }else break;
        
        inc++;
    }
    return s;
};


/**
 * Evaluate the cluster signal-to-noise, as defined by Turchetta, including a 
 * maximum number of adjacent strips, around maxs, having a significant signal. 
 * @param nstrip   Maximum number of strips.
 * @param cut      Inclusion cut ( s > cut*sigma ).
 * If nstrip<=0 only the inclusion cut is used to determine the cluster size.
 */
Float_t TrkCluster::GetSignalToNoise(Int_t nstrip, Float_t cut){
        
    if(CLlength<=0)return 0;

    Float_t sn = 0;
    
    if( nstrip<=0 ){
        for(Int_t is = indmax+1; is < CLlength; is++){
            Float_t scut = cut*clsigma[is];
            if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
            else break;
        };
        for(Int_t is = indmax; is >=0; is--){
            Float_t scut = cut*clsigma[is];
            if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
            else break;
        };
        return sn;
    };
    
    
    Int_t il = indmax;
    Int_t ir = indmax;
    Int_t inc = 0;

    if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;

    while ( inc < nstrip ){
        Float_t sl = -100000;
        Float_t sr = -100000;
        if( il >= 0       ) sl = clsignal[il];
        if( ir < CLlength ) sr = clsignal[ir];
        if( sl == sr && inc == 0 ){
            sn += clsignal[il]/clsigma[il]; 
            il--; 
            ir++;
        }else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
            sn += sl/clsigma[il];
            il--; 
        }else if ( sl < sr && sr > cut*clsigma[ir] ){
            sn += sr/clsigma[ir];
            ir++;
        }else break;
        
        inc++;
    }
    return sn;
};
/**
 * Evaluate the cluster multiplicity.
 * @param cut Inclusion cut.
 */
Int_t TrkCluster::GetMultiplicity(Float_t cut){

    if(CLlength<=0)return 0;

    Int_t m = 0;

    for(Int_t is = indmax+1; is < CLlength; is++){
        Float_t scut = cut*clsigma[is];
        if(clsignal[is] > scut) m++;
        else break;
    };
    for(Int_t is = indmax; is >=0; is--){
        Float_t scut = cut*clsigma[is];
        if(clsignal[is] > scut) m++;
        else break;
    };
    return m;
};
/**
 * True if the cluster contains bad strips.
 * @param nbad Number of strips around the maximum.
 */
Bool_t TrkCluster::IsBad(Int_t nbad){
                
    if(CLlength<=0)return 0;

    Int_t il,ir;
    il = indmax;
    ir = indmax;
    for(Int_t i=1; i<nbad; i++){
        if (ir == CLlength && il == 0)break;
        else if (ir == CLlength && il != 0)il--;
        else if (ir != CLlength && il == 0)ir++;
        else{
            if(clsignal[il-1] > clsignal[ir+1])il--;
            else ir++;
        }
    }
    Int_t isbad = 0;
    for(Int_t i=il; i<=ir; i++)isbad += clbad[i];
    
    return ( isbad != nbad );
};
/**
 * True if the cluster contains saturated strips.
 * @param nbad Number of strips around the maximum.
 */
Bool_t TrkCluster::IsSaturated(Int_t nbad){

    if(CLlength<=0)return 0;

    Int_t il,ir;
    il = indmax;
    ir = indmax;
    for(Int_t i=1; i<nbad; i++){
        if (ir == CLlength && il == 0)break;
        else if (ir == CLlength && il != 0)il--;
        else if (ir != CLlength && il == 0)ir++;
        else{
            if(clsignal[il-1] > clsignal[ir+1])il--;
            else ir++;
        }
    }
    Int_t isbad = 0;
    for(Int_t i=il; i<=ir; i++){
        if( IsX() && cladc[i] > 2980 )isbad++;
        if( IsY() && cladc[i] <   80 )isbad++;
    }
    return ( isbad != 0 );
    
}
//--------------------------------------
//
//
//--------------------------------------
void TrkCluster::Dump(){

    cout << "----- Cluster" << endl;
    cout << "View "<<view << " - Ladder "<<GetLadder()<<endl;
    cout << "Position of maximun "<< maxs <<endl;
    cout << "Multiplicity        "<< GetMultiplicity() <<endl;
    cout << "Tot signal          "<< GetSignal() << " (ADC channels)"<<endl ;
    cout << "Signal/Noise        "<< GetSignalToNoise();
    cout <<endl<< "Strip signals       ";
    for(Int_t i =0; i<CLlength; i++)cout << " " <<clsignal[i];
    cout <<endl<< "Strip sigmas        ";
    for(Int_t i =0; i<CLlength; i++)cout << " " <<clsigma[i];
    cout <<endl<< "Strip ADC           ";
    for(Int_t i =0; i<CLlength; i++)cout << " " <<cladc[i];
    cout <<endl<< "Strip BAD           ";
    for(Int_t i =0; i<CLlength; i++){
        if(i==indmax)cout << "  *" <<clbad[i]<<"*";
        else cout << " " <<clbad[i];
    }
    cout << endl;
        
}
//--------------------------------------
//
//
//--------------------------------------
/**
 * Method to fill a level1 struct with only one cluster (done to use F77 p.f.a. routines on a cluster basis). 
 */
cTrkLevel1* TrkCluster::GetLevel1Struct(){
                
//    cTrkLevel1* l1 = new cTrkLevel1;

    cTrkLevel1* l1 = &level1event_ ;
        
    l1->nclstr1 = 1;
    l1->view[0] = view;
    l1->ladder[0] = GetLadder();
    l1->maxs[0] = maxs;
    l1->mult[0] = GetMultiplicity();
    l1->dedx[0] = GetSignal();
    l1->indstart[0] = 1;
    l1->indmax[0]   = indmax+1;
    l1->totCLlength = CLlength;
    for(Int_t i=0; i<CLlength; i++){
        l1->clsignal[i] = clsignal[i];
        l1->clsigma[i] = clsigma[i];
        l1->cladc[i] = cladc[i];
        l1->clbad[i] = clbad[i];
    };
    
    return l1;
};
//--------------------------------------
//
//
//--------------------------------------
/**
 * Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs).
 *      @param ncog Number of strips to evaluate COG.   
 * If ncog=0, the COG of the cluster is evaluated according to the cluster multiplicity (defined by the inclusion cut). 
 * If ncog>0, the COG is evaluated using ncog strips, even if they have a negative signal (according to G.Landi)
 */
Float_t TrkCluster::GetCOG(Int_t ncog){
        
    int ic = 1;
    GetLevel1Struct();
    return cog_(&ncog,&ic);
        
};
/**
 * Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs), 
 * choosing the number of strips according to the angle, as implemented for the eta-algorythm .
 *      @param angle Projected angle in degree.         
 */
Float_t TrkCluster::GetCOG(Float_t angle){
            
    Int_t neta  = 0;

//     Float_t eta = GetETA(0,angle);
//     for(neta=2; neta<10; neta++) if( eta == GetETA(neta,angle) ) break;
//    if(eta != GetETA(neta,angle) )cout << "Attenzione!! pasticcio "<<endl;

    if( view%2 ){   //Y
        neta=2;
    }else{          //X
        if( fabs(angle) <= 10. ){
            neta = 2;
        }else if( fabs(angle) > 10. && fabs(angle) <= 15. ){
            neta = 3;
        }else{
            neta = 4;
        };
    };

    return GetCOG(neta);
        
};
//--------------------------------------
//
//
//--------------------------------------
/**
 * Evaluates the cluster position, in strips, relative to the strip with the maximum signal (TrkCluster::maxs), by applying the non-linear ETA-algorythm. 
 *  @param neta  Number of strips to evaluate ETA.
 *  @param angle Projected angle between particle track and detector plane.
 * Implemented values of neta are 2,3,4. If neta=0, ETA2, ETA3 and ETA4 are applied according to the angle.
 */
Float_t TrkCluster::GetETA(Int_t neta, float angle){
        
//    cout << "GetETA(neta,angle) "<< neta << " "<< angle;
//      LoadPfaParam();

    float ax = angle;
    int ic = 1;
    GetLevel1Struct();
    if(neta == 0)      return pfaeta_(&ic,&ax);
    else if(neta == 2) return pfaeta2_(&ic,&ax);
    else if(neta == 3) return pfaeta3_(&ic,&ax);
    else if(neta == 4) return pfaeta4_(&ic,&ax);
    else cout << "ETA"<<neta<<" not implemented\n";
    return 0;
    
};
 
//--------------------------------------
//
//
//--------------------------------------
TrkLevel1::TrkLevel1(){
        
//    cout << "TrkLevel1::TrkLevel1()"<<endl;
//    Cluster = new TClonesArray("TrkCluster");
    Cluster = 0;
    for(Int_t i=0; i<12 ; i++){
        good[i] = -1;
        for(Int_t j=0; j<24 ; j++){
            cn[j][i]=0;
            cnn[j][i]=0;
        };
    };
}
//--------------------------------------
//
//
//--------------------------------------
void TrkLevel1::Set(){
    if(!Cluster)Cluster = new TClonesArray("TrkCluster");
}
//--------------------------------------
//
//
//--------------------------------------
void TrkLevel1::Dump(){
    
    cout<<"DSP status: ";
    for(Int_t i=0; i<12 ; i++)cout<<good[i]<<" ";
    cout<<endl;
    cout<<"VA1 mask : "<<endl;
    for(Int_t i=0; i<12 ; i++){
        for(Int_t ii=0; ii<24 ; ii++){
            Int_t mask = cnn[ii][i];
            if(mask>0)mask=1;
            cout<<mask<<" ";
        }
        cout <<endl;
    }
    
    if(!Cluster)return;
    TClonesArray &t  = *Cluster;
    for(int i=0; i<this->nclstr(); i++)     ((TrkCluster *)t[i])->Dump();
    
}
//--------------------------------------
//
//
//--------------------------------------
/**
 * Fills a TrkLevel1 object with values from a struct cTrkLevel1 (to get data from F77 common).
 */
void TrkLevel1::SetFromLevel1Struct(cTrkLevel1 *l1, Bool_t full){

    //  ---------------
    //  *** CLUSTER ***
    //  ---------------
    TrkCluster* t_cl = new TrkCluster();
    if(!Cluster)Cluster = new TClonesArray("TrkCluster");
    TClonesArray &t = *Cluster;
    for(int i=0; i<l1->nclstr1; i++){

        t_cl->Clear();
//      if( full || (!full && l1->whichtrack[i]) ){
        
        t_cl->view     = l1->view[i];
        t_cl->maxs     = l1->maxs[i];

        if( full || (!full && l1->whichtrack[i]) ){
            t_cl->indmax   = l1->indmax[i] - l1->indstart[i];       
            Int_t from = l1->indstart[i] -1;
            Int_t to   = l1->totCLlength ;
            if(i != l1->nclstr1-1)to   = l1->indstart[i+1] -1 ;
            t_cl->CLlength = to - from ;
            
            t_cl->clsignal = new Float_t[t_cl->CLlength];
            t_cl->clsigma  = new Float_t[t_cl->CLlength];
            t_cl->cladc    = new Int_t[t_cl->CLlength];
            t_cl->clbad    = new Bool_t[t_cl->CLlength];
            Int_t index = 0;
            for(Int_t is = from; is < to; is++ ){
                t_cl->clsignal[index] = (Float_t) l1->clsignal[is];
                t_cl->clsigma[index]  = (Float_t) l1->clsigma[is];
                t_cl->cladc[index]    = (Int_t)   l1->cladc[is];
                t_cl->clbad[index]    = (Bool_t)  l1->clbad[is];
                index++;
            };
        }
        new(t[i]) TrkCluster(*t_cl); // <<< store cluster
    };
    
    delete t_cl;
    
    //  -------------------------
    //  ****general variables****
    //  -------------------------    
    for(Int_t i=0; i<12 ; i++){
        good[i] = l1->good[i];
        for(Int_t j=0; j<24 ; j++){
            cn[j][i]     = l1->cnev[j][i];
//          cnrms[j][i]  = l1->cnrmsev[j][i];
            cnn[j][i]    = l1->cnnev[j][i];
        };
    };
    
}
/**
 * Fills a struct cTrkLevel1 with values from a TrkLevel1 object (to put data into a F77 common).
 */

cTrkLevel1* TrkLevel1::GetLevel1Struct() {
        
    cTrkLevel1 *l1=0;
    //
    for(Int_t i=0; i<12 ; i++){
        l1->good[i] = good[i];
        for(Int_t j=0; j<24 ; j++){
            l1->cnev[j][i]    = cn[j][i];
//          l1->cnrmsev[j][i] = cnrms[j][i];
            l1->cnnev[j][i]   = cnn[j][i];
        };
    };
    
//  *** CLUSTERS ***
    if(Cluster){
        l1->nclstr1 =  Cluster->GetEntries();
        for(Int_t i=0;i<l1->nclstr1;i++){
        
            l1->view[i]     = ((TrkCluster *)Cluster->At(i))->view;
            l1->maxs[i]     = ((TrkCluster *)Cluster->At(i))->maxs;
            // COMPLETARE //
            // COMPLETARE //
            // COMPLETARE //
            // COMPLETARE //
            // COMPLETARE //
            // COMPLETARE //
        
        }
        // COMPLETARE //
        // COMPLETARE //
        // COMPLETARE //
        // COMPLETARE //
        // COMPLETARE //
        // COMPLETARE //
    }
    return l1;
}
//--------------------------------------
//
//
//--------------------------------------
void TrkLevel1::Clear(){
    
    for(Int_t i=0; i<12 ; i++){
        good[i] = -1;
        for(Int_t j=0; j<24 ; j++){
            cn[j][i]    = 0;
            cnn[j][i]   = 0;
        };
    };
//    if(Cluster)Cluster->Clear("C");
    if(Cluster)Cluster->Delete();
    
}
//--------------------------------------
//
//
//--------------------------------------
void TrkLevel1::Delete(){
    
//    Clear();
    if(Cluster)Cluster->Delete();
    if(Cluster)delete Cluster;
    
}
//--------------------------------------
//
//
//--------------------------------------
TrkCluster *TrkLevel1::GetCluster(int is){

    if(!Cluster)return 0;
    if(is >= nclstr()){
        cout << "** TrkLevel1::GetCluster(int) ** Cluster "<< is << " does not exits! " << endl; 
        cout << "( Stored clusters nclstr() = "<< this->nclstr()<<" )" << endl;
        return 0;
    }
    
    TClonesArray &t = *(Cluster);
    TrkCluster *cluster = (TrkCluster*)t[is];
    return cluster;
}
//--------------------------------------
//
//
//--------------------------------------
/**
 * Load Position-Finding-Algorythm parameters (call the F77 routine).
 * 
 */
int TrkLevel1::LoadPfaParam(TString path){
        
    if( strcmp(path_.path,path.Data()) ){
        cout <<"Loading p.f.a. param::eters\n";
        strcpy(path_.path,path.Data());
        path_.pathlen = path.Length();
        path_.error   = 0;
        return readetaparam_();
    }   
    return 0;
}

/**
 * 
 * 
 */
float* TrkLevel1::GetPfaCoord(TString pfa, int nview, int nladder, int nang){
   
    int nbins = GetPfaNbinsETA();
    if(!nbins)return 0;

    float *fcorr = new float [nbins];

    if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++){
            fcorr[ib] = pfa_.feta2[nang][nladder][nview][ib];
            cout << pfa_.eta2[nang][ib] << " - " <<  pfa_.feta2[nang][nladder][nview][ib]<<endl;;
        }
    }else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta3[nang][nladder][nview][ib];
    }else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta4[nang][nladder][nview][ib];
    }else{
        cout << pfa<<" pfa parameters not implemented "<<endl;
        return 0;
    }    

    return fcorr;

};

float* TrkLevel1::GetPfaAbs(TString pfa, int nang){
   
    int nbins = GetPfaNbinsETA();
    if(!nbins)return 0;

    float *fcorr = new float [nbins];

    if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta2[nang][ib];
    }else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta3[nang][ib];
    }else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
        for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta4[nang][ib];
    }else{
        cout << pfa<<" pfa parameters not implemented "<<endl;
        return 0;
    }    

    return fcorr;


};


ClassImp(TrkLevel1);
ClassImp(TrkCluster);
1	pam-fi	1.1	/**
2			* \file TrkLevel1.cpp
3			* \author Elena Vannuccini
4			*/
5			#include <TrkLevel1.h>
6			#include <iostream>
7			using namespace std;
8	pam-fi	1.3	//......................................
9			// F77 routines
10			//......................................
11			extern "C" {
12
13			// int readetaparam_();
14	pam-fi	1.11	float cog_(int,int);
15			float pfaeta_(int,float);
16			float pfaeta2_(int,float);
17			float pfaeta3_(int,float);
18			float pfaeta4_(int,float);
19	pam-fi	1.3
20			}
21	pam-fi	1.1	//--------------------------------------
22			//
23			//
24			//--------------------------------------
25			TrkCluster::TrkCluster(){
26
27	pam-fi	1.11	// cout << "TrkCluster::TrkCluster()"<<endl;
28			view = -1;
29			maxs = -1;
30			indmax = -1;
31
32			CLlength = 0;
33			clsignal = 0;
34			clsigma = 0;
35			cladc = 0;
36			clbad = 0;
37	pam-fi	1.1
38			};
39			//--------------------------------------
40			//
41			//
42			//--------------------------------------
43			TrkCluster::TrkCluster(const TrkCluster& t){
44
45	pam-fi	1.11	view = t.view;
46			maxs = t.maxs;
47			indmax = t.indmax;
48
49			CLlength = t.CLlength;
50			if(CLlength){
51			clsignal = new Float_t[CLlength];
52			clsigma = new Float_t[CLlength];
53			cladc = new Int_t[CLlength];
54			clbad = new Bool_t[CLlength];
55			for(Int_t i=0; i<CLlength;i++){
56			clsignal[i] = t.clsignal[i];
57			clsigma[i] = t.clsigma[i];
58			cladc[i] = t.cladc[i];
59			clbad[i] = t.clbad[i];
60	pam-fi	1.1	};
61	pam-fi	1.11	};
62	pam-fi	1.10	};
63			//--------------------------------------
64			//
65			//
66			//--------------------------------------
67			void TrkCluster::Clear(){
68	pam-fi	1.11
69			// cout << "void TrkCluster::Clear()"<<endl;
70			if(CLlength){
71			delete [] clsignal;
72			delete [] clsigma;
73			delete [] cladc;
74			delete [] clbad;
75			}
76
77			view = 0;
78			maxs = 0;
79			indmax = 0;
80
81			CLlength = 0;
82			clsignal = 0;
83			clsigma = 0;
84			cladc = 0;
85			clbad = 0;
86	pam-fi	1.1
87			};
88			//--------------------------------------
89			//
90			//
91			//--------------------------------------
92	pam-fi	1.2	/**
93	pam-fi	1.5	* Evaluate the cluster signal including a maximum number of adjacent
94			* strips, around maxs, having a significant signal.
95			* @param nstrip Maximum number of strips.
96			* @param cut Inclusion cut ( s > cut*sigma ).
97			* If nstrip<=0 only the inclusion cut is used to determine the cluster size.
98	pam-fi	1.2	*/
99	pam-fi	1.5	Float_t TrkCluster::GetSignal(Int_t nstrip, Float_t cut){
100	pam-fi	1.11
101			if(CLlength<=0)return 0;
102
103	pam-fi	1.5	Float_t s = 0;
104
105			if( nstrip<=0 ){
106			// for(Int_t is = 0; is < CLlength; is++){
107			// Float_t scut = cut*clsigma[is];
108			// if(clsignal[is] > scut) s += clsignal[is];
109			// };
110			for(Int_t is = indmax+1; is < CLlength; is++){
111			Float_t scut = cut*clsigma[is];
112			if(clsignal[is] > scut) s += clsignal[is];
113			else break;
114			};
115			for(Int_t is = indmax; is >=0; is--){
116			Float_t scut = cut*clsigma[is];
117			if(clsignal[is] > scut) s += clsignal[is];
118			else break;
119	pam-fi	1.2	};
120			return s;
121	pam-fi	1.5	};
122
123
124			Int_t il = indmax;
125			Int_t ir = indmax;
126			Int_t inc = 0;
127
128			if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;
129
130			while ( inc < nstrip ){
131			Float_t sl = -100000;
132			Float_t sr = -100000;
133			if( il >= 0 ) sl = clsignal[il];
134			if( ir < CLlength ) sr = clsignal[ir];
135			if( sl == sr && inc == 0 ){
136			s += clsignal[il]; //cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
137			il--;
138			ir++;
139			}else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
140			s += sl;//cout << inc<<" - "<< clsignal[il]<<" "<<s<<endl;
141			il--;
142			}else if ( sl < sr && sr > cut*clsigma[ir] ){
143			s += sr;//cout << inc<<" - " << clsignal[ir]<<" "<<s<<endl;
144			ir++;
145			}else break;
146
147			inc++;
148			}
149			return s;
150	pam-fi	1.2	};
151	pam-fi	1.5
152	pam-fi	1.11
153	pam-fi	1.2	/**
154	pam-fi	1.11	* Evaluate the cluster signal-to-noise, as defined by Turchetta, including a
155			* maximum number of adjacent strips, around maxs, having a significant signal.
156	pam-fi	1.5	* @param nstrip Maximum number of strips.
157			* @param cut Inclusion cut ( s > cut*sigma ).
158			* If nstrip<=0 only the inclusion cut is used to determine the cluster size.
159	pam-fi	1.3	*/
160	pam-fi	1.5	Float_t TrkCluster::GetSignalToNoise(Int_t nstrip, Float_t cut){
161	pam-fi	1.3
162	pam-fi	1.11	if(CLlength<=0)return 0;
163
164	pam-fi	1.5	Float_t sn = 0;
165
166			if( nstrip<=0 ){
167			for(Int_t is = indmax+1; is < CLlength; is++){
168			Float_t scut = cut*clsigma[is];
169			if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
170			else break;
171			};
172			for(Int_t is = indmax; is >=0; is--){
173			Float_t scut = cut*clsigma[is];
174			if(clsignal[is] > scut) sn += clsignal[is]/clsigma[is];
175			else break;
176			};
177	pam-fi	1.3	return sn;
178	pam-fi	1.5	};
179
180
181			Int_t il = indmax;
182			Int_t ir = indmax;
183			Int_t inc = 0;
184
185			if( clsignal[indmax] < cut*clsigma[indmax] ) return 0;
186
187			while ( inc < nstrip ){
188			Float_t sl = -100000;
189			Float_t sr = -100000;
190			if( il >= 0 ) sl = clsignal[il];
191			if( ir < CLlength ) sr = clsignal[ir];
192			if( sl == sr && inc == 0 ){
193			sn += clsignal[il]/clsigma[il];
194			il--;
195			ir++;
196			}else if ( sl >= sr && sl > cut*clsigma[il] && inc !=0 ){
197			sn += sl/clsigma[il];
198			il--;
199			}else if ( sl < sr && sr > cut*clsigma[ir] ){
200			sn += sr/clsigma[ir];
201			ir++;
202			}else break;
203
204			inc++;
205			}
206			return sn;
207	pam-fi	1.3	};
208			/**
209	pam-fi	1.2	* Evaluate the cluster multiplicity.
210			* @param cut Inclusion cut.
211			*/
212			Int_t TrkCluster::GetMultiplicity(Float_t cut){
213	pam-fi	1.11
214			if(CLlength<=0)return 0;
215
216			Int_t m = 0;
217
218			for(Int_t is = indmax+1; is < CLlength; is++){
219			Float_t scut = cut*clsigma[is];
220			if(clsignal[is] > scut) m++;
221			else break;
222			};
223			for(Int_t is = indmax; is >=0; is--){
224			Float_t scut = cut*clsigma[is];
225			if(clsignal[is] > scut) m++;
226			else break;
227			};
228			return m;
229	pam-fi	1.2	};
230			/**
231			* True if the cluster contains bad strips.
232			* @param nbad Number of strips around the maximum.
233			*/
234			Bool_t TrkCluster::IsBad(Int_t nbad){
235	pam-fi	1.11
236			if(CLlength<=0)return 0;
237
238			Int_t il,ir;
239			il = indmax;
240			ir = indmax;
241			for(Int_t i=1; i<nbad; i++){
242			if (ir == CLlength && il == 0)break;
243			else if (ir == CLlength && il != 0)il--;
244			else if (ir != CLlength && il == 0)ir++;
245			else{
246			if(clsignal[il-1] > clsignal[ir+1])il--;
247			else ir++;
248	pam-fi	1.2	}
249	pam-fi	1.11	}
250			Int_t isbad = 0;
251			for(Int_t i=il; i<=ir; i++)isbad += clbad[i];
252
253			return ( isbad != nbad );
254	pam-fi	1.2	};
255	pam-fi	1.11	/**
256			* True if the cluster contains saturated strips.
257			* @param nbad Number of strips around the maximum.
258			*/
259			Bool_t TrkCluster::IsSaturated(Int_t nbad){
260
261			if(CLlength<=0)return 0;
262
263			Int_t il,ir;
264			il = indmax;
265			ir = indmax;
266			for(Int_t i=1; i<nbad; i++){
267			if (ir == CLlength && il == 0)break;
268			else if (ir == CLlength && il != 0)il--;
269			else if (ir != CLlength && il == 0)ir++;
270			else{
271			if(clsignal[il-1] > clsignal[ir+1])il--;
272			else ir++;
273			}
274			}
275			Int_t isbad = 0;
276			for(Int_t i=il; i<=ir; i++){
277			if( IsX() && cladc[i] > 2980 )isbad++;
278			if( IsY() && cladc[i] < 80 )isbad++;
279			}
280			return ( isbad != 0 );
281
282			}
283	pam-fi	1.2	//--------------------------------------
284			//
285			//
286			//--------------------------------------
287	pam-fi	1.1	void TrkCluster::Dump(){
288
289	pam-fi	1.11	cout << "----- Cluster" << endl;
290			cout << "View "<<view << " - Ladder "<<GetLadder()<<endl;
291			cout << "Position of maximun "<< maxs <<endl;
292			cout << "Multiplicity "<< GetMultiplicity() <<endl;
293			cout << "Tot signal "<< GetSignal() << " (ADC channels)"<<endl ;
294			cout << "Signal/Noise "<< GetSignalToNoise();
295			cout <<endl<< "Strip signals ";
296			for(Int_t i =0; i<CLlength; i++)cout << " " <<clsignal[i];
297			cout <<endl<< "Strip sigmas ";
298			for(Int_t i =0; i<CLlength; i++)cout << " " <<clsigma[i];
299			cout <<endl<< "Strip ADC ";
300			for(Int_t i =0; i<CLlength; i++)cout << " " <<cladc[i];
301			cout <<endl<< "Strip BAD ";
302			for(Int_t i =0; i<CLlength; i++){
303			if(i==indmax)cout << " " <<clbad[i]<<"";
304			else cout << " " <<clbad[i];
305			}
306			cout << endl;
307	pam-fi	1.1
308			}
309			//--------------------------------------
310			//
311			//
312			//--------------------------------------
313	pam-fi	1.3	/**
314			* Method to fill a level1 struct with only one cluster (done to use F77 p.f.a. routines on a cluster basis).
315			*/
316			cTrkLevel1* TrkCluster::GetLevel1Struct(){
317
318	pam-fi	1.6	// cTrkLevel1* l1 = new cTrkLevel1;
319
320			cTrkLevel1* l1 = &level1event_ ;
321	pam-fi	1.3
322	pam-fi	1.6	l1->nclstr1 = 1;
323			l1->view[0] = view;
324			l1->ladder[0] = GetLadder();
325			l1->maxs[0] = maxs;
326			l1->mult[0] = GetMultiplicity();
327			l1->dedx[0] = GetSignal();
328			l1->indstart[0] = 1;
329			l1->indmax[0] = indmax+1;
330			l1->totCLlength = CLlength;
331			for(Int_t i=0; i<CLlength; i++){
332			l1->clsignal[i] = clsignal[i];
333			l1->clsigma[i] = clsigma[i];
334			l1->cladc[i] = cladc[i];
335			l1->clbad[i] = clbad[i];
336			};
337
338			return l1;
339	pam-fi	1.3	};
340			//--------------------------------------
341			//
342			//
343			//--------------------------------------
344			/**
345			* Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs).
346			* @param ncog Number of strips to evaluate COG.
347			* If ncog=0, the COG of the cluster is evaluated according to the cluster multiplicity (defined by the inclusion cut).
348			* If ncog>0, the COG is evaluated using ncog strips, even if they have a negative signal (according to G.Landi)
349			*/
350			Float_t TrkCluster::GetCOG(Int_t ncog){
351
352	pam-fi	1.6	int ic = 1;
353			GetLevel1Struct();
354			return cog_(&ncog,&ic);
355
356			};
357			/**
358			* Evaluates the Center-Of-Gravity (COG) of the cluster, in strips, relative to the strip with the maximum signal (TrkCluster::maxs),
359			* choosing the number of strips according to the angle, as implemented for the eta-algorythm .
360			* @param angle Projected angle in degree.
361			*/
362			Float_t TrkCluster::GetCOG(Float_t angle){
363
364			Int_t neta = 0;
365
366			// Float_t eta = GetETA(0,angle);
367			// for(neta=2; neta<10; neta++) if( eta == GetETA(neta,angle) ) break;
368			// if(eta != GetETA(neta,angle) )cout << "Attenzione!! pasticcio "<<endl;
369
370			if( view%2 ){ //Y
371			neta=2;
372			}else{ //X
373	pam-fi	1.7	if( fabs(angle) <= 10. ){
374	pam-fi	1.6	neta = 2;
375	pam-fi	1.7	}else if( fabs(angle) > 10. && fabs(angle) <= 15. ){
376	pam-fi	1.6	neta = 3;
377			}else{
378			neta = 4;
379			};
380			};
381
382			return GetCOG(neta);
383	pam-fi	1.3
384			};
385			//--------------------------------------
386			//
387			//
388			//--------------------------------------
389			/**
390			* Evaluates the cluster position, in strips, relative to the strip with the maximum signal (TrkCluster::maxs), by applying the non-linear ETA-algorythm.
391			* @param neta Number of strips to evaluate ETA.
392			* @param angle Projected angle between particle track and detector plane.
393			* Implemented values of neta are 2,3,4. If neta=0, ETA2, ETA3 and ETA4 are applied according to the angle.
394			*/
395			Float_t TrkCluster::GetETA(Int_t neta, float angle){
396
397	pam-fi	1.6	// cout << "GetETA(neta,angle) "<< neta << " "<< angle;
398	pam-fi	1.3	// LoadPfaParam();
399	pam-fi	1.6
400			float ax = angle;
401			int ic = 1;
402			GetLevel1Struct();
403			if(neta == 0) return pfaeta_(&ic,&ax);
404			else if(neta == 2) return pfaeta2_(&ic,&ax);
405			else if(neta == 3) return pfaeta3_(&ic,&ax);
406			else if(neta == 4) return pfaeta4_(&ic,&ax);
407			else cout << "ETA"<<neta<<" not implemented\n";
408			return 0;
409
410	pam-fi	1.3	};
411
412			//--------------------------------------
413			//
414			//
415			//--------------------------------------
416	pam-fi	1.1	TrkLevel1::TrkLevel1(){
417	pam-fi	1.6
418	pam-fi	1.11	// cout << "TrkLevel1::TrkLevel1()"<<endl;
419			// Cluster = new TClonesArray("TrkCluster");
420			Cluster = 0;
421	pam-fi	1.6	for(Int_t i=0; i<12 ; i++){
422			good[i] = -1;
423			for(Int_t j=0; j<24 ; j++){
424			cn[j][i]=0;
425			cnn[j][i]=0;
426	pam-fi	1.1	};
427	pam-fi	1.6	};
428	pam-fi	1.1	}
429			//--------------------------------------
430			//
431			//
432			//--------------------------------------
433	pam-fi	1.12	void TrkLevel1::Set(){
434			if(!Cluster)Cluster = new TClonesArray("TrkCluster");
435			}
436			//--------------------------------------
437			//
438			//
439			//--------------------------------------
440	pam-fi	1.1	void TrkLevel1::Dump(){
441
442	pam-fi	1.6	cout<<"DSP status: ";
443			for(Int_t i=0; i<12 ; i++)cout<<good[i]<<" ";
444			cout<<endl;
445	pam-fi	1.9	cout<<"VA1 mask : "<<endl;
446			for(Int_t i=0; i<12 ; i++){
447			for(Int_t ii=0; ii<24 ; ii++){
448			Int_t mask = cnn[ii][i];
449			if(mask>0)mask=1;
450			cout<<mask<<" ";
451			}
452			cout <<endl;
453			}
454	pam-fi	1.6
455	pam-fi	1.11	if(!Cluster)return;
456	pam-fi	1.6	TClonesArray &t = *Cluster;
457			for(int i=0; i<this->nclstr(); i++) ((TrkCluster *)t[i])->Dump();
458
459	pam-fi	1.1	}
460			//--------------------------------------
461			//
462			//
463			//--------------------------------------
464			/**
465			* Fills a TrkLevel1 object with values from a struct cTrkLevel1 (to get data from F77 common).
466			*/
467	pam-fi	1.10	void TrkLevel1::SetFromLevel1Struct(cTrkLevel1 *l1, Bool_t full){
468	pam-fi	1.1
469	pam-fi	1.10	// ---------------
470	pam-fi	1.6	// * CLUSTER *
471	pam-fi	1.10	// ---------------
472	pam-fi	1.6	TrkCluster* t_cl = new TrkCluster();
473	pam-fi	1.11	if(!Cluster)Cluster = new TClonesArray("TrkCluster");
474	pam-fi	1.6	TClonesArray &t = *Cluster;
475			for(int i=0; i<l1->nclstr1; i++){
476	pam-fi	1.10
477			t_cl->Clear();
478	pam-fi	1.11	// if( full \|\| (!full && l1->whichtrack[i]) ){
479
480			t_cl->view = l1->view[i];
481			t_cl->maxs = l1->maxs[i];
482
483	pam-fi	1.10	if( full \|\| (!full && l1->whichtrack[i]) ){
484	pam-fi	1.11	t_cl->indmax = l1->indmax[i] - l1->indstart[i];
485	pam-fi	1.10	Int_t from = l1->indstart[i] -1;
486			Int_t to = l1->totCLlength ;
487			if(i != l1->nclstr1-1)to = l1->indstart[i+1] -1 ;
488			t_cl->CLlength = to - from ;
489
490			t_cl->clsignal = new Float_t[t_cl->CLlength];
491			t_cl->clsigma = new Float_t[t_cl->CLlength];
492			t_cl->cladc = new Int_t[t_cl->CLlength];
493			t_cl->clbad = new Bool_t[t_cl->CLlength];
494			Int_t index = 0;
495			for(Int_t is = from; is < to; is++ ){
496			t_cl->clsignal[index] = (Float_t) l1->clsignal[is];
497			t_cl->clsigma[index] = (Float_t) l1->clsigma[is];
498			t_cl->cladc[index] = (Int_t) l1->cladc[is];
499			t_cl->clbad[index] = (Bool_t) l1->clbad[is];
500			index++;
501			};
502			}
503			new(t[i]) TrkCluster(*t_cl); // <<< store cluster
504	pam-fi	1.6	};
505
506			delete t_cl;
507
508	pam-fi	1.10	// -------------------------
509	pam-fi	1.6	// **general variables**
510	pam-fi	1.10	// -------------------------
511	pam-fi	1.6	for(Int_t i=0; i<12 ; i++){
512			good[i] = l1->good[i];
513			for(Int_t j=0; j<24 ; j++){
514			cn[j][i] = l1->cnev[j][i];
515			// cnrms[j][i] = l1->cnrmsev[j][i];
516			cnn[j][i] = l1->cnnev[j][i];
517	pam-fi	1.1	};
518	pam-fi	1.6	};
519
520	pam-fi	1.1	}
521			/**
522			* Fills a struct cTrkLevel1 with values from a TrkLevel1 object (to put data into a F77 common).
523			*/
524
525	pam-fi	1.3	cTrkLevel1* TrkLevel1::GetLevel1Struct() {
526
527	pam-fi	1.6	cTrkLevel1 *l1=0;
528	pam-fi	1.11	//
529	pam-fi	1.6	for(Int_t i=0; i<12 ; i++){
530			l1->good[i] = good[i];
531			for(Int_t j=0; j<24 ; j++){
532			l1->cnev[j][i] = cn[j][i];
533			// l1->cnrmsev[j][i] = cnrms[j][i];
534			l1->cnnev[j][i] = cnn[j][i];
535	pam-fi	1.1	};
536	pam-fi	1.6	};
537
538	pam-fi	1.1	// * CLUSTERS *
539	pam-fi	1.11	if(Cluster){
540			l1->nclstr1 = Cluster->GetEntries();
541			for(Int_t i=0;i<l1->nclstr1;i++){
542
543			l1->view[i] = ((TrkCluster *)Cluster->At(i))->view;
544			l1->maxs[i] = ((TrkCluster *)Cluster->At(i))->maxs;
545			// COMPLETARE //
546			// COMPLETARE //
547			// COMPLETARE //
548			// COMPLETARE //
549			// COMPLETARE //
550			// COMPLETARE //
551	pam-fi	1.6
552	pam-fi	1.11	}
553	pam-fi	1.3	// COMPLETARE //
554			// COMPLETARE //
555			// COMPLETARE //
556			// COMPLETARE //
557			// COMPLETARE //
558			// COMPLETARE //
559	pam-fi	1.6	}
560			return l1;
561	pam-fi	1.3	}
562			//--------------------------------------
563			//
564			//
565			//--------------------------------------
566			void TrkLevel1::Clear(){
567	pam-fi	1.6
568			for(Int_t i=0; i<12 ; i++){
569			good[i] = -1;
570			for(Int_t j=0; j<24 ; j++){
571			cn[j][i] = 0;
572			cnn[j][i] = 0;
573	pam-fi	1.3	};
574	pam-fi	1.6	};
575	pam-fi	1.11	// if(Cluster)Cluster->Clear("C");
576			if(Cluster)Cluster->Delete();
577	pam-fi	1.6
578	pam-fi	1.1	}
579			//--------------------------------------
580			//
581			//
582			//--------------------------------------
583	pam-fi	1.3	void TrkLevel1::Delete(){
584	pam-fi	1.11
585			// Clear();
586			if(Cluster)Cluster->Delete();
587			if(Cluster)delete Cluster;
588	pam-fi	1.6
589	pam-fi	1.1	}
590			//--------------------------------------
591			//
592			//
593			//--------------------------------------
594			TrkCluster *TrkLevel1::GetCluster(int is){
595
596	pam-fi	1.11	if(!Cluster)return 0;
597			if(is >= nclstr()){
598			cout << " TrkLevel1::GetCluster(int) Cluster "<< is << " does not exits! " << endl;
599			cout << "( Stored clusters nclstr() = "<< this->nclstr()<<" )" << endl;
600			return 0;
601			}
602
603			TClonesArray &t = *(Cluster);
604			TrkCluster cluster = (TrkCluster)t[is];
605			return cluster;
606	pam-fi	1.1	}
607	pam-fi	1.3	//--------------------------------------
608			//
609			//
610			//--------------------------------------
611			/**
612			* Load Position-Finding-Algorythm parameters (call the F77 routine).
613			*
614			*/
615			int TrkLevel1::LoadPfaParam(TString path){
616
617	pam-fi	1.11	if( strcmp(path_.path,path.Data()) ){
618			cout <<"Loading p.f.a. param::eters\n";
619			strcpy(path_.path,path.Data());
620			path_.pathlen = path.Length();
621			path_.error = 0;
622			return readetaparam_();
623			}
624			return 0;
625	pam-fi	1.3	}
626	pam-fi	1.1
627	pam-fi	1.13	/**
628			*
629			*
630			*/
631			float* TrkLevel1::GetPfaCoord(TString pfa, int nview, int nladder, int nang){
632
633			int nbins = GetPfaNbinsETA();
634			if(!nbins)return 0;
635
636			float *fcorr = new float [nbins];
637
638			if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
639			for(int ib=0; ib<nbins; ib++){
640			fcorr[ib] = pfa_.feta2[nang][nladder][nview][ib];
641			cout << pfa_.eta2[nang][ib] << " - " << pfa_.feta2[nang][nladder][nview][ib]<<endl;;
642			}
643			}else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
644			for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta3[nang][nladder][nview][ib];
645			}else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
646			for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.feta4[nang][nladder][nview][ib];
647			}else{
648			cout << pfa<<" pfa parameters not implemented "<<endl;
649			return 0;
650			}
651
652			return fcorr;
653
654			};
655
656			float* TrkLevel1::GetPfaAbs(TString pfa, int nang){
657
658			int nbins = GetPfaNbinsETA();
659			if(!nbins)return 0;
660
661			float *fcorr = new float [nbins];
662
663			if(!pfa.CompareTo("ETA2",TString::kIgnoreCase)){
664			for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta2[nang][ib];
665			}else if (!pfa.CompareTo("ETA3",TString::kIgnoreCase)){
666			for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta3[nang][ib];
667			}else if (!pfa.CompareTo("ETA4",TString::kIgnoreCase)){
668			for(int ib=0; ib<nbins; ib++)fcorr[ib] = pfa_.eta4[nang][ib];
669			}else{
670			cout << pfa<<" pfa parameters not implemented "<<endl;
671			return 0;
672			}
673
674			return fcorr;
675
676
677			};
678
679
680	pam-fi	1.1
681			ClassImp(TrkLevel1);
682			ClassImp(TrkCluster);