--- DarthVader/TrackerLevel2/src/TrkLevel2.cpp	2007/04/27 10:39:57	1.32
+++ DarthVader/TrackerLevel2/src/TrkLevel2.cpp	2007/05/24 13:29:09	1.34
@@ -12,9 +12,13 @@
 extern "C" {    
     void dotrack_(int*, double*, double*, double*, double*, int*);
     void dotrack2_(int*, double*, double*, double*, double*,double*, double*, double*,int*);
-     void mini2_(int*,int*,int*); 
-     void guess_();
-     void gufld_(float*, float*);
+    void mini2_(int*,int*,int*); 
+    void guess_();
+    void gufld_(float*, float*);
+    float risxeta2_(float *);
+    float risxeta3_(float *);
+    float risxeta4_(float *);
+    float risyeta2_(float *);
 }
 
 //--------------------------------------
@@ -56,6 +60,11 @@
 //    clx = TRefArray(6,0);
 //    cly = TRefArray(6,0);
 
+    TrkParams::SetTrackingMode();
+    TrkParams::SetPrecisionFactor();
+    TrkParams::SetStepMin();
+    TrkParams::SetPFA();
+
 };
 //--------------------------------------
 //
@@ -95,6 +104,11 @@
 //    clx = TRefArray(t.clx);
 //    cly = TRefArray(t.cly);
 
+    TrkParams::SetTrackingMode();
+    TrkParams::SetPrecisionFactor(); 
+    TrkParams::SetStepMin();   
+    TrkParams::SetPFA();
+
 };
 //--------------------------------------
 //
@@ -372,6 +386,8 @@
     cout << endl << "zv       : "; for(int i=0; i<6; i++)cout << zv[i] << " ";
     cout << endl << "resx     : "; for(int i=0; i<6; i++)cout << resx[i] << " ";
     cout << endl << "resy     : "; for(int i=0; i<6; i++)cout << resy[i] << " ";
+    cout << endl << "tailx    : "; for(int i=0; i<6; i++)cout << tailx[i] << " ";
+    cout << endl << "taily    : "; for(int i=0; i<6; i++)cout << taily[i] << " ";
     cout << endl << "coval    : "; for(int i=0; i<5; i++)cout << coval[0][i]<<" ";
     cout << endl << "           "; for(int i=0; i<5; i++)cout << coval[1][i]<<" ";
     cout << endl << "           "; for(int i=0; i<5; i++)cout << coval[2][i]<<" ";
