]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - macros/Config_PythiaHeavyFlavours.C
Final TOF version: 18 modules with holes for PHOS (Annalisa)
[u/mrichter/AliRoot.git] / macros / Config_PythiaHeavyFlavours.C
index 5ccc17dc77f0b5f07111c3589f5a2a8e2cae5cea..60fea6f8dcf668184f0e8f3498083b216a19fa6f 100644 (file)
@@ -6,18 +6,54 @@
 // Mangano, Nason and Ridolfi.                                       //
 //                                                                   //
 // For details and for the NORMALIZATION of the yields see:          //
-// - "Charm and beauty production at the LHC", ALICE note submitted  //
-//   and available at: http://www.pd.infn.it/alipd/Docs.html         //
-// - Current version of the ALICE PPR (Chapter 6.5)                  //
-//   at: http://alice.web.cern.ch/Alice/ppr/web/CurrentVersion.html  //
+//   N.Carrer and A.Dainese,                                         //
+//   "Charm and beauty production at the LHC",                       //
+//   ALICE-INT-2003-019, [arXiv:hep-ph/0311225];                     //
+//   PPR Chapter 6.6, CERN/LHCC 2005-030 (2005).                     //
 //*******************************************************************//
+#if !defined(__CINT__) || defined(__MAKECINT__)
+#include <Riostream.h>
+#include <TRandom.h>
+#include <TDatime.h>
+#include <TSystem.h>
+#include <TVirtualMC.h>
+#include <TGeant3TGeo.h>
+#include "STEER/AliRunLoader.h"
+#include "STEER/AliRun.h"
+#include "STEER/AliConfig.h"
+#include "PYTHIA6/AliDecayerPythia.h"
+#include "PYTHIA6/AliGenPythia.h"
+#include "STEER/AliMagFMaps.h"
+#include "STRUCT/AliBODY.h"
+#include "STRUCT/AliMAG.h"
+#include "STRUCT/AliABSOv3.h"
+#include "STRUCT/AliDIPOv3.h"
+#include "STRUCT/AliHALLv3.h"
+#include "STRUCT/AliFRAMEv2.h"
+#include "STRUCT/AliSHILv3.h"
+#include "STRUCT/AliPIPEv3.h"
+#include "ITS/AliITSv11Hybrid.h"
+#include "TPC/AliTPCv2.h"
+#include "TOF/AliTOFv6T0.h"
+#include "HMPID/AliHMPIDv3.h"
+#include "ZDC/AliZDCv3.h"
+#include "TRD/AliTRDv1.h"
+#include "FMD/AliFMDv0.h"
+#include "MUON/AliMUONv1.h"
+#include "PHOS/AliPHOSv1.h"
+#include "PMD/AliPMDv1.h"
+#include "T0/AliT0v1.h"
+#include "ACORDE/AliACORDEv1.h"
+#endif
 
 //--- Heavy Flavour Production ---
 enum ProcessHvFl_t 
 {
-  kCharmPbPb5500,  kCharmpPb8800,  kCharmpp14000,
+  kCharmPbPb5500,  kCharmpPb8800,  kCharmpp14000,  kCharmpp14000wmi,
   kD0PbPb5500,     kD0pPb8800,     kD0pp14000,
-  kBeautyPbPb5500, kBeautypPb8800, kBeautypp14000
+  kDPlusPbPb5500,  kDPluspPb8800,  kDPluspp14000,
+  kDPlusStrangePbPb5500, kDPlusStrangepPb8800, kDPlusStrangepp14000,
+  kBeautyPbPb5500, kBeautypPb8800, kBeautypp14000, kBeautypp14000wmi
 };
 //--- Decay Mode ---
 enum DecayHvFl_t 
@@ -34,12 +70,27 @@ enum Mag_t
 {
     k2kG, k4kG, k5kG
 };
