1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
18 // Read background particles from a boundary source
19 // Very specialized generator to simulate background from beam halo.
20 // The input file is a text file specially prepared
22 // Author: andreas.morsch@cern.ch
26 #include <TDatabasePDG.h>
29 #include "AliGenHalo.h"
34 AliGenHalo::AliGenHalo()
41 fTitle="Halo from LHC Tunnel";
47 AliGenHalo::AliGenHalo(Int_t npart)
54 fTitle="Halo from LHC Tunnel";
60 //____________________________________________________________
61 AliGenHalo::~AliGenHalo()
66 //____________________________________________________________
67 void AliGenHalo::Init()
72 //____________________________________________________________
73 void AliGenHalo::Generate()
75 // Generate from input file
76 fp = fopen(fFileName,"r");
78 printf("\n File %s opened for reading ! \n ", (char*) &fFileName);
80 printf("\n Opening of file %s failed ! \n ", (char*) &fFileName);
83 // MARS particle codes
84 const Int_t kmars[12]={0,kProton,kNeutron,kPiPlus,kPiMinus,kKPlus,kKMinus,
85 kMuonPlus,kMuonMinus,kGamma,kElectron,kPositron};
87 Float_t polar[3]= {0,0,0};
90 Float_t ekin, wgt, tx, ty, tz, txy;
93 Int_t ipart, ncols, nt;
99 ncols = fscanf(fp,"%i %f %f %f %f %f %f",
101 &origin[0], &origin[1],
103 if (ncols < 0) break;
105 if (fNpart !=-1 && nread > fNpart) break;
106 ipart = kmars[ipart];
107 amass = TDatabasePDG::Instance()->GetParticle(ipart)->Mass();
108 p0=sqrt(ekin*ekin + 2.*amass);
110 txy=TMath::Sqrt(tx*tx+ty*ty);
114 tz=-TMath::Sqrt(1.-txy);
120 PushTrack(fTrackIt,-1,ipart,p,origin,polar,0,kPNoProcess,nt,fParentWeight);
121 // PushTrack(fTrackIt,-1,ipart,p,origin,polar,0,"Halo+",nt,fParentWeight);
122 origin[2]=-origin[2];
124 PushTrack(fTrackIt,-1,ipart,p,origin,polar,0,kPNoProcess,nt,fParentWeight);
125 // PushTrack(fTrackIt,-1,ipart,p,origin,polar,0,"Halo-",nt,fParentWeight);
126 origin[2]=-origin[2];