@@ -397,10 +413,89 @@
     for(int i=0; i<6; i++) resy[i]=*ry++;
 }
 /**
+ * Set the TrkTrack tails position resolution 
+ */
+void TrkTrack::SetTail(double *tx, double *ty, double factor){
+    for(int i=0; i<6; i++) tailx[i]=factor*(*tx++);
+    for(int i=0; i<6; i++) taily[i]=factor*(*ty++);
+}
+/**
+ * Set the TrkTrack Student parameter (resx,resy,tailx,taily)
+ * from previous gausian fit
+ *@param flag =0 standard, =1 with noise correction 
+ */
+void TrkTrack::SetStudentParam(int flag){
+    float sx[11]={0.000128242,
+		   0.000136942,
+		   0.000162718,
+		   0.000202644,
+		   0.00025597,
+		   0.000317456,
+		   0.000349048,
+		   0.000384638,
+		   0.000457295,
+		   0.000512319,
+		   0.000538573};
+    float tx[11]={1.79402,
+		   2.04876,
+		   2.88376,
+		   3.3,
+		   3.14084,
+		   4.07686,
+		   4.44736,
+		   3.5179,
+		   3.38697,
+		   3.45739,
+		   3.18627};
+    float sy[11]={0.000483075,
+		   0.000466925,
+		   0.000431658,
+		   0.000428317,
+		   0.000433854,
+		   0.000444044,
+		   0.000482098,
+		   0.000537579,
+		   0.000636279,
+		   0.000741998,
+		   0.000864261};
+    float ty[11]={0.997032,
+		   1.11147,
+		   1.18526,
+		   1.61404,
+		   2.21908,
+		   3.08959,
+		   4.48833,
+		   4.42687,
+		   4.65253,
+		   4.52043,
+		   4.29926};
+    int index;
+    float fact;
+    for(int i=0; i<6; i++) {
+	index = int((fabs(axv[i])+1.)/2.);
+	if(index>10) index=10;
+	tailx[i]=tx[index];
+	if(flag==1) {
+	    if(fabs(axv[i])<=10.) fact = resx[i]/risxeta2_(&(axv[i]));
+	    if(fabs(axv[i])>10.&&fabs(axv[i])<=15.) fact = resx[i]/risxeta3_(&(axv[i]));
+	    if(fabs(axv[i])>15.) fact = resx[i]/risxeta4_(&(axv[i]));
+	} else fact = 1.;
+	resx[i] = sx[index]*fact;
+    }
+    for(int i=0; i<6; i++) {
+	index = int((fabs(ayv[i])+1.)/2.);
+	if(index>10) index=10;
+	taily[i]=ty[index];
+	if(flag==1) fact = resy[i]/risyeta2_(&(ayv[i]));
+	else fact = 1.;
+	resy[i] = sy[index]*fact;
+    }
+}
+/**
  * Set the TrkTrack good measurement 
  */
 void TrkTrack::SetGood(int *xg, int *yg){
-    // NB! si perdera` l'informazione sul numero del cluster
+
     for(int i=0; i<6; i++) xgood[i]=*xg++;
     for(int i=0; i<6; i++) ygood[i]=*yg++;
 }
@@ -415,6 +510,10 @@
 //     path_.error   = 0;
 //     readb_();
 
+    TrkParams::SetTrackingMode();
+    TrkParams::SetPrecisionFactor();
+    TrkParams::SetStepMin();
+
     TrkParams::Set(path,1);
     TrkParams::Load(1);
 
@@ -428,8 +527,8 @@
 
     for(int i=0; i<6; i++){ 
 
-//	track.xgood[i]=xgood[i];
-//	track.ygood[i]=ygood[i];
+// 	cout << i<<" - "<<xgood[i]<<" "<<XGood(i)<<endl;
+// 	cout << i<<" - "<<ygood[i]<<" "<<YGood(i)<<endl;
 	track.xgood[i]=XGood(i);
 	track.ygood[i]=YGood(i);
 	
@@ -455,6 +554,8 @@
 	
 	track.resx[i]=resx[i];
 	track.resy[i]=resy[i];
+	track.tailx[i]=tailx[i];
+	track.taily[i]=taily[i];
     }
 
     for(int i=0; i<5; i++) track.al[i]=al[i]; 
@@ -486,16 +587,96 @@
     
 }
 /**
- * Tracking method. It calls F77 mini routine.
+ * \brief Method to re-evaluate coordinates of clusters associated with a track.
+ *
+ * The method can be applied only after recovering level1 information 
+ * (either by reprocessing single events from level0 or from  
+ * the TrkLevel1 branch, if present); it calls F77 subroutines that 
+ * read the level1 common and fill the minimization-routine common.
+ * Some clusters can be excluded or added by means of the methods:
+ *
+ * TrkTrack::ResetXGood(int ip)
+ * TrkTrack::ResetYGood(int ip)
+ * TrkTrack::SetXGood(int ip, int cid, int is)
+ * TrkTrack::SetYGood(int ip, int cid, int is)
+ *
+ * NB! The method TrkTrack::SetGood(int *xg, int *yg) set the plane-mask (0-1) 
+ * for the minimization-routine common. It deletes the cluster information
+ * (at least for the moment...) thus cannot be applied before 
+ * TrkTrack::EvaluateClusterPositions().  
+ *
+ * Different p.f.a. can be applied by calling (once) the method:
+ * 
+ * TrkParams::SetPFA(0); //Set ETA p.f.a.
+ *
+ * @see TrkParams::SetPFA(int)
  */