+//--- Trigger config ---
+enum TrigConf_t
+{
+    kDefaultPPTrig, kDefaultPbPbTrig
+};
+const char * TrigConfName[] = {
+    "p-p","Pb-Pb"
+};
+
+//--- Functions ---
+class AliGenPythia;
+AliGenPythia *PythiaHVQ(ProcessHvFl_t proc);
+void          LoadPythia();
+
 
 // This part for configuration
 static ProcessHvFl_t procHvFl = kCharmPbPb5500;
 static DecayHvFl_t   decHvFl  = kNature; 
 static YCut_t        ycut     = kFull;
-static Mag_t         mag      = k4kG; 
+static Mag_t         mag      = k5kG; 
+static TrigConf_t    trig     = kDefaultPbPbTrig; // default PbPb trigger configuration
 // nEvts = -1  : you get 1 QQbar pair and all the fragmentation and 
 //               decay chain
 // nEvts = N>0 : you get N charm / beauty Hadrons 
@@ -48,6 +99,25 @@ Int_t nEvts = -1;
 //       = kFALSE: only final heavy hadrons and their decays stored
 Bool_t stars = kTRUE;
 
+// To be used only with kCharmppMNRwmi and kBeautyppMNRwmi
+// To get a "reasonable" agreement with MNR results, events have to be 
+// generated with the minimum ptHard set to 2.76 GeV.
+// To get a "perfect" agreement with MNR results, events have to be 
+// generated in four ptHard bins with the following relative 
+// normalizations:
+//  CHARM
+// 2.76-3 GeV: 25%
+//    3-4 GeV: 40%
+//    4-8 GeV: 29%
+//     >8 GeV:  6%
+//  BEAUTY
+// 2.76-4 GeV:  5% 
+//    4-6 GeV: 31%
+//    6-8 GeV: 28%
+//     >8 GeV: 36%
+Float_t ptHardMin =  2.76;
+Float_t ptHardMax = -1.;
+
 
 // Comment line
 static TString comment;
@@ -63,56 +133,89 @@ void Config()
   UInt_t procid=gSystem->GetPid();
   UInt_t seed=curtime-procid;
 
+  //  gRandom->SetSeed(seed);
+  //  cerr<<"Seed for random number generation= "<<seed<<endl; 
   gRandom->SetSeed(12345);
-  cerr<<"Seed for random number generation= "<<seed<<endl; 
-
+  
+  // Load Pythia libraries
+  LoadPythia();
   // libraries required by geant321
+#if defined(__CINT__)
   gSystem->Load("libgeant321");
+#endif
 
-  new TGeant3("C++ Interface to Geant3");
+  new TGeant3TGeo("C++ Interface to Geant3");
 
+  if(!AliCDBManager::Instance()->IsDefaultStorageSet()){
+    AliCDBManager::Instance()->SetDefaultStorage("local://$ALICE_ROOT");
+    AliCDBManager::Instance()->SetRun(0);
+  }
+  
   //=======================================================================
   //  Create the output file
