]> git.uio.no Git - u/mrichter/AliRoot.git/blame - MUON/AliMUONTrackK.cxx
Stand-alone library for ESD. Possibility to use only root and lidESD.so for analysis...
[u/mrichter/AliRoot.git] / MUON / AliMUONTrackK.cxx
CommitLineData
83dbc640 1/**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3 * *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
6 * *
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 **************************************************************************/
15
30178c30 16#include <stdlib.h> // for exit()
83dbc640 17
18#include <Riostream.h>
19#include <TClonesArray.h>
83dbc640 20#include <TMatrixD.h>
83dbc640 21
30178c30 22#include "AliMUONTrackK.h"
83dbc640 23#include "AliCallf77.h"
24#include "AliMUON.h"
25#include "AliMUONChamber.h"
26#include "AliMUONEventReconstructor.h"
27#include "AliMUONSegment.h"
28#include "AliMUONHitForRec.h"
29#include "AliMUONRawCluster.h"
30#include "AliMUONTrackParam.h"
31#include "AliRun.h"
30178c30 32//#include "AliMagF.h"
83dbc640 33
343146bf 34const Int_t AliMUONTrackK::fgkSize = 5;
35const Int_t AliMUONTrackK::fgkNSigma = 4;
36const Int_t AliMUONTrackK::fgkTriesMax = 10000;
37const Double_t AliMUONTrackK::fgkEpsilon = 0.002;
38
83dbc640 39void mnvertLocalK(Double_t* a, Int_t l, Int_t m, Int_t n, Int_t& ifail);
40
41ClassImp(AliMUONTrackK) // Class implementation in ROOT context
42
43 // A few calls in Fortran or from Fortran (extrap.F).
44#ifndef WIN32
45# define extrap_onestep_helix extrap_onestep_helix_
46# define extrap_onestep_helix3 extrap_onestep_helix3_
47# define extrap_onestep_rungekutta extrap_onestep_rungekutta_
48# define gufld_double gufld_double_
49#else
50# define extrap_onestep_helix EXTRAP_ONESTEP_HELIX
51# define extrap_onestep_helix3 EXTRAP_ONESTEP_HELIX3
52# define extrap_onestep_rungekutta EXTRAP_ONESTEP_RUNGEKUTTA
53# define gufld_double GUFLD_DOUBLE
54#endif
55
56extern "C" {
57 void type_of_call extrap_onestep_helix
58 (Double_t &Charge, Double_t &StepLength, Double_t *VGeant3, Double_t *VGeant3New);
59
60 void type_of_call extrap_onestep_helix3
61 (Double_t &Field, Double_t &StepLength, Double_t *VGeant3, Double_t *VGeant3New);
62
63 void type_of_call extrap_onestep_rungekutta
64 (Double_t &Charge, Double_t &StepLength, Double_t *VGeant3, Double_t *VGeant3New);
65
66 void type_of_call gufld_double(Double_t *Position, Double_t *Field);
67 /* void type_of_call gufld_double(Double_t *Position, Double_t *Field) {
68 // interface to "gAlice->Field()->Field" for arguments in double precision
69 Float_t x[3], b[3];
70 x[0] = Position[0]; x[1] = Position[1]; x[2] = Position[2];
71 gAlice->Field()->Field(x, b);
72 Field[0] = b[0]; Field[1] = b[1]; Field[2] = b[2];
73 }
74 */
75}
76
77Int_t AliMUONTrackK::fgNOfPoints = 0;
78AliMUON* AliMUONTrackK::fgMUON = NULL;
79AliMUONEventReconstructor* AliMUONTrackK::fgEventReconstructor = NULL;
80TClonesArray* AliMUONTrackK::fgHitForRec = NULL;
81
82 //__________________________________________________________________________
83AliMUONTrackK::AliMUONTrackK()
30178c30 84 : TObject()
83dbc640 85{
86 // Default constructor
87
88 fgEventReconstructor = NULL; // pointer to event reconstructor
89 fgMUON = NULL; // pointer to Muon module
90 fgHitForRec = NULL; // pointer to points
91 fgNOfPoints = 0; // number of points
92
93 fStartSegment = NULL;
94 fTrackHitsPtr = NULL;
95 fNTrackHits = 0;
96 fTrackPar = NULL;
97 fTrackParNew = NULL;
98 fCovariance = NULL;
99 fWeight = NULL;
100 fSkipHit = NULL;
101
102 return;
103}
104
105 //__________________________________________________________________________
106AliMUONTrackK::AliMUONTrackK(AliMUONEventReconstructor *EventReconstructor, TClonesArray *hitForRec)
30178c30 107 : TObject()
83dbc640 108{
109 // Constructor
110
111 fgEventReconstructor = EventReconstructor; // pointer to event reconstructor
112 fgMUON = (AliMUON*) gAlice->GetModule("MUON"); // pointer to Muon module
113 fgHitForRec = hitForRec; // pointer to points
114 fgNOfPoints = fgHitForRec->GetEntriesFast(); // number of points
115
116 fStartSegment = NULL;
117 fTrackHitsPtr = NULL;
118 fNTrackHits = 0;
119 fChi2 = 0;
120 fTrackPar = NULL;
121 fTrackParNew = NULL;
122 fCovariance = NULL;
123 fWeight = NULL;
124 fSkipHit = NULL;
125
126 return;
127}
128
129 //__________________________________________________________________________
130AliMUONTrackK::AliMUONTrackK(AliMUONSegment *segment)
30178c30 131 : TObject()
83dbc640 132{
133 // Constructor from a segment
134 Double_t dX, dY, dZ;
135 AliMUONHitForRec *hit1, *hit2;
136 AliMUONRawCluster *clus;
137 TClonesArray *rawclusters;
138
139 fStartSegment = segment;
140 fRecover = 0;
141 // Pointers to hits from the segment
142 hit1 = segment->GetHitForRec1();
143 hit2 = segment->GetHitForRec2();
144 hit1->SetNTrackHits(hit1->GetNTrackHits()+1); // mark hit as being on track
145 hit2->SetNTrackHits(hit2->GetNTrackHits()+1); // mark hit as being on track
146 // check sorting in Z
147 if (hit1->GetZ() > hit2->GetZ()) {
148 hit1 = hit2;
149 hit2 = segment->GetHitForRec1();
150 }
151 // memory allocation for the TObjArray of pointers to reconstructed TrackHit's
152 fTrackHitsPtr = new TObjArray(10);
153 fNTrackHits = 2;
154 fChi2 = 0;
155 fBPFlag = kFALSE;
343146bf 156 fTrackPar = new TMatrixD(fgkSize,1); // track parameters
157 fTrackParNew = new TMatrixD(fgkSize,1); // track parameters
158 fCovariance = new TMatrixD(fgkSize,fgkSize); // covariance matrix
159 fWeight = new TMatrixD(fgkSize,fgkSize); // weight matrix (inverse of covariance)
83dbc640 160
161 // Fill array of track parameters
162 if (hit1->GetChamberNumber() > 7) {
163 // last tracking station
164 (*fTrackPar)(0,0) = hit1->GetBendingCoor(); // y
165 (*fTrackPar)(1,0) = hit1->GetNonBendingCoor(); // x
166 fPosition = hit1->GetZ(); // z
167 fTrackHitsPtr->Add((TObjArray*)hit2); // add hit 2
168 fTrackHitsPtr->Add((TObjArray*)hit1); // add hit 1
169 fTrackDir = -1;
170 } else {
171 // last but one tracking station
172 (*fTrackPar)(0,0) = hit2->GetBendingCoor(); // y
173 (*fTrackPar)(1,0) = hit2->GetNonBendingCoor(); // x
174 fPosition = hit2->GetZ(); // z
175 fTrackHitsPtr->Add((TObjArray*)hit1); // add hit 1
176 fTrackHitsPtr->Add((TObjArray*)hit2); // add hit 2
177 fTrackDir = 1;
178 }
179 dZ = hit2->GetZ() - hit1->GetZ();
180 dY = hit2->GetBendingCoor() - hit1->GetBendingCoor();
181 dX = hit2->GetNonBendingCoor() - hit1->GetNonBendingCoor();
182 (*fTrackPar)(2,0) = TMath::ATan2(dY,dZ); // alpha
183 (*fTrackPar)(3,0) = TMath::ATan2(dX,dZ/TMath::Cos((*fTrackPar)(2,0))); // beta
184 (*fTrackPar)(4,0) = 1/fgEventReconstructor->GetBendingMomentumFromImpactParam(segment->GetBendingImpact()); // 1/Pt
185 (*fTrackPar)(4,0) *= TMath::Cos((*fTrackPar)(3,0)); // 1/p
186 cout << fgEventReconstructor->GetBendingMomentumFromImpactParam(segment->GetBendingImpact()) << " " << 1/(*fTrackPar)(4,0) << " ";
187 if (fgEventReconstructor->GetRecGeantHits()) {
188 // from GEANT hits
189 cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[0]))->GetTHTrack() << "<-->" << ((AliMUONHitForRec*)((*fTrackHitsPtr)[1]))->GetTHTrack() << endl;
190 } else {
191 // from raw clusters
192 for (Int_t i=0; i<2; i++) {
193 hit1 = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i]);
ce3f5e87 194 rawclusters = fgMUON->GetMUONData()->RawClusters(hit1->GetChamberNumber());
83dbc640 195 clus = (AliMUONRawCluster*) rawclusters->UncheckedAt(hit1->GetHitNumber());
9e993f2a 196 cout << clus->GetTrack(1)-1;
197 if (clus->GetTrack(2) != 0) cout << " " << clus->GetTrack(2)-1;
83dbc640 198 if (i == 0) cout << " <--> ";
199 }
200 cout << endl;
201 }
202 // Evaluate covariance (and weight) matrix
203 EvalCovariance(dZ);
204
205 return;
206}
207
208 //__________________________________________________________________________
209AliMUONTrackK::~AliMUONTrackK()
210{
211 // Destructor
212
213 if (fTrackHitsPtr) {
214 delete fTrackHitsPtr; // delete the TObjArray of pointers to TrackHit's
215 fTrackHitsPtr = NULL;
216 }
217 delete fTrackPar; delete fTrackParNew; delete fCovariance;
218 delete fWeight;
219}
220
221 //__________________________________________________________________________
30178c30 222AliMUONTrackK::AliMUONTrackK (const AliMUONTrackK& source)
223 : TObject(source)
83dbc640 224{
30178c30 225// Protected copy constructor
226
227 Fatal("AliMUONTrackK", "Not implemented.");
83dbc640 228}
229
230 //__________________________________________________________________________
231AliMUONTrackK & AliMUONTrackK::operator=(const AliMUONTrackK& source)
232{
233 // Assignment operator
234 // Members
235 if(&source == this) return *this;
30178c30 236
237 // base class assignement
238 TObject::operator=(source);
239
83dbc640 240 fStartSegment = source.fStartSegment;
241 fNTrackHits = source.fNTrackHits;
242 fChi2 = source.fChi2;
243 fPosition = source.fPosition;
244 fPositionNew = source.fPositionNew;
245 fTrackDir = source.fTrackDir;
246 fBPFlag = source.fBPFlag;
247 fRecover = source.fRecover;
248 fSkipHit = source.fSkipHit;
249
250 // Pointers
251 fTrackHitsPtr = new TObjArray(*source.fTrackHitsPtr);
252 //source.fTrackHitsPtr->Dump();
253 //fTrackHitsPtr->Dump();
254
255 fTrackPar = new TMatrixD(*source.fTrackPar); // track parameters
256 fTrackParNew = new TMatrixD(*source.fTrackParNew); // track parameters
257 fCovariance = new TMatrixD(*source.fCovariance); // covariance matrix
258 fWeight = new TMatrixD(*source.fWeight); // weight matrix (inverse of covariance)
259
260 return *this;
261}
262
263 //__________________________________________________________________________
264void AliMUONTrackK::EvalCovariance(Double_t dZ)
265{
266 // Evaluate covariance (and weight) matrix for track candidate
267 Double_t sigmaB, sigmaNonB, tanA, tanB, dAdY, rad, dBdX, dBdY;
268
269 sigmaB = fgEventReconstructor->GetBendingResolution(); // bending resolution
270 sigmaNonB = fgEventReconstructor->GetNonBendingResolution(); // non-bending resolution
271
272 (*fWeight)(0,0) = sigmaB*sigmaB; // <yy>
273
274 (*fWeight)(1,1) = sigmaNonB*sigmaNonB; // <xx>
275
276 tanA = TMath::Tan((*fTrackPar)(2,0));
277 dAdY = 1/(1+tanA*tanA)/dZ;
278 (*fWeight)(2,2) = dAdY*dAdY*(*fWeight)(0,0)*2; // <aa>
279 (*fWeight)(0,2) = dAdY*(*fWeight)(0,0); // <ya>
280 (*fWeight)(2,0) = (*fWeight)(0,2);
281
282 rad = dZ/TMath::Cos((*fTrackPar)(2,0));
283 tanB = TMath::Tan((*fTrackPar)(3,0));
284 dBdX = 1/(1+tanB*tanB)/rad;
285 dBdY = 0; // neglect
286 (*fWeight)(3,3) = dBdX*dBdX*(*fWeight)(1,1)*2; // <bb>
287 (*fWeight)(1,3) = dBdX*(*fWeight)(1,1); // <xb>
288 (*fWeight)(3,1) = (*fWeight)(1,3);
289
290 //(*fWeight)(4,4) = ((*fTrackPar)(4,0)*0.2)*((*fTrackPar)(4,0)*0.2); // error 20%
291 (*fWeight)(4,4) = ((*fTrackPar)(4,0)*0.5)*((*fTrackPar)(4,0)*0.5); // error 50%
292
293 // check whether the Invert method returns flag if matrix cannot be inverted,
294 // and do not calculate the Determinant in that case !!!!
295 if (fWeight->Determinant() != 0) {
296
297 // fWeight->Invert();
298
299 Int_t ifailWeight;
343146bf 300 mnvertLocalK(&((*fWeight)(0,0)), fgkSize,fgkSize,fgkSize,ifailWeight);
83dbc640 301 } else {
302 cout << " ***** Warning in EvalCovariance: Determinant fWeight=0:" << endl;
303 }
304 return;
305}
306
307 //__________________________________________________________________________
308Bool_t AliMUONTrackK::KalmanFilter(Int_t ichamBeg, Int_t ichamEnd, Bool_t Back, Double_t zDipole1, Double_t zDipole2)
309{
310 // Follows track through detector stations
311 Bool_t miss, success;
312 Int_t ichamb, iFB, iMin, iMax, dChamb, ichambOK, i;
313 Int_t ihit, firstIndx, lastIndx, currIndx, dChambMiss, iDindx=0;
314 Double_t zEnd, dChi2;
315 AliMUONHitForRec *hitAdd, *firstHit, *lastHit, *hit;
316 AliMUONRawCluster *clus;
317 TClonesArray *rawclusters;
318 hit = 0; clus = 0; rawclusters = 0;
319
320 miss = kTRUE;
321 success = kTRUE;
322 Int_t endOfProp = 0;
323 iFB = TMath::Sign(1,ichamEnd-ichamBeg);
324 iMin = TMath::Min(ichamEnd,ichamBeg);
325 iMax = TMath::Max(ichamEnd,ichamBeg);
326 ichamb = ichamBeg;
327 ichambOK = ichamb;
328
329 // Get indices of the 1'st and last hits on the track candidate
330 firstHit = (AliMUONHitForRec*) fTrackHitsPtr->First();
331 lastHit = (AliMUONHitForRec*) fTrackHitsPtr->Last();
332 firstIndx = fgHitForRec->IndexOf(firstHit);
333 lastIndx = fgHitForRec->IndexOf(lastHit);
334 currIndx = TMath::Abs (TMath::Max(firstIndx*iFB,lastIndx*iFB));
335 if (Back) {
336 // backpropagation
337 currIndx = 2;
338 iDindx = 1;
339 if (fRecover != 0) {
340 // find hit with the highest Z
341 Double_t zbeg = 0;
342 for (i=0; i<fNTrackHits; i++) {
343 hitAdd = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i]);
344 zEnd = hitAdd->GetZ();
345 if (zEnd > zbeg) zbeg = zEnd;
346 else {
347 currIndx = fNTrackHits - i + 2; //???
348 break;
349 }
350 } //for (Int_t i=0;
351 }
352 } else if (fRecover != 0) {
353 Back = kTRUE; // dirty trick
354 iDindx = -1;
355 if (ichamBeg == 7 || ichamBeg == 8) currIndx = fNTrackHits - 2;
356 else {
357 Double_t zbeg = ((AliMUONHitForRec*)((*fTrackHitsPtr)[0]))->GetZ();
358 for (i=1; i<fNTrackHits; i++) {
359 hitAdd = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i]);
360 zEnd = hitAdd->GetZ();
361 if (zEnd < zbeg) break;
362 } //for (Int_t i=1;
363 currIndx = fNTrackHits - i; //???
364 }
365 }
366
367 while (ichamb>=iMin && ichamb<=iMax) {
368 // Find the closest hit in Z, not belonging to the current plane
369 if (Back) {
370 // backpropagation
371 hitAdd = (AliMUONHitForRec*) ((*fTrackHitsPtr)[fNTrackHits-currIndx]);
372 zEnd = hitAdd->GetZ();
373 } else {
374 zEnd = -9999;
375 for (ihit=currIndx+iFB; ihit>=0 && ihit<fgNOfPoints; ihit+=iFB) {
376 hitAdd = (AliMUONHitForRec*) ((*fgHitForRec)[ihit]);
377 //if (TMath::Abs(hitAdd->GetZ()-fPosition) > 0.1) {
378 if (TMath::Abs(hitAdd->GetZ()-fPosition) > 0.5) {
379 zEnd = hitAdd->GetZ();
380 currIndx = ihit;
381 break;
382 }
383 }
384 }
385 if (zEnd<-999 && ichamb==ichamEnd) endOfProp = 1; // end-of-propagation
386 else {
387 // Check if there is a missing chamber
388 if (zEnd<-999 || TMath::Abs(hitAdd->GetChamberNumber()-ichamb) > 1) {
389 if (!Back && zEnd>-999) currIndx -= iFB;
390 ichamb += iFB;
391 zEnd = (&(fgMUON->Chamber(ichamb)))->Z();
392 miss = kTRUE;
393 } else {
394 ichamb = hitAdd->GetChamberNumber();
395 miss = kFALSE;
396 }
397 }
398 if (ichamb<iMin || ichamb>iMax) break;
399 // Check for missing station
400 if (!Back) {
401 dChamb = TMath::Abs(ichamb-ichambOK);
402 if (dChamb > 1) {
403 dChambMiss = endOfProp;
404 //Check if (iFB > 0) dChambMiss++;
405 if (iFB > 0) {
406 if (TMath::Odd(ichambOK)) dChambMiss++;
407 else dChambMiss--;
408 }
409 //cout << dChamb << " " << ichambOK << " " << fgNOfPoints << endl;
410 if (TMath::Odd(ichambOK) && dChamb > 3-dChambMiss) {
411 // missing station - abandon track
412 //cout << dChamb << " " << ichambOK << " " << fgNOfPoints << " " << 1/(*fTrackPar)(4,0) << endl;
413 /*
414 for (Int_t i1=0; i1<fgNOfPoints; i1++) {
415 cout << " Hit #" << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetChamberNumber() << " ";
416 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetBendingCoor() << " ";
417 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetNonBendingCoor() << " ";
418 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetZ() << " " << " ";
419 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetTHTrack() << endl;
420 }
421 //cout << endl;
422 */
423 /*
424 cout << fNTrackHits << endl;
425 for (Int_t i1=0; i1<fNTrackHits; i1++) {
426 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
427 printf(" * %d %10.4f %10.4f %10.4f",
428 hit->GetChamberNumber(), hit->GetBendingCoor(),
429 hit->GetNonBendingCoor(), hit->GetZ());
430 if (fgEventReconstructor->GetRecGeantHits()) {
431 // from GEANT hits
432 printf(" %3d %3d \n", hit->GetGeantSignal(), hit->GetTHTrack());
433 } else {
434 // from raw clusters
435 rawclusters = fgMUON->RawClustAddress(hit->GetChamberNumber());
436 clus = (AliMUONRawCluster*) rawclusters->UncheckedAt(hit->GetHitNumber());
437 printf("%3d", clus->fTracks[1]-1);
438 if (clus->fTracks[2] != 0) printf("%3d \n", clus->fTracks[2]-1);
439 else printf("\n");
440 }
441 }
442 */
443 if (fNTrackHits>2 && fRecover==0 && !(ichambOK==((AliMUONHitForRec*)((*fTrackHitsPtr)[0]))->GetChamberNumber())) {
444 // try to recover track later
445 Recover();
446 }
447 return kFALSE;
448 }
449 //Check else if (TMath::Even(ichambOK) && dChamb > 2-endOfProp) {
450 else if (TMath::Even(ichambOK) && dChamb > 2-dChambMiss) {
451 // missing station - abandon track
452 //cout << dChamb << " " << ichambOK << " " << fgNOfPoints << " " << 1/(*fTrackPar)(4,0) << endl;
453 /*
454 for (Int_t i1=0; i1<fgNOfPoints; i1++) {
455 cout << " Hit #" << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetChamberNumber() << " ";
456 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetBendingCoor() << " ";
457 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetNonBendingCoor() << " ";
458 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetZ() << " " << " ";
459 cout << ((AliMUONHitForRec*)((*fgHitForRec)[i1]))->GetTHTrack() << endl;
460 }
461 //cout << endl;
462 */
463 /*
464 cout << fNTrackHits << endl;
465 for (Int_t i1=0; i1<fNTrackHits; i1++) {
466 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
467 printf(" * %d %10.4f %10.4f %10.4f",
468 hit->GetChamberNumber(), hit->GetBendingCoor(),
469 hit->GetNonBendingCoor(), hit->GetZ());
470 if (fgEventReconstructor->GetRecGeantHits()) {
471 // from GEANT hits
472 printf(" %3d %3d \n", hit->GetGeantSignal(), hit->GetTHTrack());
473 } else {
474 // from raw clusters
475 rawclusters = fgMUON->RawClustAddress(hit->GetChamberNumber());
476 clus = (AliMUONRawCluster*) rawclusters->UncheckedAt(hit->GetHitNumber());
477 printf("%3d", clus->fTracks[1]-1);
478 if (clus->fTracks[2] != 0) printf("%3d \n", clus->fTracks[2]-1);
479 else printf("\n");
480 }
481 }
482 */
483 if (fNTrackHits>2 && fRecover==0 && !(ichambOK==((AliMUONHitForRec*)((*fTrackHitsPtr)[0]))->GetChamberNumber())) {
484 // try to recover track later
485 Recover();
486 }
487 return kFALSE;
488 }
489 }
490 }
491 if (endOfProp != 0) break;
492
493 // propagate to the found Z
494
495 // Check if track steps into dipole
496 if (fPosition>zDipole2 && zEnd<zDipole2) {
497 //LinearPropagation(zDipole2-zBeg);
498 ParPropagation(zDipole2);
499 MSThin(1); // multiple scattering in the chamber
500 WeightPropagation(zDipole2); // propagate weight matrix
501 fPosition = fPositionNew;
502 *fTrackPar = *fTrackParNew;
503 //MagnetPropagation(zEnd);
504 ParPropagation(zEnd);
505 WeightPropagation(zEnd);
506 fPosition = fPositionNew;
507 }
508 // Check if track steps out of dipole
509 else if (fPosition>zDipole1 && zEnd<zDipole1) {
510 //MagnetPropagation(zDipole1-zBeg);
511 ParPropagation(zDipole1);
512 MSThin(1); // multiple scattering in the chamber
513 WeightPropagation(zDipole1);
514 fPosition = fPositionNew;
515 *fTrackPar = *fTrackParNew;
516 //LinearPropagation(zEnd-zDipole1);
517 ParPropagation(zEnd);
518 WeightPropagation(zEnd);
519 fPosition = fPositionNew;
520 } else {
521 ParPropagation(zEnd);
522 //MSThin(1); // multiple scattering in the chamber
523 if (TMath::Abs(zEnd-fPosition) > 5) MSThin(1); // multiple scattering in the chamber
524 WeightPropagation(zEnd);
525 fPosition = fPositionNew;
526 }
527
528 // Add measurement
529 if (fRecover != 0 && hitAdd == fSkipHit && !miss) {
530 // recovered track - remove the hit
531 miss = kTRUE;
532 ichamb = hitAdd->GetChamberNumber();
533 if (fRecover == 1) {
534 // remove the last hit
535 fTrackHitsPtr->Remove((TObjArray*)hitAdd); // remove hit
536 fNTrackHits --;
537 hitAdd->SetNTrackHits(hitAdd->GetNTrackHits()-1); // unmark hit
538 } else {
539 // remove the hits
540 for (i=fNTrackHits-1; i>1; i--) {
541 hitAdd = (AliMUONHitForRec*)((*fTrackHitsPtr)[i]);
542 fTrackHitsPtr->Remove((TObjArray*)hitAdd); // remove hit
543 hitAdd->SetNTrackHits(hitAdd->GetNTrackHits()-1); // unmark hit
544 fNTrackHits --;
545 if (hitAdd == fSkipHit) break;
546 } // for (i=fNTrackHits-1;
547 }
548 Back = kFALSE;
549 fRecover =0; // ????????? Dec-17-2001
550 ichambOK = ((AliMUONHitForRec*)((*fTrackHitsPtr)[fNTrackHits-1]))->GetChamberNumber();
551 currIndx = fgHitForRec->IndexOf(fSkipHit);
552 }
553
554 if (Back && !miss) {
555 // backward propagator
343146bf 556 TMatrixD pointWeight(fgkSize,fgkSize);
557 TMatrixD point(fgkSize,1);
83dbc640 558 TMatrixD trackParTmp = point;
559 point(0,0) = hitAdd->GetBendingCoor();
560 point(1,0) = hitAdd->GetNonBendingCoor();
561 pointWeight(0,0) = 1/hitAdd->GetBendingReso2();
562 pointWeight(1,1) = 1/hitAdd->GetNonBendingReso2();
563 TryPoint(point,pointWeight,trackParTmp,dChi2);
564 *fTrackPar = trackParTmp;
565 *fWeight += pointWeight;
566 fChi2 += dChi2; // Chi2
567 if (ichamb==ichamEnd) break;
568 currIndx += iDindx;
569 } else {
570 // forward propagator
571 if (miss || !FindPoint(ichamb,zEnd,currIndx,iFB,hitAdd)) {
572 // missing point
573 *fTrackPar = *fTrackParNew;
574 } else {
575 //add point
576 fTrackHitsPtr->Add((TObjArray*)hitAdd); // add hit
577 fNTrackHits ++;
578 hitAdd->SetNTrackHits(hitAdd->GetNTrackHits()+1); // mark hit as being on track
579 ichambOK = ichamb;
580 currIndx = fgHitForRec->IndexOf(hitAdd); // Check
581 }
582 }
583 } // while
584 cout << fNTrackHits << " " << fChi2 << " " << 1/(*fTrackPar)(4,0) << " " << fPosition << endl;
585 return success;
586}
587
588 //__________________________________________________________________________
589void AliMUONTrackK::ParPropagation(Double_t zEnd)
590{
591 // Propagation of track parameters to zEnd
592 Int_t iFB, nTries;
593 Double_t dZ, step, distance, charge;
594 Double_t vGeant3[7], vGeant3New[7];
595
596 nTries = 0;
597 // First step using linear extrapolation
598 dZ = zEnd - fPosition;
599 iFB = (Int_t)TMath::Sign(Double_t(1.0),dZ);
600 step = dZ/TMath::Cos((*fTrackPar)(2,0))/TMath::Cos((*fTrackPar)(3,0)); // linear estimate
601 charge = iFB*TMath::Sign(Double_t(1.0),(*fTrackPar)(4,0));
602 fPositionNew = fPosition;
603 *fTrackParNew = *fTrackPar;
604 SetGeantParam(vGeant3,iFB);
605
606 // Check if overstep
607 do {
608 step = TMath::Abs(step);
609 // Propagate parameters
610 extrap_onestep_rungekutta(charge,step,vGeant3,vGeant3New);
611 distance = zEnd - vGeant3New[2];
612 step *= dZ/(vGeant3New[2]-fPositionNew);
613 nTries ++;
343146bf 614 } while (distance*iFB < 0 && TMath::Abs(distance) > fgkEpsilon);
83dbc640 615
616 GetFromGeantParam(vGeant3New,iFB);
617
618 // Position ajustment (until within tolerance)
343146bf 619 while (TMath::Abs(distance) > fgkEpsilon) {
83dbc640 620 dZ = zEnd - fPositionNew;
621 iFB = (Int_t)TMath::Sign(Double_t(1.0),dZ);
622 step = dZ/TMath::Cos((*fTrackParNew)(2,0))/TMath::Cos((*fTrackParNew)(3,0));
623 step = TMath::Abs(step);
624 SetGeantParam(vGeant3,iFB);
625 do {
626 // binary search
627 // Propagate parameters
628 extrap_onestep_rungekutta(charge,step,vGeant3,vGeant3New);
629 distance = zEnd - vGeant3New[2];
630 step /= 2;
631 nTries ++;
343146bf 632 if (nTries > fgkTriesMax) {
83dbc640 633 cout << " ***** ParPropagation: too many tries " << nTries << endl;
634 exit(0);
635 }
636 } while (distance*iFB < 0);
637
638 GetFromGeantParam(vGeant3New,iFB);
639 }
640 //cout << nTries << endl;
641 return;
642}
643/*
644 //__________________________________________________________________________
645void AliMUONTrackK::WeightPropagation(void)
646{
647 // Propagation of the weight matrix
648 // W = DtWD, where D is Jacobian
649
650 // !!! not implemented TMatrixD weight1(*fJacob,TMatrixD::kAtBA,*fWeight); // DtWD
651 TMatrixD weight1(*fWeight,TMatrixD::kMult,*fJacob); // WD
652 *fWeight = TMatrixD(*fJacob,TMatrixD::kTransposeMult,weight1); // DtWD
653 return;
654}
655*/
656 //__________________________________________________________________________
657void AliMUONTrackK::WeightPropagation(Double_t zEnd)
658{
659 // Propagation of the weight matrix
660 // W = DtWD, where D is Jacobian
661 Int_t i, j;
662 Double_t dPar;
663
30178c30 664 TMatrixD jacob(fgkSize,fgkSize);
665 jacob = 0;
83dbc640 666
667 // Save initial and propagated parameters
668 TMatrixD trackPar0 = *fTrackPar;
669 TMatrixD trackParNew0 = *fTrackParNew;
670 Double_t savePosition = fPositionNew;
671
672 // Get covariance matrix
673 *fCovariance = *fWeight;
674 // check whether the Invert method returns flag if matrix cannot be inverted,
675 // and do not calculate the Determinant in that case !!!!
676 if (fCovariance->Determinant() != 0) {
677 // fCovariance->Invert();
678 Int_t ifailCov;
343146bf 679 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 680 } else {
681 cout << " ***** Warning in WeightPropagation: Determinant fCovariance=0:" << endl;
682 }
683
684 // Loop over parameters to find change of the initial vs propagated ones
685 zEnd = fPosition;
686 fPosition = fPositionNew;
343146bf 687 for (i=0; i<fgkSize; i++) {
83dbc640 688 dPar = TMath::Sqrt((*fCovariance)(i,i));
689 *fTrackPar = trackParNew0;
690 (*fTrackPar)(i,0) += dPar;
691 ParPropagation(zEnd);
343146bf 692 for (j=0; j<fgkSize; j++) {
30178c30 693 jacob(j,i) = ((*fTrackParNew)(j,0)-trackPar0(j,0))/dPar;
83dbc640 694 }
695 }
696
30178c30 697 //jacob->Print();
83dbc640 698 //trackParNew0.Print();
30178c30 699 //TMatrixD par1(jacob,TMatrixD::kMult,trackPar0); //
83dbc640 700 //par1.Print();
701 /*
30178c30 702 if (jacob.Determinant() != 0) {
703 // jacob.Invert();
83dbc640 704 } else {
30178c30 705 cout << " ***** Warning in WeightPropagation: Determinant jacob=0:" << endl;
83dbc640 706 }
707 */
30178c30 708 TMatrixD weight1(*fWeight,TMatrixD::kMult,jacob); // WD
709 *fWeight = TMatrixD(jacob,TMatrixD::kTransposeMult,weight1); // DtWD
83dbc640 710 //fWeight->Print();
711
712 // Restore initial and propagated parameters
713 *fTrackPar = trackPar0;
714 *fTrackParNew = trackParNew0;
715 fPosition = zEnd;
716 fPositionNew = savePosition;
717 return;
718}
719
720 //__________________________________________________________________________
721Bool_t AliMUONTrackK::FindPoint(Int_t ichamb, Double_t zEnd, Int_t currIndx, Int_t iFB, AliMUONHitForRec *&hitAdd)
722{
723 // Picks up point within a window for the chamber No ichamb
724 // Split the track if there are more than 1 hit
725 Int_t ihit, nRecTracks;
30178c30 726 Double_t windowB, windowNonB, dChi2Tmp=0, dChi2, y, x, savePosition=0;
83dbc640 727 TClonesArray *trackPtr;
728 AliMUONHitForRec *hit, *hitLoop;
729 AliMUONTrackK *trackK;
730
30178c30 731 Bool_t ok = kFALSE;
83dbc640 732 //sigmaB = fgEventReconstructor->GetBendingResolution(); // bending resolution
733 //sigmaNonB = fgEventReconstructor->GetNonBendingResolution(); // non-bending resolution
734 *fCovariance = *fWeight;
735 // check whether the Invert method returns flag if matrix cannot be inverted,
736 // and do not calculate the Determinant in that case !!!!
737 if (fCovariance->Determinant() != 0) {
738 // fCovariance->Invert();
739
740 Int_t ifailCov;
343146bf 741 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 742 } else {
743 cout << " ***** Warning in FindPoint: Determinant fCovariance=0:" << endl;
744 }
30178c30 745 //windowB = fgkNSigma*TMath::Sqrt((*fCovariance)(0,0)+sigmaB*sigmaB);
746 //windowNonB = fgkNSigma*TMath::Sqrt((*fCovariance)(1,1)+sigmaNonB*sigmaNonB);
83dbc640 747 // Loop over all hits and take hits from the chamber
343146bf 748 TMatrixD pointWeight(fgkSize,fgkSize);
83dbc640 749 TMatrixD saveWeight = pointWeight;
750 TMatrixD pointWeightTmp = pointWeight;
343146bf 751 TMatrixD point(fgkSize,1);
83dbc640 752 TMatrixD trackPar = point;
753 TMatrixD trackParTmp = point;
754 Int_t nHitsOK = 0;
755
756 for (ihit=currIndx; ihit>=0 && ihit<fgNOfPoints; ihit+=iFB) {
757 hit = (AliMUONHitForRec*) ((*fgHitForRec)[ihit]);
758 if (hit->GetChamberNumber() == ichamb) {
759 //if (TMath::Abs(hit->GetZ()-zEnd) < 0.1) {
760 if (TMath::Abs(hit->GetZ()-zEnd) < 0.5) {
761 if (TMath::Abs(hit->GetZ()-zEnd) > 0.1) {
762 // adjust position: for multiple hits in the chamber
763 // (mostly (only?) for GEANT hits)
764 zEnd = hit->GetZ();
765 *fTrackPar = *fTrackParNew;
766 ParPropagation(zEnd);
767 WeightPropagation(zEnd);
768 fPosition = fPositionNew;
769 *fTrackPar = *fTrackParNew;
770 // Get covariance
771 *fCovariance = *fWeight;
772 if (fCovariance->Determinant() != 0) {
773 //fCovariance->Invert();
774 Int_t ifailCov;
343146bf 775 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 776 } else {
777 cout << " ***** Warning in FindPoint: Determinant fCovariance=0:" << endl;
778 }
779 }
780 y = hit->GetBendingCoor();
781 x = hit->GetNonBendingCoor();
30178c30 782 windowB = fgkNSigma*TMath::Sqrt((*fCovariance)(0,0)+hit->GetBendingReso2());
783 windowNonB = fgkNSigma*TMath::Sqrt((*fCovariance)(1,1)+hit->GetNonBendingReso2());
784 if (TMath::Abs((*fTrackParNew)(0,0)-y) <= windowB &&
785 TMath::Abs((*fTrackParNew)(1,0)-x) <= windowNonB) {
83dbc640 786 // Vector of measurements and covariance matrix
787 point.Zero();
788 point(0,0) = y;
789 point(1,0) = x;
790 pointWeight(0,0) = 1/hit->GetBendingReso2();
791 pointWeight(1,1) = 1/hit->GetNonBendingReso2();
792 TryPoint(point,pointWeight,trackPar,dChi2);
793 if (TMath::Abs(1./(trackPar)(4,0)) < fgEventReconstructor->GetMinBendingMomentum()) continue; // p < p_min - next hit
30178c30 794 ok = kTRUE;
83dbc640 795 nHitsOK++;
796 //if (nHitsOK > -1) {
797 if (nHitsOK == 1) {
798 // Save current members
799 saveWeight = *fWeight;
800 savePosition = fPosition;
801 // temporary storage for the current track
802 dChi2Tmp = dChi2;
803 trackParTmp = trackPar;
804 pointWeightTmp = pointWeight;
805 hitAdd = hit;
806 } else {
807 // branching: create a new track
808 trackPtr = fgEventReconstructor->GetRecTracksPtr();
809 nRecTracks = fgEventReconstructor->GetNRecTracks();
810 trackK = new ((*trackPtr)[nRecTracks])
811 AliMUONTrackK(*this); // dummy copy constructor
812 *trackK = *this;
813 fgEventReconstructor->SetNRecTracks(nRecTracks+1);
814 //cout << " ******** New track: " << ichamb << " " << hit->GetTHTrack() << " " << 1/(trackPar)(4,0) << " " << hit->GetBendingCoor() << " " << fNTrackHits << " " << nRecTracks << endl;
815 trackK->fRecover = 0;
816 *(trackK->fTrackPar) = trackPar;
817 *(trackK->fWeight) += pointWeight;
818 trackK->fChi2 += dChi2;
819 // Mark hits as being on 2 tracks
820 for (Int_t i=0; i<fNTrackHits; i++) {
821 hitLoop = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i]);
822 hitLoop->SetNTrackHits(hitLoop->GetNTrackHits()+1);
823 /*
824 cout << " ** ";
825 cout << hitLoop->GetChamberNumber() << " ";
826 cout << hitLoop->GetBendingCoor() << " ";
827 cout << hitLoop->GetNonBendingCoor() << " ";
828 cout << hitLoop->GetZ() << " " << " ";
829 cout << hitLoop->GetGeantSignal() << " " << " ";
830 cout << hitLoop->GetTHTrack() << endl;
831 printf(" ** %d %10.4f %10.4f %10.4f %d %d \n",
832 hitLoop->GetChamberNumber(), hitLoop->GetBendingCoor(),
833 hitLoop->GetNonBendingCoor(), hitLoop->GetZ(),
834 hitLoop->GetGeantSignal(), hitLoop->GetTHTrack());
835 */
836 }
837 //add point
838 trackK->fTrackHitsPtr->Add((TObjArray*)hit); // add hit
839 trackK->fNTrackHits ++;
840 hit->SetNTrackHits(hit->GetNTrackHits()+1); // mark hit as being on track
841 if (ichamb == 9) {
842 // the last chamber
843 trackK->fTrackDir = -1;
844 trackK->fBPFlag = kTRUE;
845 }
846 }
847 }
848 }
849 } else break; // different chamber
850 } // for (ihit=currIndx;
30178c30 851 if (ok) {
83dbc640 852 *fTrackPar = trackParTmp;
853 *fWeight = saveWeight;
854 *fWeight += pointWeightTmp;
855 fChi2 += dChi2Tmp; // Chi2
856 // Restore members
857 fPosition = savePosition;
858 }
30178c30 859 return ok;
83dbc640 860}
861
862 //__________________________________________________________________________
863void AliMUONTrackK::TryPoint(TMatrixD &point, const TMatrixD &pointWeight, TMatrixD &trackParTmp, Double_t &dChi2)
864{
865 // Adds a measurement point (modifies track parameters and computes
866 // change of Chi2)
867
868 // Solving linear system (W+U)p' = U(m-p) + (W+U)p
869 TMatrixD wu = *fWeight;
870 wu += pointWeight; // W+U
871 trackParTmp = point;
872 trackParTmp -= *fTrackParNew; // m-p
873 TMatrixD right(pointWeight,TMatrixD::kMult,trackParTmp); // U(m-p)
874 TMatrixD right1(wu,TMatrixD::kMult,*fTrackParNew); // (W+U)p
875 right += right1; // U(m-p) + (W+U)p
876
877 // check whether the Invert method returns flag if matrix cannot be inverted,
878 // and do not calculate the Determinant in that case !!!!
879 if (wu.Determinant() != 0) {
880
881 // wu.Invert();
882 Int_t ifailWU;
343146bf 883 mnvertLocalK(&((wu)(0,0)), fgkSize,fgkSize,fgkSize,ifailWU);
83dbc640 884 } else {
885 cout << " ***** Warning in TryPoint: Determinant wu=0:" << endl;
886 }
887 trackParTmp = TMatrixD(wu,TMatrixD::kMult,right);
888
889 right1 = trackParTmp;
890 right1 -= point; // p'-m
891 point = trackParTmp;
892 point -= *fTrackParNew; // p'-p
893 right = TMatrixD(*fWeight,TMatrixD::kMult,point); // W(p'-p)
894 TMatrixD value(point,TMatrixD::kTransposeMult,right); // (p'-p)'W(p'-p)
895 dChi2 = value(0,0);
896 right = TMatrixD(pointWeight,TMatrixD::kMult,right1); // U(p'-m)
897 value = TMatrixD(right1,TMatrixD::kTransposeMult,right); // (p'-m)'U(p'-m)
898 dChi2 += value(0,0);
899 return;
900}
901
902 //__________________________________________________________________________
903void AliMUONTrackK::MSThin(Int_t sign)
904{
905 // Adds multiple scattering in a thin layer (only angles are affected)
906 Double_t cosAlph, cosBeta, momentum, velo, path, theta0;
907
908 // check whether the Invert method returns flag if matrix cannot be inverted,
909 // and do not calculate the Determinant in that case !!!!
910 if (fWeight->Determinant() != 0) {
911 //fWeight->Invert(); // covariance
912
913 Int_t ifailWeight;
343146bf 914 mnvertLocalK(&((*fWeight)(0,0)), fgkSize,fgkSize,fgkSize,ifailWeight);
83dbc640 915 } else {
916 cout << " ***** Warning in MSThin: Determinant fWeight=0:" << endl;
917 }
918
919 cosAlph = TMath::Cos((*fTrackParNew)(2,0));
920 cosBeta = TMath::Cos((*fTrackParNew)(3,0));
921 momentum = 1/(*fTrackParNew)(4,0); // particle momentum
922 //velo = momentum/TMath::Sqrt(momentum*momentum+muonMass*muonMass); // velocity/c for muon hypothesis
923 velo = 1; // relativistic
924 path = fgEventReconstructor->GetChamberThicknessInX0()/cosAlph/cosBeta; // path length
925 theta0 = 0.0136/velo/momentum*TMath::Sqrt(path)*(1+0.038*TMath::Log(path)); // projected scattering angle
926
927 (*fWeight)(2,2) += sign*theta0/cosBeta*theta0/cosBeta; // alpha
928 (*fWeight)(3,3) += sign*theta0*theta0; // beta
929 //fWeight->Invert(); // weight
930
931 Int_t ifailWeight;
343146bf 932 mnvertLocalK(&((*fWeight)(0,0)), fgkSize,fgkSize,fgkSize,ifailWeight);
83dbc640 933 return;
934}
935 //__________________________________________________________________________
936void AliMUONTrackK::StartBack(void)
937{
938 // Starts backpropagator
939
940 fBPFlag = kTRUE;
941 fChi2 = 0;
343146bf 942 for (Int_t i=0; i<fgkSize; i++) {
943 for (Int_t j=0; j<fgkSize; j++) {
83dbc640 944 if (j==i) (*fWeight)(i,i) /= 100;
945 //if (j==i) (*fWeight)(i,i) /= fNTrackHits*fNTrackHits;
946 else (*fWeight)(j,i) = 0;
947 }
948 }
949}
950
951 //__________________________________________________________________________
952void AliMUONTrackK::SetGeantParam(Double_t *VGeant3, Int_t iFB)
953{
954 // Set vector of Geant3 parameters pointed to by "VGeant3"
955 // from track parameters
956
957 VGeant3[0] = (*fTrackParNew)(1,0); // X
958 VGeant3[1] = (*fTrackParNew)(0,0); // Y
959 VGeant3[2] = fPositionNew; // Z
960 VGeant3[3] = iFB*TMath::Sin((*fTrackParNew)(3,0)); // Px/Ptot
961 VGeant3[4] = iFB*TMath::Cos((*fTrackParNew)(3,0))*TMath::Sin((*fTrackParNew)(2,0)); // Py/Ptot
962 VGeant3[5] = iFB*TMath::Sqrt(1.0-VGeant3[3]*VGeant3[3]-VGeant3[4]*VGeant3[4]); // Pz/Ptot
963 VGeant3[6] = 1/TMath::Abs((*fTrackParNew)(4,0)); // Ptot
964}
965
966 //__________________________________________________________________________
967void AliMUONTrackK::GetFromGeantParam(Double_t *VGeant3, Int_t iFB)
968{
969 // Get track parameters from vector of Geant3 parameters pointed
970 // to by "VGeant3"
971
972 fPositionNew = VGeant3[2]; // Z
973 (*fTrackParNew)(0,0) = VGeant3[1]; // Y
974 (*fTrackParNew)(1,0) = VGeant3[0]; // X
975 (*fTrackParNew)(3,0) = TMath::ASin(iFB*VGeant3[3]); // beta
976 (*fTrackParNew)(2,0) = TMath::ASin(iFB*VGeant3[4]/TMath::Cos((*fTrackParNew)(3,0))); // alpha
977 (*fTrackParNew)(4,0) = 1/VGeant3[6]*TMath::Sign(Double_t(1.0),(*fTrackPar)(4,0)); // 1/Ptot
978}
979
980 //__________________________________________________________________________
981void AliMUONTrackK::SetTrackQuality(Int_t iChi2)
982{
983 // Computes "track quality" from Chi2 (if iChi2==0) or vice versa
984
985 if (fChi2 > 250) {
986 cout << " ***** Too high Chi2: " << fChi2 << endl;
987 fChi2 = 250;
988 // exit(0);
989 }
990 if (iChi2 == 0) fChi2 = fNTrackHits + (250.-fChi2)/251;
991 else fChi2 = 250 - (fChi2-fNTrackHits)*251;
992}
993
994 //__________________________________________________________________________
995Int_t AliMUONTrackK::Compare(const TObject* trackK) const
996{
997 // "Compare" function to sort with decreasing "track quality".
998 // Returns +1 (0, -1) if quality of current track
999 // is smaller than (equal to, larger than) quality of trackK
1000
1001 if (fChi2 < ((AliMUONTrackK*)trackK)->fChi2) return(+1);
1002 else if (fChi2 == ((AliMUONTrackK*)trackK)->fChi2) return(0);
1003 else return(-1);
1004}
1005
1006 //__________________________________________________________________________
30178c30 1007Bool_t AliMUONTrackK::KeepTrack(AliMUONTrackK* track0) const
83dbc640 1008{
1009 // Check whether or not to keep current track
1010 // (keep, if it has less than half of common hits with track0)
1011 Int_t hitsInCommon, nHits0, i, j, nTrackHits2;
1012 AliMUONHitForRec *hit0, *hit1;
1013
1014 hitsInCommon = 0;
1015 nHits0 = track0->fNTrackHits;
1016 nTrackHits2 = fNTrackHits/2;
1017
1018 for (i=0; i<nHits0; i++) {
1019 // Check if hit belongs to several tracks
1020 hit0 = (AliMUONHitForRec*) (*track0->fTrackHitsPtr)[i];
1021 if (hit0->GetNTrackHits() == 1) continue;
1022 for (j=0; j<fNTrackHits; j++) {
1023 hit1 = (AliMUONHitForRec*) (*fTrackHitsPtr)[j];
1024 if (hit1->GetNTrackHits() == 1) continue;
1025 if (hit0 == hit1) {
1026 hitsInCommon++;
1027 if (hitsInCommon >= nTrackHits2) return kFALSE;
1028 break;
1029 }
1030 } // for (j=0;
1031 } // for (i=0;
1032 return kTRUE;
1033}
1034
1035 //__________________________________________________________________________
1036void AliMUONTrackK::Kill(void)
1037{
1038 // Kill track candidate
1039 Int_t i;
1040 AliMUONHitForRec *hit;
1041
1042 if (fTrackHitsPtr) {
1043 // Remove track mark from hits
1044 for (i=0; i<fNTrackHits; i++) {
1045 hit = (AliMUONHitForRec*) (*fTrackHitsPtr)[i];
1046 hit->SetNTrackHits(hit->GetNTrackHits()-1);
1047 }
1048 }
1049 fgEventReconstructor->GetRecTracksPtr()->Remove(this);
1050}
1051
1052 //__________________________________________________________________________
1053void AliMUONTrackK::Branson(void)
1054{
1055 // Propagates track to the vertex thru absorber using Branson correction
1056 // (makes use of the AliMUONTrackParam class)
1057
1058 AliMUONTrackParam *trackParam = new AliMUONTrackParam();
1059 trackParam->SetBendingCoor((*fTrackPar)(0,0));
1060 trackParam->SetNonBendingCoor((*fTrackPar)(1,0));
1061 trackParam->SetBendingSlope(TMath::Tan((*fTrackPar)(2,0)));
1062 trackParam->SetNonBendingSlope(TMath::Tan((*fTrackPar)(3,0))/TMath::Cos((*fTrackPar)(2,0)));
1063 trackParam->SetInverseBendingMomentum((*fTrackPar)(4,0)/TMath::Cos((*fTrackPar)(3,0)));
1064 trackParam->SetZ(fPosition);
1065
1066 trackParam->ExtrapToVertex();
1067
1068 (*fTrackPar)(0,0) = trackParam->GetBendingCoor();
1069 (*fTrackPar)(1,0) = trackParam->GetNonBendingCoor();
1070 (*fTrackPar)(2,0) = TMath::ATan(trackParam->GetBendingSlope());
1071 (*fTrackPar)(3,0) = TMath::ATan(TMath::Cos((*fTrackPar)(2,0))*trackParam->GetNonBendingSlope());
1072 (*fTrackPar)(4,0) = TMath::Cos((*fTrackPar)(3,0))*trackParam->GetInverseBendingMomentum();
1073 fPosition = trackParam->GetZ();
1074 delete trackParam;
1075 cout << 1/(*fTrackPar)(4,0) << " " << fPosition << " " << (*fTrackPar)(0,0) << endl;
1076
1077 // Get covariance matrix
1078 *fCovariance = *fWeight;
1079 if (fCovariance->Determinant() != 0) {
1080 // fCovariance->Invert();
1081
1082 Int_t ifailCov;
343146bf 1083 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 1084 } else {
1085 cout << " ***** Warning in Branson: Determinant fCovariance=0:" << endl;
1086 }
1087}
1088
1089 //__________________________________________________________________________
1090void AliMUONTrackK::GoToZ(Double_t zEnd)
1091{
1092 // Propagates track to given Z
1093
1094 ParPropagation(zEnd);
1095 MSThin(1); // multiple scattering in the chamber
1096 WeightPropagation(zEnd);
1097 fPosition = fPositionNew;
1098 *fTrackPar = *fTrackParNew;
1099}
1100
1101 //__________________________________________________________________________
1102void AliMUONTrackK::GoToVertex(void)
1103{
1104 // Version 3.08
1105 // Propagates track to the vertex
1106 // All material constants are taken from AliRoot
1107
1108 static Double_t x01[5] = { 24.282, // C
1109 24.282, // C
1110 11.274, // Concrete
1111 1.758, // Fe
1112 1.758}; // Fe (cm)
1113 // inner part theta < 3 degrees
1114 static Double_t x02[5] = { 30413, // Air
1115 24.282, // C
1116 11.274, // Concrete
1117 1.758, // Fe
1118 0.369}; // W (cm)
1119 // z positions of the materials inside the absober outer part theta > 3 degres
1120 static Double_t zPos[10] = {90, 105, 315, 443, 468};
1121 // R > 1
1122 // R < 1
1123
30178c30 1124 Double_t dZ, r0Norm, x0, deltaP, dChi2, pTotal, pOld;
83dbc640 1125 AliMUONHitForRec *hit;
1126 AliMUONRawCluster *clus;
1127 TClonesArray *rawclusters;
1128
1129 // First step to the rear end of the absorber
1130 Double_t zRear = 503;
1131 GoToZ(zRear);
1132 Double_t tan3 = TMath::Tan(3./180*TMath::Pi());
1133
1134 // Go through absorber
1135 pOld = 1/(*fTrackPar)(4,0);
1136 Double_t r0Rear = (*fTrackPar)(0,0)*(*fTrackPar)(0,0) +
1137 (*fTrackPar)(1,0)*(*fTrackPar)(1,0);
1138 r0Rear = TMath::Sqrt(r0Rear)/fPosition/tan3;
1139 r0Norm = r0Rear;
1140 for (Int_t i=4; i>=0; i--) {
1141 ParPropagation(zPos[i]);
1142 WeightPropagation(zPos[i]);
1143 dZ = TMath::Abs (fPositionNew-fPosition);
30178c30 1144 if (r0Norm > 1) x0 = x01[i];
1145 else x0 = x02[i];
1146 MSLine(dZ,x0); // multiple scattering in the medium (linear approximation)
83dbc640 1147 fPosition = fPositionNew;
1148 *fTrackPar = *fTrackParNew;
1149 r0Norm = (*fTrackPar)(0,0)*(*fTrackPar)(0,0) +
1150 (*fTrackPar)(1,0)*(*fTrackPar)(1,0);
1151 r0Norm = TMath::Sqrt(r0Norm)/fPosition/tan3;
1152 }
1153 // Correct momentum for energy losses
1154 pTotal = 1/TMath::Abs((*fTrackPar)(4,0));
1155 Double_t p0 = pTotal;
1156 for (Int_t j=0; j<2; j++) {
1157 /*
1158 if (r0Rear > 1) {
1159 if (p0 < 20) {
1160 deltaP = 2.164 + 0.145e-1*p0 - 0.417e-3*p0*p0;
1161 } else {
1162 deltaP = 2.275 + 0.102e-2*p0 - 0.674e-6*p0*p0;
1163 }
1164 } else {
1165 if (p0 < 20) {
1166 deltaP = 2.581 + 0.188e-1*p0 - 0.398e-3*p0*p0;
1167 } else {
1168 deltaP = 2.727 + 0.356e-2*p0 + 0.242e-5*p0*p0;
1169 }
1170 }
1171 */
1172 if (r0Rear < 1) {
1173 //W
1174 if (p0<15) {
1175 deltaP = 2.737 + 0.0494*p0 - 0.001123*p0*p0;
1176 } else {
1177 deltaP = 3.0643 + 0.01346*p0;
1178 }
1179 } else {
1180 //Pb
1181 if (p0<15) {
1182 deltaP = 2.1380 + 0.0351*p0 - 0.000853*p0*p0;
1183 } else {
1184 deltaP = 2.407 + 0.00702*p0;
1185 }
1186 }
1187
1188 p0 = pTotal + deltaP/TMath::Cos((*fTrackPar)(2,0))/TMath::Cos((*fTrackPar)(3,0));
1189 }
1190 (*fTrackPar)(4,0) = 1/p0*TMath::Sign((Double_t)1.,(*fTrackPar)(4,0));
1191
1192 // Go to the vertex
1193 ParPropagation((Double_t)0.);
1194 WeightPropagation((Double_t)0.);
1195 fPosition = fPositionNew;
1196 //*fTrackPar = *fTrackParNew;
1197 // Add vertex as a hit
343146bf 1198 TMatrixD pointWeight(fgkSize,fgkSize);
1199 TMatrixD point(fgkSize,1);
83dbc640 1200 TMatrixD trackParTmp = point;
1201 point(0,0) = 0; // vertex coordinate - should be taken somewhere
1202 point(1,0) = 0; // vertex coordinate - should be taken somewhere
1203 pointWeight(0,0) = 1/1.e-3/1.e-3; // 10 um error
1204 pointWeight(1,1) = 1/1.e-3/1.e-3; // 10 um error
1205 TryPoint(point,pointWeight,trackParTmp,dChi2);
1206 *fTrackPar = trackParTmp;
1207 *fWeight += pointWeight;
1208 fChi2 += dChi2; // Chi2
1209 cout << pOld << " " << 1/(*fTrackPar)(4,0) << " " << dChi2 << " " << fChi2 << " " << fNTrackHits << endl;
1210 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1211 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
1212 printf ("%4d", hit->GetChamberNumber());
1213 //cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))->GetChamberNumber() << " ";
1214 }
1215 cout << endl;
1216 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1217 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
1218 //cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))->GetHitNumber() << " ";
1219 //cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))->GetZ() << " ";
1220 printf ("%4d", fgHitForRec->IndexOf(hit));
1221 //cout << fgHitForRec->IndexOf(((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))) << " ";
1222 }
1223 cout << endl;
1224 if (fgEventReconstructor->GetRecGeantHits()) {
1225 // from GEANT hits
1226 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1227 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
1228 cout << hit->GetTHTrack() + hit->GetGeantSignal()*10000 << " ";
1229 }
1230 } else {
1231 // from raw clusters
1232 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1233 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
ce3f5e87 1234 rawclusters = fgMUON->GetMUONData()->RawClusters(hit->GetChamberNumber());
83dbc640 1235 clus = (AliMUONRawCluster*) rawclusters->UncheckedAt(hit->GetHitNumber());
9e993f2a 1236 printf ("%4d", clus->GetTrack(1) - 1);
83dbc640 1237 //cout << clus->fTracks[1] - 1 << " ";
1238 }
1239 cout << endl;
1240 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1241 hit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[i1]);
ce3f5e87 1242 rawclusters = fgMUON->GetMUONData()->RawClusters(hit->GetChamberNumber());
83dbc640 1243 clus = (AliMUONRawCluster*) rawclusters->UncheckedAt(hit->GetHitNumber());
9e993f2a 1244 if (clus->GetTrack(2) != 0) printf ("%4d", clus->GetTrack(2) - 1);
83dbc640 1245 else printf ("%4s", " ");
1246 //if (clus->fTracks[2] != 0) cout << clus->fTracks[2] - 1 << " ";
1247 }
1248 }
1249 cout << endl;
1250 for (Int_t i1=0; i1<fNTrackHits; i1++) {
1251 //cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))->GetHitNumber() << " ";
1252 cout << ((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))->GetZ() << " ";
1253 //cout << fgHitForRec->IndexOf(((AliMUONHitForRec*)((*fTrackHitsPtr)[i1]))) << " ";
1254 }
1255 cout << endl;
1256 cout << "---------------------------------------------------" << endl;
1257
1258 // Get covariance matrix
1259 *fCovariance = *fWeight;
1260 if (fCovariance->Determinant() != 0) {
1261 // fCovariance->Invert();
1262
1263 Int_t ifailCov;
343146bf 1264 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 1265 } else {
1266 cout << " ***** Warning in GoToVertex: Determinant fCovariance=0:" << endl;
1267 }
1268}
1269
1270 //__________________________________________________________________________
30178c30 1271void AliMUONTrackK::MSLine(Double_t dZ, Double_t x0)
83dbc640 1272{
1273 // Adds multiple scattering in a thick layer for linear propagation
1274
1275 Double_t cosAlph = TMath::Cos((*fTrackPar)(2,0));
1276 Double_t tanAlph = TMath::Tan((*fTrackPar)(2,0));
1277 Double_t cosBeta = TMath::Cos((*fTrackPar)(3,0));
1278 Double_t sinBeta;
1279 sinBeta = TMath::Sin((*fTrackPar)(3,0));
1280 Double_t tanBeta = TMath::Tan((*fTrackPar)(3,0));
1281 Double_t momentum = 1/(*fTrackPar)(4,0);
1282 Double_t velo = 1; // relativistic velocity
1283 Double_t step = TMath::Abs(dZ)/cosAlph/cosBeta; // step length
1284
1285 // Projected scattering angle
30178c30 1286 Double_t theta0 = 0.0136/velo/momentum/TMath::Sqrt(x0)*(1+0.038*TMath::Log(step/x0));
83dbc640 1287 Double_t theta02 = theta0*theta0;
1288 Double_t dl2 = step*step/2*theta02;
1289 Double_t dl3 = dl2*step*2/3;
1290
1291 //Derivatives
1292 Double_t dYdT = 1/cosAlph;
1293 Double_t dYdB = 0; //(*fTrackPar)(2,0)*sinBeta/cosAlph;
1294 Double_t dXdT = tanAlph*tanBeta;
1295 //Double_t dXdB = (1+(*fTrackPar)(2,0)*tanAlph*sinBeta*sinBeta)/cosBeta;
1296 Double_t dXdB = 1/cosBeta;
1297 Double_t dAdT = 1/cosBeta;
1298 Double_t dAdB = 0; //(*fTrackPar)(2,0)*tanBeta;
1299
1300 // Get covariance matrix
1301 *fCovariance = *fWeight;
1302 if (fCovariance->Determinant() != 0) {
1303 // fCovariance->Invert();
1304
1305 Int_t ifailCov;
343146bf 1306 mnvertLocalK(&((*fCovariance)(0,0)), fgkSize,fgkSize,fgkSize,ifailCov);
83dbc640 1307 } else {
1308 cout << " ***** Warning in MSLine: Determinant fCovariance=0:" << endl;
1309 }
1310
1311 (*fCovariance)(0,0) += dl3*(dYdT*dYdT+dYdB*dYdB); // <yy>
1312 (*fCovariance)(1,1) += dl3*(dXdT*dXdT+dXdB*dXdB); // <xx>
1313 (*fCovariance)(2,2) += theta02*step*(dAdT*dAdT+dAdB*dAdB); // <aa>
1314 (*fCovariance)(3,3) += theta02*step; // <bb>
1315
1316 (*fCovariance)(0,1) += dl3*(dYdT*dXdT+dYdB*dXdB); // <yx>
1317 (*fCovariance)(1,0) = (*fCovariance)(0,1);
1318
1319 (*fCovariance)(0,2) += dl2*(dYdT*dAdT+dYdB*dAdB); // <ya>
1320 (*fCovariance)(2,0) = (*fCovariance)(0,2);
1321
1322 (*fCovariance)(0,3) += dl2*dYdB; // <yb>
1323 (*fCovariance)(3,0) = (*fCovariance)(0,3);
1324
1325 (*fCovariance)(1,2) += dl2*(dXdT*dAdT+dXdB*dAdB); // <xa>
1326 (*fCovariance)(2,1) = (*fCovariance)(1,2);
1327
1328 (*fCovariance)(1,3) += dl2*dXdB; // <xb>
1329 (*fCovariance)(3,1) = (*fCovariance)(1,3);
1330
1331 (*fCovariance)(2,3) += theta02*step*dAdB; // <ab>
1332 (*fCovariance)(3,2) = (*fCovariance)(2,3);
1333
1334 // Get weight matrix
1335 *fWeight = *fCovariance;
1336 if (fWeight->Determinant() != 0) {
1337 // fWeight->Invert();
1338
1339 Int_t ifailWeight;
343146bf 1340 mnvertLocalK(&((*fWeight)(0,0)), fgkSize,fgkSize,fgkSize,ifailWeight);
83dbc640 1341 } else {
1342 cout << " ***** Warning in MSLine: Determinant fWeight=0:" << endl;
1343 }
1344}
1345
1346 //__________________________________________________________________________
1347void AliMUONTrackK::Recover(void)
1348{
1349 // Adds new failed track(s) which can be tried to be recovered
1350 Int_t nRecTracks, ichamb;
1351 TClonesArray *trackPtr;
1352 AliMUONTrackK *trackK;
1353
1354 //cout << " ******** Enter Recover " << endl;
1355 //return;
1356 trackPtr = fgEventReconstructor->GetRecTracksPtr();
1357
1358 // The last hit will be removed
1359 nRecTracks = fgEventReconstructor->GetNRecTracks();
1360
1361 // Check if the track candidate doesn't exist yet
1362 for (Int_t i=0; i<nRecTracks; i++) {
1363 trackK = (AliMUONTrackK*) ((*trackPtr)[i]);
1364 if (trackK->fNTrackHits == 2 && trackK->GetRecover() == 0) continue;
1365 if (trackK == this) continue;
1366 //if (trackK->GetRecover() != 1) continue;
1367 if (trackK->fNTrackHits >= fNTrackHits-1) {
19b6ceb4 1368 /*
83dbc640 1369 for (Int_t j=0; j<fNTrackHits-1; j++) {
1370 if ((*trackK->fTrackHitsPtr)[j] != ((*fTrackHitsPtr)[j])) break;
1371 return;
1372 } // for (Int_t j=0;
19b6ceb4 1373 */
1374 if ((*trackK->fTrackHitsPtr)[0] == ((*fTrackHitsPtr)[0])) return;
83dbc640 1375 }
1376 } // for (Int_t i=0;
1377
1378 cout << " ******** Enter Recover " << endl;
1379 trackK = new ((*trackPtr)[nRecTracks]) AliMUONTrackK(fStartSegment);
1380 fgEventReconstructor->SetNRecTracks(nRecTracks+1);
1381 trackK->fRecover = 1;
1382 trackK->fSkipHit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[fNTrackHits-1]);
1383 trackK->fNTrackHits = fNTrackHits;
1384 delete trackK->fTrackHitsPtr; // not efficient ?
1385 trackK->fTrackHitsPtr = new TObjArray(*fTrackHitsPtr);
1386 cout << nRecTracks << " " << trackK->fRecover << endl;
1387
1388 // The hit before missing chamber will be removed
1389 Int_t ichamBeg = ((AliMUONHitForRec*)((*fTrackHitsPtr)[0]))->GetChamberNumber();
1390 Int_t indxSkip = -1;
1391 if (ichamBeg == 9) {
1392 // segment in the last station
1393 // look for the missing chamber
1394 for (Int_t i=1; i<fNTrackHits; i++) {
1395 ichamb = ((AliMUONHitForRec*)((*fTrackHitsPtr)[i]))->GetChamberNumber();
1396 if (TMath::Abs(ichamBeg-ichamb)>1 && i>2) {
1397 indxSkip = i;
1398 break;
1399 }
1400 ichamBeg = ichamb;
1401 } // for (Int_t i=1;
1402 } else {
1403 // in the last but one station
1404 for (Int_t i=1; i<fNTrackHits; i++) {
1405 ichamb = ((AliMUONHitForRec*)((*fTrackHitsPtr)[i]))->GetChamberNumber();
1406 if (TMath::Abs(ichamBeg-ichamb)>1 && ichamb<4) {
1407 indxSkip = i;
1408 break;
1409 }
1410 ichamBeg = ichamb;
1411 } // for (Int_t i=1;
1412 }
1413 if (indxSkip < 0) return;
1414
1415 // Check if the track candidate doesn't exist yet
1416 for (Int_t i=0; i<nRecTracks; i++) {
1417 trackK = (AliMUONTrackK*) ((*trackPtr)[i]);
1418 if (trackK->fNTrackHits == 2 && trackK->GetRecover() == 0) continue;
1419 if (trackK == this) continue;
1420 //if (trackK->GetRecover() != 1) continue;
1421 if (trackK->fNTrackHits >= indxSkip-1) {
19b6ceb4 1422 /*
83dbc640 1423 for (Int_t j=0; j<indxSkip-1; j++) {
1424 if ((*trackK->fTrackHitsPtr)[j] != ((*fTrackHitsPtr)[j])) break;
1425 return;
1426 } // for (Int_t j=0;
19b6ceb4 1427 */
1428 if ((*trackK->fTrackHitsPtr)[0] == ((*fTrackHitsPtr)[0])) return;
83dbc640 1429 }
1430 } // for (Int_t i=0;
1431
1432 nRecTracks = fgEventReconstructor->GetNRecTracks();
1433 trackK = new ((*trackPtr)[nRecTracks]) AliMUONTrackK(fStartSegment);
1434 fgEventReconstructor->SetNRecTracks(nRecTracks+1);
1435 trackK->fRecover = 2;
1436 trackK->fSkipHit = (AliMUONHitForRec*) ((*fTrackHitsPtr)[indxSkip-1]);
1437 trackK->fNTrackHits = fNTrackHits;
1438 delete trackK->fTrackHitsPtr; // not efficient ?
1439 trackK->fTrackHitsPtr = new TObjArray(*fTrackHitsPtr);
1440 cout << nRecTracks << " " << trackK->fRecover << endl;
1441}
1442
1443//______________________________________________________________________________
1444 void mnvertLocalK(Double_t *a, Int_t l, Int_t, Int_t n, Int_t &ifail)
1445{
1446//*-*-*-*-*-*-*-*-*-*-*-*Inverts a symmetric matrix*-*-*-*-*-*-*-*-*-*-*-*-*
1447//*-* ==========================
1448//*-* inverts a symmetric matrix. matrix is first scaled to
1449//*-* have all ones on the diagonal (equivalent to change of units)
1450//*-* but no pivoting is done since matrix is positive-definite.
1451//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
1452
1453 // taken from TMinuit package of Root (l>=n)
1454 // fVERTs, fVERTq and fVERTpp changed to localVERTs, localVERTq and localVERTpp
1455 // Double_t localVERTs[n], localVERTq[n], localVERTpp[n];
1456 Double_t * localVERTs = new Double_t[n];
1457 Double_t * localVERTq = new Double_t[n];
1458 Double_t * localVERTpp = new Double_t[n];
1459 // fMaxint changed to localMaxint
1460 Int_t localMaxint = n;
1461
1462 /* System generated locals */
1463 Int_t aOffset;
1464
1465 /* Local variables */
1466 Double_t si;
1467 Int_t i, j, k, kp1, km1;
1468
1469 /* Parameter adjustments */
1470 aOffset = l + 1;
1471 a -= aOffset;
1472
1473 /* Function Body */
1474 ifail = 0;
1475 if (n < 1) goto L100;
1476 if (n > localMaxint) goto L100;
1477//*-*- scale matrix by sqrt of diag elements
1478 for (i = 1; i <= n; ++i) {
1479 si = a[i + i*l];
1480 if (si <= 0) goto L100;
1481 localVERTs[i-1] = 1 / TMath::Sqrt(si);
1482 }
1483 for (i = 1; i <= n; ++i) {
1484 for (j = 1; j <= n; ++j) {
1485 a[i + j*l] = a[i + j*l]*localVERTs[i-1]*localVERTs[j-1];
1486 }
1487 }
1488//*-*- . . . start main loop . . . .
1489 for (i = 1; i <= n; ++i) {
1490 k = i;
1491//*-*- preparation for elimination step1
1492 if (a[k + k*l] != 0) localVERTq[k-1] = 1 / a[k + k*l];
1493 else goto L100;
1494 localVERTpp[k-1] = 1;
1495 a[k + k*l] = 0;
1496 kp1 = k + 1;
1497 km1 = k - 1;
1498 if (km1 < 0) goto L100;
1499 else if (km1 == 0) goto L50;
1500 else goto L40;
1501L40:
1502 for (j = 1; j <= km1; ++j) {
1503 localVERTpp[j-1] = a[j + k*l];
1504 localVERTq[j-1] = a[j + k*l]*localVERTq[k-1];
1505 a[j + k*l] = 0;
1506 }
1507L50:
1508 if (k - n < 0) goto L51;
1509 else if (k - n == 0) goto L60;
1510 else goto L100;
1511L51:
1512 for (j = kp1; j <= n; ++j) {
1513 localVERTpp[j-1] = a[k + j*l];
1514 localVERTq[j-1] = -a[k + j*l]*localVERTq[k-1];
1515 a[k + j*l] = 0;
1516 }
1517//*-*- elimination proper
1518L60:
1519 for (j = 1; j <= n; ++j) {
1520 for (k = j; k <= n; ++k) { a[j + k*l] += localVERTpp[j-1]*localVERTq[k-1]; }
1521 }
1522 }
1523//*-*- elements of left diagonal and unscaling
1524 for (j = 1; j <= n; ++j) {
1525 for (k = 1; k <= j; ++k) {
1526 a[k + j*l] = a[k + j*l]*localVERTs[k-1]*localVERTs[j-1];
1527 a[j + k*l] = a[k + j*l];
1528 }
1529 }
1530 delete localVERTs;
1531 delete localVERTq;
1532 delete localVERTpp;
1533 return;
1534//*-*- failure return
1535L100:
1536 delete localVERTs;
1537 delete localVERTq;
1538 delete localVERTpp;
1539 ifail = 1;
1540} /* mnvertLocal */