-void TrkTrack::Fit(double pfixed, int& fail, int iprint){
+void TrkTrack::EvaluateClusterPositions(){
+    
+//     cout << "void TrkTrack::GetClusterPositions() "<<endl;
+
+    TrkParams::Load( );
+    if( !TrkParams::IsLoaded() )return;
+    
+    for(int ip=0; ip<6; ip++){
+//	cout << ip<<" ** "<<xm[ip]<<" / "<<ym[ip]<<endl;;
+	int icx = GetClusterX_ID(ip)+1;
+	int icy = GetClusterY_ID(ip)+1;
+	int sensor = GetSensor(ip)+1;//<< convenzione "Paolo"
+	if(ip==5 && sensor!=0)sensor=3-sensor;//<< convenzione "Elena"
+	int ladder = GetLadder(ip)+1;
+	float ax = axv[ip];
+	float ay = ayv[ip];
+	float v[3];
+	v[0]=xv[ip];
+	v[1]=yv[ip];
+	v[2]=zv[ip];
+	float bfx = 10*TrkParams::GetBX(v);//Tesla
+	float bfy = 10*TrkParams::GetBY(v);//Tesla
+	int ipp=ip+1;
+	xyzpam_(&ipp,&icx,&icy,&ladder,&sensor,&ax,&ay,&bfx,&bfy);
+    }
+}
+/**
+ * \brief Tracking method. It calls F77 mini routine.
+ *
+ * @param pfixed Particle momentum. If pfixed=0 the momentum 
+ * is left as a free parameter, otherwise it is fixed to the input value.
+ * @param fail Output flag (!=0 if the fit failed). 
+ * @param iprint Flag to set debug mode ( 0 = no output; 1 = verbose; 2 = debug).
+ * @param froml1 Flag to re-evaluate positions (see TrkTrack::GetClusterPositions()). 
+ *
+ * The option to re-evaluate positions can be used only after recovering
+ * level1 information, eg. by reprocessing the single event. 
+ *
+ * Example:
+ *
+ * if( !event->GetTrkLevel0() )return false;
+ * event->GetTrkLevel0()->ProcessEvent(); // re-processing level0->level1
+ * int fail=0;
+ * event->GetTrkLevel2()->GetTrack(0)->Fit(0.,fail,0,1);
+ *
+ * @see EvaluateClusterPositions()
+ *
+ * The fitting procedure can be varied by changing the tracking mode, 
+ * the fit-precision factor and the minimum number of step.
+ * @see SetTrackingMode(int)
+ * @see SetPrecisionFactor(double)
+ * @see SetStepMin(int)
+ */
+void TrkTrack::Fit(double pfixed, int& fail, int iprint, int froml1){
 
     float al_ini[] = {0.,0.,0.,0.,0.};
 
+    TrkParams::Load( );
+    if( !TrkParams::IsLoaded() )return;
+
     extern cMini2track track_;
     fail = 0;
     FillMiniStruct(track_);
-
+    
+    if(froml1!=0)EvaluateClusterPositions();
+    
     // if fit variables have been reset, evaluate the initial guess
     if(al[0]==-9999.&&al[1]==-9999.&&al[2]==-9999.&&al[3]==-9999.&&al[4]==-9999.)guess_();
 
@@ -514,11 +695,11 @@
 
     //  ------------------------------------------
     //  call mini routine
-    TrkParams::Load(1);
-    if( !TrkParams::IsLoaded(1) ){
-	cout << "void TrkTrack::Fit(double pfixed, int& fail, int iprint) --- ERROR --- m.field not loaded"<<endl;
-	return;
-    }
+//     TrkParams::Load(1);
+//     if( !TrkParams::IsLoaded(1) ){
+// 	cout << "void TrkTrack::Fit(double pfixed, int& fail, int iprint) --- ERROR --- m.field not loaded"<<endl;
+// 	return;
+//     }
     int istep=0;
     int ifail=0;
     mini2_(&istep,&ifail, &iprint);
@@ -529,58 +710,45 @@
     //  ------------------------------------------
     
     SetFromMiniStruct(&track_);
-//    cout << endl << "eta ===> " << track_.al[4] << endl;
-
-//     for(int i=0; i<5; i++) al[i]=track_.al[i];
-//     chi2=track_.chi2;
-//     nstep=track_.nstep;
-//     for(int i=0; i<6; i++) xv[i]=track_.xv[i];
-//     for(int i=0; i<6; i++) yv[i]=track_.yv[i];
-//     for(int i=0; i<6; i++) zv[i]=track_.zv[i];
-//     for(int i=0; i<6; i++) axv[i]=track_.axv[i];
-//     for(int i=0; i<6; i++) ayv[i]=track_.ayv[i];
-//     for(int i=0; i<5; i++) {
-// 	for(int j=0; j<5; j++) coval[i][j]=track_.cov[i][j];
-//     }
 
     if(fail){
- 	if(iprint)cout << " >>>> fit failed >>>> drawing initial par"<<endl;
+ 	if(iprint)cout << " >>>> fit failed "<<endl;
  	for(int i=0; i<5; i++) al[i]=al_ini[i]; 
     }
 
 };
-/*
+/**
  * Reset the fit parameters 
  */
 void TrkTrack::FitReset(){
     for(int i=0; i<5; i++) al[i]=-9999.;
     chi2=0.;
     nstep=0;
-    for(int i=0; i<6; i++) xv[i]=0.;
-    for(int i=0; i<6; i++) yv[i]=0.;
-    for(int i=0; i<6; i++) zv[i]=0.;
-    for(int i=0; i<6; i++) axv[i]=0.;
-    for(int i=0; i<6; i++) ayv[i]=0.;
+//     for(int i=0; i<6; i++) xv[i]=0.;
+//     for(int i=0; i<6; i++) yv[i]=0.;
+//     for(int i=0; i<6; i++) zv[i]=0.;
+//     for(int i=0; i<6; i++) axv[i]=0.;
+//     for(int i=0; i<6; i++) ayv[i]=0.;
     for(int i=0; i<5; i++) {
 	for(int j=0; j<5; j++) coval[i][j]=0.;
     }
 }
-/*
+/**
  * Set the tracking mode 
  */
 void TrkTrack::SetTrackingMode(int trackmode){
     extern cMini2track track_;
     track_.trackmode = trackmode;
 }
-/*
+/**
  * Set the factor scale for tracking precision 
  */
 void TrkTrack::SetPrecisionFactor(double fact){
     extern cMini2track track_;
     track_.fact = fact;
 }
-/*
- * Set the factor scale for tracking precision 
+/**
+ * Set the minimum number of steps for tracking precision 
  */
 void TrkTrack::SetStepMin(int istepmin){
     extern cMini2track track_;
@@ -588,7 +756,7 @@
 }
 
 
-/*
+/**
  * Method to retrieve ID (0,1,...) of x-cluster (if any) associated to this track.
  * If no cluster is associated, ID=-1.
  * @param ip Tracker plane (0-5)
@@ -596,7 +764,7 @@
 Int_t TrkTrack::GetClusterX_ID(int ip){
     return ((Int_t)fabs(xgood[ip]))%10000000-1;
 };
-/*
+/**
  * Method to retrieve ID (0-xxx) of y-cluster (if any) associated to this track.
  * If no cluster is associated, ID=-1.
  * @param ip Tracker plane (0-5)
@@ -604,7 +772,7 @@
 Int_t TrkTrack::GetClusterY_ID(int ip){
     return ((Int_t)fabs(ygood[ip]))%10000000-1;
 };
-/*
+/**
  * Method to retrieve the ladder (0-4, increasing x) traversed by the track on this plane.
  * If no ladder is traversed (dead area) the metod retuns -1.
  * @param ip Tracker plane (0-5)
@@ -614,7 +782,7 @@
     if(YGood(ip))return (Int_t)fabs(ygood[ip]/100000000)-1;
     return -1;
 };
-/*
+/**
  * Method to retrieve the sensor (0-1, increasing y) traversed by the track on this plane.
  * If no sensor is traversed (dead area) the metod retuns -1.
  * @param ip Tracker plane (0-5)
@@ -625,6 +793,32 @@
     return -1;
 };
 
+/**
+ * \brief Method to include a x-cluster to the track.
+ * @param ip Tracker plane (0-5)
+ * @param clid Cluster ID (0,1,...)
+ * @param is Sensor (0-1, increasing y) 
+ * @see Fit(double pfixed, int& fail, int iprint, int froml1)
+ */
+void TrkTrack::SetXGood(int ip, int clid, int is){
+    int il=0;       //ladder (temporary)
+    bool bad=false; //ladder (temporary)
+    xgood[ip]=il*100000000+is*10000000+clid;
+    if(bad)xgood[ip]=-xgood[ip];
+};
+/**
+ * \brief Method to include a y-cluster to the track.
+ * @param ip Tracker plane (0-5)
+ * @param clid Cluster ID (0,1,...)
+ * @param is Sensor (0-1)
+ * @see Fit(double pfixed, int& fail, int iprint, int froml1)
+ */
+void TrkTrack::SetYGood(int ip, int clid, int is){
+    int il=0;       //ladder (temporary)
+    bool bad=false; //ladder (temporary)
+    ygood[ip]=il*100000000+is*10000000+clid;
+    if(bad)ygood[ip]=-ygood[ip];
+};
 
 //--------------------------------------
 //
@@ -1245,38 +1439,42 @@
 //     path_.error   = 0;
 //     readb_();
 
+    TrkParams::SetTrackingMode();
+    TrkParams::SetPrecisionFactor();
+    TrkParams::SetStepMin();
+
     TrkParams::Set(path,1);
     TrkParams::Load(1);
 
 //
 };
