/* $Id$ */
-//----------------------------------------------------------------------------
-// Implementation of the class to calculate the parton energy loss
-// Based on the "BDMPS" quenching weights by C.A.Salgado and U.A.Wiedemann
-//
-// References:
-// C.A.Salgado and U.A.Wiedemann, Phys.Rev.D68 (2003) 014008 [hep-ph/0302184]
-// A.Dainese, Eur.Phys.J.C, in press, [nucl-ex/0312005]
+
+// Implementation of the class to calculate the parton energy loss
+// Based on the "BDMPS" quenching weights by C.A.Salgado and U.A.Wiedemann
+// References:
+// C.A.Salgado and U.A.Wiedemann, Phys.Rev.D68 (2003) 014008 [hep-ph/0302184]
+// A.Dainese, Eur.Phys.J.C, in press, [nucl-ex/0312005]
//
//
// Origin: C. Loizides constantinos.loizides@cern.ch
//
//=================== Added by C. Loizides 27/03/04 ===========================
//
-// Added support for k-Quenching, where wc=I1*k and R=2I1^2/I0*k
-// (see the AliFastGlauber class for definition of I0/I1)
+// Added support for k-Quenching, where wc=I1*k and R=2I1^2/I0*k
+// (see the AliFastGlauber class for definition of I0/I1)
//-----------------------------------------------------------------------------
#include <Riostream.h>
Double_t AliQuenchingWeights::CalcR(Double_t wc, Double_t l) const
{
- //calculate R value and
+ //calculate r value and
//check if it is less then maximum
- Double_t R = wc*l*fgkConvFmToInvGeV;
- if(R>=fgkRMax) {
- Warning("CalcR","Value of R = %.2f; should be less than %.2f",R,fgkRMax);
+ Double_t r = wc*l*fgkConvFmToInvGeV;
+ if(r >= fgkRMax) {
+ Warning("CalcR","Value of r = %.2f; should be less than %.2f", r, fgkRMax);
return fgkRMax-1;
}
- return R;
+ return r;
}
Double_t AliQuenchingWeights::CalcRk(Double_t k, Double_t I0, Double_t I1) const
//calculate R value and
//check if it is less then maximum
- Double_t R = fgkRMax-1;
+ Double_t r = fgkRMax-1;
if(I0>0)
- R = 2*I1*I1/I0*k;
- if(R>=fgkRMax) {
- Warning("CalcRk","Value of R = %.2f; should be less than %.2f",R,fgkRMax);
+ r = 2*I1*I1/I0*k;
+ if(r>=fgkRMax) {
+ Warning("CalcRk","Value of r = %.2f; should be less than %.2f",r,fgkRMax);
return fgkRMax-1;
}
- return R;
+ return r;
}
Double_t AliQuenchingWeights::GetELossRandom(Int_t ipart, Double_t length, Double_t e) const
return -1000.;
}
- Double_t R=CalcRk(I0,I1);
- if(R<0.){
+ Double_t r=CalcRk(I0,I1);
+ if(r<0.){
Fatal("GetELossRandomK","R should not be negative");
return -1000.;
}
Fatal("GetELossRandomK","wc should be greater than zero");
return -1000.;
}
- if(SampleEnergyLoss(ipart,R)!=0){
+ if(SampleEnergyLoss(ipart,r)!=0){
Fatal("GetELossRandomK","Could not sample energy loss");
return -1000.;
}
// all parameters are well within the bounds.
// read-in data tables before first call
- Double_t R=CalcRk(I0,I1);
- if(R<=0.){
+ Double_t r=CalcRk(I0,I1);
+ if(r<=0.){
return 0.;
}
return 0.;
}
- return GetELossRandomKFastR(ipart,R,wc,e);
+ return GetELossRandomKFastR(ipart,r,wc,e);
}
-Double_t AliQuenchingWeights::GetELossRandomKFastR(Int_t ipart, Double_t R, Double_t wc, Double_t e)
+Double_t AliQuenchingWeights::GetELossRandomKFastR(Int_t ipart, Double_t r, Double_t wc, Double_t e)
{
// return DeltaE for new dynamic version
// for given parton type, R and wc value and energy
// all parameters are well within the bounds.
// read-in data tables before first call
- if(R>=fgkRMax) {
- R=fgkRMax-1;
+ if(r>=fgkRMax) {
+ r=fgkRMax-1;
}
Double_t discrete=0.;
Int_t bin=1;
Double_t xxxx = fHisto->GetBinCenter(bin);
if(fMultSoft)
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
else
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
if(discrete>=1.0) {
return 0.; //no energy loss
if(fMultSoft) {
for(Int_t bin=2; bin<=kbinmax; bin++) {
xxxx = fHisto->GetBinCenter(bin);
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(bin,continuous);
}
} else {
for(Int_t bin=2; bin<=kbinmax; bin++) {
xxxx = fHisto->GetBinCenter(bin);
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(bin,continuous);
}
}
{
// return discrete weight
- Double_t R=CalcRk(I0,I1);
- if(R<=0.){
+ Double_t r=CalcRk(I0,I1);
+ if(r<=0.){
return 1.;
}
- return GetDiscreteWeightR(ipart,R);
+ return GetDiscreteWeightR(ipart,r);
}
-Double_t AliQuenchingWeights::GetDiscreteWeightR(Int_t ipart, Double_t R)
+Double_t AliQuenchingWeights::GetDiscreteWeightR(Int_t ipart, Double_t r)
{
// return discrete weight
- if(R>=fgkRMax) {
- R=fgkRMax-1;
+ if(r>=fgkRMax) {
+ r=fgkRMax-1;
}
Double_t discrete=0.;
Int_t bin=1;
Double_t xxxx = fHisto->GetBinCenter(bin);
if(fMultSoft)
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
else
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
return discrete;
}
-void AliQuenchingWeights::GetZeroLossProb(Double_t &p,Double_t &prw,Double_t &prw_cont,
+void AliQuenchingWeights::GetZeroLossProb(Double_t &p,Double_t &prw,Double_t &prwcont,
Int_t ipart,Double_t I0,Double_t I1,Double_t e)
{
- p=1.;prw=1.;prw_cont=1.;
- Double_t R=CalcRk(I0,I1);
- if(R<=0.){
+ //calculate the probabilty that there is no energy
+ //loss for different ways of energy constraint
+ p=1.;prw=1.;prwcont=1.;
+ Double_t r=CalcRk(I0,I1);
+ if(r<=0.){
return;
}
Double_t wc=CalcWCk(I1);
if(wc<=0.){
return;
}
- GetZeroLossProbR(p,prw,prw_cont,ipart,R,wc,e);
+ GetZeroLossProbR(p,prw,prwcont,ipart,r,wc,e);
}
-void AliQuenchingWeights::GetZeroLossProbR(Double_t &p,Double_t &prw,Double_t &prw_cont,
- Int_t ipart, Double_t R,Double_t wc,Double_t e)
+void AliQuenchingWeights::GetZeroLossProbR(Double_t &p,Double_t &prw,Double_t &prwcont,
+ Int_t ipart, Double_t r,Double_t wc,Double_t e)
{
- if(R>=fgkRMax) {
- R=fgkRMax-1;
+ //calculate the probabilty that there is no energy
+ //loss for different ways of energy constraint
+ if(r>=fgkRMax) {
+ r=fgkRMax-1;
}
Double_t discrete=0.;
if(fMultSoft) {
for(Int_t bin=1; bin<=kbinmax; bin++) {
Double_t xxxx = fHisto->GetBinCenter(bin);
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(bin,continuous);
}
} else {
for(Int_t bin=1; bin<=kbinmax; bin++) {
Double_t xxxx = fHisto->GetBinCenter(bin);
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(bin,continuous);
}
}
prw=fHisto->GetBinContent(1)/hint;
Double_t xxxx = fHisto->GetBinCenter(1);
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(1,continuous);
hint=fHisto->Integral(1,kbinmax);
fHisto->Scale(1./hint*(1-discrete));
fHisto->Fill(0.,discrete);
- prw_cont=fHisto->GetBinContent(1);
+ prwcont=fHisto->GetBinContent(1);
}
Int_t AliQuenchingWeights::SampleEnergyLoss()
return 0;
}
-Int_t AliQuenchingWeights::SampleEnergyLoss(Int_t ipart, Double_t R)
+Int_t AliQuenchingWeights::SampleEnergyLoss(Int_t ipart, Double_t r)
{
// Sample energy loss directly for one particle type
// choses R (safe it and keep it until next call of function)
Int_t bin=1;
Double_t xxxx = fHisto->GetBinCenter(bin);
if(fMultSoft)
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
else
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
if(discrete>=1.) {
fHisto->SetBinContent(1,1.);
for(Int_t bin=2; bin<=fgkBins; bin++) {
xxxx = fHisto->GetBinCenter(bin);
if(fMultSoft)
- CalcMult(ipart,R,xxxx,continuous,discrete);
+ CalcMult(ipart,r,xxxx,continuous,discrete);
else
- CalcSingleHard(ipart,R,xxxx,continuous,discrete);
+ CalcSingleHard(ipart,r,xxxx,continuous,discrete);
fHisto->SetBinContent(bin,continuous);
}
return histx;
}
-TH1F* AliQuenchingWeights::ComputeQWHistoX(Int_t ipart,Double_t R) const
+TH1F* AliQuenchingWeights::ComputeQWHistoX(Int_t ipart,Double_t r) const
{
// compute P(E) distribution for
// given ipart = 1 for quark, 2 for gluon
}
Char_t hname[100];
- sprintf(hname,"hQWHistox_%s_%d_%.2f",meddesc,ipart,R);
+ sprintf(hname,"hQWHistox_%s_%d_%.2f",meddesc,ipart,r);
TH1F *histx = new TH1F("histx",hname,fgkBins,0.,fgkMaxBin);
histx->SetXTitle("x = #Delta E/#omega_{c}");
if(fMultSoft)
histx->SetYTitle("p(#Delta E/#bar#omega_{c})");
histx->SetLineColor(4);
- Double_t rrrr = R;
+ Double_t rrrr = r;
Double_t continuous=0.,discrete=0.;
//loop on histogram channels
for(Int_t bin=1; bin<=fgkBins; bin++) {
return h;
}
-TH1F* AliQuenchingWeights::ComputeELossHisto(Int_t ipart,Double_t R) const
+TH1F* AliQuenchingWeights::ComputeELossHisto(Int_t ipart,Double_t r) const
{
// compute energy loss histogram for
// parton type and given R
- TH1F *dummy = ComputeQWHistoX(ipart,R);
+ TH1F *dummy = ComputeQWHistoX(ipart,r);
if(!dummy) return 0;
Char_t hname[100];
- sprintf(hname,"hELossHistox_%d_%.2f",ipart,R);
+ sprintf(hname,"hELossHistox_%d_%.2f",ipart,r);
TH1F *histx = new TH1F("histxr",hname,fgkBins,0.,fgkMaxBin);
for(Int_t i=0;i<100000;i++){
//if(i % 1000 == 0) cout << "." << flush;
return ret;
}
-Double_t AliQuenchingWeights::GetMeanELoss(Int_t ipart,Double_t R) const
+Double_t AliQuenchingWeights::GetMeanELoss(Int_t ipart,Double_t r) const
{
// compute average energy loss over wc
// for parton type and given R
- TH1F *dummy = ComputeELossHisto(ipart,R);
+ TH1F *dummy = ComputeELossHisto(ipart,r);
if(!dummy) return 0;
Double_t ret=dummy->GetMean();
delete dummy;
return ret;
}
-void AliQuenchingWeights::PlotDiscreteWeights(Double_t len) const
+void AliQuenchingWeights::PlotDiscreteWeights(Double_t len,Double_t qm) const
{
// plot discrete weights for given length
c = new TCanvas("cdiscsh","Discrete Weight for Single Hard Scattering",0,0,500,400);
c->cd();
- TH2F *hframe = new TH2F("hdisc","",2,0,5.1,2,0,1);
+ TH2F *hframe = new TH2F("hdisc","",2,0,qm+.1,2,0,1.25);
hframe->SetStats(0);
if(fMultSoft)
hframe->SetXTitle("#hat{q} [GeV^{2}/fm]");
else
hframe->SetXTitle("#mu [GeV]");
- hframe->SetYTitle("Probability #Delta E = 0 , p_{0}");
+ //hframe->SetYTitle("Probability #Delta E = 0 , p_{0}");
+ hframe->SetYTitle("p_{0} (discrete weight)");
hframe->Draw();
- TGraph *gq=new TGraph(20);
+ Int_t points=(Int_t)qm*4;
+ TGraph *gq=new TGraph(points);
Int_t i=0;
if(fMultSoft) {
- for(Double_t q=0.05;q<=5.05;q+=0.25){
+ for(Double_t q=0.05;q<=qm+.05;q+=0.25){
Double_t disc,cont;
CalcMult(1,1.0,q,len,cont,disc);
gq->SetPoint(i,q,disc);i++;
}
} else {
- for(Double_t m=0.05;m<=5.05;m+=0.25){
+ for(Double_t m=0.05;m<=qm+.05;m+=0.25){
Double_t disc,cont;
CalcSingleHard(1,1.0,m,len,cont, disc);
gq->SetPoint(i,m,disc);i++;
}
}
gq->SetMarkerStyle(20);
- gq->Draw("pl");
+ gq->SetMarkerColor(1);
+ gq->SetLineStyle(1);
+ gq->SetLineColor(1);
+ gq->Draw("l");
- TGraph *gg=new TGraph(20);
+ TGraph *gg=new TGraph(points);
i=0;
if(fMultSoft){
- for(Double_t q=0.05;q<=5.05;q+=0.25){
+ for(Double_t q=0.05;q<=qm+.05;q+=0.25){
Double_t disc,cont;
CalcMult(2,1.0,q,len,cont,disc);
gg->SetPoint(i,q,disc);i++;
}
} else {
- for(Double_t m=0.05;m<=5.05;m+=0.25){
+ for(Double_t m=0.05;m<=qm+.05;m+=0.25){
Double_t disc,cont;
CalcSingleHard(2,1.0,m,len,cont,disc);
gg->SetPoint(i,m,disc);i++;
}
}
gg->SetMarkerStyle(24);
- gg->Draw("pl");
+ gg->SetMarkerColor(2);
+ gg->SetLineStyle(2);
+ gg->SetLineColor(2);
+ gg->Draw("l");
TLegend *l1a = new TLegend(0.5,0.6,.95,0.8);
l1a->SetFillStyle(0);
Char_t label[100];
sprintf(label,"L = %.1f fm",len);
l1a->AddEntry(gq,label,"");
- l1a->AddEntry(gq,"quark","pl");
- l1a->AddEntry(gg,"gluon","pl");
+ l1a->AddEntry(gq,"quark projectile","l");
+ l1a->AddEntry(gg,"gluon projectile","l");
l1a->Draw();
c->Update();
c->Update();
}
-void AliQuenchingWeights::PlotAvgELoss(Double_t len,Double_t e) const
+void AliQuenchingWeights::PlotAvgELoss(Double_t len,Double_t qm,Double_t e) const
{
// plot average energy loss for given length
// and parton energy
TCanvas *c = new TCanvas(name,title,0,0,500,400);
c->cd();
- TH2F *hframe = new TH2F("avgloss",title,2,0,5.1,2,0,100);
+ TH2F *hframe = new TH2F("avgloss","",2,0,qm+.1,2,0,100);
hframe->SetStats(0);
if(fMultSoft)
hframe->SetXTitle("#hat{q} [GeV^{2}/fm]");
TGraph *gq=new TGraph(20);
Int_t i=0;
- for(Double_t v=0.05;v<=5.05;v+=0.25){
+ for(Double_t v=0.05;v<=qm+.05;v+=0.25){
TH1F *dummy=ComputeELossHisto(1,v,len,e);
Double_t avgloss=dummy->GetMean();
gq->SetPoint(i,v,avgloss);i++;
delete dummy;
}
- gq->SetMarkerStyle(20);
+ gq->SetMarkerStyle(21);
gq->Draw("pl");
- TGraph *gg=new TGraph(20);
+ Int_t points=(Int_t)qm*4;
+ TGraph *gg=new TGraph(points);
i=0;
- for(Double_t v=0.05;v<=5.05;v+=0.25){
+ for(Double_t v=0.05;v<=qm+.05;v+=0.25){
TH1F *dummy=ComputeELossHisto(2,v,len,e);
Double_t avgloss=dummy->GetMean();
gg->SetPoint(i,v,avgloss);i++;
delete dummy;
}
- gg->SetMarkerStyle(24);
+ gg->SetMarkerStyle(20);
+ gg->SetMarkerColor(2);
gg->Draw("pl");
- TGraph *gratio=new TGraph(20);
- for(Int_t i=0;i<20;i++){
+ TGraph *gratio=new TGraph(points);
+ for(Int_t i=0;i<points;i++){
Double_t x,y,x2,y2;
gg->GetPoint(i,x,y);
gq->GetPoint(i,x2,y2);
}
gratio->SetLineStyle(4);
gratio->Draw();
- TLegend *l1a = new TLegend(0.5,0.6,.95,0.8);
+ TLegend *l1a = new TLegend(0.15,0.60,0.50,0.90);
l1a->SetFillStyle(0);
l1a->SetBorderSize(0);
Char_t label[100];
sprintf(label,"L = %.1f fm",len);
l1a->AddEntry(gq,label,"");
- l1a->AddEntry(gq,"quark","pl");
- l1a->AddEntry(gg,"gluon","pl");
+ l1a->AddEntry(gq,"quark projectile","pl");
+ l1a->AddEntry(gg,"gluon projectile","pl");
l1a->AddEntry(gratio,"gluon/quark/2.25*10","pl");
l1a->Draw();
else gratio->SetPoint(i,x,0);
}
gratio->SetLineStyle(4);
- gratio->Draw();
+ //gratio->Draw();
TLegend *l1a = new TLegend(0.5,0.6,.95,0.8);
l1a->SetFillStyle(0);
l1a->AddEntry(gq,label,"");
l1a->AddEntry(gq,"quark","pl");
l1a->AddEntry(gg,"gluon","pl");
- l1a->AddEntry(gratio,"gluon/quark/2.25*10","pl");
+ //l1a->AddEntry(gratio,"gluon/quark/2.25*10","pl");
l1a->Draw();
c->Update();
Int_t AliQuenchingWeights::GetIndex(Double_t len) const
{
+ //get the index according to length
if(len>fLengthMax) len=fLengthMax;
Int_t l=Int_t(len/0.25);