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 // Generator using AMPT as an external generator
20 #include "AliGenAmpt.h"
22 #include <TClonesArray.h>
25 #include <TLorentzVector.h>
27 #include <TParticle.h>
28 #include <TVirtualMC.h>
29 #include <TParticlePDG.h>
30 #include "AliGenHijingEventHeader.h"
31 #define AliGenAmptEventHeader AliGenHijingEventHeader
32 #include "AliAmptRndm.h"
35 #include "AliDecayer.h"
39 AliGenAmpt::AliGenAmpt()
66 fPhiMaxJet(TMath::TwoPi()),
76 fNoHeavyQuarks(kFALSE),
85 fHeader(new AliGenAmptEventHeader("Ampt")),
91 AliAmptRndm::SetAmptRandom(GetRandom());
94 AliGenAmpt::AliGenAmpt(Int_t npart)
121 fPhiMaxJet(2. * TMath::Pi()),
131 fNoHeavyQuarks(kFALSE),
140 fHeader(new AliGenAmptEventHeader("Ampt")),
144 // Default PbPb collisions at 2.76 TeV
148 fTitle= "Particle Generator using AMPT";
149 AliAmptRndm::SetAmptRandom(GetRandom());
152 AliGenAmpt::~AliGenAmpt()
155 if ( fDsigmaDb) delete fDsigmaDb;
156 if ( fDnDb) delete fDnDb;
157 if ( fHeader) delete fHeader;
160 void AliGenAmpt::Init()
166 fProjectile.Resize(8);
168 fAmpt = new TAmpt(fEnergyCMS, fFrame, fProjectile, fTarget,
169 fAProjectile, fZProjectile, fATarget, fZTarget,
170 fMinImpactParam, fMaxImpactParam);
173 fAmpt->SetIHPR2(2, fRadiation);
174 fAmpt->SetIHPR2(3, fTrigger);
175 fAmpt->SetIHPR2(6, fShadowing);
176 fAmpt->SetIHPR2(12, fDecaysOff);
177 fAmpt->SetIHPR2(21, fKeep);
178 fAmpt->SetHIPR1(8, fPtHardMin);
179 fAmpt->SetHIPR1(9, fPtHardMax);
180 fAmpt->SetHIPR1(10, fPtMinJet);
181 fAmpt->SetHIPR1(50, fSimpleJet);
184 // fQuench = 0: no quenching
185 // fQuench = 1: Hijing default
186 // fQuench = 2: new LHC parameters for HIPR1(11) and HIPR1(14)
187 // fQuench = 3: new RHIC parameters for HIPR1(11) and HIPR1(14)
188 // fQuench = 4: new LHC parameters with log(e) dependence
189 // fQuench = 5: new RHIC parameters with log(e) dependence
190 fAmpt->SetIHPR2(50, 0);
192 fAmpt->SetIHPR2(4, 1);
194 fAmpt->SetIHPR2(4, 0);
197 fAmpt->SetHIPR1(14, 1.1);
198 fAmpt->SetHIPR1(11, 3.7);
199 } else if (fQuench == 3) {
200 fAmpt->SetHIPR1(14, 0.20);
201 fAmpt->SetHIPR1(11, 2.5);
202 } else if (fQuench == 4) {
203 fAmpt->SetIHPR2(50, 1);
204 fAmpt->SetHIPR1(14, 4.*0.34);
205 fAmpt->SetHIPR1(11, 3.7);
206 } else if (fQuench == 5) {
207 fAmpt->SetIHPR2(50, 1);
208 fAmpt->SetHIPR1(14, 0.34);
209 fAmpt->SetHIPR1(11, 2.5);
213 if (fNoHeavyQuarks) {
214 fAmpt->SetIHPR2(49, 1);
216 fAmpt->SetIHPR2(49, 0);
220 fAmpt->SetIsoft(fIsoft);
221 fAmpt->SetNtMax(fNtMax);
222 fAmpt->SetIpop(fIpop);
224 fAmpt->SetAlpha(fAlpha);
225 fAmpt->SetStringFrag(fStringA, fStringB);
232 EvaluateCrossSections();
234 fAmpt->SetReactionPlaneAngle(0.0);
237 void AliGenAmpt::Generate()
239 // Generate one event
241 Float_t polar[3] = {0,0,0};
242 Float_t origin[3] = {0,0,0};
243 Float_t origin0[3] = {0,0,0};
250 Int_t j, kf, ks, ksp, imo;
254 for (j = 0;j < 3; j++)
255 origin0[j] = fOrigin[j];
256 //time0 = fTimeOrigin;
258 if(fVertexSmear == kPerEvent) {
260 for (j=0; j < 3; j++)
261 origin0[j] = fVertex[j];
265 Float_t sign = (fRandomPz && (Rndm() < 0.5))? -1. : 1.;
269 // Generate random reaction plane angle if requested
271 TRandom *r=AliAmptRndm::GetAmptRandom();
272 fAmpt->SetReactionPlaneAngle(TMath::TwoPi()*r->Rndm());
275 // Generate one event
276 Int_t fpemask = gSystem->GetFPEMask();
277 gSystem->SetFPEMask(0);
278 fAmpt->GenerateEvent();
279 gSystem->SetFPEMask(fpemask);
284 fAmpt->ImportParticles(&fParticles,"All");
285 Int_t np = fParticles.GetEntriesFast();
289 //RS>>: Decayers now returns cm and sec. Since TAmpt returns mm and mm/c, convert its result to cm and sec here
290 const Float_t kconvT=0.001/2.999792458e8; // mm/c to seconds conversion
291 const Float_t kconvL=1./10; // mm to cm conversion
292 for (int ip=np;ip--;) {
293 TParticle* part = (TParticle*)fParticles[ip];
295 part->SetProductionVertex(part->Vx()*kconvL,part->Vy()*kconvL,part->Vz()*kconvL,kconvT*part->T());
299 if (fTrigger != kNoTrigger) {
304 AliDecayer *decayer = 0;
306 // decayer = gMC->GetDecayer();
307 decayer = fDecayer; //AMPT does not do the strong decays per dafault
309 if (decayer&&fDecay) {
310 TClonesArray arr("TParticle",100);
311 for( Int_t nLoop=0; nLoop!=2; ++nLoop) { // In order to produce more than one generation of decays: NumberOfNestedLoops set to 2
313 for (Int_t i = 0; i < np; i++) {
314 TParticle *iparticle = (TParticle *)fParticles.At(i);
315 if (!Stable(iparticle)) // true if particle has daughters already
317 kf = TMath::Abs(iparticle->GetPdgCode());
320 if( !IsThisAKnownParticle(iparticle) ) continue; // skip undesired particles
322 if (0) { // this turned out to be too cumbersome!
323 if (kf!=331&&kf!=3114&&kf!=3114&&kf!=411&&kf!=-4122&&kf!=-3324&&kf!=-3312&&kf!=-3114&&
324 kf!=-311&&kf!=3214&&kf!=-3214&&kf!=-433&&kf!=413&&kf!=3122&&kf!=-3122&&kf!=-413&&
325 kf!=-421&&kf!=-423&&kf!=3324&&kf!=-313&&kf!=213&&kf!=-213&&kf!=3314&&kf!=3222&&
326 kf!=-3222&&kf!=3224&&kf!=-3224&&kf!=-4212&&kf!=4212&&kf!=433&&kf!=423&&kf!=-3322&&
328 continue; //decay eta',Sigma*+,Sigma*-,D+,Lambda_c-,Xi*0_bar,Xi-_bar,Sigma*-,
329 // K0_bar,Sigma*0,Sigma*0_bar,D*_s-,D*+,Lambda0,Lambda0_bar,D*-
330 // D0_bar,D*0_bar,Xi*0,K*0_bar,rho+,rho-,Xi*-,Sigma-,
331 // Sigma+,Sigma*+,Sigma*-,Sigma_c-,Sigma_c+,D*_s+,D*0,Xi0_bar
333 //} else { // really only decay particles if there are not known to Geant3
334 // if (gMC->IdFromPDG(kf)>0)
337 if (0) { // defining the particle for Geant3 leads to a floating point exception.
338 TParticlePDG *pdg = iparticle->GetPDG(1);
339 //pdg->Print(); printf("%s\n",pdg->ParticleClass());
340 TString ptype(pdg->ParticleClass());
341 TMCParticleType mctype(kPTUndefined);
342 if (ptype=="Baryon" || ptype=="Meson")
344 gMC->DefineParticle(pdg->PdgCode(), pdg->GetName(), mctype, pdg->Mass(), pdg->Charge(), pdg->Lifetime(),
345 ptype,pdg->Width(), (Int_t)pdg->Spin(), (Int_t)pdg->Parity(), 0,
346 (Int_t)pdg->Isospin(), 0, 0, 0, 0, pdg->Stable());
347 gMC->SetUserDecay(pdg->PdgCode());
351 TLorentzVector pmom(iparticle->Px(),iparticle->Py(),iparticle->Pz(),iparticle->Energy());
352 decayer->Decay(kf,&pmom);
353 decayer->ImportParticles(&arr);
354 Int_t ndecayed = arr.GetEntries();
356 if (np2+ndecayed>fParticles.GetSize())
357 fParticles.Expand(2*fParticles.GetSize());
359 // iparticle->SetStatusCode(2); to be compatible with Hijing
360 iparticle->SetFirstDaughter(np2);
361 for (Int_t jj = 1; jj < ndecayed; jj++) {
362 TParticle *jp = (TParticle *)arr.At(jj);
363 if (jp->GetFirstMother()!=1)
366 TParticle *newp = new(fParticles[np2]) TParticle(jp->GetPdgCode(),
367 0, //1, //to be compatible with Hijing
372 jp->Px(),jp->Py(),jp->Pz(),jp->Energy(),
373 jp->Vx(),jp->Vy(),jp->Vz(),jp->T());
374 //take care of the phi
375 //if((kf == 333)||(kf == 313)) {
376 if(IsThisAKnownParticle(iparticle)) {
377 //Printf("=============PANOS===================");
378 //Printf("Phi detected - daughet is: %d",jp->GetPdgCode());
379 newp->SetUniqueID(4);
381 else newp->SetUniqueID( jp->GetStatusCode() );
383 } // end of jj->nDecayedParticles
384 iparticle->SetLastDaughter(np2-1);
385 } // end of nDecayedPrticles>1
387 np = fParticles.GetEntries();
389 AliError(Form("Something is fishy: %d %d\n", np,np2));
391 } // end of nLoop->NumberOfNestedLoops
394 AliError("No decayer found, but fDecay==kTRUE!");
401 Int_t* newPos = new Int_t[np];
402 Int_t* pSelected = new Int_t[np];
404 for (Int_t i = 0; i < np; i++) {
410 //TParticle * iparticle = (TParticle *) fParticles.At(0);
411 fVertex[0] = origin0[0];
412 fVertex[1] = origin0[1];
413 fVertex[2] = origin0[2];
416 // First select parent particles
417 for (Int_t i = 0; i < np; i++) {
418 TParticle *iparticle = (TParticle *) fParticles.At(i);
420 // Is this a parent particle ?
421 if (Stable(iparticle)) continue; // quit if particle has no daughters
422 Bool_t selected = kTRUE;
423 Bool_t hasSelectedDaughters = kFALSE;
424 kf = iparticle->GetPdgCode();
425 ks = iparticle->GetStatusCode();
430 selected = KinematicSelection(iparticle, 0) && SelectFlavor(kf);
431 hasSelectedDaughters = DaughtersSelection(iparticle);
433 // Put particle on the stack if it is either selected or
434 // it is the mother of at least one seleted particle
435 if (selected || hasSelectedDaughters) {
439 } // particle loop parents
441 // Now select the final state particles
442 fProjectileSpecn = 0;
443 fProjectileSpecp = 0;
446 for (Int_t i = 0; i<np; i++) {
447 TParticle *iparticle = (TParticle *) fParticles.At(i);
448 // Is this a final state particle ?
449 if (!Stable(iparticle)) continue; // quit if particle has daughters
450 Bool_t selected = kTRUE;
451 kf = iparticle->GetPdgCode();
454 ks = iparticle->GetStatusCode();
455 ksp = iparticle->GetUniqueID();
457 // --------------------------------------------------------------------------
458 // Count spectator neutrons and protons
459 if(ksp == 0 || ksp == 1) {
460 if(kf == kNeutron) fProjectileSpecn += 1;
461 if(kf == kProton) fProjectileSpecp += 1;
462 } else if(ksp == 10 || ksp == 11) {
463 if(kf == kNeutron) fTargetSpecn += 1;
464 if(kf == kProton) fTargetSpecp += 1;
466 // --------------------------------------------------------------------------
468 selected = KinematicSelection(iparticle,0)&&SelectFlavor(kf);
469 if (!fSpectators && selected)
470 selected = (ksp != 0 && ksp != 1 && ksp != 10 && ksp != 11);
473 // Put particle on the stack if selected
477 if (0) printf("---> %d %d %d %s\n",i,nc,kf,iparticle->GetName());
479 } // particle loop final state
481 // Write particles to stack
482 for (Int_t i = 0; i<np; i++) {
484 TParticle *iparticle = (TParticle *) fParticles.At(i);
485 Bool_t hasMother = (iparticle->GetFirstMother() >=0);
486 Bool_t hasDaughter = (iparticle->GetFirstDaughter() >=0);
487 kf = iparticle->GetPdgCode();
488 ks = iparticle->GetStatusCode();
489 p[0] = iparticle->Px();
490 p[1] = iparticle->Py();
491 p[2] = iparticle->Pz() * sign;
492 origin[0] = origin0[0]+iparticle->Vx();
493 origin[1] = origin0[1]+iparticle->Vy();
494 origin[2] = origin0[2]+iparticle->Vz();
495 tof = time0 + iparticle->T();
498 TParticle* mother = 0;
499 TMCProcess procID = (TMCProcess) iparticle->GetUniqueID();
501 imo = iparticle->GetFirstMother();
502 mother = (TParticle *) fParticles.At(imo);
503 imo = (mother->GetPdgCode() != 92) ? newPos[imo] : -1;
504 } else { // if has no mothers then it was created by AMPT
506 procID = kPPrimary; // reseting to ALIROOT convention
508 procID = kPNoProcess; // for expectators
510 Bool_t tFlag = (fTrackIt && !hasDaughter);
511 PushTrack(tFlag,imo,kf,p,origin,polar,tof,procID,nt, 1., ks);
520 AliInfo(Form("\n I've put %i particles on the stack \n",nc));
523 if (jev >= fNpart || fNpart == -1) {
524 fKineBias = Float_t(fNpart)/Float_t(fTrials);
525 AliInfo(Form("\n Trials: %i %i %i\n",fTrials, fNpart, jev));
531 SetHighWaterMark(nt);
534 Bool_t AliGenAmpt::IsThisAKnownParticle(TParticle *thisGuy)
536 // In order to prevent AMPT to introduce weird particles into the decayer and transporter
537 // blame cperez@cern.ch for this method
539 Int_t pdgcode = TMath::Abs( thisGuy->GetPdgCode() );
541 Int_t myFavoriteParticles[ 38] = { 3322, 3314, 3312, 3224, 3222, // Xi0 Xi*+- Xi+- Sigma*-+ Sigma-+
542 3214, 3212, 3122, 3114, 3112, // Sigma*0 Sigma0 Lambda0 Sigma*+- Sigma+-
543 2224, 2214, 2212, 2114, 2112, // Delta--++ Delta-+ proton Delta0 neutron
544 1114, 323, 321, 313, 311, // Delta+- K*-+ K-+ K*0 K0
545 213, 211, 11, 22, 111, // rho-+ pi-+ e+- gamma pi0
546 113, 130, 221, 223, 310, // rho0 K_L0 eta omega K_S0
547 331, 333, 3324, 431, 421, // eta' phi Xi*0 Ds-+ D0
548 411, 413, 13 // D-+ D*-+ mu+-
551 Bool_t found = kFALSE;
552 for(Int_t i=0; i!=38; ++i)
553 if( myFavoriteParticles[i] == pdgcode ) {
561 void AliGenAmpt::EvaluateCrossSections()
563 // Glauber Calculation of geometrical x-section
565 Float_t xTot = 0.; // barn
566 Float_t xTotHard = 0.; // barn
567 Float_t xPart = 0.; // barn
568 Float_t xPartHard = 0.; // barn
569 Float_t sigmaHard = 0.1; // mbarn
571 Float_t bMax = fAmpt->GetHIPR1(34)+fAmpt->GetHIPR1(35);
572 const Float_t kdib = 0.2;
573 Int_t kMax = Int_t((bMax-bMin)/kdib)+1;
575 printf("\n Projectile Radius (fm): %f \n",fAmpt->GetHIPR1(34));
576 printf("\n Target Radius (fm): %f \n",fAmpt->GetHIPR1(35));
579 Float_t oldvalue= 0.;
580 Float_t* b = new Float_t[kMax]; memset(b,0,kMax*sizeof(Float_t));
581 Float_t* si1 = new Float_t[kMax]; memset(si1,0,kMax*sizeof(Float_t));
582 Float_t* si2 = new Float_t[kMax]; memset(si2,0,kMax*sizeof(Float_t));
583 for (i = 0; i < kMax; i++) {
584 Float_t xb = bMin+i*kdib;
585 Float_t ov=fAmpt->Profile(xb);
586 Float_t gb = 2.*0.01*fAmpt->GetHIPR1(40)*kdib*xb*(1.-TMath::Exp(-fAmpt->GetHINT1(12)*ov));
587 Float_t gbh = 2.*0.01*fAmpt->GetHIPR1(40)*kdib*xb*sigmaHard*ov;
590 printf("profile %f %f %f\n", xb, ov, fAmpt->GetHINT1(12));
592 if (xb > fMinImpactParam && xb < fMaxImpactParam) {
597 if ((oldvalue) && ((xTot-oldvalue)/oldvalue<0.0001))
600 printf("\n Total cross section (barn): %d %f %f \n",i, xb, xTot);
601 printf("\n Hard cross section (barn): %d %f %f \n\n",i, xb, xTotHard);
609 printf("\n Total cross section (barn): %f \n",xTot);
610 printf("\n Hard cross section (barn): %f \n \n",xTotHard);
611 printf("\n Partial cross section (barn): %f %f \n",xPart, xPart/xTot*100.);
612 printf("\n Partial hard cross section (barn): %f %f \n",xPartHard, xPartHard/xTotHard*100.);
614 // Store result as a graph
619 fDsigmaDb = new TGraph(i, b, si1);
621 fDnDb = new TGraph(i, b, si2);
624 Bool_t AliGenAmpt::DaughtersSelection(TParticle* iparticle)
626 // Looks recursively if one of the daughters has been selected
627 //printf("\n Consider daughters %d:",iparticle->GetPdgCode());
630 Bool_t hasDaughters = (iparticle->GetFirstDaughter() >=0);
631 Bool_t selected = kFALSE;
633 imin = iparticle->GetFirstDaughter();
634 imax = iparticle->GetLastDaughter();
635 for (Int_t i = imin; i <= imax; i++){
636 TParticle * jparticle = (TParticle *) fParticles.At(i);
637 Int_t ip = jparticle->GetPdgCode();
638 if (KinematicSelection(jparticle,0)&&SelectFlavor(ip)) {
639 selected=kTRUE; break;
641 if (DaughtersSelection(jparticle)) {selected=kTRUE; break; }
649 Bool_t AliGenAmpt::SelectFlavor(Int_t pid)
651 // Select flavor of particle
653 // 4: charm and beauty
660 Int_t ifl = TMath::Abs(pid/100);
661 if (ifl > 10) ifl/=10;
662 res = (fFlavor == ifl);
665 // This part if gamma writing is inhibited
667 res = res && (pid != kGamma && pid != kPi0);
672 Bool_t AliGenAmpt::Stable(TParticle* particle) const
674 // Return true for a stable particle
678 if (particle->GetFirstDaughter() < 0 )
686 void AliGenAmpt::MakeHeader()
688 // Fills the event header, to be called after each event
690 fHeader->SetNProduced(fNprimaries);
691 fHeader->SetImpactParameter(fAmpt->GetHINT1(19));
692 fHeader->SetTotalEnergy(fAmpt->GetEATT());
693 fHeader->SetHardScatters(fAmpt->GetJATT());
694 fHeader->SetParticipants(fAmpt->GetNP(), fAmpt->GetNT());
695 fHeader->SetCollisions(fAmpt->GetN0(),
699 fHeader->SetSpectators(fProjectileSpecn, fProjectileSpecp,
700 fTargetSpecn,fTargetSpecp);
701 //fHeader->SetReactionPlaneAngle(fAmpt->GetHINT1(20));
702 fHeader->SetReactionPlaneAngle(fAmpt->GetReactionPlaneAngle());
703 //printf("Impact Parameter %13.3f \n", fAmpt->GetHINT1(19));
705 // 4-momentum vectors of the triggered jets.
706 // Before final state gluon radiation.
707 TLorentzVector* jet1 = new TLorentzVector(fAmpt->GetHINT1(21),
710 fAmpt->GetHINT1(24));
712 TLorentzVector* jet2 = new TLorentzVector(fAmpt->GetHINT1(31),
715 fAmpt->GetHINT1(34));
716 // After final state gluon radiation.
717 TLorentzVector* jet3 = new TLorentzVector(fAmpt->GetHINT1(26),
720 fAmpt->GetHINT1(29));
722 TLorentzVector* jet4 = new TLorentzVector(fAmpt->GetHINT1(36),
725 fAmpt->GetHINT1(39));
726 fHeader->SetJets(jet1, jet2, jet3, jet4);
727 // Bookkeeping for kinematic bias
728 fHeader->SetTrials(fTrials);
730 fHeader->SetPrimaryVertex(fVertex);
731 fHeader->SetInteractionTime(fEventTime);
733 fCollisionGeometry = fHeader;
738 Bool_t AliGenAmpt::CheckTrigger()
740 // Check the kinematic trigger condition
742 Bool_t triggered = kFALSE;
746 TLorentzVector* jet1 = new TLorentzVector(fAmpt->GetHINT1(26),
749 fAmpt->GetHINT1(29));
751 TLorentzVector* jet2 = new TLorentzVector(fAmpt->GetHINT1(36),
754 fAmpt->GetHINT1(39));
755 Double_t eta1 = jet1->Eta();
756 Double_t eta2 = jet2->Eta();
757 Double_t phi1 = jet1->Phi();
758 Double_t phi2 = jet2->Phi();
759 //printf("\n Trigger: %f %f %f %f", fEtaMinJet, fEtaMaxJet, fPhiMinJet, fPhiMaxJet);
760 if ( (eta1 < fEtaMaxJet && eta1 > fEtaMinJet &&
761 phi1 < fPhiMaxJet && phi1 > fPhiMinJet)
763 (eta2 < fEtaMaxJet && eta2 > fEtaMinJet &&
764 phi2 < fPhiMaxJet && phi2 > fPhiMinJet)
767 } else if (fTrigger == 2) {
769 Int_t np = fParticles.GetEntriesFast();
770 for (Int_t i = 0; i < np; i++) {
771 TParticle* part = (TParticle*) fParticles.At(i);
772 Int_t kf = part->GetPdgCode();
773 Int_t ksp = part->GetUniqueID();
774 if (kf == 22 && ksp == 40) {
775 Float_t phi = part->Phi();
776 Float_t eta = part->Eta();
777 if (eta < fEtaMaxJet &&
783 } // check phi,eta within limits