-/**
- * Get BY (kGauss)
- * @param v (x,y,z) coordinates in cm
- */
-float TrkLevel2::GetBX(float* v){
-    float b[3];
-    gufld_(v,b);
-    return b[0]/10.;
-}
-/**
- * Get BY (kGauss)
- * @param v (x,y,z) coordinates in cm
- */
-float TrkLevel2::GetBY(float* v){
-    float b[3];
-    gufld_(v,b);
-    return b[1]/10.;
-}
-/**
- * Get BY (kGauss)
- * @param v (x,y,z) coordinates in cm
- */
-float TrkLevel2::GetBZ(float* v){
-    float b[3];
-    gufld_(v,b);
-    return b[2]/10.;
-}
+// /**
+//  * Get BY (kGauss)
+//  * @param v (x,y,z) coordinates in cm
+//  */
+// float TrkLevel2::GetBX(float* v){
+//     float b[3];
+//     gufld_(v,b);
+//     return b[0]/10.;
+// }
+// /**
+//  * Get BY (kGauss)
+//  * @param v (x,y,z) coordinates in cm
+//  */
+// float TrkLevel2::GetBY(float* v){
+//     float b[3];
+//     gufld_(v,b);
+//     return b[1]/10.;
+// }
+// /**
+//  * Get BY (kGauss)
+//  * @param v (x,y,z) coordinates in cm
+//  */
+// float TrkLevel2::GetBZ(float* v){
+//     float b[3];
+//     gufld_(v,b);
+//     return b[2]/10.;
+// }
 //--------------------------------------
 //
 //