[u/mrichter/AliRoot.git] / EVGEN / AliGenParam.cxx

#include "AliGenParam.h"
#include "AliGenMUONlib.h"
#include "AliRun.h"
#include "AliPythia.h"
#include <TDirectory.h>
#include <TFile.h>
#include <TTree.h>
#include <stdlib.h>
#include <TParticle.h>

ClassImp(AliGenParam)

//------------------------------------------------------------

  //Begin_Html
  /*
    <img src="picts/AliGenParam.gif">
  */
  //End_Html

//____________________________________________________________
//____________________________________________________________
AliGenParam::AliGenParam()
                 :AliGenerator()
{
  fPtPara = 0;
  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)
{
  //
  //  fName="HMESONpara";
  //  fTitle="Heavy Mesons Parametrisation";
  fPtParaFunc = AliGenMUONlib::GetPt(param);
  fYParaFunc  = AliGenMUONlib::GetY(param);
  fIpParaFunc = AliGenMUONlib::GetIp(param);
  
  fPtPara = 0;
  fYPara  = 0;
  fParam  = param;
  fAnalog = analog;
  fChildSelect.Set(5);
  for (Int_t i=0; i<5; i++) fChildSelect[i]=0;
  ForceDecay();
  SetCutOnChild();
}

//____________________________________________________________
AliGenParam::~AliGenParam()
{
    delete  fPtPara;
    delete  fYPara;
}

//____________________________________________________________
void AliGenParam::Init()
{
    SetMC(new AliPythia());
    fPythia= (AliPythia*) fgMCEvGen;

//  End of the test !!!
  //Begin_Html
  /*
    <img src="picts/AliGenParam.gif">
  */
  //End_Html
 
  fPtPara = new TF1("Pt-Parametrization",fPtParaFunc,fPtMin,fPtMax,0);
  fYPara  = new TF1("Y -Parametrization",fYParaFunc,fYMin,fYMax,0);
  TF1* PtPara = new TF1("Pt-Parametrization",fPtParaFunc,0,15,0);
  TF1* YPara  = new TF1("Y -Parametrization",fYParaFunc,-6,6,0);

//
// dN/dy| y=0
  Double_t y1=0;
  Double_t y2=0;
  
  fdNdy0=fYParaFunc(&y1,&y2);
//
// Integral over generation region
  Float_t IntYS  = YPara ->Integral(fYMin, fYMax);
  Float_t IntPt0 = PtPara->Integral(0,15);
  Float_t IntPtS = PtPara->Integral(fPtMin,fPtMax);
  Float_t PhiWgt=(fPhiMax-fPhiMin)/2./TMath::Pi();
  if (fAnalog) {
     fYWgt  = IntYS/fdNdy0;
     fPtWgt = IntPtS/IntPt0;
     fParentWeight = fYWgt*fPtWgt*PhiWgt/fNpart;
  } else {
      fYWgt = IntYS/fdNdy0;
      fPtWgt = (fPtMax-fPtMin)/IntPt0;
      fParentWeight = fYWgt*fPtWgt*PhiWgt/fNpart;
  }
//
// particle decay related initialization
  fPythia->DefineParticles();
// semimuonic decays of charm and beauty
  fPythia->ForceDecay(fForceDecay);
//
    switch (fForceDecay) 
    {
    case semielectronic:
    case dielectron:
    case b_jpsi_dielectron:
    case b_psip_dielectron:
	fChildSelect[0]=11;	
	break;
    case semimuonic:
    case dimuon:
    case b_jpsi_dimuon:
    case b_psip_dimuon:
	fChildSelect[0]=13;
	break;
    case pitomu:
	fChildSelect[0]=13;
	break;
    case katomu:
	fChildSelect[0]=13;
	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


  //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], pc[3], och[3], pch[10][3];
  Float_t ty, xmt;
  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];
  for (j=0;j<3;j++) origin0[j]=fOrigin[j];
  if(fVertexSmear==perEvent) {
      gMC->Rndm(random,6);
      for (j=0;j<3;j++) {
	  origin0[j]+=fOsigma[j]*TMath::Cos(2*random[2*j]*TMath::Pi())*
	      TMath::Sqrt(-2*TMath::Log(random[2*j+1]));
      }
  }
  Int_t ipa=0;
  while (ipa<fNpart) {
    while(1) {
//
// particle type
	  Int_t Ipart = fIpParaFunc();
	  fChildWeight=(fPythia->GetBraPart(Ipart))*fParentWeight;	  
	  Float_t am=fPythia->GetPMAS(fPythia->LuComp(Ipart),1);
	  gMC->Rndm(random,2);
//
// phi
	  phi=fPhiMin+random[0]*(fPhiMax-fPhiMin);
//
// y
	  ty=Float_t(TMath::TanH(fYPara->GetRandom()));
//
// pT
	  if (fAnalog) {
	      pt=fPtPara->GetRandom();
	      wgtp=fParentWeight;
	      wgtch=fChildWeight;
	  } else {
	      pt=fPtMin+random[1]*(fPtMax-fPtMin);
	      Double_t ptd=pt;
	      wgtp=fParentWeight*fPtParaFunc(& ptd, &dummy);
	      wgtch=fChildWeight*fPtParaFunc(& ptd, &dummy);
	  }
	  xmt=sqrt(pt*pt+am*am);
	  pl=xmt*ty/sqrt(1.-ty*ty);
	  theta=TMath::ATan2(pt,pl);
	  if(theta<fThetaMin || theta>fThetaMax) continue;
	  ptot=TMath::Sqrt(pt*pt+pl*pl);
	  if(ptot<fPMin || ptot>fPMax) continue;
	  p[0]=pt*TMath::Cos(phi);
	  p[1]=pt*TMath::Sin(phi);
	  p[2]=pl;
	  if(fVertexSmear==perTrack) {
	      gMC->Rndm(random,6);
	      for (j=0;j<3;j++) {
		  origin0[j]=
		      fOrigin[j]+fOsigma[j]*TMath::Cos(2*random[2*j]*TMath::Pi())*
		      TMath::Sqrt(-2*TMath::Log(random[2*j+1]));
	      }
	  }
//
// use 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
	  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();
              //printf("kf %d\n",kf);
//
// children
	      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();
		    if ((PtChild   > fPtMin   && PtChild   <fPtMax)      &&
			(PChild    > fPMin    && PChild    <fPMax)       &&
			(ThetaChild>fThetaMin && ThetaChild<fThetaMax)   &&
			(PhiChild  >  fPhiMin && PhiChild  <fPhiMax))
		      {
			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,origin,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); 
	      }
	      
	  } // kinematic selection
	  break;
    } // while
  } // event loop
}

