/*
$Log$
+ Revision 1.9.6.1 2002/06/10 15:12:46 hristov
+ Merged with v3-08-02
+
+ Revision 1.9 2001/11/08 20:10:45 dibari
+ ctor with initialising of parmeters added
+
+ Revision 1.8 2001/09/05 09:09:38 hristov
+ The energy of feedback photons calculated correctly
+
+ Revision 1.7 2001/05/10 12:32:27 jbarbosa
+ Changed call to SetTrack.
+
+ Revision 1.6 2001/02/23 17:39:02 jbarbosa
+ Removed verbose output.
+
+ Revision 1.5 2001/02/23 17:25:08 jbarbosa
+ Re-definition of IntPH() to accomodate for wire sag effect.
+
+ Revision 1.4 2000/12/01 17:37:44 morsch
+ Replace in argument of SetTrack(..) string constant by kPFeedBackPhoton.
+
Revision 1.3 2000/10/03 21:44:09 morsch
Use AliSegmentation and AliHit abstract base classes.
//___________________________________________
ClassImp(AliRICHResponseV0)
-Float_t AliRICHResponseV0::IntPH(Float_t eloss)
+AliRICHResponseV0::AliRICHResponseV0()
+{
+ SetSigmaIntegration(5.);
+ SetChargeSlope(27.);
+ SetChargeSpread(0.18, 0.18);
+ SetMaxAdc(4096);
+ SetAlphaFeedback(0.036);
+ SetEIonisation(26.e-9);
+ SetSqrtKx3(0.77459667);
+ SetKx2(0.962);
+ SetKx4(0.379);
+ SetSqrtKy3(0.77459667);
+ SetKy2(0.962);
+ SetKy4(0.379);
+ SetPitch(0.25);
+ SetWireSag(1); // 1->On, 0->Off
+ SetVoltage(2150); // Should only be 2000, 2050, 2100 or 2150
+}//AliRICHResponseV0::ctor()
+Float_t AliRICHResponseV0::IntPH(Float_t eloss, Float_t yhit)
{
// Get number of electrons and return charge
nel= Int_t(eloss/fEIonisation);
Float_t charge=0;
+ Double_t gain_var=1;
+
if (nel == 0) nel=1;
- for (Int_t i=1;i<=nel;i++) {
- charge -= fChargeSlope*TMath::Log(gRandom->Rndm());
- }
+
+ if (fWireSag)
+ {
+ //printf("Voltage:%d, Yhit:%f\n",fVoltage, yhit);
+
+ if (fVoltage==2150)
+ {
+ gain_var = 9e-6*TMath::Power(yhit,4) + 2e-7*TMath::Power(yhit,3) - 0.0316*TMath::Power(yhit,2) - 3e-4*yhit + 25.367;
+ //gain_var = 9e-5*TMath::Power(yhit,4) + 2e-6*TMath::Power(yhit,3) - 0.316*TMath::Power(yhit,2) - 3e-3*yhit + 253.67;
+ }
+ if (fVoltage==2100)
+ gain_var = 8e-6*TMath::Power(yhit,4) + 2e-7*TMath::Power(yhit,3) - 0.0283*TMath::Power(yhit,2) - 2e-4*yhit + 23.015;
+ if (fVoltage==2050)
+ gain_var = 7e-6*TMath::Power(yhit,4) + 1e-7*TMath::Power(yhit,3) - 0.0254*TMath::Power(yhit,2) - 2e-4*yhit + 20.888;
+ if (fVoltage==2000)
+ gain_var = 6e-6*TMath::Power(yhit,4) + 8e-8*TMath::Power(yhit,3) - 0.0227*TMath::Power(yhit,2) - 1e-4*yhit + 18.961;
+
+ gain_var = gain_var/100;
+ //printf("Yhit:%f, Gain variation:%f\n",yhit,gain_var);
+
+ Float_t gain = (fChargeSlope + fChargeSlope*gain_var)*.9;
+ //printf(" Yhit:%f, Gain variation:%f\n",yhit, gain);
+
+ for (Int_t i=1;i<=nel;i++) {
+ charge -= gain*TMath::Log(gRandom->Rndm());
+ }
+ }
+ else
+ {
+ for (Int_t i=1;i<=nel;i++) {
+ charge -= fChargeSlope*TMath::Log(gRandom->Rndm());
+ }
+ }
+
return charge;
}
-Float_t AliRICHResponseV0::IntPH()
+Float_t AliRICHResponseV0::IntPH(Float_t yhit)
{
// Get number of electrons and return charge, for a single photon
- Float_t charge = -fChargeSlope*TMath::Log(gRandom->Rndm());
+ Float_t charge=0;
+ Double_t gain_var=1;
+
+ if (fWireSag)
+ {
+ if (fVoltage==2150)
+ {
+ gain_var = 9e-6*TMath::Power(yhit,4) + 2e-7*TMath::Power(yhit,3) - 0.0316*TMath::Power(yhit,2) - 3e-4*yhit + 25.367;
+ //gain_var = 9e-5*TMath::Power(yhit,4) + 2e-6*TMath::Power(yhit,3) - 0.316*TMath::Power(yhit,2) - 3e-3*yhit + 253.67;
+ }
+ if (fVoltage==2100)
+ gain_var = 8e-6*TMath::Power(yhit,4) + 2e-7*TMath::Power(yhit,3) - 0.0283*TMath::Power(yhit,2) - 2e-4*yhit + 23.015;
+ if (fVoltage==2050)
+ gain_var = 7e-6*TMath::Power(yhit,4) + 1e-7*TMath::Power(yhit,3) - 0.0254*TMath::Power(yhit,2) - 2e-4*yhit + 20.888;
+ if (fVoltage==2000)
+ gain_var = 6e-6*TMath::Power(yhit,4) + 8e-8*TMath::Power(yhit,3) - 0.0227*TMath::Power(yhit,2) - 1e-4*yhit + 18.961;
+
+ gain_var = gain_var/100;
+ //printf(" Yhit:%f, Gain variation:%f\n",yhit, gain_var);
+
+ Float_t gain = (fChargeSlope + fChargeSlope*gain_var)*.9;
+
+ charge -= gain*TMath::Log(gRandom->Rndm());
+ //printf(" Yhit:%f, Gain variation:%f\n",yhit, gain);
+ }
+ else
+ {
+ charge -= fChargeSlope*TMath::Log(gRandom->Rndm());
+ }
return charge;
}
// Local variables
- Float_t cthf, ranf[2], phif, enfp = 0, sthf;
+ Double_t ranf[2];
+ Float_t cthf, phif, enfp = 0, sthf;
Int_t i, ifeed;
Float_t e1[3], e2[3], e3[3];
Float_t vmod, uswop;
- Float_t fp, random;
+ Float_t fp;
+ Double_t random;
Float_t dir[3], phi;
Int_t nfp;
- Float_t pol[3], mom[3];
+ Float_t pol[3], mom[4];
TLorentzVector position;
//
// Determine number of feedback photons
// This call to fill the time of flight
gMC->TrackPosition(position);
+ //printf("Track position: %f %f %f %15.12f\n", position[0],position[1],position[2],position[3]);
//
// Generate photons
for (i = 0; i <nfp; i++) {
// Direction
- gMC->Rndm(ranf, 2);
+ gMC->GetRandom()->RndmArray(2,ranf);
cthf = ranf[0] * 2 - 1.;
if (cthf < 0) continue;
sthf = TMath::Sqrt((1 - cthf) * (1 + cthf));
phif = ranf[1] * 2 * TMath::Pi();
//
- gMC->Rndm(&random, 1);
+ //gMC->Rndm(&random, 1);
+ gMC->GetRandom()->RndmArray(1, &random);
if (random <= .57) {
enfp = 7.5e-9;
} else if (random <= .7) {
mom[0]*=enfp;
mom[1]*=enfp;
mom[2]*=enfp;
+ mom[3] = TMath::Sqrt(mom[0]*mom[0]+mom[1]*mom[1]+mom[2]*mom[2]);
+ //printf("Dir %f %f %f\n",dir[0],dir[1],dir[2]);
+ //printf("Momentum %15.12f %15.12f %15.12f\n",mom[0],mom[1],mom[2]);
+ //printf("Energy %e\n", mom[3]);
// Polarisation
e1[0] = 0;
vmod=TMath::Sqrt(1/vmod);
for(j=0;j<3;j++) e2[j]*=vmod;
- gMC->Rndm(ranf, 1);
+ //gMC->Rndm(ranf, 1);
+ gMC->GetRandom()->RndmArray(1,ranf);
phi = ranf[0] * 2 * TMath::Pi();
for(j=0;j<3;j++) pol[j]=e1[j]*TMath::Sin(phi)+e2[j]*TMath::Cos(phi);
gMC->Gdtom(pol, pol, 2);
++sNfeed;
gAlice->SetTrack(Int_t(1), gAlice->CurrentTrack(), Int_t(50000051),
- mom,source,pol,position[3],
+ mom[0],mom[1],mom[2],mom[3],source[0],source[1],source[2],position[3],pol[0],pol[1],pol[2],
kPFeedBackPhoton, nt, 1.);
+
+ //printf("Adding feedback with tof %f and going to %f %f %f\n",position[3],mom[0],mom[1],mom[2]);
}
+ //if(sNfeed)
+ //printf("feedbacks produced:%d\n",sNfeed);
return(sNfeed);
}
git://git.uio.no / u / mrichter / AliRoot.git / blobdiff