///////////////////////////////////////////////////////////////////
// //
// 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){
- gSystem->Sleep(30000);
// Get DDL map from OCDB
AliCDBEntry* entry = GetFromOCDB("Calib", "DDLMapSDD");
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);
+ if(retfscf<0){
+ Log("Error reading from fee.conf. AM sampling set at 40 MHz by default");
+ }else{
+ 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++){
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.Data()));
- cal->SetBad();
+ 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(retfscf<0) isgoodmod=kFALSE;
+ 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);
}
TObjArray vdrift(2*kNumberOfSDD);
vdrift.SetOwner(kFALSE);
Int_t evNumb,polDeg;
- UInt_t timeStamp;
+ UInt_t timeStamp,statusInj;
Bool_t modSet[2*kNumberOfSDD]; // flag modules with good inj.
for(Int_t ihyb=0; ihyb<2*kNumberOfSDD; ihyb++) modSet[ihyb]=0;
- Double_t nPt = 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;
ind++;
}
delete sourceList;
-
+ Int_t retfscf;
+
for(Int_t iddl=0;iddl<kNumberOfDDL;iddl++){
for(Int_t imod=0;imod<kModulesPerDDL;imod++){
FILE* injFil = fopen(inpFileName,"read");
if (injFil == 0) {
Log(Form("File %s not found.",inpFileName.Data()));
- AliITSDriftSpeedSDD *dsp=new AliITSDriftSpeedSDD();
- arr->AddDriftSpeed(dsp);
- vdrift.AddAt(arr,2*modID+isid);
continue;
}
- fscanf(injFil,"%d",&polDeg);
+ retfscf=fscanf(injFil,"%d",&polDeg);
+ if(retfscf<0){
+ Log(Form("File %s has bad format.",inpFileName.Data()));
+ continue;
+ }
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 *avdsp3=new AliITSDriftSpeedSDD(evNumb,timeStamp,3,aveCoefLay3);
+ AliITSDriftSpeedSDD *avdsp4=new AliITSDriftSpeedSDD(evNumb,timeStamp,3,aveCoefLay4);
+
+ // 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){
+ 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);
+ }
}
- AliITSDriftSpeedSDD *avdsp=new AliITSDriftSpeedSDD(evNumb,timeStamp,polDeg,aveCoef);
- for(Int_t ihyb=0; ihyb<2*kNumberOfSDD; ihyb++){
+ for(Int_t ihyb=2*kNumberOfSDDLay3; ihyb<2*kNumberOfSDD; ihyb++){
if(modSet[ihyb]==0){
- AliWarning(Form("No good injector events for mod. %d --> use average values",ihyb/2));
+ 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(avdsp);
+ arr->AddDriftSpeed(avdsp4);
+ arr->SetInjectorStatus(0);
vdrift.AddAt(arr,ihyb);
}
}
-
AliCDBMetaData *md= new AliCDBMetaData();
md->SetResponsible("Francesco Prino");
md->SetBeamPeriod(0);
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
git://git.uio.no / u / mrichter / AliRoot.git / blobdiff