-  TFile *rootfile = new TFile("galice.root","recreate");
-  rootfile->SetCompressionLevel(2);
-  TGeant3 *geant3 = (TGeant3*)gMC;
-  //
-  //
-  //=======================================================================
-  // ******* GEANT STEERING parameters FOR ALICE SIMULATION *******
-  geant3->SetTRIG(1); //Number of events to be processed 
-  geant3->SetSWIT(4,10);
-  geant3->SetDEBU(0,0,1);
-  //geant3->SetSWIT(2,2);
-  geant3->SetDCAY(1);
-  geant3->SetPAIR(1);
-  geant3->SetCOMP(1);
-  geant3->SetPHOT(1);
-  geant3->SetPFIS(0);
-  geant3->SetDRAY(0);
-  geant3->SetANNI(1);
-  geant3->SetBREM(1);
-  geant3->SetMUNU(1);
-  geant3->SetCKOV(1);
-  geant3->SetHADR(1); //Select pure GEANH (HADR 1) or GEANH/NUCRIN (HADR 3)
-  geant3->SetLOSS(2);
-  geant3->SetMULS(1);
-  geant3->SetRAYL(1);
-  geant3->SetAUTO(1); //Select automatic STMIN etc... calc. (AUTO 1) or manual (AUTO 0)
-  geant3->SetABAN(0); //Restore 3.16 behaviour for abandoned tracks
-  geant3->SetOPTI(2); //Select optimisation level for GEANT geometry searches (0,1,2)
-  geant3->SetERAN(5.e-7);
-
-  Float_t cut    = 1.e-3; // 1MeV cut by default
-  Float_t tofmax = 1.e10;
-  //             GAM ELEC NHAD CHAD MUON EBREM MUHAB EDEL MUDEL MUPA TOFMAX
-  geant3->SetCUTS(cut,cut, cut, cut, cut, cut,  cut,  cut, cut,  cut, tofmax);
+
+   
+  AliRunLoader* rl=0x0;
+
+  cout<<"Config.C: Creating Run Loader ..."<<endl;
+  rl = AliRunLoader::Open("galice.root",
+                         AliConfig::GetDefaultEventFolderName(),
+                         "recreate");
+  if (rl == 0x0)
+    {
+      gAlice->Fatal("Config.C","Can not instatiate the Run Loader");
+      return;
+    }
+  rl->SetCompressionLevel(2);
+  rl->SetNumberOfEventsPerFile(3);
+  gAlice->SetRunLoader(rl);
+  // gAlice->SetGeometryFromFile("geometry.root");
+  // gAlice->SetGeometryFromCDB();
+
+  // Set the trigger configuration
+  gAlice->SetTriggerDescriptor(TrigConfName[trig]);
+  cout<<"Trigger configuration is set to  "<<TrigConfName[trig]<<endl;
+
   //
   //=======================================================================
   // ************* STEERING parameters FOR ALICE SIMULATION **************
   // --- Specify event type to be tracked through the ALICE setup
   // --- All positions are in cm, angles in degrees, and P and E in GeV
-  //======================//
+
+
+    gMC->SetProcess("DCAY",1);
+    gMC->SetProcess("PAIR",1);
+    gMC->SetProcess("COMP",1);
+    gMC->SetProcess("PHOT",1);
+    gMC->SetProcess("PFIS",0);
+    gMC->SetProcess("DRAY",0);
+    gMC->SetProcess("ANNI",1);
+    gMC->SetProcess("BREM",1);
+    gMC->SetProcess("MUNU",1);
+    gMC->SetProcess("CKOV",1);
+    gMC->SetProcess("HADR",1);
+    gMC->SetProcess("LOSS",2);
+    gMC->SetProcess("MULS",1);
+    gMC->SetProcess("RAYL",1);
+
+    Float_t cut = 1.e-3;        // 1MeV cut by default
+    Float_t tofmax = 1.e10;
+
+    gMC->SetCut("CUTGAM", cut);
+    gMC->SetCut("CUTELE", cut);
+    gMC->SetCut("CUTNEU", cut);
+    gMC->SetCut("CUTHAD", cut);
+    gMC->SetCut("CUTMUO", cut);
+    gMC->SetCut("BCUTE",  cut); 
+    gMC->SetCut("BCUTM",  cut); 
+    gMC->SetCut("DCUTE",  cut); 
+    gMC->SetCut("DCUTM",  cut); 
+    gMC->SetCut("PPCUTM", cut);
+    gMC->SetCut("TOFMAX", tofmax); 
+
+
+
+
   // Set External decayer //
   //======================//
   TVirtualMCDecayer* decayer = new AliDecayerPythia();
@@ -164,7 +267,7 @@ void Config()
   // GEOM & KINE CUTS
   //
   pythia->SetMomentumRange(0,99999999);
-  pythia->SetPhiRange(-180.,180.);
+  pythia->SetPhiRange(0., 360.);
   pythia->SetThetaRange(0,180);
   switch(ycut) {
   case kFull:
@@ -189,7 +292,7 @@ void Config()
 
   pythia->SetTrackingFlag(0);
   // Specify GEANT tracking limits (Rmax, Zmax)
-  //gAlice->TrackingLimits(90.,1.0e10);
+  //gAlice->GetMCApp()->TrackingLimits(90.,1.0e10);
 
 
   pythia->Init();
@@ -203,16 +306,17 @@ void Config()
   } else if (mag == k5kG) {
     comment = comment.Append(" | L3 field 0.5 T");
   }
