+AliGenGeVSim* GeVSimStandard(Float_t mult, Float_t vn)
+{
+ AliGenGeVSim* gener = new AliGenGeVSim(0);
+//
+// Mult is the number of charged particles in |eta| < 0.5
+// Vn is in (%)
+//
+// Sigma of the Gaussian dN/deta
+ Float_t sigma_eta = 2.75;
+//
+// Maximum eta
+ Float_t etamax = 7.00;
+//
+//
+// Scale from multiplicity in |eta| < 0.5 to |eta| < |etamax|
+ Float_t mm = mult * (TMath::Erf(etamax/sigma_eta/sqrt(2.)) / TMath::Erf(0.5/sigma_eta/sqrt(2.)));
+//
+// Scale from charged to total multiplicity
+//
+ mm *= 1.587;
+//
+// Vn
+ vn /= 100.;
+//
+// Define particles
+//
+//
+// 78% Pions (26% pi+, 26% pi-, 26% p0) T = 250 MeV
+ AliGeVSimParticle *pp = new AliGeVSimParticle(kPiPlus, 1, 0.26 * mm, 0.25, sigma_eta) ;
+ AliGeVSimParticle *pm = new AliGeVSimParticle(kPiMinus, 1, 0.26 * mm, 0.25, sigma_eta) ;
+ AliGeVSimParticle *p0 = new AliGeVSimParticle(kPi0, 1, 0.26 * mm, 0.25, sigma_eta) ;
+//
+// 12% Kaons (3% K0short, 3% K0long, 3% K+, 3% K-) T = 300 MeV
+ AliGeVSimParticle *ks = new AliGeVSimParticle(kK0Short, 1, 0.03 * mm, 0.30, sigma_eta) ;
+ AliGeVSimParticle *kl = new AliGeVSimParticle(kK0Long, 1, 0.03 * mm, 0.30, sigma_eta) ;
+ AliGeVSimParticle *kp = new AliGeVSimParticle(kKPlus, 1, 0.03 * mm, 0.30, sigma_eta) ;
+ AliGeVSimParticle *km = new AliGeVSimParticle(kKMinus, 1, 0.03 * mm, 0.30, sigma_eta) ;
+//
+// 10% Protons / Neutrons (5% Protons, 5% Neutrons) T = 250 MeV
+ AliGeVSimParticle *pr = new AliGeVSimParticle(kProton, 1, 0.05 * mm, 0.25, sigma_eta) ;
+ AliGeVSimParticle *ne = new AliGeVSimParticle(kNeutron, 1, 0.05 * mm, 0.25, sigma_eta) ;
+//
+// Set Elliptic Flow properties
+ pp->SetEllipticParam(vn,1.0,0.) ;
+ pm->SetEllipticParam(vn,1.0,0.) ;
+ p0->SetEllipticParam(vn,1.0,0.) ;
+ pr->SetEllipticParam(vn,1.0,0.) ;
+ ne->SetEllipticParam(vn,1.0,0.) ;
+ ks->SetEllipticParam(vn,1.0,0.) ;
+ kl->SetEllipticParam(vn,1.0,0.) ;
+ kp->SetEllipticParam(vn,1.0,0.) ;
+ km->SetEllipticParam(vn,1.0,0.) ;
+//
+// Set Direct Flow properties
+ pp->SetDirectedParam(vn,1.0,0.) ;
+ pm->SetDirectedParam(vn,1.0,0.) ;
+ p0->SetDirectedParam(vn,1.0,0.) ;
+ pr->SetDirectedParam(vn,1.0,0.) ;
+ ne->SetDirectedParam(vn,1.0,0.) ;
+ ks->SetDirectedParam(vn,1.0,0.) ;
+ kl->SetDirectedParam(vn,1.0,0.) ;
+ kp->SetDirectedParam(vn,1.0,0.) ;
+ km->SetDirectedParam(vn,1.0,0.) ;
+//
+// Add particles to the list
+ gener->AddParticleType(pp) ;
+ gener->AddParticleType(pm) ;
+ gener->AddParticleType(p0) ;
+ gener->AddParticleType(pr) ;
+ gener->AddParticleType(ne) ;
+ gener->AddParticleType(ks) ;
+ gener->AddParticleType(kl) ;
+ gener->AddParticleType(kp) ;
+ gener->AddParticleType(km) ;
+//
+// Random Ev.Plane ----------------------------------
+ TF1 *rpa = new TF1("gevsimPsiRndm","1", 0, 360);
+// --------------------------------------------------
+ gener->SetPtRange(0., 9.) ; // Use a resonable range! (used for bin size in numerical integration)
+ gener->SetPhiRange(0, 360);
+ //
+ // Set pseudorapidity range
+ Float_t thmin = EtaToTheta(+etamax);
+ Float_t thmax = EtaToTheta(-etamax);
+ gener->SetThetaRange(thmin,thmax);
+ return gener;
+}
+
+