#include <TMath.h>
#include <TError.h>
#include <TROOT.h>
+#define FIT_OPTIONS "RNQS"
//====================================================================
ULong_t AliForwardUtil::AliROOTRevision()
//____________________________________________________________________
ULong_t AliForwardUtil::AliROOTBranch()
{
+ // Do something here when we switch to git - sigh!
#ifdef ALIROOT_SVN_BRANCH
static ULong_t ret = 0;
if (ret != 0) return ret;
return .5 * TMath::Log(Float_t(z1*a2)/z2/a1);
}
+namespace {
+ UShort_t CheckSNN(Float_t energy)
+ {
+ if (TMath::Abs(energy - 900.) < 10) return 900;
+ if (TMath::Abs(energy - 2400.) < 10) return 2400;
+ if (TMath::Abs(energy - 2760.) < 20) return 2760;
+ if (TMath::Abs(energy - 4400.) < 10) return 4400;
+ if (TMath::Abs(energy - 5022.) < 10) return 5023;
+ if (TMath::Abs(energy - 5500.) < 40) return 5500;
+ if (TMath::Abs(energy - 7000.) < 10) return 7000;
+ if (TMath::Abs(energy - 8000.) < 10) return 8000;
+ if (TMath::Abs(energy - 10000.) < 10) return 10000;
+ if (TMath::Abs(energy - 14000.) < 10) return 14000;
+ return 0;
+ }
+}
//____________________________________________________________________
UShort_t
AliForwardUtil::ParseCenterOfMassEnergy(UShort_t sys, Float_t beam)
// if (sys == AliForwardUtil::kPbPb) energy = energy / 208 * 82;
if (sys == AliForwardUtil::kPPb)
energy = CenterOfMassEnergy(beam, 82, 208, 1, 1);
- if (TMath::Abs(energy - 900.) < 10) return 900;
- if (TMath::Abs(energy - 2400.) < 10) return 2400;
- if (TMath::Abs(energy - 2750.) < 20) return 2750;
- if (TMath::Abs(energy - 4400.) < 10) return 4400;
- if (TMath::Abs(energy - 5022.) < 10) return 5023;
- if (TMath::Abs(energy - 5500.) < 40) return 5500;
- if (TMath::Abs(energy - 7000.) < 10) return 7000;
- if (TMath::Abs(energy - 8000.) < 10) return 8000;
- if (TMath::Abs(energy - 10000.) < 10) return 10000;
- if (TMath::Abs(energy - 14000.) < 10) return 14000;
- return 0;
+ else if (sys == AliForwardUtil::kPbPb)
+ energy = CenterOfMassEnergy(beam, 82, 208, 82, 208);
+ UShort_t ret = CheckSNN(energy);
+ if (ret > 1) return ret;
+ if (sys == AliForwardUtil::kPbPb || sys == AliForwardUtil::kPPb) {
+ ret = CheckSNN(beam);
+ }
+ return ret;
}
//____________________________________________________________________
const char*
{
AliAnalysisManager* am = AliAnalysisManager::GetAnalysisManager();
if (dynamic_cast<AliAODInputHandler*>(am->GetInputEventHandler())) {
- ::Info("CheckForAOD", "Found AOD Input handler");
+ // ::Info("CheckForAOD", "Found AOD Input handler");
return 1;
}
if (dynamic_cast<AliAODHandler*>(am->GetOutputEventHandler())) {
- ::Info("CheckForAOD", "Found AOD Output handler");
+ // ::Info("CheckForAOD", "Found AOD Output handler");
return 2;
}
TObject* AliForwardUtil::MakeParameter(const Char_t* name, UShort_t value)
{
TParameter<int>* ret = new TParameter<int>(name, value);
+ ret->SetMergeMode('f');
ret->SetUniqueID(value);
return ret;
}
TObject* AliForwardUtil::MakeParameter(const Char_t* name, Int_t value)
{
TParameter<int>* ret = new TParameter<int>(name, value);
+ ret->SetMergeMode('f');
ret->SetUniqueID(value);
return ret;
}
TObject* AliForwardUtil::MakeParameter(const Char_t* name, ULong_t value)
{
TParameter<Long_t>* ret = new TParameter<Long_t>(name, value);
+ ret->SetMergeMode('f');
ret->SetUniqueID(value);
return ret;
}
TObject* AliForwardUtil::MakeParameter(const Char_t* name, Double_t value)
{
TParameter<double>* ret = new TParameter<double>(name, value);
- Float_t v = value;
- UInt_t* tmp = reinterpret_cast<UInt_t*>(&v);
- ret->SetUniqueID(*tmp);
+ // Float_t v = value;
+ // UInt_t* tmp = reinterpret_cast<UInt_t*>(&v);
+ ret->SetMergeMode('f');
+ // ret->SetUniqueID(*tmp);
return ret;
}
//_____________________________________________________________________
TObject* AliForwardUtil::MakeParameter(const Char_t* name, Bool_t value)
{
TParameter<bool>* ret = new TParameter<bool>(name, value);
+ ret->SetMergeMode('f');
ret->SetUniqueID(value);
return ret;
}
void AliForwardUtil::GetParameter(TObject* o, UShort_t& value)
{
if (!o) return;
- value = o->GetUniqueID();
+ TParameter<int>* p = static_cast<TParameter<int>*>(o);
+ if (p->TestBit(BIT(19)))
+ value = p->GetVal();
+ else
+ value = o->GetUniqueID();
}
//_____________________________________________________________________
void AliForwardUtil::GetParameter(TObject* o, Int_t& value)
{
if (!o) return;
- value = o->GetUniqueID();
+ TParameter<int>* p = static_cast<TParameter<int>*>(o);
+ if (p->TestBit(BIT(19)))
+ value = p->GetVal();
+ else
+ value = o->GetUniqueID();
}
//_____________________________________________________________________
void AliForwardUtil::GetParameter(TObject* o, ULong_t& value)
{
if (!o) return;
- value = o->GetUniqueID();
+ TParameter<Long_t>* p = static_cast<TParameter<Long_t>*>(o);
+ if (p->TestBit(BIT(19)))
+ value = p->GetVal();
+ else
+ value = o->GetUniqueID();
}
//_____________________________________________________________________
void AliForwardUtil::GetParameter(TObject* o, Double_t& value)
{
if (!o) return;
- UInt_t i = o->GetUniqueID();
- Float_t v = *reinterpret_cast<Float_t*>(&i);
- value = v;
+ TParameter<double>* p = static_cast<TParameter<double>*>(o);
+ if (p->TestBit(BIT(19)))
+ value = p->GetVal(); // o->GetUniqueID();
+ else {
+ UInt_t i = o->GetUniqueID();
+ Float_t v = *reinterpret_cast<Float_t*>(&i);
+ value = v;
+ }
}
//_____________________________________________________________________
void AliForwardUtil::GetParameter(TObject* o, Bool_t& value)
{
if (!o) return;
- value = o->GetUniqueID();
+ TParameter<bool>* p = static_cast<TParameter<bool>*>(o);
+ if (p->TestBit(BIT(19)))
+ value = p->GetVal(); // o->GetUniqueID();
+ else
+ value = o->GetUniqueID();
}
+#if 0
//_____________________________________________________________________
Double_t AliForwardUtil::GetStripR(Char_t ring, UShort_t strip)
{
- //Get max R of ring
- const Double_t iMinR = 4.5213;
- const Double_t iMaxR = 17.2;
- const Double_t oMinR = 15.4;
- const Double_t oMaxR = 28.0;
-
- Double_t minR = (ring == 'I' || ring == 'i') ? iMinR : oMinR;
- Double_t maxR = (ring == 'I' || ring == 'i') ? iMaxR : oMaxR;
- Double_t nStrips = (ring == 'I' || ring == 'i') ? 512 : 256;
- Double_t rad = maxR - minR;
- Double_t segment = rad / nStrips;
- Double_t r = minR + segment*strip;
+ // Get max R of ring
+ //
+ // Optimized version that has a cache
+ static TArrayD inner;
+ static TArrayD outer;
+ if (inner.GetSize() <= 0 || outer.GetSize() <= 0) {
+ const Double_t minR[] = { 4.5213, 15.4 };
+ const Double_t maxR[] = { 17.2, 28.0 };
+ const Int_t nStr[] = { 512, 256 };
+ for (Int_t q = 0; q < 2; q++) {
+ TArrayD& a = (q == 0 ? inner : outer);
+ a.Set(nStr[q]);
+
+ for (Int_t it = 0; it < nStr[q]; it++) {
+ Double_t rad = maxR[q] - minR[q];
+ Double_t segment = rad / nStr[q];
+ Double_t r = minR[q] + segment*strip;
+ a[it] = r;
+ }
+ }
+ }
+ if (ring == 'I' || ring == 'i') return inner.At(strip);
+ return outer.At(strip);
+}
+#else
+//_____________________________________________________________________
+Double_t AliForwardUtil::GetStripR(Char_t ring, UShort_t strip)
+{
+ // Get max R of ring
+ //
+ // New implementation has only one branch
+ const Double_t minR[] = { 4.5213, 15.4 };
+ const Double_t maxR[] = { 17.2, 28.0 };
+ const Int_t nStr[] = { 512, 256 };
+
+ Int_t q = (ring == 'I' || ring == 'i') ? 0 : 1;
+ Double_t rad = maxR[q] - minR[q];
+ Double_t segment = rad / nStr[q];
+ Double_t r = minR[q] + segment*strip;
return r;
}
+#endif
+#if 1
+//_____________________________________________________________________
+Double_t AliForwardUtil::GetEtaFromStrip(UShort_t det, Char_t ring,
+ UShort_t sec, UShort_t strip,
+ Double_t zvtx)
+{
+ // Calculate eta from strip with vertex (redundant with
+ // AliESDFMD::Eta but support displaced vertices)
+ //
+ // Slightly more optimized version that uses less branching
+
+ // Get R of the strip
+ Double_t r = GetStripR(ring, strip);
+ Int_t hybrid = sec / 2;
+ Int_t q = (ring == 'I' || ring == 'i') ? 0 : 1;
+
+ const Double_t zs[][2] = { { 320.266, -999999 },
+ { 83.666, 74.966 },
+ { -63.066, -74.966 } };
+ if (det > 3 || zs[det-1][q] == -999999) return -999999;
+
+ Double_t z = zs[det-1][q];
+ if ((hybrid % 2) == 0) z -= .5;
+
+ Double_t theta = TMath::ATan2(r,z-zvtx);
+ Double_t eta = -1*TMath::Log(TMath::Tan(0.5*theta));
+
+ return eta;
+}
+#else
//_____________________________________________________________________
Double_t AliForwardUtil::GetEtaFromStrip(UShort_t det, Char_t ring,
UShort_t sec, UShort_t strip,
Int_t hybrid = sec / 2;
Bool_t inner = (ring == 'I' || ring == 'i');
Double_t z = 0;
+
+
switch (det) {
case 1: z = 320.266; break;
case 2: z = (inner ? 83.666 : 74.966); break;
return eta;
}
+#endif
//_____________________________________________________________________
Double_t AliForwardUtil::GetPhiFromStrip(Char_t ring, UShort_t strip,
if (phi > TMath::TwoPi()) phi -= TMath::TwoPi();
return phi;
}
+//====================================================================
+TAxis*
+AliForwardUtil::MakeFullIpZAxis(Int_t nCenter)
+{
+ // Custom vertex axis that will include satellite vertices
+ // Satellite vertices are at k*37.5 where k=-10,-9,...,9,10
+ // Nominal vertices are usually in -10 to 10 and we should have
+ // 10 bins in that range. That gives us a total of
+ //
+ // 10+10+10=30 bins
+ //
+ // or 31 bin boundaries
+ if (nCenter % 2 == 1)
+ // Number of central bins is odd - make it even
+ nCenter--;
+ const Double_t mCenter = 20;
+ const Int_t nSat = 10;
+ const Int_t nBins = 2*nSat + nCenter;
+ const Int_t mBin = nBins / 2;
+ Double_t dCenter = 2*mCenter / nCenter;
+ TArrayD bins(nBins+1);
+ bins[mBin] = 0;
+ for (Int_t i = 1; i <= nCenter/2; i++) {
+ // Assign from the middle out
+ Double_t v = i * dCenter;
+ // Printf("Assigning +/-%7.2f to %3d/%3d", v,mBin-i,mBin+i);
+ bins[mBin-i] = -v;
+ bins[mBin+i] = +v;
+ }
+ for (Int_t i = 1; i <= nSat; i++) {
+ Double_t v = (i+.5) * 37.5;
+ Int_t o = nCenter/2+i;
+ // Printf("Assigning +/-%7.2f to %3d/%3d", v,mBin-o,mBin+o);
+ bins[mBin-o] = -v;
+ bins[mBin+o] = +v;
+ }
+ TAxis* a = new TAxis(nBins,bins.GetArray());
+ return a;
+}
+void
+AliForwardUtil::PrintTask(const TObject& o)
+{
+ Int_t ind = gROOT->GetDirLevel();
+ if (ind > 0)
+ // Print indention
+ std::cout << std::setfill(' ') << std::setw(ind) << " " << std::flush;
+
+ TString t = TString::Format("%s %s", o.GetName(), o.ClassName());
+ const Int_t maxN = 75;
+ std::cout << "--- " << t << " " << std::setfill('-')
+ << std::setw(maxN-ind-5-t.Length()) << "-" << std::endl;
+}
+void
+AliForwardUtil::PrintName(const char* name)
+{
+ Int_t ind = gROOT->GetDirLevel();
+ if (ind > 0)
+ // Print indention
+ std::cout << std::setfill(' ') << std::setw(ind) << " " << std::flush;
+
+ // Now print field name
+ const Int_t maxN = 29;
+ Int_t width = maxN - ind;
+ TString n(name);
+ if (n.Length() > width-1) {
+ // Truncate the string, and put in "..."
+ n.Remove(width-4);
+ n.Append("...");
+ }
+ n.Append(":");
+ std::cout << std::setfill(' ') << std::left << std::setw(width)
+ << n << std::right << std::flush;
+}
+void
+AliForwardUtil::PrintField(const char* name, const char* value, ...)
+{
+ PrintName(name);
+
+ // Now format the field value
+ va_list ap;
+ va_start(ap, value);
+ static char buf[512];
+ vsnprintf(buf, 511, value, ap);
+ buf[511] = '\0';
+ va_end(ap);
+
+ std::cout << buf << std::endl;
+}
//====================================================================
Int_t AliForwardUtil::fgConvolutionSteps = 100;
return constant * AliForwardUtil::LandauGaus(x, delta, xi, sigma, sigmaN);
}
+ Double_t landauGausComposite(Double_t* xp, Double_t* pp)
+ {
+ Double_t x = xp[0];
+ Double_t cP = pp[AliForwardUtil::ELossFitter::kC];
+ Double_t deltaP = pp[AliForwardUtil::ELossFitter::kDelta];
+ Double_t xiP = pp[AliForwardUtil::ELossFitter::kXi];
+ Double_t sigmaP = pp[AliForwardUtil::ELossFitter::kSigma];
+ Double_t cS = pp[AliForwardUtil::ELossFitter::kSigma+1];
+ Double_t deltaS = deltaP; // pp[AliForwardUtil::ELossFitter::kSigma+2];
+ Double_t xiS = pp[AliForwardUtil::ELossFitter::kSigma+2/*3*/];
+ Double_t sigmaS = sigmaP; // pp[AliForwardUtil::ELossFitter::kSigma+4];
+
+ return (cP * AliForwardUtil::LandauGaus(x,deltaP,xiP,sigmaP,0) +
+ cS * AliForwardUtil::LandauGaus(x,deltaS,xiS,sigmaS,0));
+ }
+
//
// Utility function to use in TF1 defintition
//
Double_t maxRange,
UShort_t minusBins)
: fLowCut(lowCut), fMaxRange(maxRange), fMinusBins(minusBins),
- fFitResults(0), fFunctions(0)
+ fFitResults(0), fFunctions(0), fDebug(false)
{
//
// Constructor
Clear();
// Find the fit range
- dist->GetXaxis()->SetRangeUser(fLowCut, fMaxRange);
+ // Find the fit range
+ Int_t cutBin = TMath::Max(dist->GetXaxis()->FindBin(fLowCut),3);
+ Int_t maxBin = TMath::Min(dist->GetXaxis()->FindBin(fMaxRange),
+ dist->GetNbinsX());
+ dist->GetXaxis()->SetRange(cutBin, maxBin);
+ // dist->GetXaxis()->SetRangeUser(fLowCut, fMaxRange);
// Get the bin with maximum
- Int_t maxBin = dist->GetMaximumBin();
- Double_t maxE = dist->GetBinLowEdge(maxBin);
+ Int_t peakBin = dist->GetMaximumBin();
+ Double_t peakE = dist->GetBinLowEdge(peakBin);
// Get the low edge
- dist->GetXaxis()->SetRangeUser(fLowCut, maxE);
- Int_t minBin = maxBin - fMinusBins; // dist->GetMinimumBin();
+ // dist->GetXaxis()->SetRangeUser(fLowCut, peakE);
+ Int_t minBin = peakBin - fMinusBins; // dist->GetMinimumBin();
Double_t minE = TMath::Max(dist->GetBinCenter(minBin),fLowCut);
- Double_t maxEE = dist->GetBinCenter(maxBin+2*fMinusBins);
+ Double_t maxE = dist->GetBinCenter(peakBin+2*fMinusBins);
+ Int_t minEb = dist->GetXaxis()->FindBin(minE);
+ Int_t maxEb = dist->GetXaxis()->FindBin(maxE);
+ Double_t intg = dist->Integral(minEb, maxEb);
+ if (intg <= 0) {
+ ::Warning("Fit1Particle",
+ "Integral of %s between [%f,%f] [%03d,%03d] = %f < 0",
+ dist->GetName(), minE, maxE, minEb, maxEb, intg);
+ return 0;
+ }
+
// Restore the range
- dist->GetXaxis()->SetRangeUser(0, fMaxRange);
+ dist->GetXaxis()->SetRange(1, maxBin);
// Define the function to fit
- TF1* landau1 = new TF1("landau1", landauGaus1, minE,maxEE,kSigmaN+1);
+ TF1* landau1 = new TF1("landau1", landauGaus1, minE,maxE,kSigmaN+1);
// Set initial guesses, parameter names, and limits
- landau1->SetParameters(1,0.5,0.07,0.1,sigman);
+ landau1->SetParameters(1,peakE,peakE/10,peakE/5,sigman);
landau1->SetParNames("C","#Delta_{p}","#xi", "#sigma", "#sigma_{n}");
landau1->SetNpx(500);
- landau1->SetParLimits(kDelta, minE, fMaxRange);
- landau1->SetParLimits(kXi, 0.00, fMaxRange);
- landau1->SetParLimits(kSigma, 0.01, 0.1);
+ if (peakE >= minE && peakE <= fMaxRange) {
+ // printf("Fit1: Set par limits on Delta: %f, %f\n", minE, fMaxRange);
+ landau1->SetParLimits(kDelta, minE, fMaxRange);
+ }
+ if (peakE/10 >= 0 && peakE <= 0.1) {
+ // printf("Fit1: Set par limits on xi: %f, %f\n", 0., 0.1);
+ landau1->SetParLimits(kXi, 0.00, 0.1); // Was fMaxRange - too wide
+ }
+ if (peakE/5 >= 0 && peakE/5 <= 0.1) {
+ // printf("Fit1: Set par limits on sigma: %f, %f\n", 0., 0.1);
+ landau1->SetParLimits(kSigma, 1e-5, 0.1); // Was fMaxRange - too wide
+ }
if (sigman <= 0) landau1->FixParameter(kSigmaN, 0);
- else landau1->SetParLimits(kSigmaN, 0, fMaxRange);
+ else {
+ // printf("Fit1: Set par limits on sigmaN: %f, %f\n", 0., fMaxRange);
+ landau1->SetParLimits(kSigmaN, 0, fMaxRange);
+ }
// Do the fit, getting the result object
- TFitResultPtr r = dist->Fit(landau1, "RNQS", "", minE, maxEE);
- landau1->SetRange(minE, fMaxRange);
+ if (fDebug)
+ ::Info("Fit1Particle", "Fitting in the range %f,%f", minE, maxE);
+ TFitResultPtr r = dist->Fit(landau1, FIT_OPTIONS, "", minE, maxE);
+ if (!r.Get()) {
+ ::Warning("Fit1Particle",
+ "No fit returned when processing %s in the range [%f,%f] "
+ "options %s", dist->GetName(), minE, maxE, FIT_OPTIONS);
+ return 0;
+ }
+ // landau1->SetRange(minE, fMaxRange);
fFitResults.AddAtAndExpand(new TFitResult(*r), 0);
fFunctions.AddAtAndExpand(landau1, 0);
Double_t maxEi = n * (delta1 + xi1 * TMath::Log(n)) + 2 * n * xi1;
Double_t minE = f->GetXmin();
+ Int_t minEb = dist->GetXaxis()->FindBin(minE);
+ Int_t maxEb = dist->GetXaxis()->FindBin(maxEi);
+ Double_t intg = dist->Integral(minEb, maxEb);
+ if (intg <= 0) {
+ ::Warning("FitNParticle",
+ "Integral of %s between [%f,%f] [%03d,%03d] = %f < 0",
+ dist->GetName(), minE, maxEi, minEb, maxEb, intg);
+ return 0;
+ }
+
// Array of weights
TArrayD a(n-1);
for (UShort_t i = 2; i <= n; i++)
a.fArray[i-2] = (n == 2 ? 0.05 : 0.000001);
// Make the fit function
- TF1* landaun = MakeNLandauGaus(r->Parameter(kC),
- r->Parameter(kDelta),
- r->Parameter(kXi),
- r->Parameter(kSigma),
- r->Parameter(kSigmaN),
- n,a.fArray,minE,maxEi);
- landaun->SetParLimits(kDelta, minE, fMaxRange); // Delta
- landaun->SetParLimits(kXi, 0.00, fMaxRange); // xi
- landaun->SetParLimits(kSigma, 0.01, 1); // sigma
+ TF1* landaun = MakeNLandauGaus(r->Parameter(kC),
+ r->Parameter(kDelta),
+ r->Parameter(kXi),
+ r->Parameter(kSigma),
+ r->Parameter(kSigmaN),
+ n, a.fArray, minE, maxEi);
+ if (minE <= r->Parameter(kDelta) &&
+ fMaxRange >= r->Parameter(kDelta)) {
+ // Protect against warning from ParameterSettings
+ // printf("FitN: Set par limits on Delta: %f, %f\n", minE, fMaxRange);
+ landaun->SetParLimits(kDelta, minE, fMaxRange); // Delta
+ }
+ if (r->Parameter(kXi) >= 0 && r->Parameter(kXi) <= 0.1) {
+ // printf("FitN: Set par limits on xi: %f, %f\n", 0., 0.1);
+ landaun->SetParLimits(kXi, 0.00, 0.1); // was fMaxRange - too wide
+ }
+ if (r->Parameter(kSigma) >= 1e-5 && r->Parameter(kSigma) <= 0.1) {
+ // printf("FitN: Set par limits on sigma: %f, %f\n", 1e-5, 0.1);
+ landaun->SetParLimits(kSigma, 1e-5, 0.1); // was fMaxRange - too wide
+ }
// Check if we're using the noise sigma
if (sigman <= 0) landaun->FixParameter(kSigmaN, 0);
- else landaun->SetParLimits(kSigmaN, 0, fMaxRange);
+ else {
+ // printf("FitN: Set par limits on sigmaN: %f, %f\n", 0., fMaxRange);
+ landaun->SetParLimits(kSigmaN, 0, fMaxRange);
+ }
// Set the range and name of the scale parameters
for (UShort_t i = 2; i <= n; i++) {// Take parameters from last fit
- landaun->SetParLimits(kA+i-2, 0,1);
+ if (a[i-2] >= 0 && a[i-2] <= 1) {
+ // printf("FitN: Set par limits on a_%d: %f, %f\n", i, 0., 1.);
+ landaun->SetParLimits(kA+i-2, 0,1);
+ }
}
// Do the fit
- TFitResultPtr tr = dist->Fit(landaun, "RSQN", "", minE, maxEi);
+ if (fDebug)
+ ::Info("FitNParticle", "Fitting in the range %f,%f (%d)", minE, maxEi, n);
+ TFitResultPtr tr = dist->Fit(landaun, FIT_OPTIONS, "", minE, maxEi);
- landaun->SetRange(minE, fMaxRange);
+ // landaun->SetRange(minE, fMaxRange);
fFitResults.AddAtAndExpand(new TFitResult(*tr), n-1);
fFunctions.AddAtAndExpand(landaun, n-1);
return landaun;
}
+//____________________________________________________________________
+TF1*
+AliForwardUtil::ELossFitter::FitComposite(TH1* dist, Double_t sigman)
+{
+ //
+ // Fit a composite particle signal to the passed energy loss
+ // distribution
+ //
+ // Parameters:
+ // dist Data to fit the function to
+ // sigman If larger than zero, the initial guess of the
+ // detector induced noise. If zero or less, then this
+ // parameter is ignored in the fit (fixed at 0)
+ //
+ // Return:
+ // The function fitted to the data
+ //
+
+ // Find the fit range
+ Int_t cutBin = TMath::Max(dist->GetXaxis()->FindBin(fLowCut),3);
+ Int_t maxBin = TMath::Min(dist->GetXaxis()->FindBin(fMaxRange),
+ dist->GetNbinsX());
+ dist->GetXaxis()->SetRange(cutBin, maxBin);
+
+ // Get the bin with maximum
+ Int_t peakBin = dist->GetMaximumBin();
+ Double_t peakE = dist->GetBinLowEdge(peakBin);
+
+ // Get the low edge
+ // dist->GetXaxis()->SetRangeUser(fLowCut, peakE);
+ Int_t minBin = peakBin - fMinusBins; // dist->GetMinimumBin();
+ Double_t minE = TMath::Max(dist->GetBinCenter(minBin),fLowCut);
+ Double_t maxE = dist->GetBinCenter(peakBin+2*fMinusBins);
+
+ // Get the range in bins and the integral of that range
+ Int_t minEb = dist->GetXaxis()->FindBin(minE);
+ Int_t maxEb = dist->GetXaxis()->FindBin(maxE);
+ Double_t intg = dist->Integral(minEb, maxEb);
+ if (intg <= 0) {
+ ::Warning("Fit1Particle",
+ "Integral of %s between [%f,%f] [%03d,%03d] = %f < 0",
+ dist->GetName(), minE, maxE, minEb, maxEb, intg);
+ return 0;
+ }
+
+ // Restore the range
+ dist->GetXaxis()->SetRange(1, maxBin);
+
+ // Define the function to fit
+ TF1* seed = new TF1("landauSeed", landauGaus1, minE,maxE,kSigmaN+1);
+
+ // Set initial guesses, parameter names, and limits
+ seed->SetParameters(1,peakE,peakE/10,peakE/5,sigman);
+ seed->SetParNames("C","#Delta_{p}","#xi", "#sigma", "#sigma_{n}");
+ seed->SetNpx(500);
+ seed->SetParLimits(kDelta, minE, fMaxRange);
+ seed->SetParLimits(kXi, 0.00, 0.1); // Was fMaxRange - too wide
+ seed->SetParLimits(kSigma, 1e-5, 0.1); // Was fMaxRange - too wide
+ if (sigman <= 0) seed->FixParameter(kSigmaN, 0);
+ else seed->SetParLimits(kSigmaN, 0, fMaxRange);
+
+ // Do the fit, getting the result object
+ if (fDebug)
+ ::Info("FitComposite", "Fitting seed in the range %f,%f", minE, maxE);
+ /* TFitResultPtr r = */ dist->Fit(seed, FIT_OPTIONS, "", minE, maxE);
+
+ maxE = dist->GetXaxis()->GetXmax();
+#if 1
+ TF1* comp = new TF1("composite", landauGausComposite,
+ minE, maxE, kSigma+1+2);
+ comp->SetParNames("C", "#Delta_{p}", "#xi", "#sigma",
+ "C#prime", "#xi#prime");
+ comp->SetParameters(0.8 * seed->GetParameter(kC), // 0 Primary weight
+ seed->GetParameter(kDelta), // 1 Primary Delta
+ seed->GetParameter(kDelta)/10, // 2 primary Xi
+ seed->GetParameter(kDelta)/5, // 3 primary sigma
+ 1.20 * seed->GetParameter(kC), // 5 Secondary weight
+ seed->GetParameter(kXi)); // 7 secondary Xi
+ // comp->SetParLimits(kC, minE, fMaxRange); // C
+ comp->SetParLimits(kDelta, minE, fMaxRange); // Delta
+ comp->SetParLimits(kXi, 0.00, fMaxRange); // Xi
+ comp->SetParLimits(kSigma, 1e-5, fMaxRange); // Sigma
+ // comp->SetParLimits(kSigma+1, minE, fMaxRange); // C
+ comp->SetParLimits(kSigma+2, 0.00, fMaxRange); // Xi'
+#else
+ TF1* comp = new TF1("composite", landauGausComposite,
+ minE, maxE, kSigma+1+4);
+ comp->SetParNames("C", "#Delta_{p}", "#xi", "#sigma",
+ "C#prime", "#Delta_{p}#prime", "#xi#prime", "#sigma#prim");
+ comp->SetParameters(0.8 * seed->GetParameter(kC), // 0 Primary weight
+ seed->GetParameter(kDelta), // 1 Primary Delta
+ seed->GetParameter(kDelta)/10, // 2 primary Xi
+ seed->GetParameter(kDelta)/5, // 3 primary sigma
+ 1.20 * seed->GetParameter(kC), // 5 Secondary weight
+ seed->GetParameter(kDelta), // 6 secondary Delta
+ seed->GetParameter(kXi), // 7 secondary Xi
+ seed->GetParameter(kSigma)); // 8 secondary sigma
+ // comp->SetParLimits(kC, minE, fMaxRange); // C
+ comp->SetParLimits(kDelta, minE, fMaxRange); // Delta
+ comp->SetParLimits(kXi, 0.00, fMaxRange); // Xi
+ comp->SetParLimits(kSigma, 1e-5, fMaxRange); // Sigma
+ // comp->SetParLimits(kSigma+1, minE, fMaxRange); // C
+ comp->SetParLimits(kSigma+2, minE/10, fMaxRange); // Delta
+ comp->SetParLimits(kSigma+3, 0.00, fMaxRange); // Xi
+ comp->SetParLimits(kSigma+4, 1e-6, fMaxRange); // Sigma
+#endif
+ comp->SetLineColor(kRed+1);
+ comp->SetLineWidth(3);
+
+ // Do the fit, getting the result object
+ if (fDebug)
+ ::Info("FitComposite", "Fitting composite in the range %f,%f", minE, maxE);
+ /* TFitResultPtr r = */ dist->Fit(comp, FIT_OPTIONS, "", minE, maxE);
+
+#if 0
+ TF1* part1 = static_cast<TF1*>(seed->Clone("part1"));
+ part1->SetLineColor(kGreen+1);
+ part1->SetLineWidth(4);
+ part1->SetRange(minE, maxE);
+ part1->SetParameters(comp->GetParameter(0), // C
+ comp->GetParameter(1), // Delta
+ comp->GetParameter(2), // Xi
+ comp->GetParameter(3), // sigma
+ 0);
+ part1->Save(minE,maxE,0,0,0,0);
+ dist->GetListOfFunctions()->Add(part1);
+
+ TF1* part2 = static_cast<TF1*>(seed->Clone("part2"));
+ part2->SetLineColor(kBlue+1);
+ part2->SetLineWidth(4);
+ part2->SetRange(minE, maxE);
+ part2->SetParameters(comp->GetParameter(4), // C
+ comp->GetParameter(5), // Delta
+ comp->GetParameter(6), // Xi
+ comp->GetParameter(7), // sigma
+ 0);
+ part2->Save(minE,maxE,0,0,0,0);
+ dist->GetListOfFunctions()->Add(part2);
+#endif
+ return comp;
+}
//====================================================================
AliForwardUtil::Histos::~Histos()
//____________________________________________________________________
TH2D*
-AliForwardUtil::Histos::Make(UShort_t d, Char_t r,
- const TAxis& etaAxis) const
+AliForwardUtil::Histos::Make(UShort_t d, Char_t r, const TAxis& etaAxis)
{
//
// Make a histogram
// Newly allocated histogram
//
Int_t ns = (r == 'I' || r == 'i') ? 20 : 40;
- TH2D* hist = new TH2D(Form("FMD%d%c_cache", d, r),
- Form("FMD%d%c cache", d, r),
- etaAxis.GetNbins(), etaAxis.GetXmin(),
- etaAxis.GetXmax(), ns, 0, 2*TMath::Pi());
+ TH2D* hist = 0;
+ if (etaAxis.GetXbins() && etaAxis.GetXbins()->GetArray())
+ hist = new TH2D(Form("FMD%d%c_cache", d, r),
+ Form("FMD%d%c cache", d, r),
+ etaAxis.GetNbins(), etaAxis.GetXbins()->GetArray(),
+ ns, 0, TMath::TwoPi());
+ else
+ hist = new TH2D(Form("FMD%d%c_cache", d, r),
+ Form("FMD%d%c cache", d, r),
+ etaAxis.GetNbins(), etaAxis.GetXmin(),
+ etaAxis.GetXmax(), ns, 0, TMath::TwoPi());
hist->SetXTitle("#eta");
hist->SetYTitle("#phi [radians]");
hist->SetZTitle("d^{2}N_{ch}/d#etad#phi");
return hist;
}
+//____________________________________________________________________
+void
+AliForwardUtil::Histos::RebinEta(TH2D* hist, const TAxis& etaAxis)
+{
+ TAxis* xAxis = hist->GetXaxis();
+ if (etaAxis.GetXbins() && etaAxis.GetXbins()->GetArray())
+ xAxis->Set(etaAxis.GetNbins(), etaAxis.GetXbins()->GetArray());
+ else
+ xAxis->Set(etaAxis.GetNbins(), etaAxis.GetXmin(), etaAxis.GetXmax());
+ hist->Rebuild();
+}
+
+
//____________________________________________________________________
void
AliForwardUtil::Histos::Init(const TAxis& etaAxis)
fFMD3i = Make(3, 'I', etaAxis);
fFMD3o = Make(3, 'O', etaAxis);
}
+//____________________________________________________________________
+void
+AliForwardUtil::Histos::ReInit(const TAxis& etaAxis)
+{
+ //
+ // Initialize the object
+ //
+ // Parameters:
+ // etaAxis Eta axis to use
+ //
+ if (!fFMD1i) fFMD1i = Make(1, 'i', etaAxis); else RebinEta(fFMD1i, etaAxis);
+ if (!fFMD2i) fFMD2i = Make(2, 'i', etaAxis); else RebinEta(fFMD2i, etaAxis);
+ if (!fFMD2o) fFMD2o = Make(2, 'o', etaAxis); else RebinEta(fFMD2o, etaAxis);
+ if (!fFMD3i) fFMD3i = Make(3, 'i', etaAxis); else RebinEta(fFMD3i, etaAxis);
+ if (!fFMD3o) fFMD3o = Make(3, 'o', etaAxis); else RebinEta(fFMD3o, etaAxis);
+}
+
//____________________________________________________________________
void
AliForwardUtil::Histos::Clear(Option_t* option)