Bool_t AliGenParam::ChildSelected(Int_t ip)
{
    for (Int_t i=0; i<5; i++)
    {
	if (fChildSelect[i]==ip) return kTRUE;
    }
    return kFALSE;
}

Bool_t AliGenParam::KinematicSelection(TParticle *particle)
{
    Float_t px=particle->Px();
    Float_t py=particle->Py();
    Float_t pz=particle->Pz();
//
// momentum cut
    Float_t p=TMath::Sqrt(px*px+py*py+pz*pz);
    if (p > fPMax || p < fPMin) 
    {
//	printf("\n failed p cut %f %f %f \n",p,fPMin,fPMax);
	return kFALSE;
    }
    Float_t pt=TMath::Sqrt(px*px+py*py);
    
//
// theta cut
    Float_t  theta = Float_t(TMath::ATan2(Double_t(pt),Double_t(p)));
    if (theta > fThetaMax || theta < fThetaMin) 
    {
//	printf("\n failed theta cut %f %f %f \n",theta,fThetaMin,fThetaMax);
	return kFALSE;
    }

    return kTRUE;
}
Commit	Line	Data
fe4da5cc	1	#include "AliGenParam.h"
	2	#include "AliGenMUONlib.h"
	3	#include "AliRun.h"
fe4da5cc	4	#include "AliPythia.h"
	5	#include <TDirectory.h>
	6	#include <TFile.h>
	7	#include <TTree.h>
	8	#include <stdlib.h>
1578254f	9	#include <TParticle.h>
fe4da5cc	10
	11	ClassImp(AliGenParam)
	12
	13	//------------------------------------------------------------
	14
	15	//Begin_Html
	16	/*
1439f98e	17	<img src="picts/AliGenParam.gif">
fe4da5cc	18	*/
	19	//End_Html
	20
	21	//____________________________________________________________
	22	//____________________________________________________________
	23	AliGenParam::AliGenParam()
	24	:AliGenerator()
	25	{
	26	fPtPara = 0;
	27	fYPara = 0;
b7601ac4	28	fParam = jpsi_p;
b7601ac4	29	fAnalog = analog;
21aaa175	30	SetCutOnChild();
fe4da5cc	31	}
	32
	33	//____________________________________________________________
