// This Class not stores information on all particles prior to EMCAL entry - in order to facilitate analysis.
// This is done by setting fIShunt =2, and flagging all parents of particles entering the EMCAL.
+// 15/02/2002 .... Yves Schutz
+// 1. fSamplingFraction and fLayerToPreshowerRatio have been removed
+// 2. Timing signal is collected and added to hit
// --- ROOT system ---
#include "TPGON.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
-#include <strstream.h>
-#include <iostream.h>
+#include <Rstrstream.h>
+#include <Riostream.h>
#include <math.h>
+
// --- AliRoot header files ---
#include "AliEMCALv1.h"
#include "AliEMCALGeometry.h"
#include "AliConst.h"
#include "AliRun.h"
-#include "AliMC.h"
ClassImp(AliEMCALv1)
//______________________________________________________________________
AliEMCALv1::AliEMCALv1():AliEMCALv0(){
// ctor
+ fLightYieldMean = 0 ;
+ fIntrinsicAPDEfficiency = fLightFactor = fLightYieldAttenuation = fAPDFactor = fAPDGain = fRecalibrationFactor = fAPDFactor = 0. ;
}
+
//______________________________________________________________________
AliEMCALv1::AliEMCALv1(const char *name, const char *title):
AliEMCALv0(name,title){
gAlice->AddHitList(fHits);
fNhits = 0;
- fSamplingFraction = 12.9 ;
- fLayerToPreshowerRatio = 5.0/6.0;
fIshunt = 2; // All hits are associated with particles entering the calorimeter
+
+ //Photoelectron statistics:
+ // The light yield is a poissonian distribution of the number of
+ // photons created in a plastic layer, calculated using following formula
+ // NumberOfPhotons = EnergyLost * LightYieldMean* APDEfficiency *
+ // exp (-LightYieldAttenuation * DistanceToPINdiodeFromTheHit)
+ // LightYieldMean is parameter calculated to be over 100000 photons per GeV (a guess)
+ // APDEfficiency is 0.02655
+ // fLightYieldAttenuation is 0.0045 a guess
+ // TO BE FIXED
+ //***** Need a method in geometry to retrieve the fiber length corresponding to each layer
+ //***** See the step manager for the light attenuation calculation
+ // The number of electrons created in the APD is
+ // NumberOfElectrons = APDGain * LightYield
+ // The APD Gain is 300
+
+ fLightYieldMean = 10000000.; // This is a guess
+ fIntrinsicAPDEfficiency = 0.02655 ;
+ fLightFactor = fLightYieldMean * fIntrinsicAPDEfficiency ;
+ fLightYieldAttenuation = 0.0045 ; // an other guess
+ fAPDGain = 300. ;
+ fRecalibrationFactor = 13.418/ fLightYieldMean ;
+ fAPDFactor = (fRecalibrationFactor/100.) * fAPDGain ;
+
}
+
//______________________________________________________________________
AliEMCALv1::~AliEMCALv1(){
// dtor
}
//______________________________________________________________________
void AliEMCALv1::StepManager(void){
- // Accumulates hits as long as the track stays in a single
- // crystal or PPSD gas Cell
- Int_t id[2]; // (layer, phi, Eta) indices
- Int_t absid;
- // position wrt MRS and energy deposited
- Float_t xyze[4]={0.,0.,0.,0.};
- Float_t pmom[4]={0.,0.,0.,0.};
- TLorentzVector pos; // Lorentz vector of the track current position.
- TLorentzVector mom; // Lorentz vector of the track current momentum.
- Int_t tracknumber = gAlice->CurrentTrack();
- Int_t primary = 0;
- static Int_t iparent = 0;
- static Float_t ienergy = 0;
- Int_t copy = 0;
-
-
- if(gMC->IsTrackEntering() && (strcmp(gMC->CurrentVolName(),"XALU") == 0)) // This Particle in enterring the Calorimeter
- {
-
-gMC->TrackPosition(pos) ;
- xyze[0] = pos[0] ;
- xyze[1] = pos[1] ;
- xyze[2] = pos[2] ;
-
- if ( (xyze[1]*xyze[1] + xyze[2]*xyze[2] + xyze[3]*xyze[3]) < (fGeom->GetEnvelop(0)+fGeom->GetGap2Active()+1.5 )*(fGeom->GetEnvelop(0)+fGeom->GetGap2Active()+1.5 ) )
- {
- iparent = tracknumber;
- gMC->TrackMomentum(mom);
- ienergy = mom[3];
- TParticle * part = 0 ;
- Int_t parent = iparent ;
- while ( parent != -1 ) { // <------------- flags this particle to be kept and
-//all the ancestors of this particle
- part = gAlice->Particle(parent) ;
- part->SetBit(kKeepBit);
- parent = part->GetFirstMother() ;
- }
+ // Accumulates hits as long as the track stays in a single
+ // crystal or PPSD gas Cell
+
+ Int_t id[2]; // (layer, phi, Eta) indices
+ Int_t absid;
+ // position wrt MRS and energy deposited
+ Float_t xyzte[5]={0.,0.,0.,0.,0.};// position wrt MRS, time and energy deposited
+ Float_t pmom[4]={0.,0.,0.,0.};
+ TLorentzVector pos; // Lorentz vector of the track current position.
+ TLorentzVector mom; // Lorentz vector of the track current momentum.
+ Int_t tracknumber = gAlice->CurrentTrack();
+ Int_t primary = 0;
+ static Int_t iparent = 0;
+ static Float_t ienergy = 0;
+ Int_t copy = 0;
+
+ AliEMCALGeometry * geom = GetGeometry() ;
+
+ if(gMC->IsTrackEntering() && (strcmp(gMC->CurrentVolName(),"XALU") == 0)){ // This Particle in enterring the Calorimeter
+ gMC->TrackPosition(pos) ;
+ xyzte[0] = pos[0] ;
+ xyzte[1] = pos[1] ;
+ xyzte[2] = pos[2] ;
+ if ( (xyzte[0]*xyzte[0] + xyzte[1]*xyzte[1])
+ < (geom->GetEnvelop(0)+geom->GetGap2Active()+1.5 )*(geom->GetEnvelop(0)+geom->GetGap2Active()+1.5 ) ) {
+ iparent = tracknumber;
+ gMC->TrackMomentum(mom);
+ ienergy = mom[3];
+ TParticle * part = 0 ;
+ Int_t parent = iparent ;
+ while ( parent != -1 ) { // <------------- flags this particle to be kept and
+ //all the ancestors of this particle
+ part = gAlice->Particle(parent) ;
+ part->SetBit(kKeepBit);
+ parent = part->GetFirstMother() ;
}
-
-
-
-}
- if(gMC->CurrentVolID(copy) == gMC->VolId("XPHI") ) { // We are in a Scintillator Layer
-
- gMC->CurrentVolOffID(1, id[0]); // get the POLY copy number;
- gMC->CurrentVolID(id[1]); // get the phi number inside the layer
- primary = gAlice->GetPrimary(tracknumber);
- gMC->TrackPosition(pos);
- gMC->TrackMomentum(mom);
- xyze[0] = pos[0];
- xyze[1] = pos[1];
- xyze[2] = pos[2];
- xyze[3] = fSamplingFraction*(gMC->Edep()); // Correct for sampling calorimeter
- pmom[0] = mom[0];
- pmom[1] = mom[1];
- pmom[2] = mom[2];
- pmom[3] = mom[3];
+ }
+ }
+ if(gMC->CurrentVolID(copy) == gMC->VolId("XPHI") ) { // We are in a Scintillator Layer
+
+ Float_t depositedEnergy ;
- if(xyze[3] > 0.){// Track is inside the crystal and deposits some energy
- absid = (id[0]-1)*(fGeom->GetNPhi()) + id[1];
- if((absid/fGeom->GetNPhi()) < (2*fGeom->GetNZ()))
- {xyze[3] = fLayerToPreshowerRatio*xyze[3] ;} // Preshower readout must be scaled
- AddHit(fIshunt, primary,tracknumber, iparent, ienergy, absid, xyze, pmom);
+ if( (depositedEnergy = gMC->Edep()) > 0.){// Track is inside a scintillator and deposits some energy
+
+ gMC->TrackPosition(pos);
+ xyzte[0] = pos[0];
+ xyzte[1] = pos[1];
+ xyzte[2] = pos[2];
+ xyzte[3] = gMC->TrackTime() ;
+
+ gMC->TrackMomentum(mom);
+ pmom[0] = mom[0];
+ pmom[1] = mom[1];
+ pmom[2] = mom[2];
+ pmom[3] = mom[3];
+
+ gMC->CurrentVolOffID(1, id[0]); // get the POLY copy number;
+ gMC->CurrentVolID(id[1]); // get the phi number inside the layer
+ absid = (id[0]-1)*(geom->GetNPhi()) + id[1];
+
+ //Calculates the light yield, the number of photons produced in the
+ //plastic layer
+ // Here we need to know the fiber lebgth to calculate the attenuation
+
+ Float_t lengthOfFiber = 0. ;// should be retrieved from the geometry
+
+ Float_t lightYield = gRandom->Poisson(fLightFactor * depositedEnergy *
+ exp(-fLightYieldAttenuation * lengthOfFiber)) ;
+ xyzte[4] = fAPDFactor * lightYield ;
+
+ primary = gAlice->GetPrimary(tracknumber);
+ AddHit(fIshunt, primary,tracknumber, iparent, ienergy, absid, xyzte, pmom);
} // there is deposited energy
-}
+ }
}