[u/mrichter/AliRoot.git] / HMPID / HESDfromKin.C

AliRunLoader *gAL=0; 
Int_t gEvt=0; Int_t gMaxEvt=0;
TObjArray *pNmean,*pQthre;
TTree *gEsdTr;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void HESDfromKin(const char *name="default")
{//simulate ESD from kinematics

  if(gSystem->IsFileInIncludePath("galice.root")){// tries to open session
    if(gAlice) delete gAlice;                                               //in case we execute this in aliroot delete default AliRun object 
    gAL=AliRunLoader::Open();                                                                    //try to open galice.root from current dir 
    gAL->LoadgAlice();                                                                           //take new AliRun object from galice.root   
    if(gAL->LoadHeader()) return;
    if(gAL->LoadKinematics()) return;

    AliLoader *pHL=gAL->GetDetectorLoader("HMPID");
    pHL->LoadRecPoints();
    AliESDEvent *pEsd = new AliESDEvent();   
    TFile *pEsdFl=TFile::Open("AliESDs.root","recreate"); 
    gEsdTr=new TTree("esdTree","Sim ESD from kinematics"); 
    pEsd->CreateStdContent();    pEsd->WriteToTree(gEsdTr);  //clm: new ESD write schema: see Task Force meeting 20th June, 2007
    gEsdTr->GetUserInfo()->Add(pEsd);                        //clm: TList has to be created for ReadFromTree method -- this was not needed by the old ESD
 
       
  }  else return;  

  if(!OpenCalib()) {Printf("Problems in OpenCalib!Bye.");return;}
    
  TString ttl=name;
  Bool_t htaCheck=ttl.Contains("HTA");
//  if(!htaCheck) SimEsd(pHL,pEsd); else SimEsdHidden(pHL,pEsd);
  SimEsd(pHL,pEsd,htaCheck);
  
  pEsdFl->cd();
  pEsdFl->Write();pEsdFl->Close();        
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SimEsd(AliLoader *pHL,AliESDEvent *pEsd,Bool_t htaCheck)
{
  if(htaCheck) {
    TFile *fout = new TFile("HTA.root","recreate");
    TH1F *hdC   = new TH1F("dC"  ,";delta Cerenkov (rad)",100,-0.2,0.2);
    TH1F *hCer  = new TH1F("Cer" ,"Theta Cerenkov (rad)",250,0.,0.75);
    TH2F *htvsp = new TH2F("tvsp",";momentum (GeV/c);theta Cerenkov (rad)",100,0.,5.,1000,0.,0.75);
    TH1F *hdth  = new TH1F("dth" ,";Delta theta Trk (mrad)",100,-250,250);
    TH1F *hdph  = new TH1F("dph" ,";Delta phi Trk (mrad)",100,-500,500);
    Double_t rd=TMath::RadToDeg();
    Printf("----------------------------------------------");
    Printf("| SimHTA:Utility to embed ESD from kinematics|");
    Printf("|     with  Hidden Track Algorithm (HTA)     |");
    Printf("----------------------------------------------");
  } else {
    Printf("-----------------------------------------------");
    Printf("| SimESD: Utility to embed ESD from kinematics|");
    Printf("-----------------------------------------------");
}

  InitGRP();
//  AliMagF *magFieldMap = (AliMagF*)TGeoGlobalMagField::Instance()->GetField();

//  AliHMPIDTracker::SetFieldMap(gAL->GetAliRun()->Field(),kTRUE);
  AliHMPIDTracker pTracker;
  AliHMPID *pH=(AliHMPID*)gAL->GetAliRun()->GetDetector("HMPID");
  Int_t iNevt=gAL->GetNumberOfEvents();
  pEsd->SetMagneticField(AliHMPIDTracker::GetBz());
  for(Int_t iEvt=0;iEvt<iNevt;iEvt++){//events loop
    gAL->GetEvent(iEvt);    
    pHL->TreeR()->GetEntry(0);
    AliStack *pStack=gAL->Stack();
    Int_t nTrkHMPID=0;

    for(Int_t i=0;i<pStack->GetNtrack();i++){
      if(!pStack->IsPhysicalPrimary(i)) continue;
      TParticle *pTrack=pStack->Particle(i); 
      if(pTrack->GetPDG()->Charge()==0) continue;
      AliESDtrack trk(pTrack); 
      Float_t xPc,yPc,xRa,yRa,thRa,phRa;
      Int_t iCh=pTracker.IntTrkCha(&trk,xPc,yPc,xRa,yRa,thRa,phRa);         //get chamber intersected by this track 
      if(iCh<0) {
        trk.SetHMPIDtrk(0,0,0,0);                                                                //no intersection found
        trk.SetHMPIDcluIdx   (99,99999);                                                         //chamber not found, mip not yet considered
        trk.SetHMPIDsignal(AliHMPIDRecon::kNotPerformed);                                        //ring reconstruction not yet performed
        continue;                                                           //no intersection at all, go after next track
      }
      nTrkHMPID++;
      trk.SetHMPIDcluIdx   (iCh,99999);                                                          //chamber not found, mip not yet considered
      
      if(phRa<0) phRa += TMath::TwoPi(); // to be verified
      
      trk.SetHMPIDtrk(xRa,yRa,thRa,phRa);                                                        //store initial infos
      pEsd->AddTrack(&trk);
    
      Int_t status;
      if(!htaCheck) status = pTracker.Recon         (pEsd,pH->CluLst(),pNmean,pQthre);
      else          status = pTracker.ReconHiddenTrk(pEsd,pH->CluLst(),pNmean,pQthre);

//      Printf("status %i",status);
      if(status !=0) continue;

    
    }// track loop
    
    if(!(iEvt%50)) Printf("Number of events processed: %i with tracks %i in HMPID",iEvt,nTrkHMPID);
//      Printf("Number of events processed: %i with tracks %i in HMPID",iEvt,nTrkHMPID);
    
    gEsdTr->Fill();
    pEsd->Reset();
  }// event loop
  Printf("Events processed %i",iEvt);
  if(htaCheck) {
    fout->Write();
    fout->Close();
    delete fout;
  }
  gAL->UnloadHeader();  gAL->UnloadKinematics();
}//SimEsd()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Bool_t OpenCalib()
{
  AliCDBManager* pCDB = AliCDBManager::Instance();
  pCDB->SetDefaultStorage("local://$ALICE_ROOT/OCDB");
  pCDB->SetRun(0);
  AliCDBEntry *pQthreEnt=pCDB->Get("HMPID/Calib/Qthre",0);
  AliCDBEntry *pNmeanEnt=pCDB->Get("HMPID/Calib/Nmean",0);
  
  if(!pQthreEnt || !pNmeanEnt) return kFALSE;
  
  pNmean=(TObjArray*)pNmeanEnt->GetObject(); 
  pQthre=(TObjArray*)pQthreEnt->GetObject(); 

  if(!pQthre || !pNmean) return kFALSE;  
  return kTRUE;
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Bool_t InitGRP() {
  //------------------------------------
  // Initialization of the GRP entry 
  //------------------------------------
  
  AliGRPObject *fGRPData;
  
  AliCDBEntry* entry = AliCDBManager::Instance()->Get("GRP/GRP/Data");

  if (entry) {

    TMap* m = dynamic_cast<TMap*>(entry->GetObject());  // old GRP entry

    if (!m) {
       Printf("Found a TMap in GRP/GRP/Data, converting it into an AliGRPObject");
       m->Print();
       fGRPData = new AliGRPObject();
       fGRPData->ReadValuesFromMap(m);
    }

    else {
       Printf("Found an AliGRPObject in GRP/GRP/Data, reading it");
       fGRPData = dynamic_cast<AliGRPObject*>(entry->GetObject());  // new GRP entry
       entry->SetOwner(0);
    }

    AliCDBManager::Instance()->UnloadFromCache("GRP/GRP/Data");
  }

  if (!fGRPData) {
     Printf("No GRP entry found in OCDB!");
     return kFALSE;
  }

  TString lhcState = fGRPData->GetLHCState();
  if (lhcState==AliGRPObject::GetInvalidString()) {
    Printf("GRP/GRP/Data entry:  missing value for the LHC state ! Using UNKNOWN");
    lhcState = "UNKNOWN";
  }

  TString beamType = fGRPData->GetBeamType();
  if (beamType==AliGRPObject::GetInvalidString()) {
    Printf("GRP/GRP/Data entry:  missing value for the beam type ! Using UNKNOWN");
    beamType = "UNKNOWN";
  }

  Float_t beamEnergy = fGRPData->GetBeamEnergy();
  if (beamEnergy==AliGRPObject::GetInvalidFloat()) {
    Printf("GRP/GRP/Data entry:  missing value for the beam energy ! Using 0");
    beamEnergy = 0;
  }
  // energy is provided in MeV*120
  beamEnergy /= 120E3;

  TString runType = fGRPData->GetRunType();
  if (runType==AliGRPObject::GetInvalidString()) {
    Printf("GRP/GRP/Data entry:  missing value for the run type ! Using UNKNOWN");
    runType = "UNKNOWN";
  }

  Int_t activeDetectors = fGRPData->GetDetectorMask();
  if (activeDetectors==AliGRPObject::GetInvalidUInt()) {
    Printf("GRP/GRP/Data entry:  missing value for the detector mask ! Using 1074790399");
    activeDetectors = 1074790399;
  }

  fRunInfo = new AliRunInfo(lhcState, beamType, beamEnergy, runType, activeDetectors);
  printf("qqqqqqqqqqqqqqqqqqqqqqq %s %s %f %s %d\n", lhcState.Data(), beamType.Data(), beamEnergy, runType.Data(), activeDetectors);
  fRunInfo->Dump();

  //*** Dealing with the magnetic field map
  if ( TGeoGlobalMagField::Instance()->IsLocked() ) {Printf("Running with the externally locked B field !");}
  else {
    // Construct the field map out of the information retrieved from GRP.
    Bool_t ok = kTRUE;
    // L3
    Float_t l3Current = fGRPData->GetL3Current((AliGRPObject::Stats)0);
    if (l3Current == AliGRPObject::GetInvalidFloat()) {
      Prtinf("GRP/GRP/Data entry:  missing value for the L3 current !");
      ok = kFALSE;
    }
    
    Char_t l3Polarity = fGRPData->GetL3Polarity();
    if (l3Polarity == AliGRPObject::GetInvalidChar()) {
      Printf("GRP/GRP/Data entry:  missing value for the L3 polarity !");
      ok = kFALSE;
    }

    // Dipole
    Float_t diCurrent = fGRPData->GetDipoleCurrent((AliGRPObject::Stats)0);
    if (diCurrent == AliGRPObject::GetInvalidFloat()) {
      Printf("GRP/GRP/Data entry:  missing value for the dipole current !");
      ok = kFALSE;
    }

    Char_t diPolarity = fGRPData->GetDipolePolarity();
    if (diPolarity == AliGRPObject::GetInvalidChar()) {
      Printf("GRP/GRP/Data entry:  missing value for the dipole polarity !");
      ok = kFALSE;
    }

    if (ok) { 
      if ( !SetFieldMap(l3Current, diCurrent, l3Polarity ? -1:1, diPolarity ? -1:1) )
	AliFatal("Failed to creat a B field map ! Exiting...");
      Printf("Running with the B field constructed out of GRP !");
    }
    else AliFatal("B field is neither set nor constructed from GRP ! Exitig...");
    
  }
  
  return kTRUE;
} 

//_____________________________________________________________________________
//_____________________________________________________________________________
  Bool_t SetFieldMap(Float_t l3Cur=30000., Float_t diCur=6000., 
		     Float_t l3Pol=1., Float_t diPol=1., Float_t beamenergy=7000., 
		     const Char_t* beamtype="pp",  
		     const Char_t* path="$(ALICE_ROOT)/data/maps/mfchebKGI_sym.root")
{
  //------------------------------------------------
  // The magnetic field map, defined externally...
  // L3 current 30000 A  -> 0.5 T
  // L3 current 12000 A  -> 0.2 T
  // dipole current 6000 A
  // The polarities must be the same
  //------------------------------------------------
  const Float_t l3NominalCurrent1=30000.; // (A)
  const Float_t l3NominalCurrent2=12000.; // (A)
  const Float_t diNominalCurrent =6000. ; // (A)

  const Float_t tolerance=0.03; // relative current tolerance
  const Float_t zero=77.;       // "zero" current (A)
  //
  TString s=(l3Pol < 0) ? "L3: -" : "L3: +";
  //
  AliMagF::BMap_t map = AliMagF::k5kG;
  //
  double fcL3,fcDip;
  //
  l3Cur = TMath::Abs(l3Cur);
  if (TMath::Abs(l3Cur-l3NominalCurrent1)/l3NominalCurrent1 < tolerance) {
    fcL3 = l3Cur/l3NominalCurrent1;
    map  = AliMagF::k5kG;
    s   += "0.5 T;  ";
  } else if (TMath::Abs(l3Cur-l3NominalCurrent2)/l3NominalCurrent2 < tolerance) {
    fcL3 = l3Cur/l3NominalCurrent2;
    map  = AliMagF::k2kG;
    s   += "0.2 T;  ";
  } else if (l3Cur <= zero) {
    fcL3 = 0;
    map  = AliMagF::k5kGUniform;
    s   += "0.0 T;  ";
    fUniformField=kTRUE;        // track with the uniform (zero) B field
  } else {
    AliError(Form("Wrong L3 current (%f A)!",l3Cur));
    return kFALSE;
  }
  //
  diCur = TMath::Abs(diCur);
  if (TMath::Abs(diCur-diNominalCurrent)/diNominalCurrent < tolerance) {
    // 3% current tolerance...
    fcDip = diCur/diNominalCurrent;
    s    += "Dipole ON";
  } else if (diCur <= zero) { // some small current..
    fcDip = 0.;
    s    += "Dipole OFF";
  } else {
    AliError(Form("Wrong dipole current (%f A)!",diCur));
    return kFALSE;
  }
  //
  if (l3Pol!=diPol && (map==AliMagF::k5kG || map==AliMagF::k2kG) && fcDip!=0) {
    AliError("L3 and Dipole polarities must be the same");
    return kFALSE;
  }
  //
  if (l3Pol<0) fcL3  = -fcL3;
  if (diPol<0) fcDip = -fcDip;
  //
  AliMagF::BeamType_t btype = AliMagF::kNoBeamField;
  TString btypestr = beamtype;
  btypestr.ToLower();
  TPRegexp protonBeam("(proton|p)\\s*-?\\s*\\1");
  TPRegexp ionBeam("(lead|pb|ion|a)\\s*-?\\s*\\1");
  if (btypestr.Contains(ionBeam)) btype = AliMagF::kBeamTypeAA;
  else if (btypestr.Contains(protonBeam)) btype = AliMagF::kBeamTypepp;
  else {
    Printf(Form("Cannot determine the beam type from %s, assume no LHC magnet field",beamtype));
  }
  
  AliMagF* fld = new AliMagF("MagneticFieldMap", s.Data(), 2, fcL3, fcDip, 10., map, path, 
			     btype,beamenergy);
  TGeoGlobalMagField::Instance()->SetField( fld );
  TGeoGlobalMagField::Instance()->Lock();
  //
  return kTRUE;
}
Commit	Line	Data
d8770a0f	1	AliRunLoader *gAL=0;
d8770a0f	2	Int_t gEvt=0; Int_t gMaxEvt=0;
3df18479	3	TObjArray pNmean,pQthre;
d8770a0f	4	TTree *gEsdTr;
d8770a0f	5	//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
e4290ede	6	void HESDfromKin(const char *name="default")
d8770a0f	7	{//simulate ESD from kinematics
	8
	9	if(gSystem->IsFileInIncludePath("galice.root")){// tries to open session
	10	if(gAlice) delete gAlice; //in case we execute this in aliroot delete default AliRun object
	11	gAL=AliRunLoader::Open(); //try to open galice.root from current dir
	12	gAL->LoadgAlice(); //take new AliRun object from galice.root
	13	if(gAL->LoadHeader()) return;
	14	if(gAL->LoadKinematics()) return;
	15
	16	AliLoader *pHL=gAL->GetDetectorLoader("HMPID");
	17	pHL->LoadRecPoints();
6e06db1d	18	AliESDEvent *pEsd = new AliESDEvent();
d8770a0f	19	TFile *pEsdFl=TFile::Open("AliESDs.root","recreate");
d8770a0f	20	gEsdTr=new TTree("esdTree","Sim ESD from kinematics");
e4290ede	21	pEsd->CreateStdContent(); pEsd->WriteToTree(gEsdTr); //clm: new ESD write schema: see Task Force meeting 20th June, 2007
	22	gEsdTr->GetUserInfo()->Add(pEsd); //clm: TList has to be created for ReadFromTree method -- this was not needed by the old ESD
	23
	24
d8770a0f	25	} else return;
d8770a0f	26
3df18479	27	if(!OpenCalib()) {Printf("Problems in OpenCalib!Bye.");return;}
d8770a0f	28
c0d7adf8	29	TString ttl=name;
c0d7adf8	30	Bool_t htaCheck=ttl.Contains("HTA");
9785d5fb	31	// if(!htaCheck) SimEsd(pHL,pEsd); else SimEsdHidden(pHL,pEsd);
9785d5fb	32	SimEsd(pHL,pEsd,htaCheck);
e4290ede	33
e4290ede	34	pEsdFl->cd();
d8770a0f	35	pEsdFl->Write();pEsdFl->Close();
	36	}
	37	//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
9785d5fb	38	void SimEsd(AliLoader pHL,AliESDEvent pEsd,Bool_t htaCheck)
d8770a0f	39	{
9785d5fb	40	if(htaCheck) {
	41	TFile *fout = new TFile("HTA.root","recreate");
	42	TH1F *hdC = new TH1F("dC" ,";delta Cerenkov (rad)",100,-0.2,0.2);
	43	TH1F *hCer = new TH1F("Cer" ,"Theta Cerenkov (rad)",250,0.,0.75);
	44	TH2F *htvsp = new TH2F("tvsp",";momentum (GeV/c);theta Cerenkov (rad)",100,0.,5.,1000,0.,0.75);
	45	TH1F *hdth = new TH1F("dth" ,";Delta theta Trk (mrad)",100,-250,250);
	46	TH1F *hdph = new TH1F("dph" ,";Delta phi Trk (mrad)",100,-500,500);
	47	Double_t rd=TMath::RadToDeg();
	48	Printf("----------------------------------------------");
	49	Printf("\| SimHTA:Utility to embed ESD from kinematics\|");
	50	Printf("\| with Hidden Track Algorithm (HTA) \|");
	51	Printf("----------------------------------------------");
	52	} else {
	53	Printf("-----------------------------------------------");
	54	Printf("\| SimESD: Utility to embed ESD from kinematics\|");
	55	Printf("-----------------------------------------------");
	56	}
efc29373	57
	58	InitGRP();
	59	// AliMagF magFieldMap = (AliMagF)TGeoGlobalMagField::Instance()->GetField();
	60
	61	// AliHMPIDTracker::SetFieldMap(gAL->GetAliRun()->Field(),kTRUE);
e56b695f	62	AliHMPIDTracker pTracker;
d8770a0f	63	AliHMPID pH=(AliHMPID)gAL->GetAliRun()->GetDetector("HMPID");
d8770a0f	64	Int_t iNevt=gAL->GetNumberOfEvents();
1b46ef29	65	pEsd->SetMagneticField(AliHMPIDTracker::GetBz());
d8770a0f	66	for(Int_t iEvt=0;iEvt<iNevt;iEvt++){//events loop
d8770a0f	67	gAL->GetEvent(iEvt);
	68	pHL->TreeR()->GetEntry(0);
	69	AliStack *pStack=gAL->Stack();
9785d5fb	70	Int_t nTrkHMPID=0;
2b919fd5	71
d8770a0f	72	for(Int_t i=0;i<pStack->GetNtrack();i++){
9785d5fb	73	if(!pStack->IsPhysicalPrimary(i)) continue;
d8770a0f	74	TParticle *pTrack=pStack->Particle(i);
1b46ef29	75	if(pTrack->GetPDG()->Charge()==0) continue;
e4290ede	76	AliESDtrack trk(pTrack);
39cd22e6	77	Float_t xPc,yPc,xRa,yRa,thRa,phRa;
e56b695f	78	Int_t iCh=pTracker.IntTrkCha(&trk,xPc,yPc,xRa,yRa,thRa,phRa); //get chamber intersected by this track
39cd22e6	79	if(iCh<0) {
	80	trk.SetHMPIDtrk(0,0,0,0); //no intersection found
	81	trk.SetHMPIDcluIdx (99,99999); //chamber not found, mip not yet considered
	82	trk.SetHMPIDsignal(AliHMPIDRecon::kNotPerformed); //ring reconstruction not yet performed
	83	continue; //no intersection at all, go after next track
	84	}
9785d5fb	85	nTrkHMPID++;
39cd22e6	86	trk.SetHMPIDcluIdx (iCh,99999); //chamber not found, mip not yet considered
e56b695f	87
	88	if(phRa<0) phRa += TMath::TwoPi(); // to be verified
	89
39cd22e6	90	trk.SetHMPIDtrk(xRa,yRa,thRa,phRa); //store initial infos
d8770a0f	91	pEsd->AddTrack(&trk);
9785d5fb	92
6574baa2	93	Int_t status;
	94	if(!htaCheck) status = pTracker.Recon (pEsd,pH->CluLst(),pNmean,pQthre);
	95	else status = pTracker.ReconHiddenTrk(pEsd,pH->CluLst(),pNmean,pQthre);
	96
2b919fd5	97	// Printf("status %i",status);
6574baa2	98	if(status !=0) continue;
9785d5fb	99
ac66a50d	100
6574baa2	101	}// track loop
2b919fd5	102
	103	if(!(iEvt%50)) Printf("Number of events processed: %i with tracks %i in HMPID",iEvt,nTrkHMPID);
	104	// Printf("Number of events processed: %i with tracks %i in HMPID",iEvt,nTrkHMPID);
	105
d8770a0f	106	gEsdTr->Fill();
	107	pEsd->Reset();
	108	}// event loop
	109	Printf("Events processed %i",iEvt);
204299b8	110	if(htaCheck) {
	111	fout->Write();
	112	fout->Close();
	113	delete fout;
	114	}
d8770a0f	115	gAL->UnloadHeader(); gAL->UnloadKinematics();
e56b695f	116	}//SimEsd()
d8770a0f	117	//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3df18479	118	Bool_t OpenCalib()
d8770a0f	119	{
d8770a0f	120	AliCDBManager* pCDB = AliCDBManager::Instance();
efc29373	121	pCDB->SetDefaultStorage("local://$ALICE_ROOT/OCDB");
efc29373	122	pCDB->SetRun(0);
d8770a0f	123	AliCDBEntry *pQthreEnt=pCDB->Get("HMPID/Calib/Qthre",0);
	124	AliCDBEntry *pNmeanEnt=pCDB->Get("HMPID/Calib/Nmean",0);
	125
3df18479	126	if(!pQthreEnt \|\| !pNmeanEnt) return kFALSE;
d8770a0f	127
d8770a0f	128	pNmean=(TObjArray*)pNmeanEnt->GetObject();
3df18479	129	pQthre=(TObjArray*)pQthreEnt->GetObject();
	130
	131	if(!pQthre \|\| !pNmean) return kFALSE;
	132	return kTRUE;
d8770a0f	133	}
d8770a0f	134	//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
efc29373	135	Bool_t InitGRP() {
	136	//------------------------------------
	137	// Initialization of the GRP entry
	138	//------------------------------------
	139
	140	AliGRPObject *fGRPData;
	141
	142	AliCDBEntry* entry = AliCDBManager::Instance()->Get("GRP/GRP/Data");
	143
	144	if (entry) {
	145
	146	TMap* m = dynamic_cast<TMap*>(entry->GetObject()); // old GRP entry
	147
	148	if (!m) {
	149	Printf("Found a TMap in GRP/GRP/Data, converting it into an AliGRPObject");
	150	m->Print();
	151	fGRPData = new AliGRPObject();
	152	fGRPData->ReadValuesFromMap(m);
	153	}
	154
	155	else {
	156	Printf("Found an AliGRPObject in GRP/GRP/Data, reading it");
	157	fGRPData = dynamic_cast<AliGRPObject*>(entry->GetObject()); // new GRP entry
	158	entry->SetOwner(0);
	159	}
	160
	161	AliCDBManager::Instance()->UnloadFromCache("GRP/GRP/Data");
	162	}
	163
	164	if (!fGRPData) {
	165	Printf("No GRP entry found in OCDB!");
	166	return kFALSE;
	167	}
	168
	169	TString lhcState = fGRPData->GetLHCState();
	170	if (lhcState==AliGRPObject::GetInvalidString()) {
	171	Printf("GRP/GRP/Data entry: missing value for the LHC state ! Using UNKNOWN");
	172	lhcState = "UNKNOWN";
	173	}
	174
	175	TString beamType = fGRPData->GetBeamType();
	176	if (beamType==AliGRPObject::GetInvalidString()) {
	177	Printf("GRP/GRP/Data entry: missing value for the beam type ! Using UNKNOWN");
	178	beamType = "UNKNOWN";
	179	}
	180
	181	Float_t beamEnergy = fGRPData->GetBeamEnergy();
	182	if (beamEnergy==AliGRPObject::GetInvalidFloat()) {
	183	Printf("GRP/GRP/Data entry: missing value for the beam energy ! Using 0");
	184	beamEnergy = 0;
	185	}
	186	// energy is provided in MeV*120
	187	beamEnergy /= 120E3;
	188
	189	TString runType = fGRPData->GetRunType();
	190	if (runType==AliGRPObject::GetInvalidString()) {
	191	Printf("GRP/GRP/Data entry: missing value for the run type ! Using UNKNOWN");
	192	runType = "UNKNOWN";
	193	}
	194
	195	Int_t activeDetectors = fGRPData->GetDetectorMask();
	196	if (activeDetectors==AliGRPObject::GetInvalidUInt()) {
	197	Printf("GRP/GRP/Data entry: missing value for the detector mask ! Using 1074790399");
	198	activeDetectors = 1074790399;
199	}
200
201	fRunInfo = new AliRunInfo(lhcState, beamType, beamEnergy, runType, activeDetectors);
202	printf("qqqqqqqqqqqqqqqqqqqqqqq %s %s %f %s %d\n", lhcState.Data(), beamType.Data(), beamEnergy, runType.Data(), activeDetectors);
203	fRunInfo->Dump();
204
205	//*** Dealing with the magnetic field map
206	if ( TGeoGlobalMagField::Instance()->IsLocked() ) {Printf("Running with the externally locked B field !");}
207	else {
208	// Construct the field map out of the information retrieved from GRP.
209	Bool_t ok = kTRUE;
210	// L3
211	Float_t l3Current = fGRPData->GetL3Current((AliGRPObject::Stats)0);
212	if (l3Current == AliGRPObject::GetInvalidFloat()) {
213	Prtinf("GRP/GRP/Data entry: missing value for the L3 current !");
214	ok = kFALSE;
215	}
216
217	Char_t l3Polarity = fGRPData->GetL3Polarity();
218	if (l3Polarity == AliGRPObject::GetInvalidChar()) {
219	Printf("GRP/GRP/Data entry: missing value for the L3 polarity !");
220	ok = kFALSE;
221	}
222
223	// Dipole
224	Float_t diCurrent = fGRPData->GetDipoleCurrent((AliGRPObject::Stats)0);
225	if (diCurrent == AliGRPObject::GetInvalidFloat()) {
226	Printf("GRP/GRP/Data entry: missing value for the dipole current !");
227	ok = kFALSE;
228	}
229
230	Char_t diPolarity = fGRPData->GetDipolePolarity();
231	if (diPolarity == AliGRPObject::GetInvalidChar()) {
232	Printf("GRP/GRP/Data entry: missing value for the dipole polarity !");
233	ok = kFALSE;
234	}
235
236	if (ok) {
237	if ( !SetFieldMap(l3Current, diCurrent, l3Polarity ? -1:1, diPolarity ? -1:1) )
238	AliFatal("Failed to creat a B field map ! Exiting...");
239	Printf("Running with the B field constructed out of GRP !");
240	}
241	else AliFatal("B field is neither set nor constructed from GRP ! Exitig...");
242
243	}
244
245	return kTRUE;
246	}
247
248	//_____________________________________________________________________________
249	//_____________________________________________________________________________
250	Bool_t SetFieldMap(Float_t l3Cur=30000., Float_t diCur=6000.,
251	Float_t l3Pol=1., Float_t diPol=1., Float_t beamenergy=7000.,
252	const Char_t* beamtype="pp",
253	const Char_t* path="$(ALICE_ROOT)/data/maps/mfchebKGI_sym.root")
254	{
255	//------------------------------------------------
256	// The magnetic field map, defined externally...
257	// L3 current 30000 A -> 0.5 T
258	// L3 current 12000 A -> 0.2 T
259	// dipole current 6000 A
260	// The polarities must be the same
261	//------------------------------------------------
262	const Float_t l3NominalCurrent1=30000.; // (A)
263	const Float_t l3NominalCurrent2=12000.; // (A)
264	const Float_t diNominalCurrent =6000. ; // (A)
265
266	const Float_t tolerance=0.03; // relative current tolerance
267	const Float_t zero=77.; // "zero" current (A)
268	//
269	TString s=(l3Pol < 0) ? "L3: -" : "L3: +";
270	//
271	AliMagF::BMap_t map = AliMagF::k5kG;
272	//
273	double fcL3,fcDip;
274	//
275	l3Cur = TMath::Abs(l3Cur);
276	if (TMath::Abs(l3Cur-l3NominalCurrent1)/l3NominalCurrent1 < tolerance) {
277	fcL3 = l3Cur/l3NominalCurrent1;
278	map = AliMagF::k5kG;
279	s += "0.5 T; ";
280	} else if (TMath::Abs(l3Cur-l3NominalCurrent2)/l3NominalCurrent2 < tolerance) {
281	fcL3 = l3Cur/l3NominalCurrent2;
282	map = AliMagF::k2kG;
283	s += "0.2 T; ";
284	} else if (l3Cur <= zero) {
285	fcL3 = 0;
286	map = AliMagF::k5kGUniform;
287	s += "0.0 T; ";
288	fUniformField=kTRUE; // track with the uniform (zero) B field
289	} else {
290	AliError(Form("Wrong L3 current (%f A)!",l3Cur));
291	return kFALSE;
292	}
293	//
294	diCur = TMath::Abs(diCur);
295	if (TMath::Abs(diCur-diNominalCurrent)/diNominalCurrent < tolerance) {
296	// 3% current tolerance...
297	fcDip = diCur/diNominalCurrent;
298	s += "Dipole ON";
299	} else if (diCur <= zero) { // some small current..
300	fcDip = 0.;
301	s += "Dipole OFF";
302	} else {
303	AliError(Form("Wrong dipole current (%f A)!",diCur));
304	return kFALSE;
305	}
306	//
307	if (l3Pol!=diPol && (map==AliMagF::k5kG \|\| map==AliMagF::k2kG) && fcDip!=0) {
308	AliError("L3 and Dipole polarities must be the same");
309	return kFALSE;
310	}
311	//
312	if (l3Pol<0) fcL3 = -fcL3;
313	if (diPol<0) fcDip = -fcDip;
314	//
315	AliMagF::BeamType_t btype = AliMagF::kNoBeamField;
316	TString btypestr = beamtype;
317	btypestr.ToLower();
318	TPRegexp protonBeam("(proton\|p)\\s-?\\s\\1");
319	TPRegexp ionBeam("(lead\|pb\|ion\|a)\\s-?\\s\\1");
320	if (btypestr.Contains(ionBeam)) btype = AliMagF::kBeamTypeAA;
321	else if (btypestr.Contains(protonBeam)) btype = AliMagF::kBeamTypepp;
322	else {
323	Printf(Form("Cannot determine the beam type from %s, assume no LHC magnet field",beamtype));
324	}
325
326	AliMagF* fld = new AliMagF("MagneticFieldMap", s.Data(), 2, fcL3, fcDip, 10., map, path,
327	btype,beamenergy);
328	TGeoGlobalMagField::Instance()->SetField( fld );
329	TGeoGlobalMagField::Instance()->Lock();
330	//
331	return kTRUE;
332	}