-  printf("\n \n Comment: %s \n \n", (char*) comment);
+  printf("\n \n Comment: %s \n \n", comment.Data());
     
   AliMagFMaps* field = new AliMagFMaps("Maps","Maps", 2, 1., 10., mag);
-  rootfile->cd();
+  field->SetL3ConstField(0); //Using const. field in the barrel
+  rl->CdGAFile();
   gAlice->SetField(field);    
 
 
   // By default all ALICE is switched off
   Int_t iABSO=0;
-  Int_t iCRT=0;
+  Int_t iACORDE=0;
   Int_t iDIPO=0;
   Int_t iFMD=0;
   Int_t iFRAME=0;
@@ -223,9 +327,9 @@ void Config()
   Int_t iPHOS=0;
   Int_t iPIPE=0;
   Int_t iPMD=0;
-  Int_t iRICH=0;
+  Int_t iHMPID=0;
   Int_t iSHIL=0;
-  Int_t iSTART=0;
+  Int_t iT0=0;
   Int_t iTOF=0;
   Int_t iTPC=0;
   Int_t iTRD=0;
@@ -244,19 +348,19 @@ void Config()
 
   if(iABSO) {
     //=================== ABSO parameters ============================
-    AliABSO *ABSO  = new AliABSOv0("ABSO","Muon Absorber");
+    AliABSO *ABSO  = new AliABSOv3("ABSO","Muon Absorber");
   }
 
   if(iDIPO) {
     //=================== DIPO parameters ============================
 
-    AliDIPO *DIPO  = new AliDIPOv2("DIPO","Dipole version 2");
+    AliDIPO *DIPO  = new AliDIPOv3("DIPO","Dipole version 3");
   }
 
   if(iHALL) {
     //=================== HALL parameters ============================
 
-    AliHALL *HALL  = new AliHALL("HALL","Alice Hall");
+    AliHALL *HALL  = new AliHALLv3("HALL","Alice Hall");
   }
 
 
@@ -264,127 +368,44 @@ void Config()
     //=================== FRAME parameters ============================
 
     AliFRAME *FRAME  = new AliFRAMEv2("FRAME","Space Frame");
