1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
18 ////////////////////////////////////////////////////////////////////////////
20 // The TRD track seed //
23 // Alex Bercuci <A.Bercuci@gsi.de> //
24 // Markus Fasel <M.Fasel@gsi.de> //
26 ////////////////////////////////////////////////////////////////////////////
29 #include "TLinearFitter.h"
32 #include "AliMathBase.h"
34 #include "AliTRDseedV1.h"
35 #include "AliTRDcluster.h"
36 #include "AliTRDtrack.h"
37 #include "AliTRDcalibDB.h"
38 #include "AliTRDstackLayer.h"
39 #include "AliTRDrecoParam.h"
43 ClassImp(AliTRDseedV1)
45 //____________________________________________________________________
46 AliTRDseedV1::AliTRDseedV1(Int_t layer, AliTRDrecoParam *p)
57 //____________________________________________________________________
58 AliTRDseedV1::AliTRDseedV1(const AliTRDseedV1 &ref)
59 :AliTRDseed((AliTRDseed&)ref)
62 ,fRecoParam(ref.fRecoParam)
65 // Copy Constructor performing a deep copy
69 if(ref.fOwner) SetOwner();
73 //____________________________________________________________________
74 AliTRDseedV1& AliTRDseedV1::operator=(const AliTRDseedV1 &ref)
77 // Assignment Operator using the copy function
88 //____________________________________________________________________
89 AliTRDseedV1::~AliTRDseedV1()
92 // Destructor. The RecoParam object belongs to the underlying tracker.
95 //AliInfo(Form("fOwner[%s]", fOwner?"YES":"NO"));
97 if(fOwner) delete [] fClusters;
100 //____________________________________________________________________
101 void AliTRDseedV1::Copy(TObject &ref) const
108 AliTRDseedV1 &target = (AliTRDseedV1 &)ref;
110 target.fPlane = fPlane;
111 target.fRecoParam = fRecoParam;
112 AliTRDseed::Copy(target);
116 //____________________________________________________________
117 void AliTRDseedV1::Init(AliTRDtrack *track)
119 // Initialize this tracklet using the track information
122 // track - the TRD track used to initialize the tracklet
124 // Detailed description
125 // The function sets the starting point and direction of the
126 // tracklet according to the information from the TRD track.
129 // The TRD track has to be propagated to the beginning of the
130 // chamber where the tracklet will be constructed
134 track->GetProlongation(fX0, y, z);
136 fYref[1] = track->GetSnp() < 0. ? track->GetTgl() : -track->GetTgl();
139 // tilting pad correction !!
140 fZref[1] = 0.; // TMath::Tan(track->Theta());
142 //printf("Tracklet ref x[%7.3f] y[%7.3f] z[%7.3f], snp[%f] tgl[%f]\n", fX0, fYref[0], fZref[0], track->GetSnp(), track->GetTgl());
145 //____________________________________________________________________
146 Float_t AliTRDseedV1::GetQuality(Bool_t kZcorr) const
149 // Returns a quality measurement of the current seed
152 Float_t zcorr = kZcorr ? fTilt * (fZProb - fZref[0]) : 0.;
153 return .5 * (18.0 - fN2)
154 + 10.* TMath::Abs(fYfit[1] - fYref[1])
155 + 5.* TMath::Abs(fYfit[0] - fYref[0] + zcorr)
156 + 2. * TMath::Abs(fMeanz - fZref[0]) / fPadLength;
159 //____________________________________________________________________
160 void AliTRDseedV1::GetCovAt(Double_t /*x*/, Double_t *cov) const
162 // Computes covariance in the y-z plane at radial point x
164 const Float_t k0= .2; // to be checked in FindClusters
165 Double_t sy20 = k0*TMath::Tan(fYfit[1]); sy20 *= sy20;
167 Double_t sy2 = fSigmaY2*fSigmaY2 + sy20;
168 Double_t sz2 = fPadLength/12.;
170 //printf("Yfit[1] %f sy20 %f SigmaY2 %f\n", fYfit[1], sy20, fSigmaY2);
173 cov[1] = fTilt*(sy2-sz2);
177 //____________________________________________________________________
178 void AliTRDseedV1::SetOwner(Bool_t own)
181 // Handles the ownership of the clusters
184 for(int ic=0; ic<fgTimeBins; ic++){
185 if(!fClusters[ic]) continue;
186 fClusters[ic] = new AliTRDcluster(*fClusters[ic]);
191 for(int ic=0; ic<fgTimeBins; ic++){
192 if(!fClusters[ic]) continue;
193 delete fClusters[ic];
200 //____________________________________________________________________
201 Bool_t AliTRDseedV1::AttachClustersIter(AliTRDstackLayer *layer
207 // Iterative process to register clusters to the seed.
208 // In iteration 0 we try only one pad-row and if quality not
209 // sufficient we try 2 pad-rows (about 5% of tracks cross 2 pad-rows)
213 AliError("Seed can not be used without a valid RecoParam.");
217 //AliInfo(Form("TimeBins = %d TimeBinsRange = %d", fgTimeBins, fTimeBinsRange));
220 Double_t kroady = fRecoParam->GetRoad1y();
221 Double_t kroadz = fPadLength * .5 + 1.;
223 // initialize configuration parameters
224 Float_t zcorr = kZcorr ? fTilt * (fZProb - fZref[0]) : 0.;
225 Int_t niter = kZcorr ? 1 : 2;
230 for (Int_t iter = 0; iter < niter; iter++) {
231 //AliInfo(Form("iter = %i", iter));
233 for (Int_t iTime = 0; iTime < fgTimeBins; iTime++) {
234 // define searching configuration
235 Double_t dxlayer = layer[iTime].GetX() - fX0;
238 //Try 2 pad-rows in second iteration
240 zexp = fZref[0] + fZref[1] * dxlayer - zcorr;
241 if (zexp > c->GetZ()) zexp = c->GetZ() + fPadLength*0.5;
242 if (zexp < c->GetZ()) zexp = c->GetZ() - fPadLength*0.5;
244 } else zexp = fZref[0];
245 yexp = fYref[0] + fYref[1] * dxlayer - zcorr;
247 // printf("xexp = %3.3f ,yexp = %3.3f, zexp = %3.3f\n",layer[iTime].GetX(),yexp,zexp);
248 // printf("layer[%i].GetNClusters() = %i\n", iTime, layer[iTime].GetNClusters());
249 Int_t index = layer[iTime].SearchNearestCluster(yexp, zexp, kroady, kroadz);
251 // printf("%d[%d] x[%7.3f | %7.3f] y[%7.3f] z[%7.3f]\n", iTime, layer[iTime].GetNClusters(), dxlayer, layer[iTime].GetX(), yexp, zexp);
252 // for(Int_t iclk = 0; iclk < layer[iTime].GetNClusters(); iclk++){
253 // AliTRDcluster *testcl = layer[iTime].GetCluster(iclk);
254 // printf("Cluster %i: %d x = %7.3f, y = %7.3f, z = %7.3f\n", iclk, testcl->GetLocalTimeBin(), testcl->GetX(), testcl->GetY(), testcl->GetZ());
256 // printf("Index = %i\n",index);
258 if (index < 0) continue;
261 AliTRDcluster *cl = (AliTRDcluster*) layer[iTime].GetCluster(index);
263 //printf("Cluster %i(0x%x): x = %3.3f, y = %3.3f, z = %3.3f\n", index, cl, cl->GetX(), cl->GetY(), cl->GetZ());
265 Int_t globalIndex = layer[iTime].GetGlobalIndex(index);
266 fIndexes[iTime] = globalIndex;
267 fClusters[iTime] = cl;
269 fY[iTime] = cl->GetY();
270 fZ[iTime] = cl->GetZ();
277 // Int_t nclusters = 0;
278 // Float_t fD[iter] = 0.;
279 // for(int ic=0; ic<fgTimeBins+1; ic++){
280 // AliTRDcluster *ci = fClusters[ic];
282 // for(int jc=ic+1; jc<fgTimeBins+1; jc++){
283 // AliTRDcluster *cj = fClusters[jc];
285 // fD[iter] += TMath::Sqrt((ci->GetY()-cj->GetY())*(ci->GetY()-cj->GetY())+
286 // (ci->GetZ()-cj->GetZ())*(ci->GetZ()-cj->GetZ()));
290 // if(nclusters) fD[iter] /= float(nclusters);
293 AliTRDseed::Update();
296 tquality = GetQuality(kZcorr);
297 if(tquality < quality) break;
298 else quality = tquality;
302 if (!IsOK()) return kFALSE;
309 //____________________________________________________________________
310 Bool_t AliTRDseedV1::AttachClusters(AliTRDstackLayer *layer
314 // Projective algorithm to attach clusters to seeding tracklets
320 // Detailed description
321 // 1. Collapse x coordinate for the full detector plane
322 // 2. truncated mean on y (r-phi) direction
324 // 4. truncated mean on z direction
330 AliError("Seed can not be used without a valid RecoParam.");
334 const Int_t kClusterCandidates = 2 * knTimebins;
337 Double_t kroady = fRecoParam->GetRoad1y();
338 Double_t kroadz = fPadLength * 1.5 + 1.;
339 // correction to y for the tilting angle
340 Float_t zcorr = kZcorr ? fTilt * (fZProb - fZref[0]) : 0.;
343 AliTRDcluster *clusters[kClusterCandidates];
344 Double_t cond[4], yexp[knTimebins], zexp[knTimebins],
345 yres[kClusterCandidates], zres[kClusterCandidates];
346 Int_t ncl, *index = 0x0, tboundary[knTimebins];
348 // Do cluster projection
349 Int_t nYclusters = 0; Bool_t kEXIT = kFALSE;
350 for (Int_t iTime = 0; iTime < fgTimeBins; iTime++) {
351 fX[iTime] = layer[iTime].GetX() - fX0;
352 zexp[iTime] = fZref[0] + fZref[1] * fX[iTime];
353 yexp[iTime] = fYref[0] + fYref[1] * fX[iTime] - zcorr;
355 // build condition and process clusters
356 cond[0] = yexp[iTime] - kroady; cond[1] = yexp[iTime] + kroady;
357 cond[2] = zexp[iTime] - kroadz; cond[3] = zexp[iTime] + kroadz;
358 layer[iTime].GetClusters(cond, index, ncl);
359 for(Int_t ic = 0; ic<ncl; ic++){
360 AliTRDcluster *c = layer[iTime].GetCluster(index[ic]);
361 clusters[nYclusters] = c;
362 yres[nYclusters++] = c->GetY() - yexp[iTime];
363 if(nYclusters >= kClusterCandidates) {
364 AliWarning(Form("Cluster candidates reached limit %d. Some may be lost.", kClusterCandidates));
369 tboundary[iTime] = nYclusters;
373 // Evaluate truncated mean on the y direction
374 Double_t mean, sigma;
375 AliMathBase::EvaluateUni(nYclusters, yres, mean, sigma, Int_t(nYclusters*.8)-2);
376 //purge cluster candidates
377 Int_t nZclusters = 0;
378 for(Int_t ic = 0; ic<nYclusters; ic++){
379 if(yres[ic] - mean > 4. * sigma){
383 zres[nZclusters++] = clusters[ic]->GetZ() - zexp[clusters[ic]->GetLocalTimeBin()];
386 // Evaluate truncated mean on the z direction
387 AliMathBase::EvaluateUni(nZclusters, zres, mean, sigma, Int_t(nZclusters*.8)-2);
388 //purge cluster candidates
389 for(Int_t ic = 0; ic<nZclusters; ic++){
390 if(zres[ic] - mean > 4. * sigma){
397 // Select only one cluster/TimeBin
398 Int_t lastCluster = 0;
400 for (Int_t iTime = 0; iTime < fgTimeBins; iTime++) {
401 ncl = tboundary[iTime] - lastCluster;
403 AliTRDcluster *c = 0x0;
405 c = clusters[lastCluster];
407 Float_t dold = 9999.; Int_t iptr = lastCluster;
408 for(int ic=lastCluster; ic<tboundary[iTime]; ic++){
409 if(!clusters[ic]) continue;
410 Float_t y = yexp[iTime] - clusters[ic]->GetY();
411 Float_t z = zexp[iTime] - clusters[ic]->GetZ();
412 Float_t d = y * y + z * z;
413 if(d > dold) continue;
419 //Int_t GlobalIndex = layer[iTime].GetGlobalIndex(index);
420 //fIndexes[iTime] = GlobalIndex;
421 fClusters[iTime] = c;
422 fY[iTime] = c->GetY();
423 fZ[iTime] = c->GetZ();
424 lastCluster = tboundary[iTime];
428 // number of minimum numbers of clusters expected for the tracklet
429 Int_t kClmin = Int_t(fRecoParam->GetFindableClusters()*fgTimeBins);
431 AliWarning(Form("Not enough clusters to fit the tracklet %d [%d].", fN2, kClmin));
436 // update used clusters
438 for (Int_t iTime = 0; iTime < fgTimeBins; iTime++) {
439 if(!fClusters[iTime]) continue;
440 if((fClusters[iTime]->IsUsed())) fNUsed++;
443 if (fN2-fNUsed < kClmin){
444 AliWarning(Form("Too many clusters already in use %d (from %d).", fNUsed, fN2));
452 //____________________________________________________________________
453 Bool_t AliTRDseedV1::Fit()
456 // Linear fit of the tracklet
461 // True if successful
463 // Detailed description
464 // 2. Check if tracklet crosses pad row boundary
465 // 1. Calculate residuals in the y (r-phi) direction
466 // 3. Do a Least Square Fit to the data
469 //Float_t sigmaexp = 0.05 + TMath::Abs(fYref[1] * 0.25); // Expected r.m.s in y direction
470 Float_t ycrosscor = fPadLength * fTilt * 0.5; // Y correction for crossing
471 Float_t anglecor = fTilt * fZref[1]; // Correction to the angle
473 // calculate residuals
474 Float_t yres[knTimebins]; // y (r-phi) residuals
475 Int_t zint[knTimebins], // Histograming of the z coordinate
476 zout[2*knTimebins];//
479 for (Int_t iTime = 0; iTime < fTimeBinsRange; iTime++) {
480 if (!fClusters[iTime]) continue;
481 yres[iTime] = fY[iTime] - fYref[0] - (fYref[1] + anglecor) * fX[iTime];
482 zint[fN] = Int_t(fZ[iTime]);
486 // calculate pad row boundary crosses
487 Int_t kClmin = Int_t(fRecoParam->GetFindableClusters()*fTimeBinsRange);
488 Int_t nz = AliMathBase::Freq(fN, zint, zout, kFALSE);
490 if(nz <= 1) zout[3] = 0;
491 if(zout[1] + zout[3] < kClmin) {
492 AliWarning(Form("Not enough clusters to fit the cross boundary tracklet %d [%d].", zout[1]+zout[3], kClmin));
495 // Z distance bigger than pad - length
496 if (TMath::Abs(zout[0]-zout[2]) > fPadLength) zout[3]=0;
509 // we will use only the clusters which are in the detector range
510 for(int iTime=0; iTime<fTimeBinsRange; iTime++){
511 fUsable[iTime] = kFALSE;
512 if (!fClusters[iTime]) continue;
513 npads = fClusters[iTime]->GetNPads();
515 fUsable[iTime] = kTRUE;
518 Float_t weight = 1.0;
519 if(npads > 5) weight = 0.2;
520 else if(npads > 4) weight = 0.5;
522 sumwx += fX[iTime] * weight;
523 sumwx2 += fX[iTime] * fX[iTime] * weight;
524 sumwy += weight * yres[iTime];
525 sumwxy += weight * yres[iTime] * fX[iTime];
526 sumwz += weight * fZ[iTime];
527 sumwxz += weight * fZ[iTime] * fX[iTime];
530 AliWarning(Form("Not enough clusters to fit the tracklet %d [%d].", fN2, kClmin));
534 fMeanz = sumwz / sumw;
537 // Tracklet on boundary
538 Float_t correction = 0;
540 if (fMeanz < fZProb) correction = ycrosscor;
541 if (fMeanz > fZProb) correction = -ycrosscor;
544 Double_t det = sumw * sumwx2 - sumwx * sumwx;
545 fYfitR[0] = (sumwx2 * sumwy - sumwx * sumwxy) / det;
546 fYfitR[1] = (sumw * sumwxy - sumwx * sumwy) / det;
549 for (Int_t i = 0; i < fTimeBinsRange+1; i++) {
550 if (!fUsable[i]) continue;
551 Float_t delta = yres[i] - fYfitR[0] - fYfitR[1] * fX[i];
552 fSigmaY2 += delta*delta;
554 fSigmaY2 = TMath::Sqrt(fSigmaY2 / Float_t(fN2-2));
556 fZfitR[0] = (sumwx2 * sumwz - sumwx * sumwxz) / det;
557 fZfitR[1] = (sumw * sumwxz - sumwx * sumwz) / det;
558 fZfit[0] = (sumwx2 * sumwz - sumwx * sumwxz) / det;
559 fZfit[1] = (sumw * sumwxz - sumwx * sumwz) / det;
560 fYfitR[0] += fYref[0] + correction;
561 fYfitR[1] += fYref[1];
562 fYfit[0] = fYfitR[0];
563 fYfit[1] = fYfitR[1];
568 //_____________________________________________________________________________
569 Float_t AliTRDseedV1::FitRiemanTilt(AliTRDseedV1 *cseed, Bool_t terror)
572 // Fit the Rieman tilt
575 // Fitting with tilting pads - kz not fixed
576 AliTRDcalibDB *cal = AliTRDcalibDB::Instance();
577 Int_t nTimeBins = cal->GetNumberOfTimeBins();
578 TLinearFitter fitterT2(4,"hyp4");
579 fitterT2.StoreData(kTRUE);
580 Float_t xref2 = (cseed[2].fX0 + cseed[3].fX0) * 0.5; // Reference x0 for z
583 fitterT2.ClearPoints();
585 for (Int_t iLayer = 0; iLayer < 6; iLayer++) {
586 // printf("\nLayer %d\n", iLayer);
587 // cseed[iLayer].Print();
588 if (!cseed[iLayer].IsOK()) continue;
589 Double_t tilt = cseed[iLayer].fTilt;
591 for (Int_t itime = 0; itime < nTimeBins+1; itime++) {
592 // printf("\ttime %d\n", itime);
593 if (!cseed[iLayer].fUsable[itime]) continue;
594 // x relative to the midle chamber
595 Double_t x = cseed[iLayer].fX[itime] + cseed[iLayer].fX0 - xref2;
596 Double_t y = cseed[iLayer].fY[itime];
597 Double_t z = cseed[iLayer].fZ[itime];
603 Double_t x2 = cseed[iLayer].fX[itime] + cseed[iLayer].fX0; // Global x
604 Double_t t = 1.0 / (x2*x2 + y*y);
606 uvt[0] = 2.0 * x2 * uvt[1];
607 uvt[2] = 2.0 * tilt * uvt[1];
608 uvt[3] = 2.0 * tilt *uvt[1] * x;
609 uvt[4] = 2.0 * (y + tilt * z) * uvt[1];
611 Double_t error = 2.0 * uvt[1];
613 error *= cseed[iLayer].fSigmaY;
616 error *= 0.2; //Default error
618 // printf("\tadd point :\n");
619 // for(int i=0; i<5; i++) printf("%f ", uvt[i]);
621 fitterT2.AddPoint(uvt,uvt[4],error);
628 Double_t rpolz0 = fitterT2.GetParameter(3);
629 Double_t rpolz1 = fitterT2.GetParameter(4);
632 // Linear fitter - not possible to make boundaries
633 // non accept non possible z and dzdx combination
635 Bool_t acceptablez = kTRUE;
636 for (Int_t iLayer = 0; iLayer < 6; iLayer++) {
637 if (cseed[iLayer].IsOK()) {
638 Double_t zT2 = rpolz0 + rpolz1 * (cseed[iLayer].fX0 - xref2);
639 if (TMath::Abs(cseed[iLayer].fZProb - zT2) > cseed[iLayer].fPadLength * 0.5 + 1.0) {
640 acceptablez = kFALSE;
645 Double_t zmf = cseed[2].fZref[0] + cseed[2].fZref[1] * (xref2 - cseed[2].fX0);
646 Double_t dzmf = (cseed[2].fZref[1] + cseed[3].fZref[1]) * 0.5;
647 fitterT2.FixParameter(3,zmf);
648 fitterT2.FixParameter(4,dzmf);
650 fitterT2.ReleaseParameter(3);
651 fitterT2.ReleaseParameter(4);
652 rpolz0 = fitterT2.GetParameter(3);
653 rpolz1 = fitterT2.GetParameter(4);
656 Double_t chi2TR = fitterT2.GetChisquare() / Float_t(npointsT);
658 params[0] = fitterT2.GetParameter(0);
659 params[1] = fitterT2.GetParameter(1);
660 params[2] = fitterT2.GetParameter(2);
661 Double_t curvature = 1.0 + params[1] * params[1] - params[2] * params[0];
663 for (Int_t iLayer = 0; iLayer < 6; iLayer++) {
665 Double_t x = cseed[iLayer].fX0;
672 Double_t res2 = (x * params[0] + params[1]);
674 res2 = 1.0 - params[2]*params[0] + params[1]*params[1] - res2;
676 res2 = TMath::Sqrt(res2);
677 y = (1.0 - res2) / params[0];
681 Double_t x0 = -params[1] / params[0];
682 if (-params[2]*params[0] + params[1]*params[1] + 1 > 0) {
683 Double_t rm1 = params[0] / TMath::Sqrt(-params[2]*params[0] + params[1]*params[1] + 1);
684 if (1.0/(rm1*rm1) - (x-x0) * (x-x0) > 0.0) {
685 Double_t res = (x - x0) / TMath::Sqrt(1.0 / (rm1*rm1) - (x-x0)*(x-x0));
686 if (params[0] < 0) res *= -1.0;
690 z = rpolz0 + rpolz1 * (x - xref2);
692 cseed[iLayer].fYref[0] = y;
693 cseed[iLayer].fYref[1] = dy;
694 cseed[iLayer].fZref[0] = z;
695 cseed[iLayer].fZref[1] = dz;
696 cseed[iLayer].fC = curvature;
704 //___________________________________________________________________
705 void AliTRDseedV1::Print()
708 // Printing the seedstatus
711 AliTRDcalibDB *cal = AliTRDcalibDB::Instance();
712 Int_t nTimeBins = cal->GetNumberOfTimeBins();
714 printf("Seed status :\n");
715 printf(" fTilt = %f\n", fTilt);
716 printf(" fPadLength = %f\n", fPadLength);
717 printf(" fX0 = %f\n", fX0);
718 for(int ic=0; ic<nTimeBins; ic++) {
719 const Char_t *isUsable = fUsable[ic]?"Yes":"No";
720 printf(" %d X[%f] Y[%f] Z[%f] Indexes[%d] clusters[%p] usable[%s]\n"
726 , ((void*) fClusters[ic])
730 printf(" fYref[0] =%f fYref[1] =%f\n", fYref[0], fYref[1]);
731 printf(" fZref[0] =%f fZref[1] =%f\n", fZref[0], fZref[1]);
732 printf(" fYfit[0] =%f fYfit[1] =%f\n", fYfit[0], fYfit[1]);
733 printf(" fYfitR[0]=%f fYfitR[1]=%f\n", fYfitR[0], fYfitR[1]);
734 printf(" fZfit[0] =%f fZfit[1] =%f\n", fZfit[0], fZfit[1]);
735 printf(" fZfitR[0]=%f fZfitR[1]=%f\n", fZfitR[0], fZfitR[1]);
736 printf(" fSigmaY =%f\n", fSigmaY);
737 printf(" fSigmaY2=%f\n", fSigmaY2);
738 printf(" fMeanz =%f\n", fMeanz);
739 printf(" fZProb =%f\n", fZProb);
740 printf(" fLabels[0]=%d fLabels[1]=%d\n", fLabels[0], fLabels[1]);
741 printf(" fN =%d\n", fN);
742 printf(" fN2 =%d (>8 isOK)\n",fN2);
743 printf(" fNUsed =%d\n", fNUsed);
744 printf(" fFreq =%d\n", fFreq);
745 printf(" fNChange=%d\n", fNChange);
746 printf(" fMPads =%f\n", fMPads);
748 printf(" fC =%f\n", fC);
749 printf(" fCC =%f\n",fCC);
750 printf(" fChi2 =%f\n", fChi2);
751 printf(" fChi2Z =%f\n", fChi2Z);