///////////////////////////////////////////////////
#include <stdlib.h> // for exit()
+#include <Riostream.h>
-#include <Riostream.h> // for cout
-#include <TMath.h>
-#include <TMatrixD.h>
-#include <TObjArray.h>
-#include <TVirtualFitter.h>
+#include "AliMUONTrack.h"
-#include "AliMUONEventReconstructor.h"
+#include "AliMUONTrackParam.h"
#include "AliMUONHitForRec.h"
#include "AliMUONSegment.h"
-#include "AliMUONTrack.h"
-#include "AliMUONTrackHit.h"
-#include "AliMUONTriggerTrack.h"
#include "AliMUONConstants.h"
-// Functions to be minimized with Minuit
-void TrackChi2(Int_t &NParam, Double_t *Gradient, Double_t &Chi2, Double_t *Param, Int_t Flag);
-void TrackChi2MCS(Int_t &NParam, Double_t *Gradient, Double_t &Chi2, Double_t *Param, Int_t Flag);
-
-void mnvertLocal(Double_t* a, Int_t l, Int_t m, Int_t n, Int_t& ifail);
+#include "AliLog.h"
-Double_t MultipleScatteringAngle2(AliMUONTrackHit *TrackHit);
+#include <TMath.h>
ClassImp(AliMUONTrack) // Class implementation in ROOT context
-TVirtualFitter* AliMUONTrack::fgFitter = NULL;
-
- //__________________________________________________________________________
+//__________________________________________________________________________
AliMUONTrack::AliMUONTrack()
- : TObject()
+ : TObject(),
+ fTrackParamAtVertex(),
+ fTrackParamAtHit(0x0),
+ fHitForRecAtHit(0x0),
+ fNTrackHits(0),
+ fFitFMin(-1.),
+ fMatchTrigger(kFALSE),
+ fChi2MatchTrigger(0.),
+ fTrackID(0)
{
- // Default constructor
- fgFitter = 0;
- fEventReconstructor = 0;
- fTrackHitsPtr = new TObjArray(10);
- fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
+ /// Default constructor
}
//__________________________________________________________________________
-AliMUONTrack::AliMUONTrack(AliMUONSegment* BegSegment, AliMUONSegment* EndSegment, AliMUONEventReconstructor* EventReconstructor)
- : TObject()
+AliMUONTrack::AliMUONTrack(AliMUONSegment* BegSegment, AliMUONSegment* EndSegment)
+ : TObject(),
+ fTrackParamAtVertex(),
+ fTrackParamAtHit(0x0),
+ fHitForRecAtHit(0x0),
+ fNTrackHits(0),
+ fFitFMin(-1.),
+ fMatchTrigger(kFALSE),
+ fChi2MatchTrigger(0.),
+ fTrackID(0)
{
- // Constructor from two Segment's
- fEventReconstructor = EventReconstructor; // link back to EventReconstructor
- // memory allocation for the TObjArray of pointers to reconstructed TrackHit's
- fTrackHitsPtr = new TObjArray(10);
- fNTrackHits = 0;
- AddSegment(BegSegment); // add hits from BegSegment
- AddSegment(EndSegment); // add hits from EndSegment
- fTrackHitsPtr->Sort(); // sort TrackHits according to increasing Z
- SetTrackParamAtVertex(); // set track parameters at vertex
+ /// Constructor from two Segment's
+
fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
- // set fit conditions...
- fFitMCS = 0;
- fFitNParam = 3;
- fFitStart = 1;
- fFitFMin = -1.0;
- fMatchTrigger = kFALSE;
- fChi2MatchTrigger = 0;
- return;
+ fHitForRecAtHit = new TClonesArray("AliMUONHitForRec",10);
+
+ if (BegSegment) { //AZ
+ AddTrackParamAtHit(0,BegSegment->GetHitForRec1());
+ AddTrackParamAtHit(0,BegSegment->GetHitForRec2());
+ AddTrackParamAtHit(0,EndSegment->GetHitForRec1());
+ AddTrackParamAtHit(0,EndSegment->GetHitForRec2());
+ fTrackParamAtHit->Sort(); // sort TrackParamAtHit according to increasing Z
+ }
}
//__________________________________________________________________________
-AliMUONTrack::AliMUONTrack(AliMUONSegment* Segment, AliMUONHitForRec* HitForRec, AliMUONEventReconstructor* EventReconstructor)
- : TObject()
+AliMUONTrack::AliMUONTrack(AliMUONSegment* Segment, AliMUONHitForRec* HitForRec)
+ : TObject(),
+ fTrackParamAtVertex(),
+ fTrackParamAtHit(0x0),
+ fHitForRecAtHit(0x0),
+ fNTrackHits(0),
+ fFitFMin(-1.),
+ fMatchTrigger(kFALSE),
+ fChi2MatchTrigger(0.),
+ fTrackID(0)
{
- // Constructor from one Segment and one HitForRec
- fEventReconstructor = EventReconstructor; // link back to EventReconstructor
- // memory allocation for the TObjArray of pointers to reconstructed TrackHit's
- fTrackHitsPtr = new TObjArray(10);
- fNTrackHits = 0;
- AddSegment(Segment); // add hits from Segment
- AddHitForRec(HitForRec); // add HitForRec
- fTrackHitsPtr->Sort(); // sort TrackHits according to increasing Z
- SetTrackParamAtVertex(); // set track parameters at vertex
+ /// Constructor from one Segment and one HitForRec
+
fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
- // set fit conditions...
- fFitMCS = 0;
- fFitNParam = 3;
- fFitStart = 1;
- fFitFMin = -1.0;
- fMatchTrigger = kFALSE;
- fChi2MatchTrigger = 0;
- return;
+ fHitForRecAtHit = new TClonesArray("AliMUONHitForRec",10);
+
+ AddTrackParamAtHit(0,Segment->GetHitForRec1());
+ AddTrackParamAtHit(0,Segment->GetHitForRec2());
+ AddTrackParamAtHit(0,HitForRec);
+ fTrackParamAtHit->Sort(); // sort TrackParamAtHit according to increasing Z
}
//__________________________________________________________________________
AliMUONTrack::~AliMUONTrack()
{
- // Destructor
- if (fTrackHitsPtr) {
- delete fTrackHitsPtr; // delete the TObjArray of pointers to TrackHit's
- fTrackHitsPtr = NULL;
- }
-
+ /// Destructor
if (fTrackParamAtHit) {
// delete the TClonesArray of pointers to TrackParam
delete fTrackParamAtHit;
fTrackParamAtHit = NULL;
}
+
+ if (fHitForRecAtHit) {
+ // delete the TClonesArray of pointers to HitForRec
+ delete fHitForRecAtHit;
+ fHitForRecAtHit = NULL;
+ }
}
//__________________________________________________________________________
AliMUONTrack::AliMUONTrack (const AliMUONTrack& theMUONTrack)
- : TObject(theMUONTrack)
+ : TObject(theMUONTrack),
+ fTrackParamAtVertex(theMUONTrack.fTrackParamAtVertex),
+ fTrackParamAtHit(0x0),
+ fHitForRecAtHit(0x0),
+ fNTrackHits(theMUONTrack.fNTrackHits),
+ fFitFMin(theMUONTrack.fFitFMin),
+ fMatchTrigger(theMUONTrack.fMatchTrigger),
+ fChi2MatchTrigger(theMUONTrack.fChi2MatchTrigger),
+ fTrackID(theMUONTrack.fTrackID)
{
- //fEventReconstructor = new AliMUONEventReconstructor(*MUONTrack.fEventReconstructor);
- // is it right ?
- // NO, because it would use dummy copy constructor
- // and AliMUONTrack is not the owner of its EventReconstructor
- fEventReconstructor = theMUONTrack.fEventReconstructor;
- fTrackParamAtVertex = theMUONTrack.fTrackParamAtVertex;
-
- // necessary to make a copy of the objects and not only the pointers in TObjArray.
- fTrackHitsPtr = new TObjArray(10);
- for (Int_t index = 0; index < (theMUONTrack.fTrackHitsPtr)->GetEntriesFast(); index++) {
- AliMUONTrackHit *trackHit = new AliMUONTrackHit(*(AliMUONTrackHit*)(theMUONTrack.fTrackHitsPtr)->At(index));
- fTrackHitsPtr->Add(trackHit);
- }
+ ///copy constructor
+ Int_t maxIndex = 0;
+
+ // necessary to make a copy of the objects and not only the pointers in TClonesArray.
+ if (theMUONTrack.fTrackParamAtHit) {
+ maxIndex = (theMUONTrack.fTrackParamAtHit)->GetEntriesFast();
+ fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",maxIndex);
+ for (Int_t index = 0; index < maxIndex; index++) {
+ new ((*fTrackParamAtHit)[index]) AliMUONTrackParam(*(AliMUONTrackParam*)theMUONTrack.fTrackParamAtHit->At(index));
+ }
+ }
// necessary to make a copy of the objects and not only the pointers in TClonesArray.
- fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
- for (Int_t index = 0; index < (theMUONTrack.fTrackParamAtHit)->GetEntriesFast(); index++) {
- {new ((*fTrackParamAtHit)[fTrackParamAtHit->GetEntriesFast()])
- AliMUONTrackParam(*(AliMUONTrackParam*)(theMUONTrack.fTrackParamAtHit)->At(index));}
- }
+ if (theMUONTrack.fHitForRecAtHit) {
+ maxIndex = (theMUONTrack.fHitForRecAtHit)->GetEntriesFast();
+ fHitForRecAtHit = new TClonesArray("AliMUONHitForRec",maxIndex);
+ for (Int_t index = 0; index < maxIndex; index++) {
+ new ((*fHitForRecAtHit)[index]) AliMUONHitForRec(*(AliMUONHitForRec*)theMUONTrack.fHitForRecAtHit->At(index));
+ }
+ }
- fNTrackHits = theMUONTrack.fNTrackHits;
- fFitMCS = theMUONTrack.fFitMCS;
- fFitNParam = theMUONTrack.fFitNParam;
- fFitFMin = theMUONTrack.fFitFMin;
- fFitStart = theMUONTrack.fFitStart;
- fMatchTrigger = theMUONTrack.fMatchTrigger;
- fChi2MatchTrigger = theMUONTrack.fChi2MatchTrigger;
}
//__________________________________________________________________________
AliMUONTrack & AliMUONTrack::operator=(const AliMUONTrack& theMUONTrack)
{
-
+ /// Asignment operator
// check assignement to self
if (this == &theMUONTrack)
return *this;
// base class assignement
TObject::operator=(theMUONTrack);
- // fEventReconstructor = new AliMUONEventReconstructor(*MUONTrack.fEventReconstructor); // is it right ?
- // is it right ? NO because it would use dummy copy constructor
- fEventReconstructor = theMUONTrack.fEventReconstructor;
- fTrackParamAtVertex = theMUONTrack.fTrackParamAtVertex;
-
- // necessary to make a copy of the objects and not only the pointers in TObjArray.
- fTrackHitsPtr = new TObjArray(10);
- for (Int_t index = 0; index < (theMUONTrack.fTrackHitsPtr)->GetEntriesFast(); index++) {
- AliMUONTrackHit *trackHit = new AliMUONTrackHit(*(AliMUONTrackHit*)(theMUONTrack.fTrackHitsPtr)->At(index));
- fTrackHitsPtr->Add(trackHit);
- }
+ fTrackParamAtVertex = theMUONTrack.fTrackParamAtVertex;
+ Int_t maxIndex = 0;
+
// necessary to make a copy of the objects and not only the pointers in TClonesArray.
- fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
- for (Int_t index = 0; index < (theMUONTrack.fTrackParamAtHit)->GetEntriesFast(); index++) {
- {new ((*fTrackParamAtHit)[fTrackParamAtHit->GetEntriesFast()])
- AliMUONTrackParam(*(AliMUONTrackParam*)(theMUONTrack.fTrackParamAtHit)->At(index));}
- }
+ fTrackParamAtHit = 0;
+ if (theMUONTrack.fTrackParamAtHit) {
+ fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
+ maxIndex = (theMUONTrack.fTrackParamAtHit)->GetEntriesFast();
+ for (Int_t index = 0; index < maxIndex; index++) {
+ new ((*fTrackParamAtHit)[fTrackParamAtHit->GetEntriesFast()])
+ AliMUONTrackParam(*(AliMUONTrackParam*)(theMUONTrack.fTrackParamAtHit)->At(index));
+ }
+ }
+ // necessary to make a copy of the objects and not only the pointers in TClonesArray.
+ fHitForRecAtHit = 0;
+ if (theMUONTrack.fHitForRecAtHit) {
+ fHitForRecAtHit = new TClonesArray("AliMUONHitForRec",10);
+ maxIndex = (theMUONTrack.fHitForRecAtHit)->GetEntriesFast();
+ for (Int_t index = 0; index < maxIndex; index++) {
+ new ((*fHitForRecAtHit)[fHitForRecAtHit->GetEntriesFast()])
+ AliMUONHitForRec(*(AliMUONHitForRec*)(theMUONTrack.fHitForRecAtHit)->At(index));
+ }
+ }
+
fNTrackHits = theMUONTrack.fNTrackHits;
- fFitMCS = theMUONTrack.fFitMCS;
- fFitNParam = theMUONTrack.fFitNParam;
fFitFMin = theMUONTrack.fFitFMin;
- fFitStart = theMUONTrack.fFitStart;
fMatchTrigger = theMUONTrack.fMatchTrigger;
fChi2MatchTrigger = theMUONTrack.fChi2MatchTrigger;
+ fTrackID = theMUONTrack.fTrackID;
return *this;
}
//__________________________________________________________________________
-void AliMUONTrack::Remove()
+void AliMUONTrack::AddTrackParamAtHit(AliMUONTrackParam *trackParam, AliMUONHitForRec *hitForRec)
{
- // Remove current track from array of tracks,
- // and corresponding track hits from array of track hits.
- // Compress the TClonesArray it belongs to.
- AliMUONTrackHit *nextTrackHit;
- AliMUONEventReconstructor *eventRec = this->fEventReconstructor;
- TClonesArray *trackHitsPtr = eventRec->GetRecTrackHitsPtr();
- // Loop over all track hits of track
- AliMUONTrackHit *trackHit = (AliMUONTrackHit*) fTrackHitsPtr->First();
- while (trackHit) {
- nextTrackHit = (AliMUONTrackHit*) fTrackHitsPtr->After(trackHit);
- // Remove TrackHit from event TClonesArray.
- // Destructor is called,
- // hence links between HitForRec's and TrackHit's are updated
- trackHitsPtr->Remove(trackHit);
- trackHit = nextTrackHit;
+ /// Add TrackParamAtHit if "trackParam" != NULL else create empty TrackParamAtHit
+ /// Update link to HitForRec if "hitForRec" != NULL
+ if (!fTrackParamAtHit) {
+ fTrackParamAtHit = new TClonesArray("AliMUONTrackParam",10);
+ fNTrackHits = 0;
}
- // Remove the track from event TClonesArray
- // Destructor is called,
- // hence space for TObjArray of pointers to TrackHit's is freed
- eventRec->GetRecTracksPtr()->Remove(this);
- // Number of tracks decreased by 1
- eventRec->SetNRecTracks(eventRec->GetNRecTracks() - 1);
- // Compress event TClonesArray of Track's:
- // this is essential to retrieve the TClonesArray afterwards
- eventRec->GetRecTracksPtr()->Compress();
- // Compress event TClonesArray of TrackHit's:
- // this is probably also essential to retrieve the TClonesArray afterwards
- trackHitsPtr->Compress();
+ AliMUONTrackParam* trackParamAtHit;
+ if (trackParam) trackParamAtHit = new ((*fTrackParamAtHit)[fNTrackHits]) AliMUONTrackParam(*trackParam);
+ else trackParamAtHit = new ((*fTrackParamAtHit)[fNTrackHits]) AliMUONTrackParam();
+ if (hitForRec) trackParamAtHit->SetHitForRecPtr(hitForRec);
+ fNTrackHits++;
}
//__________________________________________________________________________
-void AliMUONTrack::SetFitMCS(Int_t FitMCS)
+void AliMUONTrack::AddHitForRecAtHit(const AliMUONHitForRec *hitForRec)
{
- // Set multiple Coulomb scattering option for track fit "fFitMCS"
- // from "FitMCS" argument: 0 without, 1 with
- if ((FitMCS == 0) || (FitMCS == 1)) fFitMCS = FitMCS;
- // better implementation with enum(with, without) ????
- else {
- cout << "ERROR in AliMUONTrack::SetFitMCS(FitMCS)" << endl;
- cout << "FitMCS = " << FitMCS << " is neither 0 nor 1" << endl;
- exit(0);
- }
- return;
+ /// Add hitForRec to the array of hitForRec at hit
+ if (!fHitForRecAtHit)
+ fHitForRecAtHit = new TClonesArray("AliMUONHitForRec",10);
+
+ if (!hitForRec)
+ AliFatal("AliMUONTrack::AddHitForRecAtHit: hitForRec == NULL");
+
+ new ((*fHitForRecAtHit)[fHitForRecAtHit->GetEntriesFast()]) AliMUONHitForRec(*hitForRec);
}
//__________________________________________________________________________
-void AliMUONTrack::SetFitNParam(Int_t FitNParam)
+Bool_t* AliMUONTrack::CompatibleTrack(AliMUONTrack * Track, Double_t Sigma2Cut) const
{
- // Set number of parameters for track fit "fFitNParam" from "FitNParam":
- // 3 for momentum, 5 for momentum and position
- if ((FitNParam == 3) || (FitNParam == 5)) fFitNParam = FitNParam;
- else {
- cout << "ERROR in AliMUONTrack::SetFitNParam(FitNParam)" << endl;
- cout << "FitNParam = " << FitNParam << " is neither 3 nor 5" << endl;
- exit(0);
+ /// Return kTRUE/kFALSE for each chamber if hit is compatible or not
+ TClonesArray *hitArray, *thisHitArray;
+ AliMUONHitForRec *hit, *thisHit;
+ Int_t chamberNumber;
+ Float_t deltaZ;
+ Float_t deltaZMax = 1.; // 1 cm
+ Float_t chi2 = 0;
+ Bool_t *nCompHit = new Bool_t[AliMUONConstants::NTrackingCh()];
+
+ for ( Int_t ch = 0; ch < AliMUONConstants::NTrackingCh(); ch++) {
+ nCompHit[ch] = kFALSE;
}
- return;
-}
- //__________________________________________________________________________
-void AliMUONTrack::SetFitStart(Int_t FitStart)
-{
- // Set multiple Coulomb scattering option for track fit "fFitStart"
- // from "FitStart" argument: 0 without, 1 with
- if ((FitStart == 0) || (FitStart == 1)) fFitStart = FitStart;
- // better implementation with enum(vertex, firstHit) ????
- else {
- cout << "ERROR in AliMUONTrack::SetFitStart(FitStart)" << endl;
- cout << "FitStart = " << FitStart << " is neither 0 nor 1" << endl;
- exit(0);
+ thisHitArray = this->GetHitForRecAtHit();
+
+ hitArray = Track->GetHitForRecAtHit();
+
+ for (Int_t iHthis = 0; iHthis < thisHitArray->GetEntriesFast(); iHthis++) {
+ thisHit = (AliMUONHitForRec*) thisHitArray->At(iHthis);
+ chamberNumber = thisHit->GetChamberNumber();
+ if (chamberNumber < 0 || chamberNumber > AliMUONConstants::NTrackingCh()) continue;
+ nCompHit[chamberNumber] = kFALSE;
+ for (Int_t iH = 0; iH < hitArray->GetEntriesFast(); iH++) {
+ hit = (AliMUONHitForRec*) hitArray->At(iH);
+ deltaZ = TMath::Abs(thisHit->GetZ() - hit->GetZ());
+ chi2 = thisHit->NormalizedChi2WithHitForRec(hit,Sigma2Cut); // set cut to 4 sigmas
+ if (chi2 < 3. && deltaZ < deltaZMax) {
+ nCompHit[chamberNumber] = kTRUE;
+ break;
+ }
+ }
}
- return;
+
+ return nCompHit;
}
//__________________________________________________________________________
-AliMUONTrackParam* AliMUONTrack::GetTrackParamAtFirstHit(void) const {
- // Get pointer to TrackParamAtFirstHit
- return ((AliMUONTrackHit*) (fTrackHitsPtr->First()))->GetTrackParam();}
+Int_t AliMUONTrack::HitsInCommon(AliMUONTrack* Track) const
+{
+ /// Returns the number of hits in common between the current track ("this")
+ /// and the track pointed to by "Track".
+ Int_t hitsInCommon = 0;
+ AliMUONTrackParam *trackParamAtHit1, *trackParamAtHit2;
+ // Loop over hits of first track
+ trackParamAtHit1 = (AliMUONTrackParam*) this->fTrackParamAtHit->First();
+ while (trackParamAtHit1) {
+ // Loop over hits of second track
+ trackParamAtHit2 = (AliMUONTrackParam*) Track->fTrackParamAtHit->First();
+ while (trackParamAtHit2) {
+ // Increment "hitsInCommon" if both TrackParamAtHits point to the same HitForRec
+ if ((trackParamAtHit1->GetHitForRecPtr()) == (trackParamAtHit2->GetHitForRecPtr())) hitsInCommon++;
+ trackParamAtHit2 = (AliMUONTrackParam*) Track->fTrackParamAtHit->After(trackParamAtHit2);
+ } // trackParamAtHit2
+ trackParamAtHit1 = (AliMUONTrackParam*) this->fTrackParamAtHit->After(trackParamAtHit1);
+ } // trackParamAtHit1
+ return hitsInCommon;
+}
//__________________________________________________________________________
void AliMUONTrack::RecursiveDump(void) const
{
- // Recursive dump of AliMUONTrack, i.e. with dump of TrackHit's and HitForRec's
- AliMUONTrackHit *trackHit;
+ /// Recursive dump of AliMUONTrack, i.e. with dump of TrackParamAtHit's and attached HitForRec's
+ AliMUONTrackParam *trackParamAtHit;
AliMUONHitForRec *hitForRec;
cout << "Recursive dump of Track: " << this << endl;
// Track
this->Dump();
for (Int_t trackHitIndex = 0; trackHitIndex < fNTrackHits; trackHitIndex++) {
- trackHit = (AliMUONTrackHit*) ((*fTrackHitsPtr)[trackHitIndex]);
+ trackParamAtHit = (AliMUONTrackParam*) ((*fTrackParamAtHit)[trackHitIndex]);
// TrackHit
- cout << "TrackHit: " << trackHit << " (index: " << trackHitIndex << ")" << endl;
- trackHit->Dump();
- hitForRec = trackHit->GetHitForRecPtr();
+ cout << "TrackParamAtHit: " << trackParamAtHit << " (index: " << trackHitIndex << ")" << endl;
+ trackParamAtHit->Dump();
+ hitForRec = trackParamAtHit->GetHitForRecPtr();
// HitForRec
cout << "HitForRec: " << hitForRec << endl;
hitForRec->Dump();
}
return;
}
-
- //__________________________________________________________________________
-Int_t AliMUONTrack::HitsInCommon(AliMUONTrack* Track) const
-{
- // Returns the number of hits in common
- // between the current track ("this")
- // and the track pointed to by "Track".
- Int_t hitsInCommon = 0;
- AliMUONTrackHit *trackHit1, *trackHit2;
- // Loop over hits of first track
- trackHit1 = (AliMUONTrackHit*) this->GetTrackHitsPtr()->First();
- while (trackHit1) {
- // Loop over hits of second track
- trackHit2 = (AliMUONTrackHit*) Track->GetTrackHitsPtr()->First();
- while (trackHit2) {
- // Increment "hitsInCommon" if both TrackHits point to the same HitForRec
- if ( (trackHit1->GetHitForRecPtr()) ==
- (trackHit2->GetHitForRecPtr()) ) hitsInCommon++;
- trackHit2 = (AliMUONTrackHit*) Track->GetTrackHitsPtr()->After(trackHit2);
- } // trackHit2
- trackHit1 = (AliMUONTrackHit*) this->GetTrackHitsPtr()->After(trackHit1);
- } // trackHit1
- return hitsInCommon;
-}
-
- //__________________________________________________________________________
-void AliMUONTrack::MatchTriggerTrack(TClonesArray *triggerTrackArray)
-{
- // Match this track with one trigger track if possible
- AliMUONTrackParam trackParam;
- AliMUONTriggerTrack *triggerTrack;
- Double_t xTrack, yTrack, ySlopeTrack, dTrigTrackMin2, dTrigTrack2;
- Double_t nSigmaCut2;
-
- Double_t distSigma[3]={1,1,0.02}; // sigma of distributions (trigger-track) X,Y,slopeY
- Double_t distTriggerTrack[3] = {0,0,0};
-
- fMatchTrigger = kFALSE;
- fChi2MatchTrigger = 0;
-
- trackParam = *((AliMUONTrackParam*) fTrackParamAtHit->Last());
- trackParam.ExtrapToZ(AliMUONConstants::DefaultChamberZ(10)); // extrap to 1st trigger chamber
-
- nSigmaCut2 = fEventReconstructor->GetMaxSigma2Distance(); // nb of sigma**2 for cut
- xTrack = trackParam.GetNonBendingCoor();
- yTrack = trackParam.GetBendingCoor();
- ySlopeTrack = trackParam.GetBendingSlope();
- dTrigTrackMin2 = 999;
- triggerTrack = (AliMUONTriggerTrack*) triggerTrackArray->First();
- while(triggerTrack){
- distTriggerTrack[0] = (triggerTrack->GetX11()-xTrack)/distSigma[0];
- distTriggerTrack[1] = (triggerTrack->GetY11()-yTrack)/distSigma[1];
- distTriggerTrack[2] = (TMath::Tan(triggerTrack->GetThetay())-ySlopeTrack)/distSigma[2];
- dTrigTrack2 = 0;
- for (Int_t iVar = 0; iVar < 3; iVar++)
- dTrigTrack2 += distTriggerTrack[iVar]*distTriggerTrack[iVar];
- if (dTrigTrack2 < dTrigTrackMin2 && dTrigTrack2 < nSigmaCut2) {
- dTrigTrackMin2 = dTrigTrack2;
- fMatchTrigger = kTRUE;
- fChi2MatchTrigger = dTrigTrack2/3.; // Normalized Chi2, 3 variables (X,Y,slopeY)
- }
- triggerTrack = (AliMUONTriggerTrack*) triggerTrackArray->After(triggerTrack);
- }
-
-}
- //__________________________________________________________________________
-void AliMUONTrack::Fit()
+//_____________________________________________-
+void AliMUONTrack::Print(Option_t* opt) const
{
- // Fit the current track ("this"),
- // with or without multiple Coulomb scattering according to "fFitMCS",
- // with the number of parameters given by "fFitNParam"
- // (3 if one keeps X and Y fixed in "TrackParam", 5 if one lets them vary),
- // starting, according to "fFitStart",
- // with track parameters at vertex or at the first TrackHit.
- // "fFitMCS", "fFitNParam" and "fFitStart" have to be set before
- // by calling the corresponding Set methods.
- Double_t arg[1], benC, errorParam, invBenP, lower, nonBenC, upper, x, y;
- char parName[50];
- AliMUONTrackParam *trackParam;
- // Check if Minuit is initialized...
- fgFitter = TVirtualFitter::Fitter(this); // add 3 or 5 for the maximum number of parameters ???
- fgFitter->Clear(); // necessary ???? probably yes
- // how to reset the printout number at every fit ????
- // is there any risk to leave it like that ????
- // how to go faster ???? choice of Minuit parameters like EDM ????
- // choice of function to be minimized according to fFitMCS
- if (fFitMCS == 0) fgFitter->SetFCN(TrackChi2);
- else fgFitter->SetFCN(TrackChi2MCS);
- // Switch off printout
- arg[0] = -1;
- fgFitter->ExecuteCommand("SET PRINT", arg, 1); // More printing !!!!
- // No warnings
- fgFitter->ExecuteCommand("SET NOW", arg, 0);
- // Parameters according to "fFitStart"
- // (should be a function to be used at every place where needed ????)
- if (fFitStart == 0) trackParam = &fTrackParamAtVertex;
- else trackParam = this->GetTrackParamAtFirstHit();
- // set first 3 Minuit parameters
- // could be tried with no limits for the search (min=max=0) ????
- fgFitter->SetParameter(0, "InvBenP",
- trackParam->GetInverseBendingMomentum(),
- 0.003, -0.4, 0.4);
- fgFitter->SetParameter(1, "BenS",
- trackParam->GetBendingSlope(),
- 0.001, -0.5, 0.5);
- fgFitter->SetParameter(2, "NonBenS",
- trackParam->GetNonBendingSlope(),
- 0.001, -0.5, 0.5);
- if (fFitNParam == 5) {
- // set last 2 Minuit parameters
- // mandatory limits in Bending to avoid NaN values of parameters
- fgFitter->SetParameter(3, "X",
- trackParam->GetNonBendingCoor(),
- 0.03, -500.0, 500.0);
- // mandatory limits in non Bending to avoid NaN values of parameters
- fgFitter->SetParameter(4, "Y",
- trackParam->GetBendingCoor(),
- 0.10, -500.0, 500.0);
- }
- // search without gradient calculation in the function
- fgFitter->ExecuteCommand("SET NOGRADIENT", arg, 0);
- // minimization
- fgFitter->ExecuteCommand("MINIMIZE", arg, 0);
- // exit from Minuit
- // fgFitter->ExecuteCommand("EXIT", arg, 0); // necessary ????
- // get results into "invBenP", "benC", "nonBenC" ("x", "y")
- fgFitter->GetParameter(0, parName, invBenP, errorParam, lower, upper);
- fgFitter->GetParameter(1, parName, benC, errorParam, lower, upper);
- fgFitter->GetParameter(2, parName, nonBenC, errorParam, lower, upper);
- if (fFitNParam == 5) {
- fgFitter->GetParameter(3, parName, x, errorParam, lower, upper);
- fgFitter->GetParameter(4, parName, y, errorParam, lower, upper);
- }
- // result of the fit into track parameters
- trackParam->SetInverseBendingMomentum(invBenP);
- trackParam->SetBendingSlope(benC);
- trackParam->SetNonBendingSlope(nonBenC);
- if (fFitNParam == 5) {
- trackParam->SetNonBendingCoor(x);
- trackParam->SetBendingCoor(y);
- }
- // global result of the fit
- Double_t fedm, errdef;
- Int_t npari, nparx;
- fgFitter->GetStats(fFitFMin, fedm, errdef, npari, nparx);
-}
-
- //__________________________________________________________________________
-void AliMUONTrack::AddSegment(AliMUONSegment* Segment)
-{
- // Add Segment to the track
- AddHitForRec(Segment->GetHitForRec1()); // 1st hit
- AddHitForRec(Segment->GetHitForRec2()); // 2nd hit
-}
-
- //__________________________________________________________________________
-void AliMUONTrack::AddHitForRec(AliMUONHitForRec* HitForRec)
-{
- // Add HitForRec to the track:
- // actual TrackHit into TClonesArray of TrackHit's for the event;
- // pointer to actual TrackHit in TObjArray of pointers to TrackHit's for the track
- TClonesArray *recTrackHitsPtr = this->fEventReconstructor->GetRecTrackHitsPtr();
- Int_t eventTrackHits = this->fEventReconstructor->GetNRecTrackHits();
- // event
- AliMUONTrackHit* trackHit =
- new ((*recTrackHitsPtr)[eventTrackHits]) AliMUONTrackHit(HitForRec);
- this->fEventReconstructor->SetNRecTrackHits(eventTrackHits + 1);
- // track
- fTrackHitsPtr->Add(trackHit);
- fNTrackHits++;
-}
-
- //__________________________________________________________________________
-void AliMUONTrack::SetTrackParamAtHit(Int_t indexHit, AliMUONTrackParam *TrackParam) const
-{
- // Set track parameters at TrackHit with index "indexHit"
- // from the track parameters pointed to by "TrackParam".
- //PH AliMUONTrackHit* trackHit = (AliMUONTrackHit*) ((*fTrackHitsPtr)[indexHit]);
- AliMUONTrackHit* trackHit = (AliMUONTrackHit*) (fTrackHitsPtr->At(indexHit));
- trackHit->SetTrackParam(TrackParam);
-}
-
- //__________________________________________________________________________
-void AliMUONTrack::SetTrackParamAtVertex()
-{
- // Set track parameters at vertex.
- // TrackHit's are assumed to be only in stations(1..) 4 and 5,
- // and sorted according to increasing Z..
- // Parameters are calculated from information in HitForRec's
- // of first and last TrackHit's.
- AliMUONTrackParam *trackParam =
- &fTrackParamAtVertex; // pointer to track parameters
- // Pointer to HitForRec of first TrackHit
- AliMUONHitForRec *firstHit =
- ((AliMUONTrackHit*) (fTrackHitsPtr->First()))->GetHitForRecPtr();
- // Pointer to HitForRec of last TrackHit
- AliMUONHitForRec *lastHit =
- ((AliMUONTrackHit*) (fTrackHitsPtr->Last()))->GetHitForRecPtr();
- // Z difference between first and last hits
- Double_t deltaZ = firstHit->GetZ() - lastHit->GetZ();
- // bending slope in stations(1..) 4 and 5
- Double_t bendingSlope =
- (firstHit->GetBendingCoor() - lastHit->GetBendingCoor()) / deltaZ;
- trackParam->SetBendingSlope(bendingSlope);
- // impact parameter
- Double_t impactParam =
- firstHit->GetBendingCoor() - bendingSlope * firstHit->GetZ(); // same if from firstHit and lastHit ????
- // signed bending momentum
- Double_t signedBendingMomentum =
- fEventReconstructor->GetBendingMomentumFromImpactParam(impactParam);
- trackParam->SetInverseBendingMomentum(1.0 / signedBendingMomentum);
- // bending slope at vertex
- trackParam->
- SetBendingSlope(bendingSlope +
- impactParam / fEventReconstructor->GetSimpleBPosition());
- // non bending slope
- Double_t nonBendingSlope =
- (firstHit->GetNonBendingCoor() - lastHit->GetNonBendingCoor()) / deltaZ;
- trackParam->SetNonBendingSlope(nonBendingSlope);
- // vertex coordinates at (0,0,0)
- trackParam->SetZ(0.0);
- trackParam->SetBendingCoor(0.0);
- trackParam->SetNonBendingCoor(0.0);
-}
-
- //__________________________________________________________________________
-void TrackChi2(Int_t &NParam, Double_t * /*Gradient*/, Double_t &Chi2, Double_t *Param, Int_t /*Flag*/)
-{
- // Return the "Chi2" to be minimized with Minuit for track fitting,
- // with "NParam" parameters
- // and their current values in array pointed to by "Param".
- // Assumes that the track hits are sorted according to increasing Z.
- // Track parameters at each TrackHit are updated accordingly.
- // Multiple Coulomb scattering is not taken into account
- AliMUONTrack *trackBeingFitted;
- AliMUONTrackHit* hit;
- AliMUONTrackParam param1;
- Int_t hitNumber;
- Double_t zHit;
- Chi2 = 0.0; // initialize Chi2
- // copy of track parameters to be fitted
- trackBeingFitted = (AliMUONTrack*) AliMUONTrack::Fitter()->GetObjectFit();
- if (trackBeingFitted->GetFitStart() == 0)
- param1 = *(trackBeingFitted->GetTrackParamAtVertex());
- else param1 = *(trackBeingFitted->GetTrackParamAtFirstHit());
- // Minuit parameters to be fitted into this copy
- param1.SetInverseBendingMomentum(Param[0]);
- param1.SetBendingSlope(Param[1]);
- param1.SetNonBendingSlope(Param[2]);
- if (NParam == 5) {
- param1.SetNonBendingCoor(Param[3]);
- param1.SetBendingCoor(Param[4]);
- }
- // Follow track through all planes of track hits
- for (hitNumber = 0; hitNumber < trackBeingFitted->GetNTrackHits(); hitNumber++) {
- hit = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber];
- zHit = hit->GetHitForRecPtr()->GetZ();
- // do something special if 2 hits with same Z ????
- // security against infinite loop ????
- (¶m1)->ExtrapToZ(zHit); // extrapolation
- hit->SetTrackParam(¶m1);
- // Increment Chi2
- // done hit per hit, with hit resolution,
- // and not with point and angle like in "reco_muon.F" !!!!
- // Needs to add multiple scattering contribution ????
- Double_t dX =
- hit->GetHitForRecPtr()->GetNonBendingCoor() - (¶m1)->GetNonBendingCoor();
- Double_t dY =
- hit->GetHitForRecPtr()->GetBendingCoor() - (¶m1)->GetBendingCoor();
- Chi2 =
- Chi2 +
- dX * dX / hit->GetHitForRecPtr()->GetNonBendingReso2() +
- dY * dY / hit->GetHitForRecPtr()->GetBendingReso2();
- }
-}
-
- //__________________________________________________________________________
-void TrackChi2MCS(Int_t &NParam, Double_t * /*Gradient*/, Double_t &Chi2, Double_t *Param, Int_t /*Flag*/)
-{
- // Return the "Chi2" to be minimized with Minuit for track fitting,
- // with "NParam" parameters
- // and their current values in array pointed to by "Param".
- // Assumes that the track hits are sorted according to increasing Z.
- // Track parameters at each TrackHit are updated accordingly.
- // Multiple Coulomb scattering is taken into account with covariance matrix.
- AliMUONTrack *trackBeingFitted;
- AliMUONTrackParam param1;
- Chi2 = 0.0; // initialize Chi2
- // copy of track parameters to be fitted
- trackBeingFitted = (AliMUONTrack*) AliMUONTrack::Fitter()->GetObjectFit();
- if (trackBeingFitted->GetFitStart() == 0)
- param1 = *(trackBeingFitted->GetTrackParamAtVertex());
- else param1 = *(trackBeingFitted->GetTrackParamAtFirstHit());
- // Minuit parameters to be fitted into this copy
- param1.SetInverseBendingMomentum(Param[0]);
- param1.SetBendingSlope(Param[1]);
- param1.SetNonBendingSlope(Param[2]);
- if (NParam == 5) {
- param1.SetNonBendingCoor(Param[3]);
- param1.SetBendingCoor(Param[4]);
+ /// Printing Track information
+ /// "full" option for printing all the information about the track
+ TString sopt(opt);
+ sopt.ToUpper();
+
+ if ( sopt.Contains("FULL") ) {
+ cout << "<AliMUONTrack> No.Clusters=" << setw(2) << GetNTrackHits() <<
+ // ", Bending P="<< setw(8) << setprecision(5) << 1./GetInverseBendingMomentum() <<
+ //", NonBendSlope=" << setw(8) << setprecision(5) << GetNonBendingSlope()*180./TMath::Pi() <<
+ //", BendSlope=" << setw(8) << setprecision(5) << GetBendingSlope()*180./TMath::Pi() <<
+ ", Match2Trig=" << setw(1) << GetMatchTrigger() <<
+ ", Chi2-tracking-trigger=" << setw(8) << setprecision(5) << GetChi2MatchTrigger() << endl ;
+ GetTrackParamAtHit()->First()->Print("full");
}
+ else {
+ cout << "<AliMUONTrack>";
+ GetTrackParamAtHit()->First()->Print("");
- AliMUONTrackHit *hit;
- Int_t chCurrent, chPrev = 0, hitNumber, hitNumber1, hitNumber2, hitNumber3;
- Double_t z, z1, z2, z3;
- AliMUONTrackHit *hit1, *hit2, *hit3;
- Double_t hbc1, hbc2, pbc1, pbc2;
- Double_t hnbc1, hnbc2, pnbc1, pnbc2;
- Int_t numberOfHit = trackBeingFitted->GetNTrackHits();
- TMatrixD *covBending = new TMatrixD(numberOfHit, numberOfHit);
- TMatrixD *covNonBending = new TMatrixD(numberOfHit, numberOfHit);
- Double_t *msa2 = new Double_t[numberOfHit];
-
- // Predicted coordinates and multiple scattering angles are first calculated
- for (hitNumber = 0; hitNumber < numberOfHit; hitNumber++) {
- hit = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber];
- z = hit->GetHitForRecPtr()->GetZ();
- // do something special if 2 hits with same Z ????
- // security against infinite loop ????
- (¶m1)->ExtrapToZ(z); // extrapolation
- hit->SetTrackParam(¶m1);
- // square of multiple scattering angle at current hit, with one chamber
- msa2[hitNumber] = MultipleScatteringAngle2(hit);
- // correction for eventual missing hits or multiple hits in a chamber,
- // according to the number of chambers
- // between the current hit and the previous one
- chCurrent = hit->GetHitForRecPtr()->GetChamberNumber();
- if (hitNumber > 0) msa2[hitNumber] = msa2[hitNumber] * (chCurrent - chPrev);
- chPrev = chCurrent;
}
-
- // Calculates the covariance matrix
- for (hitNumber1 = 0; hitNumber1 < numberOfHit; hitNumber1++) {
- hit1 = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber1];
- z1 = hit1->GetHitForRecPtr()->GetZ();
- for (hitNumber2 = hitNumber1; hitNumber2 < numberOfHit; hitNumber2++) {
- hit2 = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber2];
- z2 = hit2->GetHitForRecPtr()->GetZ();
- // initialization to 0 (diagonal plus upper triangular part)
- (*covBending)(hitNumber2, hitNumber1) = 0.0;
- // contribution from multiple scattering in bending plane:
- // loop over upstream hits
- for (hitNumber3 = 0; hitNumber3 < hitNumber1; hitNumber3++) {
- hit3 = (AliMUONTrackHit*)
- (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber3];
- z3 = hit3->GetHitForRecPtr()->GetZ();
- (*covBending)(hitNumber2, hitNumber1) =
- (*covBending)(hitNumber2, hitNumber1) +
- ((z1 - z3) * (z2 - z3) * msa2[hitNumber3]);
- }
- // equal contribution from multiple scattering in non bending plane
- (*covNonBending)(hitNumber2, hitNumber1) =
- (*covBending)(hitNumber2, hitNumber1);
- if (hitNumber1 == hitNumber2) {
- // Diagonal elements: add contribution from position measurements
- // in bending plane
- (*covBending)(hitNumber2, hitNumber1) =
- (*covBending)(hitNumber2, hitNumber1) +
- hit1->GetHitForRecPtr()->GetBendingReso2();
- // and in non bending plane
- (*covNonBending)(hitNumber2, hitNumber1) =
- (*covNonBending)(hitNumber2, hitNumber1) +
- hit1->GetHitForRecPtr()->GetNonBendingReso2();
- }
- else {
- // Non diagonal elements: symmetrization
- // for bending plane
- (*covBending)(hitNumber1, hitNumber2) =
- (*covBending)(hitNumber2, hitNumber1);
- // and non bending plane
- (*covNonBending)(hitNumber1, hitNumber2) =
- (*covNonBending)(hitNumber2, hitNumber1);
- }
- } // for (hitNumber2 = hitNumber1;...
- } // for (hitNumber1 = 0;...
- // Inversion of covariance matrices
- // with "mnvertLocal", local "mnvert" function of Minuit.
- // One cannot use directly "mnvert" since "TVirtualFitter" does not know it.
- // One will have to replace this local function by the right inversion function
- // from a specialized Root package for symmetric positive definite matrices,
- // when available!!!!
- Int_t ifailBending;
- mnvertLocal(&((*covBending)(0,0)), numberOfHit, numberOfHit, numberOfHit,
- ifailBending);
- Int_t ifailNonBending;
- mnvertLocal(&((*covNonBending)(0,0)), numberOfHit, numberOfHit, numberOfHit,
- ifailNonBending);
-
- // It would be worth trying to calculate the inverse of the covariance matrix
- // only once per fit, since it cannot change much in principle,
- // and it would save a lot of computing time !!!!
-
- // Calculates Chi2
- if ((ifailBending == 0) && (ifailNonBending == 0)) {
- // with Multiple Scattering if inversion correct
- for (hitNumber1 = 0; hitNumber1 < numberOfHit ; hitNumber1++) {
- hit1 = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber1];
- hbc1 = hit1->GetHitForRecPtr()->GetBendingCoor();
- pbc1 = hit1->GetTrackParam()->GetBendingCoor();
- hnbc1 = hit1->GetHitForRecPtr()->GetNonBendingCoor();
- pnbc1 = hit1->GetTrackParam()->GetNonBendingCoor();
- for (hitNumber2 = 0; hitNumber2 < numberOfHit; hitNumber2++) {
- hit2 = (AliMUONTrackHit*)
- (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber2];
- hbc2 = hit2->GetHitForRecPtr()->GetBendingCoor();
- pbc2 = hit2->GetTrackParam()->GetBendingCoor();
- hnbc2 = hit2->GetHitForRecPtr()->GetNonBendingCoor();
- pnbc2 = hit2->GetTrackParam()->GetNonBendingCoor();
- Chi2 = Chi2 +
- ((*covBending)(hitNumber2, hitNumber1) *
- (hbc1 - pbc1) * (hbc2 - pbc2)) +
- ((*covNonBending)(hitNumber2, hitNumber1) *
- (hnbc1 - pnbc1) * (hnbc2 - pnbc2));
- }
- }
- } else {
- // without Multiple Scattering if inversion impossible
- for (hitNumber1 = 0; hitNumber1 < numberOfHit ; hitNumber1++) {
- hit1 = (AliMUONTrackHit*) (*(trackBeingFitted->GetTrackHitsPtr()))[hitNumber1];
- hbc1 = hit1->GetHitForRecPtr()->GetBendingCoor();
- pbc1 = hit1->GetTrackParam()->GetBendingCoor();
- hnbc1 = hit1->GetHitForRecPtr()->GetNonBendingCoor();
- pnbc1 = hit1->GetTrackParam()->GetNonBendingCoor();
- Chi2 = Chi2 +
- ((hbc1 - pbc1) * (hbc1 - pbc1) /
- hit1->GetHitForRecPtr()->GetBendingReso2()) +
- ((hnbc1 - pnbc1) * (hnbc1 - pnbc1) /
- hit1->GetHitForRecPtr()->GetNonBendingReso2());
- }
- }
-
- delete covBending;
- delete covNonBending;
- delete [] msa2;
-}
-
-Double_t MultipleScatteringAngle2(AliMUONTrackHit *TrackHit)
-{
- // Returns square of multiple Coulomb scattering angle
- // at TrackHit pointed to by "TrackHit"
- Double_t slopeBending, slopeNonBending, radiationLength, inverseBendingMomentum2, inverseTotalMomentum2;
- Double_t varMultipleScatteringAngle;
- AliMUONTrack *trackBeingFitted = (AliMUONTrack*) AliMUONTrack::Fitter()->GetObjectFit();
- AliMUONTrackParam *param = TrackHit->GetTrackParam();
- // Better implementation in AliMUONTrack class ????
- slopeBending = param->GetBendingSlope();
- slopeNonBending = param->GetNonBendingSlope();
- // thickness in radiation length for the current track,
- // taking local angle into account
- radiationLength =
- trackBeingFitted->GetEventReconstructor()->GetChamberThicknessInX0() *
- TMath::Sqrt(1.0 +
- slopeBending * slopeBending + slopeNonBending * slopeNonBending);
- inverseBendingMomentum2 =
- param->GetInverseBendingMomentum() * param->GetInverseBendingMomentum();
- inverseTotalMomentum2 =
- inverseBendingMomentum2 * (1.0 + slopeBending * slopeBending) /
- (1.0 + slopeBending *slopeBending + slopeNonBending * slopeNonBending);
- varMultipleScatteringAngle = 0.0136 * (1.0 + 0.038 * TMath::Log(radiationLength));
- // The velocity is assumed to be 1 !!!!
- varMultipleScatteringAngle = inverseTotalMomentum2 * radiationLength *
- varMultipleScatteringAngle * varMultipleScatteringAngle;
- return varMultipleScatteringAngle;
}
-
-//______________________________________________________________________________
- void mnvertLocal(Double_t *a, Int_t l, Int_t, Int_t n, Int_t &ifail)
-{
-//*-*-*-*-*-*-*-*-*-*-*-*Inverts a symmetric matrix*-*-*-*-*-*-*-*-*-*-*-*-*
-//*-* ==========================
-//*-* inverts a symmetric matrix. matrix is first scaled to
-//*-* have all ones on the diagonal (equivalent to change of units)
-//*-* but no pivoting is done since matrix is positive-definite.
-//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
-
- // taken from TMinuit package of Root (l>=n)
- // fVERTs, fVERTq and fVERTpp changed to localVERTs, localVERTq and localVERTpp
- // Double_t localVERTs[n], localVERTq[n], localVERTpp[n];
- Double_t * localVERTs = new Double_t[n];
- Double_t * localVERTq = new Double_t[n];
- Double_t * localVERTpp = new Double_t[n];
- // fMaxint changed to localMaxint
- Int_t localMaxint = n;
-
- /* System generated locals */
- Int_t aOffset;
-
- /* Local variables */
- Double_t si;
- Int_t i, j, k, kp1, km1;
-
- /* Parameter adjustments */
- aOffset = l + 1;
- a -= aOffset;
-
- /* Function Body */
- ifail = 0;
- if (n < 1) goto L100;
- if (n > localMaxint) goto L100;
-//*-*- scale matrix by sqrt of diag elements
- for (i = 1; i <= n; ++i) {
- si = a[i + i*l];
- if (si <= 0) goto L100;
- localVERTs[i-1] = 1 / TMath::Sqrt(si);
- }
- for (i = 1; i <= n; ++i) {
- for (j = 1; j <= n; ++j) {
- a[i + j*l] = a[i + j*l]*localVERTs[i-1]*localVERTs[j-1];
- }
- }
-//*-*- . . . start main loop . . . .
- for (i = 1; i <= n; ++i) {
- k = i;
-//*-*- preparation for elimination step1
- if (a[k + k*l] != 0) localVERTq[k-1] = 1 / a[k + k*l];
- else goto L100;
- localVERTpp[k-1] = 1;
- a[k + k*l] = 0;
- kp1 = k + 1;
- km1 = k - 1;
- if (km1 < 0) goto L100;
- else if (km1 == 0) goto L50;
- else goto L40;
-L40:
- for (j = 1; j <= km1; ++j) {
- localVERTpp[j-1] = a[j + k*l];
- localVERTq[j-1] = a[j + k*l]*localVERTq[k-1];
- a[j + k*l] = 0;
- }
-L50:
- if (k - n < 0) goto L51;
- else if (k - n == 0) goto L60;
- else goto L100;
-L51:
- for (j = kp1; j <= n; ++j) {
- localVERTpp[j-1] = a[k + j*l];
- localVERTq[j-1] = -a[k + j*l]*localVERTq[k-1];
- a[k + j*l] = 0;
- }
-//*-*- elimination proper
-L60:
- for (j = 1; j <= n; ++j) {
- for (k = j; k <= n; ++k) { a[j + k*l] += localVERTpp[j-1]*localVERTq[k-1]; }
- }
- }
-//*-*- elements of left diagonal and unscaling
- for (j = 1; j <= n; ++j) {
- for (k = 1; k <= j; ++k) {
- a[k + j*l] = a[k + j*l]*localVERTs[k-1]*localVERTs[j-1];
- a[j + k*l] = a[k + j*l];
- }
- }
- delete localVERTs;
- delete localVERTq;
- delete localVERTpp;
- return;
-//*-*- failure return
-L100:
- delete localVERTs;
- delete localVERTq;
- delete localVERTpp;
- ifail = 1;
-} /* mnvertLocal */
-