-
+    FRAME->SetHoles(1);
   }
 
   if(iSHIL) {
     //=================== SHIL parameters ============================
 
-    AliSHIL *SHIL  = new AliSHILv2("SHIL","Shielding");
+    AliSHIL *SHIL  = new AliSHILv3("SHIL","Shielding");
   }
 
 
   if(iPIPE) {
     //=================== PIPE parameters ============================
 
-    AliPIPE *PIPE  = new AliPIPEv0("PIPE","Beam Pipe");
+    AliPIPE *PIPE  = new AliPIPEv3("PIPE","Beam Pipe");
   }
 
 
   if(iITS) {
+    //=================== ITS parameters ============================
 
-//=================== ITS parameters ============================
-    //
-    // As the innermost detector in ALICE, the Inner Tracking System "impacts" on
-    // almost all other detectors. This involves the fact that the ITS geometry
-    // still has several options to be followed in parallel in order to determine
-    // the best set-up which minimizes the induced background. All the geometries
-    // available to date are described in the following. Read carefully the comments
-    // and use the default version (the only one uncommented) unless you are making
-    // comparisons and you know what you are doing. In this case just uncomment the
-    // ITS geometry you want to use and run Aliroot.
-    //
-    // Detailed geometries:         
-    //
-    //
-    //AliITS *ITS  = new AliITSv5symm("ITS","Updated ITS TDR detailed version with symmetric services");
-    //
-    //AliITS *ITS  = new AliITSv5asymm("ITS","Updates ITS TDR detailed version with asymmetric services");
-    //
-    AliITSvPPRasymm *ITS  = new AliITSvPPRasymm("ITS","New ITS PPR detailed version with asymmetric services");
-    ITS->SetMinorVersion(2);                                         // don't touch this parameter if you're not an ITS developer
-    ITS->SetReadDet(kFALSE);                                         // don't touch this parameter if you're not an ITS developer
-    ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det");  // don't touch this parameter if you're not an ITS developer
-    ITS->SetThicknessDet1(200.);   // detector thickness on layer 1 must be in the range [150,300]
-    ITS->SetThicknessDet2(200.);   // detector thickness on layer 2 must be in the range [150,300]
-    ITS->SetThicknessChip1(200.);  // chip thickness on layer 1 must be in the range [100,300]
-    ITS->SetThicknessChip2(200.);  // chip thickness on layer 2 must be in the range [100,300]
-    ITS->SetRails(1);             // 1 --> rails in ; 0 --> rails out
-    ITS->SetCoolingFluid(1);       // 1 --> water ; 0 --> freon
-    //
-    //AliITSvPPRsymm *ITS  = new AliITSvPPRsymm("ITS","New ITS PPR detailed version with symmetric services");
-    //ITS->SetMinorVersion(2);                                       // don't touch this parameter if you're not an ITS developer
-    //ITS->SetReadDet(kFALSE);                                       // don't touch this parameter if you're not an ITS developer
-    //ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.det"); // don't touch this parameter if you're not an ITS developer
-    //ITS->SetThicknessDet1(300.);   // detector thickness on layer 1 must be in the range [150,300]
-    //ITS->SetThicknessDet2(300.);   // detector thickness on layer 2 must be in the range [150,300]
-    //ITS->SetThicknessChip1(300.);  // chip thickness on layer 1 must be in the range [100,300]
-    //ITS->SetThicknessChip2(300.);  // chip thickness on layer 2 must be in the range [100,300]
-    //ITS->SetRails(1);              // 1 --> rails in ; 0 --> rails out
-    //ITS->SetCoolingFluid(1);       // 1 --> water ; 0 --> freon
-    //
-    //
-    // Coarse geometries (warning: no hits are produced with these coarse geometries and they unuseful 
-    // for reconstruction !):
-    //                                                     
-    //
-    //AliITSvPPRcoarseasymm *ITS  = new AliITSvPPRcoarseasymm("ITS","New ITS PPR coarse version with asymmetric services");
-    //ITS->SetRails(1);                // 1 --> rails in ; 0 --> rails out
-    //ITS->SetSupportMaterial(0);      // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
-    //
-    //AliITS *ITS  = new AliITSvPPRcoarsesymm("ITS","New ITS PPR coarse version with symmetric services");
-    //ITS->SetRails(1);                // 1 --> rails in ; 0 --> rails out
-    //ITS->SetSupportMaterial(0);      // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
-    //                      
-    //
-    //
-    // Geant3 <-> EUCLID conversion
-    // ============================
-    //
-    // SetEUCLID is a flag to output (=1) or not to output (=0) both geometry and
-    // media to two ASCII files (called by default ITSgeometry.euc and
-    // ITSgeometry.tme) in a format understandable to the CAD system EUCLID.
-    // The default (=0) means that you dont want to use this facility.
-    //
-    ITS->SetEUCLID(0);  
+    AliITS *ITS  = new AliITSv11Hybrid("ITS","ITS v11Hybrid");
   }
   
 
   if(iTPC) {
-    //============================ TPC parameters ================================
-    // --- This allows the user to specify sectors for the SLOW (TPC geometry 2)
-    // --- Simulator. SecAL (SecAU) <0 means that ALL lower (upper)
-    // --- sectors are specified, any value other than that requires at least one 
-    // --- sector (lower or upper)to be specified!
-    // --- Reminder: sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
-    // ---           sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
-    // --- SecLows - number of lower sectors specified (up to 6)
-    // --- SecUps - number of upper sectors specified (up to 12)
-    // --- Sens - sensitive strips for the Slow Simulator !!!
-    // --- This does NOT work if all S or L-sectors are specified, i.e.
-    // --- if SecAL or SecAU < 0
-    //
-    //
-    //-----------------------------------------------------------------------------
-
-    //  gROOT->LoadMacro("SetTPCParam.C");
-    //  AliTPCParam *param = SetTPCParam();
+    //============================ TPC parameters ===================
     AliTPC *TPC  = new AliTPCv2("TPC","Default");
-    // All sectors included 
-    TPC->SetSecAL(-1);
-    TPC->SetSecAU(-1);
-
   }
 
 
   if(iTOF) {
     //=================== TOF parameters ============================
-    AliTOF *TOF  = new AliTOFv2("TOF","normal TOF");
+    AliTOF *TOF  = new AliTOFv6T0("TOF","normal TOF");
   }
 
