///////////////////////////////////////////////////////////////////
// //
// Implementation of the class for SDD preprocessing //
+// Run Types treated: //
+// PULSER, INJECTOR -> Store OCDB parameters //
+// ALL RUNS -> Store DCS reference data //
// Origin: E.Crescio, Torino, crescio@to.infn.it //
// F.Prino, Torino, prino@to.infn.it //
// //
///////////////////////////////////////////////////////////////////
+#include "AliITSDDLModuleMapSDD.h"
#include "AliITSPreprocessorSDD.h"
#include "AliITSCalibrationSDD.h"
#include "AliITSDriftSpeedSDD.h"
#include <TObjString.h>
#include <TSystem.h>
#include <TList.h>
+#include <TF1.h>
+#include <TH1D.h>
const TString AliITSPreprocessorSDD::fgkNameHistoPedestals = "hpedestal";
const TString AliITSPreprocessorSDD::fgkNameHistoNoise = "hnoise";
//______________________________________________________________________
UInt_t AliITSPreprocessorSDD::Process(TMap* dcsAliasMap){
+
// Get DDL map from OCDB
AliCDBEntry* entry = GetFromOCDB("Calib", "DDLMapSDD");
if(!entry){
Log("AliITSDDLModuleMapSDD object not in file.");
return 2;
}
+ ddlmap->PrintDDLMap();
//preprocessing
TString runType = GetRunType();
Int_t retcode=0;
if (runType == "PULSER"){
+ Log("Process FXS files from PULSER RUN");
retcode=ProcessPulser(ddlmap);
}else if(runType== "INJECTOR"){
+ Log("Process FXS files from INJECTOR RUN");
retcode=ProcessInjector(ddlmap);
}
if(retcode!=0) return retcode;
+ Log("Process DCS data");
Bool_t retcodedcs =ProcessDCSDataPoints(dcsAliasMap);
if(retcodedcs) return 0;
else return 1;
// 2 in case of error with input files
TObjArray calSDD(kNumberOfSDD);
calSDD.SetOwner(kFALSE);
- Char_t command[100];
- Char_t inpFileName[100];
+
Float_t baseline,rawnoise,cmn,corn,gain;
Int_t isgoodan,i,im,is,isgoodmod,basmin,basoff;
Int_t th,tl;
Log(Form("Baseline tar file from source %d not found.",ind));
return 2;
}
- sprintf(command,"tar -xf %s",tarName.Data());
+ TString command;
+ command.Form("tar -xf %s",tarName.Data());
gSystem->Exec(command);
ind++;
}
delete sourceList;
+ // Read ADC sampling frequency from fee.conf
+ Int_t amSamplFreq=40;
+ Int_t retfscf;
+ FILE* feefil=fopen("fee.conf","r");
+ if(feefil){
+ retfscf=fscanf(feefil,"%d \n",&amSamplFreq);
+ fclose(feefil);
+ Log(Form("AM sampling frequency = %d MHz",amSamplFreq));
+ }else{
+ Log("File fee.conf not found. AM sampling set at 40 MHz by default");
+ }
for(Int_t iddl=0;iddl<kNumberOfDDL;iddl++){
for(Int_t imod=0;imod<kModulesPerDDL;imod++){
if(modID==-1) continue;
modID-=240; // to have SDD modules numbering from 0 to 260
AliITSCalibrationSDD *cal = new AliITSCalibrationSDD("simulated");
- cal->SetUseCorrectionMaps(0,0); // temporary disabling of maps
+ if(amSamplFreq!=40) cal->SetAMAt20MHz();
numOfBadChannels[modID]=0;
Int_t badch[kNumberOfChannels];
+ Bool_t sid0ok=kTRUE;
+ Bool_t sid1ok=kTRUE;
for(Int_t isid=0;isid<=1;isid++){
- sprintf(inpFileName,"./SDDbase_ddl%02dc%02d_sid%d.data",iddl,imod,isid);
+ TString inpFileName;
+ inpFileName.Form("./SDDbase_ddl%02dc%02d_sid%d.data",iddl,imod,isid);
+
FILE* basFil = fopen(inpFileName,"read");
if (basFil == 0) {
- Log(Form("File %s not found.",inpFileName));
- cal->SetBad();
+ Log(Form("File %s not found.",inpFileName.Data()));
+ if(isid==0){
+ sid0ok=kFALSE;
+ for(Int_t iChip=0; iChip<4; iChip++) cal->SetChipBad(iChip);
+ cal->SetDeadChannels(cal->GetDeadChannels()+256);
+ for(Int_t iAnode=0; iAnode<256; iAnode++) cal->SetBadChannel(iAnode,iAnode);
+ }else{
+ sid1ok=kFALSE;
+ for(Int_t iChip=4; iChip<8; iChip++) cal->SetChipBad(iChip);
+ cal->SetDeadChannels(cal->GetDeadChannels()+256);
+ for(Int_t iAnode=0; iAnode<256; iAnode++) cal->SetBadChannel(iAnode,iAnode+256);
+ }
continue;
}
- fscanf(basFil,"%d %d %d\n",&im,&is,&isgoodmod);
- if(!isgoodmod) cal->SetBad();
- fscanf(basFil,"%d\n",&th);
- fscanf(basFil,"%d\n",&tl);
+
+ retfscf=fscanf(basFil,"%d %d %d\n",&im,&is,&isgoodmod);
+ if(!isgoodmod){
+ if(isid==0){
+ sid0ok=kFALSE;
+ for(Int_t iChip=0; iChip<4; iChip++) cal->SetChipBad(iChip);
+ }else{
+ sid1ok=kFALSE;
+ for(Int_t iChip=4; iChip<8; iChip++) cal->SetChipBad(iChip);
+ }
+ }
+ retfscf=fscanf(basFil,"%d\n",&th);
+ retfscf=fscanf(basFil,"%d\n",&tl);
cal->SetZSLowThreshold(isid,tl);
cal->SetZSHighThreshold(isid,th);
for(Int_t ian=0;ian<(kNumberOfChannels/2);ian++){
- fscanf(basFil,"%d %d %f %d %d %f %f %f %f\n",&i,&isgoodan,&baseline,&basmin,&basoff,&rawnoise,&cmn,&corn,&gain);
+ retfscf=fscanf(basFil,"%d %d %f %d %d %f %f %f %f\n",&i,&isgoodan,&baseline,&basmin,&basoff,&rawnoise,&cmn,&corn,&gain);
Int_t ich=ian;
if(isid==1) ich+=256;
if(!isgoodan){
}
fclose(basFil);
}
+ if(!sid0ok && !sid1ok) cal->SetBad();
+ Log(Form("Put calib obj for module %d (DDL %d Carlos %d)",modID,iddl,imod));
calSDD.AddAt(cal,modID);
}
}
// 2 in case of error with input files
TObjArray vdrift(2*kNumberOfSDD);
vdrift.SetOwner(kFALSE);
- Char_t command[100];
- Char_t inpFileName[100];
Int_t evNumb,polDeg;
- UInt_t timeStamp;
+ UInt_t timeStamp,statusInj;
Bool_t modSet[2*kNumberOfSDD]; // flag modules with good inj.
- Double_t nPt = 0;
+ for(Int_t ihyb=0; ihyb<2*kNumberOfSDD; ihyb++) modSet[ihyb]=0;
+ Double_t nPtLay3 = 0;
+ Double_t nPtLay4 = 0;
Double_t param[4]; // parameters of poly fit
- Double_t minValP0=4.; // min value for param[0]
- Double_t maxValP0=9.; // max value for param[0]
+ Double_t minValP0=5.; // min value for param[0]
+ Double_t maxValP0=8.; // max value for param[0]
Double_t minValP1=0.; // min value for param[1]
- Double_t aveCoef[4]={0.,0.,0.,0.}; // average param for good mod.
+ Double_t aveCoefLay3[4]={0.,0.,0.,0.}; // average param for good mod.
+ Double_t aveCoefLay4[4]={0.,0.,0.,0.}; // average param for good mod.
Double_t defCoef[4]={6.53227,0.00128941,-5.14493e-06,0}; // default values for param
Float_t auxP;
Log(Form("Injector tar file from source %d not found.",ind));
return 2;
}
- sprintf(command,"tar -xf %s",tarName.Data());
+ TString command;
+ command.Form("tar -xf %s",tarName.Data());
gSystem->Exec(command);
ind++;
}
delete sourceList;
-
+ Int_t retfscf;
+
for(Int_t iddl=0;iddl<kNumberOfDDL;iddl++){
for(Int_t imod=0;imod<kModulesPerDDL;imod++){
if(modID==-1) continue;
modID-=240; // to have SDD modules numbering from 0 to 260
for(Int_t isid=0;isid<=1;isid++){
- modSet[2*modID+isid]=0;
AliITSDriftSpeedArraySDD *arr=new AliITSDriftSpeedArraySDD();
- sprintf(inpFileName,"./SDDinj_ddl%02dc%02d_sid%d.data",iddl,imod,isid);
+ TString inpFileName;
+ inpFileName.Form("./SDDinj_ddl%02dc%02d_sid%d.data",iddl,imod,isid);
FILE* injFil = fopen(inpFileName,"read");
if (injFil == 0) {
- Log(Form("File %s not found.",inpFileName));
- AliITSDriftSpeedSDD *dsp=new AliITSDriftSpeedSDD();
- arr->AddDriftSpeed(dsp);
- vdrift.AddAt(arr,2*modID+isid);
+ Log(Form("File %s not found.",inpFileName.Data()));
continue;
}
- fscanf(injFil,"%d",&polDeg);
+ retfscf=fscanf(injFil,"%d",&polDeg);
while (!feof(injFil)){
- fscanf(injFil,"%d %d ",&evNumb,&timeStamp);
- if(feof(injFil)) break;
- for(Int_t ic=0;ic<4;ic++){
- fscanf(injFil,"%f ",&auxP);
- param[ic]=auxP;
- }
+ retfscf=fscanf(injFil,"%d %u ",&evNumb,&timeStamp);
+ if(evNumb==-99){
+ statusInj=timeStamp;
+ arr->SetInjectorStatus(statusInj);
+ }else{
+ if(feof(injFil)) break;
+ for(Int_t ic=0;ic<4;ic++){
+ retfscf=fscanf(injFil,"%f ",&auxP);
+ param[ic]=auxP;
+ }
- if(param[0]>minValP0 && param[0]<maxValP0 && param[1]>minValP1){
- for(Int_t ic=0;ic<4;ic++) aveCoef[ic]+=param[ic];
- nPt++;
- AliITSDriftSpeedSDD *dsp=new AliITSDriftSpeedSDD(evNumb,timeStamp,polDeg,param);
- arr->AddDriftSpeed(dsp);
- modSet[2*modID+isid]=1;
+ if(polDeg>=0 && polDeg<=AliITSDriftSpeedSDD::GetMaxPolDeg() &&
+ param[0]>minValP0 && param[0]<maxValP0 && param[1]>minValP1){
+ if(polDeg==3){
+ if(modID<kNumberOfSDDLay3){
+ for(Int_t ic=0;ic<4;ic++) aveCoefLay3[ic]+=param[ic];
+ nPtLay3++;
+ }else{
+ for(Int_t ic=0;ic<4;ic++) aveCoefLay4[ic]+=param[ic];
+ nPtLay4++;
+ }
+ }
+ AliITSDriftSpeedSDD *dsp=new AliITSDriftSpeedSDD(evNumb,timeStamp,polDeg,param);
+ arr->AddDriftSpeed(dsp);
+ modSet[2*modID+isid]=1;
+ }else{
+ Log(Form("Module %d side %d not accepted, degree=%d, params=%g %g %g %g",modID+240,isid,polDeg,param[0],param[1],param[2],param[3]));
+ }
}
}
+ fclose(injFil);
+ Log(Form("Put calib obj for hybrid %d (DDL %d Carlos %d)",2*modID+isid,iddl,imod));
if(modSet[2*modID+isid]) vdrift.AddAt(arr,2*modID+isid);
}
}
// set drift speed for modules with bad injectors
for(Int_t ic=0;ic<4;ic++){
- if(nPt>0) aveCoef[ic]/=nPt; // mean parameters
- else aveCoef[ic]=defCoef[ic]; // default parameters
+ if(nPtLay3>0) aveCoefLay3[ic]/=nPtLay3; // mean parameters
+ else aveCoefLay3[ic]=defCoef[ic]; // default parameters
+ if(nPtLay4>0) aveCoefLay4[ic]/=nPtLay4; // mean parameters
+ else aveCoefLay4[ic]=defCoef[ic]; // default parameters
}
- AliITSDriftSpeedSDD *avdsp=new AliITSDriftSpeedSDD(evNumb,timeStamp,polDeg,aveCoef);
+ AliITSDriftSpeedSDD *avdsp3=new AliITSDriftSpeedSDD(evNumb,timeStamp,3,aveCoefLay3);
+ AliITSDriftSpeedSDD *avdsp4=new AliITSDriftSpeedSDD(evNumb,timeStamp,3,aveCoefLay4);
- for(Int_t ihyb=0; ihyb<2*kNumberOfSDD; ihyb++){
+ // Check status of golden modules
+ Int_t idGoldenMod=-1, idGoldenSide=-1;
+ Int_t idGoldenModList[5]={319,319,321,243,243};
+ Int_t idGoldenSideList[5]={0,1,0,0,1};
+ AliITSDriftSpeedSDD* refSpeed=0x0;
+ for(Int_t iGold=0; iGold<5; iGold++){
+ Int_t indexG=2*(idGoldenModList[iGold]-240)+idGoldenSideList[iGold];
+ if(modSet[indexG]){
+ idGoldenMod=idGoldenModList[iGold];
+ idGoldenSide=idGoldenSideList[iGold];
+ AliITSDriftSpeedArraySDD* arrRef=(AliITSDriftSpeedArraySDD*)vdrift.At(indexG);
+ refSpeed=arrRef->GetDriftSpeedObject(0);
+ break;
+ }
+ }
+ TList* correctionList=0x0;
+ if(idGoldenMod>=240 && idGoldenSide>=0){
+ // Get rescaling corrections from OCDB
+ AliCDBEntry* entry = GetFromOCDB("Calib", "RescaleDriftSpeedSDD");
+ if(!entry){
+ Log("RescaleDriftSpeedSDD file not found in OCDB.");
+ }
+ TList* fullList=(TList*)entry->GetObject();
+ if(!fullList){
+ Log("TList object not found in file.");
+ }
+ TString listName=Form("RefMod%d_Side%d",idGoldenMod,idGoldenSide);
+ correctionList=(TList*)fullList->FindObject(listName.Data());
+ if(!correctionList){
+ Log(Form("TList for requested module %d side %d not found",idGoldenMod,idGoldenSide));
+ }else{
+ Log(Form("Use module %d side %d as reference module",idGoldenMod,idGoldenSide));
+ if(refSpeed){
+ Log(Form("Drift speed params for golden module = %g %g %g %g",refSpeed->GetDriftSpeedParameter(0),refSpeed->GetDriftSpeedParameter(1),refSpeed->GetDriftSpeedParameter(2),refSpeed->GetDriftSpeedParameter(3)));
+ }else{
+ AliError("No drift speed object for golden module");
+ }
+ }
+ }
+
+ for(Int_t ihyb=0; ihyb<2*kNumberOfSDDLay3; ihyb++){
+ AliITSDriftSpeedArraySDD *arr=new AliITSDriftSpeedArraySDD();
if(modSet[ihyb]==0){
- AliWarning(Form("No good injector events for mod. %d --> use average values",ihyb/2));
- AliITSDriftSpeedArraySDD *arr=new AliITSDriftSpeedArraySDD();
- arr->AddDriftSpeed(avdsp);
+ Int_t iBadMod=ihyb/2+240;
+ Int_t iBadSide=ihyb%2;
+ Bool_t goldenUsed=kFALSE;
+ if(correctionList && refSpeed){
+ Double_t *params=RescaleDriftSpeedModule(correctionList,iBadMod,iBadSide,refSpeed);
+ if(params){
+ AliWarning(Form("No good injector events for mod. %d side %d --> use rescaled values from golden module",iBadMod,iBadSide));
+ AliITSDriftSpeedSDD* dspres=new AliITSDriftSpeedSDD(0,refSpeed->GetEventTimestamp(),3,params);
+ arr->AddDriftSpeed(dspres);
+ arr->SetInjectorStatus(1);
+ goldenUsed=kTRUE;
+ }
+ }
+ if(!goldenUsed){
+ AliWarning(Form("No good injector events for mod. %d side %d --> use average values for layer 3",iBadMod,iBadSide));
+ arr->AddDriftSpeed(avdsp3);
+ arr->SetInjectorStatus(0);
+ }
vdrift.AddAt(arr,ihyb);
}
}
+ for(Int_t ihyb=2*kNumberOfSDDLay3; ihyb<2*kNumberOfSDD; ihyb++){
+ if(modSet[ihyb]==0){
+ AliWarning(Form("No good injector events for mod. %d side %d --> use average values for layer 4",ihyb/2,ihyb%2));
+ AliITSDriftSpeedArraySDD *arr=new AliITSDriftSpeedArraySDD();
+ arr->AddDriftSpeed(avdsp4);
+ arr->SetInjectorStatus(0);
+ vdrift.AddAt(arr,ihyb);
+ }
+ }
AliCDBMetaData *md= new AliCDBMetaData();
md->SetResponsible("Francesco Prino");
if(retCode) return 0;
else return 1;
}
+
+//______________________________________________________________________
+Double_t* AliITSPreprocessorSDD::RescaleDriftSpeedModule(const TList* theList,
+ Int_t iBadMod,
+ Int_t iBadSide,
+ const AliITSDriftSpeedSDD* refSpeed)
+ const
+{
+ // Rescale driftSpeed for a drift region starting from values of golden module
+
+ if(!refSpeed) return 0x0;
+ TString hisName=Form("hRatioMod%d_Side%d",iBadMod,iBadSide);
+ TH1D* h=(TH1D*)theList->FindObject(hisName.Data());
+ if(!h) return 0x0;
+
+ TF1* fpoly=new TF1("fpoly","pol3",0.,255.);
+ for(Int_t iAnode=0; iAnode<256; iAnode++){
+ Double_t vref=refSpeed->GetDriftSpeedAtAnode((Double_t)iAnode);
+ Double_t vcorr=h->GetBinContent(iAnode+1)*vref;
+ h->SetBinContent(iAnode+1,vcorr);
+ }
+ h->Fit(fpoly,"RNQ");
+ Double_t *params=new Double_t[4];
+ for(Int_t iPar=0; iPar<4; iPar++) params[iPar]=fpoly->GetParameter(iPar);
+ delete fpoly;
+ return params;
+}
+
//______________________________________________________________________
Bool_t AliITSPreprocessorSDD::ProcessDCSDataPoints(TMap* dcsAliasMap){
// Process DCS data
Bool_t retCode = StoreReferenceData("DCS","DataSDD",&refDCS,md);
return retCode;
}
+