b7601ac4	34	AliGenParam::AliGenParam(Int_t npart, Param_t param)
fe4da5cc	35	// Double_t (PtPara)(Double_t, Double_t*),
	36	// Double_t (YPara) (Double_t ,Double_t*))
	37	:AliGenerator(npart)
	38	{
	39	//
	40	// fName="HMESONpara";
	41	// fTitle="Heavy Mesons Parametrisation";
b7601ac4	42	fPtParaFunc = AliGenMUONlib::GetPt(param);
	43	fYParaFunc = AliGenMUONlib::GetY(param);
	44	fIpParaFunc = AliGenMUONlib::GetIp(param);
fe4da5cc	45
	46	fPtPara = 0;
	47	fYPara = 0;
b7601ac4	48	fParam = param;
b7601ac4	49	fAnalog = analog;
fe4da5cc	50	fChildSelect.Set(5);
	51	for (Int_t i=0; i<5; i++) fChildSelect[i]=0;
	52	ForceDecay();
21aaa175	53	SetCutOnChild();
fe4da5cc	54	}
	55
	56	//____________________________________________________________
	57	AliGenParam::~AliGenParam()
	58	{
	59	delete fPtPara;
	60	delete fYPara;
	61	}
	62
	63	//____________________________________________________________
	64	void AliGenParam::Init()
	65	{
	66	SetMC(new AliPythia());
	67	fPythia= (AliPythia*) fgMCEvGen;
	68
	69	// End of the test !!!
	70	//Begin_Html
	71	/*
1439f98e	72	<img src="picts/AliGenParam.gif">
fe4da5cc	73	*/
	74	//End_Html
	75
b7601ac4	76	fPtPara = new TF1("Pt-Parametrization",fPtParaFunc,fPtMin,fPtMax,0);
	77	fYPara = new TF1("Y -Parametrization",fYParaFunc,fYMin,fYMax,0);
	78	TF1* PtPara = new TF1("Pt-Parametrization",fPtParaFunc,0,15,0);
	79	TF1* YPara = new TF1("Y -Parametrization",fYParaFunc,-6,6,0);
	80
fe4da5cc	81	//
	82	// dN/dy\| y=0
	83	Double_t y1=0;
	84	Double_t y2=0;
	85
	86	fdNdy0=fYParaFunc(&y1,&y2);
	87	//
	88	// Integral over generation region
b7601ac4	89	Float_t IntYS = YPara ->Integral(fYMin, fYMax);
	90	Float_t IntPt0 = PtPara->Integral(0,15);
	91	Float_t IntPtS = PtPara->Integral(fPtMin,fPtMax);
fe4da5cc	92	Float_t PhiWgt=(fPhiMax-fPhiMin)/2./TMath::Pi();
	93	if (fAnalog) {
	94	fYWgt = IntYS/fdNdy0;
	95	fPtWgt = IntPtS/IntPt0;
	96	fParentWeight = fYWgtfPtWgtPhiWgt/fNpart;
	97	} else {
	98	fYWgt = IntYS/fdNdy0;
	99	fPtWgt = (fPtMax-fPtMin)/IntPt0;
	100	fParentWeight = fYWgtfPtWgtPhiWgt/fNpart;
	101	}
	102	//
	103	// particle decay related initialization
	104	fPythia->DefineParticles();
	105	// semimuonic decays of charm and beauty
	106	fPythia->ForceDecay(fForceDecay);
	107	//
	108	switch (fForceDecay)
	109	{
	110	case semielectronic:
	111	case dielectron:
	112	case b_jpsi_dielectron:
	113	case b_psip_dielectron:
	114	fChildSelect[0]=11;
	115	break;
	116	case semimuonic:
	117	case dimuon:
	118	case b_jpsi_dimuon:
	119	case b_psip_dimuon:
	120	fChildSelect[0]=13;
	121	break;
b7601ac4	122	case pitomu:
	123	fChildSelect[0]=13;
	124	break;
	125	case katomu:
	126	fChildSelect[0]=13;
	127	break;
fe4da5cc	128	}
	129
	130	}
	131
	132	//____________________________________________________________
	133	void AliGenParam::Generate()
	134	{
	135	// Generate 'npart' of heavy mesons (J/Psi, upsilon or phi) in the
	136	// the desired theta, phi and momentum windows; Gaussian smearing
	137	// on the vertex is done if selected
	138
fe4da5cc	139
21aaa175	140	//printf("Generate !!!!!!!!!!!!!\n");
21aaa175	141
fe4da5cc	142	Float_t polar[3]= {0,0,0};
	143	//
	144	Float_t origin[3], origin0[3];
	145	Float_t pt, pl, ptot;
	146	Float_t phi, theta;
21aaa175	147	Float_t p[3], pc[3], och[3], pch[10][3];
fe4da5cc	148	Float_t ty, xmt;
21aaa175	149	Int_t nt, i, j, kfch[10];
fe4da5cc	150	Float_t wgtp, wgtch;
fe4da5cc	151	Double_t dummy;
09fd3ea2	152	static TClonesArray *particles;
fe4da5cc	153	//
09fd3ea2	154	if(!particles) particles=new TClonesArray("TParticle",1000);
fe4da5cc	155	//
	156	Float_t random[6];
	157	for (j=0;j<3;j++) origin0[j]=fOrigin[j];
	158	if(fVertexSmear==perEvent) {
cfce8870	159	gMC->Rndm(random,6);
fe4da5cc	160	for (j=0;j<3;j++) {
	161	origin0[j]+=fOsigma[j]TMath::Cos(2random[2j]TMath::Pi())*
	162	TMath::Sqrt(-2TMath::Log(random[2j+1]));
	163	}
	164	}
21aaa175	165	Int_t ipa=0;
	166	while (ipa<fNpart) {
	167	while(1) {
fe4da5cc	168	//
	169	// particle type
	170	Int_t Ipart = fIpParaFunc();
	171	fChildWeight=(fPythia->GetBraPart(Ipart))*fParentWeight;
	172	Float_t am=fPythia->GetPMAS(fPythia->LuComp(Ipart),1);
cfce8870	173	gMC->Rndm(random,2);
fe4da5cc	174	//
	175	// phi
	176	phi=fPhiMin+random[0]*(fPhiMax-fPhiMin);
	177	//
	178	// y
	179	ty=Float_t(TMath::TanH(fYPara->GetRandom()));
	180	//
	181	// pT
	182	if (fAnalog) {
	183	pt=fPtPara->GetRandom();
	184	wgtp=fParentWeight;
	185	wgtch=fChildWeight;
	186	} else {
	187	pt=fPtMin+random[1]*(fPtMax-fPtMin);
	188	Double_t ptd=pt;
	189	wgtp=fParentWeight*fPtParaFunc(& ptd, &dummy);
	190	wgtch=fChildWeight*fPtParaFunc(& ptd, &dummy);
	191	}
	192	xmt=sqrt(ptpt+amam);
	193	pl=xmtty/sqrt(1.-tyty);
	194	theta=TMath::ATan2(pt,pl);
	195	if(theta<fThetaMin \|\| theta>fThetaMax) continue;
	196	ptot=TMath::Sqrt(ptpt+plpl);
	197	if(ptot<fPMin \|\| ptot>fPMax) continue;
	198	p[0]=pt*TMath::Cos(phi);
	199	p[1]=pt*TMath::Sin(phi);
	200	p[2]=pl;
	201	if(fVertexSmear==perTrack) {
cfce8870	202	gMC->Rndm(random,6);
fe4da5cc	203	for (j=0;j<3;j++) {
	204	origin0[j]=
	205	fOrigin[j]+fOsigma[j]TMath::Cos(2random[2j]TMath::Pi())*
	206	TMath::Sqrt(-2TMath::Log(random[2j+1]));
	207	}
	208	}
fe4da5cc	209	//
	210	// use lujet to decay particle
	211
	212	Float_t energy=TMath::Sqrt(ptotptot+amam);
	213	fPythia->DecayParticle(Ipart,energy,theta,phi);
21aaa175	214	// fPythia->LuList(1);
	215
	216
	217	//printf("origin0 %f %f %f\n",origin0[0],origin0[1],origin0[2]);
	218	//printf("fCutOnChild %d \n",fCutOnChild);
fe4da5cc	219	//
fe4da5cc	220	// select muons
21aaa175	221	Int_t np=fPythia->ImportParticles(particles,"All");
	222	//printf("np %d \n",np);
	223	Int_t ncsel=0;
	224	for (i = 1; i<np; i++) {
1578254f	225	TParticle * iparticle = (TParticle *) particles->At(i);
1578254f	226	Int_t kf = iparticle->GetPdgCode();
21aaa175	227	//printf("kf %d\n",kf);
fe4da5cc	228	//
	229	// children
	230	if (ChildSelected(TMath::Abs(kf)))
	231	{
21aaa175	232	pc[0]=iparticle->Px();
	233	pc[1]=iparticle->Py();
	234	pc[2]=iparticle->Pz();
	235	och[0]=origin0[0]+iparticle->Vx()/10;
	236	och[1]=origin0[1]+iparticle->Vy()/10;
	237	och[2]=origin0[2]+iparticle->Vz()/10;
	238	if (fCutOnChild) {
	239	Float_t PtChild=TMath::Sqrt(pc[0]pc[0]+pc[1]pc[1]);
	240	Float_t PChild=TMath::Sqrt(PtChildPtChild+pc[2]pc[2]);
	241	Float_t ThetaChild=TMath::ATan2(PtChild,pc[2]);
	242	Float_t PhiChild=TMath::ATan2(pc[1],pc[0])+TMath::Pi();
	243	if ((PtChild > fPtMin && PtChild <fPtMax) &&
	244	(PChild > fPMin && PChild <fPMax) &&
	245	(ThetaChild>fThetaMin && ThetaChild<fThetaMax) &&
	246	(PhiChild > fPhiMin && PhiChild <fPhiMax))
	247	{
	248	pch[ncsel][0]=pc[0];
	249	pch[ncsel][1]=pc[1];
	250	pch[ncsel][2]=pc[2];
	251	kfch[ncsel]=kf;
	252	ncsel++;
	253	} else {
	254	ncsel=-1;
	255	break;
	256	} // child kine cuts
	257	} else {
	258	pch[ncsel][0]=pc[0];
	259	pch[ncsel][1]=pc[1];
	260	pch[ncsel][2]=pc[2];
	261	kfch[ncsel]=kf;
	262	ncsel++;
	263	} // if child selection
fe4da5cc	264	} // select muon
fe4da5cc	265	} // decay particle loop
21aaa175	266	Int_t iparent;
	267	if ((fCutOnChild && ncsel >0) \|\| !fCutOnChild){
	268	ipa++;
	269	//
	270	// parent
	271	gAlice->
	272	SetTrack(0,-1,Ipart,p,origin,polar,0,"Primary",nt,wgtp);
	273	iparent=nt;
	274
	275	for (i=0; i< ncsel; i++) {
	276	gAlice->SetTrack(fTrackIt,iparent,kfch[i],
	277	&pch[i][0],och,polar,
	278	0,"Decay",nt,wgtch);
	279	gAlice->KeepTrack(nt);
	280	}
	281
	282	} // kinematic selection
fe4da5cc	283	break;
21aaa175	284	} // while
fe4da5cc	285	} // event loop
	286	}
	287
	288	Bool_t AliGenParam::ChildSelected(Int_t ip)
	289	{
	290	for (Int_t i=0; i<5; i++)
	291	{
	292	if (fChildSelect[i]==ip) return kTRUE;
	293	}
	294	return kFALSE;
	295	}
	296
1578254f	297	Bool_t AliGenParam::KinematicSelection(TParticle *particle)
fe4da5cc	298	{
1578254f	299	Float_t px=particle->Px();
	300	Float_t py=particle->Py();
	301	Float_t pz=particle->Pz();
fe4da5cc	302	//
	303	// momentum cut
	304	Float_t p=TMath::Sqrt(pxpx+pypy+pz*pz);
	305	if (p > fPMax \|\| p < fPMin)
	306	{
	307	// printf("\n failed p cut %f %f %f \n",p,fPMin,fPMax);
	308	return kFALSE;
	309	}
	310	Float_t pt=TMath::Sqrt(pxpx+pypy);
	311
	312	//
	313	// theta cut
	314	Float_t theta = Float_t(TMath::ATan2(Double_t(pt),Double_t(p)));
	315	if (theta > fThetaMax \|\| theta < fThetaMin)
	316	{
	317	// printf("\n failed theta cut %f %f %f \n",theta,fThetaMin,fThetaMax);
	318	return kFALSE;
	319	}
	320
	321	return kTRUE;
	322	}
	323
	324
	325
	326