-  if(iRICH) {
-    //=================== RICH parameters ===========================
-    AliRICH *RICH  = new AliRICHv1("RICH","normal RICH");    
+  if(iHMPID) {
+    //=================== HMPID parameters ===========================
+    AliHMPID *HMPID  = new AliHMPIDv3("HMPID","normal HMPID");    
 
   }
 
@@ -392,29 +413,19 @@ void Config()
   if(iZDC) {
     //=================== ZDC parameters ============================
 
-    AliZDC *ZDC  = new AliZDCv1("ZDC","normal ZDC");
+    AliZDC *ZDC  = new AliZDCv3("ZDC","normal ZDC");
   }
 
-  if(iCRT) {
-    //=================== CRT parameters ============================
+  if(iACORDE) {
+    //=================== ACORDE parameters ============================
 
-    AliCRT *CRT  = new AliCRTv1("CRT","normal CRT");
+    AliACORDE *ACORDE  = new AliACORDEv1("ACORDE","normal ACORDE");
   }
 
   if(iTRD) {
     //=================== TRD parameters ============================
   
     AliTRD *TRD  = new AliTRDv1("TRD","TRD slow simulator");
-  
-    // Select the gas mixture (0: 97% Xe + 3% isobutane, 1: 90% Xe + 10% CO2)
-    TRD->SetGasMix(1);
-  
-    // With hole in front of PHOS
-    TRD->SetPHOShole();
-    // With hole in front of RICH
-    TRD->SetRICHhole();
-    // Switch on TR
-    AliTRDsim *TRDsim = TRD->CreateTR();
   }
 
   if(iFMD) {
@@ -435,10 +446,10 @@ void Config()
   }
 
 
-  //=================== CRT parameters ===========================
+  //=================== ACORDE parameters ===========================
 
-  if(iCRT) {
-    AliCRT *CRT  = new AliCRTv1("CRT","Normal CRTGPS2");
+  if(iACORDE) {
+    AliACORDE *ACORDE  = new AliACORDEv1("ACORDE","Normal ACORDEGPS2");
   }
 
 
@@ -453,9 +464,9 @@ void Config()
 
   }
 
-  if(iSTART) {
-    //=================== START parameters ============================
-    AliSTART *START  = new AliSTARTv1("START","START Detector");
+  if(iT0) {
+    //=================== T0 parameters ============================
+    AliT0 *T0  = new AliT0v1("T0","T0 Detector");
   }
 
          
@@ -465,10 +476,12 @@ void Config()
 //
 AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
 
+  AliGenPythia * gener = 0x0;
+
   switch(proc) {
   case kCharmPbPb5500:
     comment = comment.Append(" Charm in Pb-Pb at 5.5 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyCharmPbPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
@@ -477,7 +490,7 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kCharmpPb8800:
     comment = comment.Append(" Charm in p-Pb at 8.8 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyCharmpPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
@@ -487,15 +500,23 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kCharmpp14000:
     comment = comment.Append(" Charm in pp at 14 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyCharmppMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
     gener->SetEnergyCMS(14000.);
     break;
+  case kCharmpp14000wmi:
+    comment = comment.Append(" Charm in pp at 14 TeV with mult. interactions");
+    gener = new AliGenPythia(-1);
+    gener->SetProcess(kPyCharmppMNRwmi);
+    gener->SetStrucFunc(kCTEQ5L);
+    gener->SetPtHard(ptHardMin,ptHardMax);
+    gener->SetEnergyCMS(14000.);
+    break;
   case kD0PbPb5500:
     comment = comment.Append(" D0 in Pb-Pb at 5.5 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyD0PbPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
@@ -504,7 +525,7 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kD0pPb8800:
     comment = comment.Append(" D0 in p-Pb at 8.8 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyD0pPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
@@ -514,15 +535,69 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kD0pp14000:
     comment = comment.Append(" D0 in pp at 14 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyD0ppMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.1,-1.0);
     gener->SetEnergyCMS(14000.);
     break;
+  case kDPlusPbPb5500:
+    comment = comment.Append(" DPlus in Pb-Pb at 5.5 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPlusPbPbMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(5500.);
+    gener->SetNuclei(208,208);
+    break;
+  case kDPluspPb8800:
+    comment = comment.Append(" DPlus in p-Pb at 8.8 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPluspPbMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(8800.);
+    gener->SetProjectile("P",1,1);
+    gener->SetTarget("Pb",208,82);
+    break;
+  case kDPluspp14000:
+    comment = comment.Append(" DPlus in pp at 14 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPlusppMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(14000.);
+    break;
+ case kDPlusStrangePbPb5500:
+    comment = comment.Append(" DPlusStrange in Pb-Pb at 5.5 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPlusStrangePbPbMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(5500.);
+    gener->SetNuclei(208,208);
+    break;
+  case kDPlusStrangepPb8800:
+    comment = comment.Append(" DPlusStrange in p-Pb at 8.8 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPlusStrangepPbMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(8800.);
+    gener->SetProjectile("P",1,1);
+    gener->SetTarget("Pb",208,82);
+    break;
+  case kDPlusStrangepp14000:
+    comment = comment.Append(" DPlusStrange in pp at 14 TeV");
+    gener = new AliGenPythia(nEvts);
+    gener->SetProcess(kPyDPlusStrangeppMNR);
+    gener->SetStrucFunc(kCTEQ4L);
+    gener->SetPtHard(2.1,-1.0);
+    gener->SetEnergyCMS(14000.);
+    break;
   case kBeautyPbPb5500:
     comment = comment.Append(" Beauty in Pb-Pb at 5.5 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyBeautyPbPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.75,-1.0);
@@ -531,7 +606,7 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kBeautypPb8800:
     comment = comment.Append(" Beauty in p-Pb at 8.8 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyBeautypPbMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.75,-1.0);
@@ -541,12 +616,20 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
     break;
   case kBeautypp14000:
     comment = comment.Append(" Beauty in pp at 14 TeV");
-    AliGenPythia *gener = new AliGenPythia(nEvts);
+    gener = new AliGenPythia(nEvts);
     gener->SetProcess(kPyBeautyppMNR);
     gener->SetStrucFunc(kCTEQ4L);
     gener->SetPtHard(2.75,-1.0);
     gener->SetEnergyCMS(14000.);
     break;
+  case kBeautypp14000wmi:
+    comment = comment.Append(" Beauty in pp at 14 TeV with mult. interactions");
+    gener = new AliGenPythia(-1);
+    gener->SetProcess(kPyBeautyppMNRwmi);
+    gener->SetStrucFunc(kCTEQ5L);
+    gener->SetPtHard(ptHardMin,ptHardMax);
+    gener->SetEnergyCMS(14000.);
+    break;
   }
 
   return gener;
@@ -554,5 +637,14 @@ AliGenPythia *PythiaHVQ(ProcessHvFl_t proc) {
 
 
 
+void LoadPythia()
+{
+    // Load Pythia related libraries
+    gSystem->Load("liblhapdf.so");      // Parton density functions
+    gSystem->Load("libEGPythia6.so");   // TGenerator interface
+    gSystem->Load("libpythia6.so");     // Pythia
+    gSystem->Load("libAliPythia6.so");  // ALICE specific implementations
+}
+