+/**************************************************************************
+ * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ * *
+ * Author: The ALICE Off-line Project. *
+ * Contributors are mentioned in the code where appropriate. *
+ * *
+ * Permission to use, copy, modify and distribute this software and its *
+ * documentation strictly for non-commercial purposes is hereby granted *
+ * without fee, provided that the above copyright notice appears in all *
+ * copies and that both the copyright notice and this permission notice *
+ * appear in the supporting documentation. The authors make no claims *
+ * about the suitability of this software for any purpose. It is *
+ * provided "as is" without express or implied warranty. *
+ **************************************************************************/
+
+/*
+$Log$
+Revision 1.12 1999/11/03 17:43:20 fca
+New version from G.Martinez & A.Morsch
+
+Revision 1.11 1999/09/29 09:24:14 fca
+Introduction of the Copyright and cvs Log
+
+*/
+
#include "AliGenParam.h"
#include "AliGenMUONlib.h"
+#include "AliGenPHOSlib.h"
#include "AliRun.h"
-#include "TGeant3.h"
#include "AliPythia.h"
#include <TDirectory.h>
#include <TFile.h>
fYPara = 0;
fParam = jpsi_p;
fAnalog = analog;
+ SetCutOnChild();
}
//____________________________________________________________
-AliGenParam::AliGenParam(Int_t npart, Param_t param)
-// Double_t (*PtPara)(Double_t*, Double_t*),
-// Double_t (*YPara) (Double_t* ,Double_t*))
- :AliGenerator(npart)
+
+AliGenParam::AliGenParam(Int_t npart, Param_t param) :AliGenerator(npart)
{
//
// fName="HMESONpara";
fAnalog = analog;
fChildSelect.Set(5);
for (Int_t i=0; i<5; i++) fChildSelect[i]=0;
- ForceDecay();
+ SetForceDecay();
+ SetCutOnChild();
+}
+
+AliGenParam::AliGenParam(Int_t npart, Param_t param,
+ Double_t (*PtPara) (Double_t*, Double_t*),
+ Double_t (*YPara ) (Double_t* ,Double_t*),
+ Int_t (*IpPara) ())
+ :AliGenerator(npart)
+{
+// Gines Martinez 1/10/99
+ fPtParaFunc = PtPara;
+ fYParaFunc = YPara;
+ fIpParaFunc = IpPara;
+//
+ fPtPara = 0;
+ fYPara = 0;
+ fParam = param;
+ fAnalog = analog;
+ fChildSelect.Set(5);
+ for (Int_t i=0; i<5; i++) fChildSelect[i]=0;
+ SetForceDecay();
+ SetCutOnChild();
}
//____________________________________________________________
Float_t IntPt0 = PtPara->Integral(0,15);
Float_t IntPtS = PtPara->Integral(fPtMin,fPtMax);
Float_t PhiWgt=(fPhiMax-fPhiMin)/2./TMath::Pi();
- if (fAnalog) {
+ if (fAnalog == analog) {
fYWgt = IntYS/fdNdy0;
fPtWgt = IntPtS/IntPt0;
fParentWeight = fYWgt*fPtWgt*PhiWgt/fNpart;
case katomu:
fChildSelect[0]=13;
break;
+ case nodecay:
+ break;
+ case all:
+ break;
}
-
}
//____________________________________________________________
void AliGenParam::Generate()
{
-// Generate 'npart' of heavy mesons (J/Psi, upsilon or phi) in the
-// the desired theta, phi and momentum windows; Gaussian smearing
-// on the vertex is done if selected
+//
+// Generate 'npart' of light and heavy mesons (J/Psi, upsilon or phi, Pion,
+// Kaons, Etas, Omegas) and Baryons (proton, antiprotons, neutrons and
+// antineutrons in the the desired theta, phi and momentum windows;
+// Gaussian smearing on the vertex is done if selected.
+// The decay of heavy mesons is done using lujet, and the childern particle are tracked by GEANT
+// However, light mesons are directly tracked by GEANT setting fForceDecay = nodecay (SetForceDecay(nodecay))
+//
+// printf("Generate !!!!!!!!!!!!!\n");
- Float_t polar[3]= {0,0,0};
- //
- Float_t origin[3], origin0[3];
- Float_t pt, pl, ptot;
- Float_t phi, theta;
- Float_t p[3];
+ Float_t polar[3]= {0,0,0}; // Polarisation of the parent particle (for GEANT tracking)
+ Float_t origin0[3]; // Origin of the generated parent particle (for GEANT tracking)
+ Float_t pt, pl, ptot; // Transverse, logitudinal and total momenta of the parent particle
+ Float_t phi, theta; // Phi and theta spherical angles of the parent particle momentum
+ Float_t p[3], pc[3],
+ och[3], pch[10][3]; // Momentum, polarisation and origin of the children particles from lujet
Float_t ty, xmt;
- Int_t i, nt, j;
+ Int_t nt, i, j, kfch[10];
Float_t wgtp, wgtch;
Double_t dummy;
+ static TClonesArray *particles;
//
+ if(!particles) particles=new TClonesArray("TParticle",1000);
//
Float_t random[6];
+
+// Calculating vertex position per event
for (j=0;j<3;j++) origin0[j]=fOrigin[j];
if(fVertexSmear==perEvent) {
gMC->Rndm(random,6);
TMath::Sqrt(-2*TMath::Log(random[2*j+1]));
}
}
- for(i=0;i<fNpart;i++) {
- while(1) {
+ Int_t ipa=0;
+// Generating fNpart particles
+ while (ipa<fNpart) {
+ while(1) {
//
// particle type
Int_t Ipart = fIpParaFunc();
ty=Float_t(TMath::TanH(fYPara->GetRandom()));
//
// pT
- if (fAnalog) {
+ if (fAnalog == analog) {
pt=fPtPara->GetRandom();
wgtp=fParentWeight;
wgtch=fChildWeight;
}
}
+// Looking at fForceDecay :
+// if fForceDecay != none Primary particle decays using
+// AliPythia and children are tracked by GEANT
//
-// parent
-
- gAlice->
- SetTrack(0,-1,Ipart,p,origin,polar,0,"Primary",nt,wgtp);
- Int_t iparent=nt;
+// if fForceDecay == none Primary particle is tracked by GEANT
+// (In the latest, make sure that GEANT actually does all the decays you want)
//
-// use lujet to decay particle
-
- Float_t energy=TMath::Sqrt(ptot*ptot+am*am);
- fPythia->DecayParticle(Ipart,energy,theta,phi);
-// fPythia->LuList(1);
-
+ if (fForceDecay != nodecay) {
+// Using lujet to decay particle
+ Float_t energy=TMath::Sqrt(ptot*ptot+am*am);
+ fPythia->DecayParticle(Ipart,energy,theta,phi);
+ // fPythia->LuList(1);
+ //printf("origin0 %f %f %f\n",origin0[0],origin0[1],origin0[2]);
+ //printf("fCutOnChild %d \n",fCutOnChild);
//
// select muons
- TObjArray* particles = fPythia->ImportParticles() ;
- Int_t np = particles->GetEntriesFast();
- for (Int_t i = 0; i<np; i++) {
- TParticle * iparticle = (TParticle *) particles->At(i);
- Int_t kf = iparticle->GetPdgCode();
+ Int_t np=fPythia->ImportParticles(particles,"All");
+ //printf("np %d \n",np);
+ Int_t ncsel=0;
+ for (i = 1; i<np; i++) {
+ TParticle * iparticle = (TParticle *) particles->At(i);
+ Int_t kf = iparticle->GetPdgCode();
//
// children
- if (ChildSelected(TMath::Abs(kf)))
- {
- p[0]=iparticle->Px();
- p[1]=iparticle->Py();
- p[2]=iparticle->Pz();
- origin[0]=origin0[0]+iparticle->Vx()/10;
- origin[1]=origin0[1]+iparticle->Vy()/10;
- origin[2]=origin0[2]+iparticle->Vz()/10;
- gAlice->SetTrack(fTrackIt,iparent,kf,
- p,origin,polar,
- 0,"Decay",nt,wgtch);
- gAlice->KeepTrack(nt);
- } // select muon
- } // decay particle loop
+ if (ChildSelected(TMath::Abs(kf)))
+ {
+ pc[0]=iparticle->Px();
+ pc[1]=iparticle->Py();
+ pc[2]=iparticle->Pz();
+ och[0]=origin0[0]+iparticle->Vx()/10;
+ och[1]=origin0[1]+iparticle->Vy()/10;
+ och[2]=origin0[2]+iparticle->Vz()/10;
+ if (fCutOnChild) {
+ Float_t PtChild=TMath::Sqrt(pc[0]*pc[0]+pc[1]*pc[1]);
+ Float_t PChild=TMath::Sqrt(PtChild*PtChild+pc[2]*pc[2]);
+ Float_t ThetaChild=TMath::ATan2(PtChild,pc[2]);
+ Float_t PhiChild=TMath::ATan2(pc[1],pc[0])+TMath::Pi();
+ Bool_t childok =
+ ((PtChild > fPtMin && PtChild <fPtMax) &&
+ (PChild > fPMin && PChild <fPMax) &&
+ (ThetaChild>fThetaMin && ThetaChild<fThetaMax) &&
+ (PhiChild > fPhiMin && PhiChild <fPhiMax));
+ if(childok)
+ {
+ pch[ncsel][0]=pc[0];
+ pch[ncsel][1]=pc[1];
+ pch[ncsel][2]=pc[2];
+ kfch[ncsel]=kf;
+ ncsel++;
+ } else {
+ ncsel=-1;
+ break;
+ } // child kine cuts
+ } else {
+ pch[ncsel][0]=pc[0];
+ pch[ncsel][1]=pc[1];
+ pch[ncsel][2]=pc[2];
+ kfch[ncsel]=kf;
+ ncsel++;
+ } // if child selection
+ } // select muon
+ } // decay particle loop
+ Int_t iparent;
+ if ((fCutOnChild && ncsel >0) || !fCutOnChild){
+ ipa++;
+//
+// parent
+ gAlice->
+ SetTrack(0,-1,Ipart,p,origin0,polar,0,"Primary",nt,wgtp);
+ iparent=nt;
+
+ for (i=0; i< ncsel; i++) {
+ gAlice->SetTrack(fTrackIt,iparent,kfch[i],
+ &pch[i][0],och,polar,
+ 0,"Decay",nt,wgtch);
+ gAlice->KeepTrack(nt);
+ }
+ } // Decays by Lujet
+ } // kinematic selection
+ else // nodecay option, so parent will be tracked by GEANT (pions, kaons, eta, omegas, baryons)
+ {
+ gAlice->
+ SetTrack(fTrackIt,-1,Ipart,p,origin0,polar,0,"Primary",nt,wgtp);
+ ipa++;
+ }
break;
- } // kinematic selection
+ } // while
} // event loop
}