]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - EVGEN/AliGenParam.cxx
Minor corrections thanks to I.Hrivnacova
[u/mrichter/AliRoot.git] / EVGEN / AliGenParam.cxx
index af39767a76ac838760971037dff6b20d3c643177..48f4e3c7e0c0db1e30f2639c610b1190b2bdd59b 100644 (file)
@@ -1,7 +1,32 @@
+/**************************************************************************
+ * 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>
@@ -28,13 +53,12 @@ AliGenParam::AliGenParam()
   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";
@@ -49,7 +73,29 @@ AliGenParam::AliGenParam(Int_t npart, Param_t param)
   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();
 }
 
 //____________________________________________________________
@@ -89,7 +135,7 @@ void AliGenParam::Init()
   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;
@@ -124,31 +170,44 @@ void AliGenParam::Init()
     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);
@@ -157,8 +216,10 @@ void AliGenParam::Generate()
              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();
@@ -173,7 +234,7 @@ void AliGenParam::Generate()
          ty=Float_t(TMath::TanH(fYPara->GetRandom()));
 //
 // pT
-         if (fAnalog) {
+         if (fAnalog == analog) {
              pt=fPtPara->GetRandom();
              wgtp=fParentWeight;
              wgtch=fChildWeight;
@@ -201,44 +262,93 @@ void AliGenParam::Generate()
              }
          }
          
+// 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
 }