1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
17 ///////////////////////////////////////////////////////////////////////////////
19 // Calibration class for DCS sensors //
20 // Authors: Marian Ivanov and Haavard Helstrup //
22 ///////////////////////////////////////////////////////////////////////////////
24 #include "AliDCSSensorArray.h"
28 ClassImp(AliDCSSensorArray)
30 const Double_t kSecInHour = 3600.; // seconds in one hour
31 const UInt_t kMinMapTime = 60; // don't fit maps shorter than one minute
33 //_____________________________________________________________________________
34 AliDCSSensorArray::AliDCSSensorArray():TNamed(),
42 fStartTime (2000,1,1,0,0,0),
43 fEndTime (2000,1,1,0,0,0),
47 // AliDCSSensorArray default constructor
51 //_____________________________________________________________________________
52 AliDCSSensorArray::AliDCSSensorArray(TClonesArray *arr):TNamed(),
60 fStartTime (2000,1,1,0,0,0),
61 fEndTime (2000,1,1,0,0,0),
65 // AliDCSSensorArray special constructor taking TClonesArray from ReadList
69 //_____________________________________________________________________________
70 AliDCSSensorArray::AliDCSSensorArray(Int_t run, const char* dbEntry) :
79 fStartTime (2000,1,1,0,0,0),
80 fEndTime (2000,1,1,0,0,0),
84 // Read configuration from OCDB
87 AliCDBEntry *entry = AliCDBManager::Instance()->Get(dbEntry,run);
89 TTree *tree = (TTree*) entry->GetObject();
90 fSensors = AliDCSSensor::ReadTree(tree);
92 AliError("Unable to load configuration from CDB!");
95 //_____________________________________________________________________________
96 AliDCSSensorArray::AliDCSSensorArray(UInt_t startTime, UInt_t endTime,
106 fStartTime (2000,1,1,0,0,0),
107 fEndTime (2000,1,1,0,0,0),
112 // AliDCSSensorArray constructor for Shuttle preprocessor
113 // (confTree read from OCDB)
115 fSensors = AliDCSSensor::ReadTree(confTree);
116 fSensors->BypassStreamer(kFALSE);
117 fStartTime = TTimeStamp((time_t)startTime,0);
118 fEndTime = TTimeStamp((time_t)endTime,0);
122 //_____________________________________________________________________________
123 AliDCSSensorArray::AliDCSSensorArray(UInt_t startTime, UInt_t endTime,
124 TClonesArray *sensors) :
133 fStartTime (2000,1,1,0,0,0),
134 fEndTime (2000,1,1,0,0,0),
139 // AliDCSSensorArray constructor for Shuttle preprocessor
140 // (TClonesArray of AliDCSSensor objects)
142 fStartTime = TTimeStamp((time_t)startTime,0);
143 fEndTime = TTimeStamp((time_t)endTime,0);
146 //_____________________________________________________________________________
147 AliDCSSensorArray::AliDCSSensorArray(const AliDCSSensorArray &c):TNamed(c),
148 fMinGraph(c.fMinGraph),
149 fMinPoints(c.fMinPoints),
151 fMaxDelta(c.fMaxDelta),
154 fDiffCut(c.fDiffCut),
155 fStartTime (c.fStartTime),
156 fEndTime (c.fEndTime),
161 // AliDCSSensorArray copy constructor
164 fSensors = (TClonesArray*)c.fSensors->Clone();
167 ///_____________________________________________________________________________
168 AliDCSSensorArray::~AliDCSSensorArray()
171 // AliDCSSensorArray destructor
178 //_____________________________________________________________________________
179 AliDCSSensorArray &AliDCSSensorArray::operator=(const AliDCSSensorArray &c)
182 // Assignment operator
186 new (this) AliDCSSensorArray(c);
187 fSensors = (TClonesArray*)c.fSensors->Clone();
192 //____________________________________________________________________________
194 void AliDCSSensorArray::SetGraph(TMap *map)
197 // Read graphs from DCS maps
199 Int_t nsensors = fSensors->GetEntries();
200 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
201 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
202 TString stringID = entry->GetStringID();
203 TGraph *gr = (TGraph*)map->GetValue(stringID.Data());
205 entry->SetGraph((TGraph*)gr->Clone());
211 //_____________________________________________________________________________
212 void AliDCSSensorArray::MakeSplineFit(TMap *map, Bool_t keepMap)
215 // Make spline fits from DCS maps
217 Int_t nsensors = fSensors->GetEntries();
218 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
219 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
220 TString stringID = entry->GetStringID();
221 TGraph *gr = (TGraph*)map->GetValue(stringID.Data());
225 AliWarning(Form("sensor %s: no input graph",stringID.Data()));
228 UInt_t timeDiff = entry->GetEndTime() - entry->GetStartTime();
229 if ( timeDiff < kMinMapTime ) {
230 AliWarning(Form("sensor %s: map length < 60 s, DCS graph kept.",stringID.Data()));
231 entry->SetGraph((TGraph*)gr->Clone());
233 AliSplineFit *fit = new AliSplineFit();
234 fit->SetMinPoints(fMinGraph);
235 fit->InitKnots(gr,fMinPoints,fIter,fMaxDelta);
236 fit->SplineFit(fFitReq);
238 if (fit->GetKnots()>0) {
241 AliWarning(Form("sensor %s: no fit performed, DCS graph kept.",stringID.Data()));
242 entry->SetGraph((TGraph*)gr->Clone());
245 if (keepMap) entry->SetGraph((TGraph*)gr->Clone());
248 //_____________________________________________________________________________
249 void AliDCSSensorArray::MakeSplineFitAddPoints(TMap *map)
252 // Make spline fits from DCS maps
254 Int_t nsensors = fSensors->GetEntries();
255 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
256 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
258 // fetch old points from existing graph
260 TGraph *gr = entry->GetGraph();
265 TString stringID = entry->GetStringID();
267 // fetch new points from DCS map
269 TGraph *grAdd = (TGraph*)map->GetValue(stringID.Data());
272 // add new points to end of graph
274 Int_t nPointsOld=gr->GetN();
275 Int_t nPointsAdd=grAdd->GetN();
276 gr->Expand(nPointsOld+nPointsAdd);
277 gr->Set(nPointsOld+nPointsAdd);
278 Double_t *addX=grAdd->GetX();
279 Double_t *addY=grAdd->GetY();
280 for (Int_t i=0;i<nPointsAdd;i++) {
281 gr->SetPoint(nPointsOld+i,addX[i],addY[i]);
284 // make fit to complete graph
286 AliSplineFit *fit = new AliSplineFit();
287 fit->SetMinPoints(fMinGraph);
288 fit->InitKnots(gr,fMinPoints,fIter,fMaxDelta);
289 fit->SplineFit(fFitReq);
291 if (fit->GetKnots()>0) {
292 AliSplineFit *oldFit = entry->GetFit();
293 if (oldFit) delete oldFit;
296 AliWarning(Form("sensor %s: no new fit performed. If available, old fit kept.",stringID.Data()));
301 //_____________________________________________________________________________
302 Int_t AliDCSSensorArray::NumFits() const
305 // Return number of sensors where a succesful fit has been made
308 Int_t nsensors = fSensors->GetEntries();
309 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
310 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
311 if (entry->GetFit()) nfit++;
315 //_____________________________________________________________________________
316 Double_t AliDCSSensorArray::GetValue(UInt_t timeSec, Int_t sensor)
319 // Return sensor value at time timeSec (obtained from fitted function)
320 // timeSec = time in seconds from start of run
323 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(sensor);
324 return entry->GetValue(TTimeStamp((time_t)fStartTime.GetSec()+timeSec,0));
328 //_____________________________________________________________________________
329 TMap* AliDCSSensorArray::ExtractDCS(TMap *dcsMap, Bool_t keepStart)
332 // Extract temperature graphs from DCS maps
334 TMap *values = new TMap;
335 TObjArray * valueSet;
337 // Keep global start/end times
338 // to avoid extrapolations, the fits will only be valid from first
339 // measured point to last measured point. This is consistent with hardware,
340 // as there would be a new measured point if the value changed.
342 TTimeStamp startTime=fStartTime;
343 TTimeStamp endTime=fEndTime;
345 Int_t nsensors = fSensors->GetEntries();
346 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
347 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
348 TString stringID = entry->GetStringID();
349 TPair *pair = (TPair*)dcsMap->FindObject(stringID.Data());
350 if ( pair ) { // only try to read values
351 // if DCS object available
352 valueSet = (TObjArray*)pair->Value();
353 TGraph *graph = MakeGraph(valueSet,keepStart); // MakeGraph sets start/end time
355 values->Add(new TObjString(stringID.Data()),graph);
356 entry->SetStartTime(fStartTime);
357 entry->SetEndTime(fEndTime);
360 // Reset global start/end time
361 // ..... yes, I know this won't get a prize for structured programming..:-)
363 fStartTime=startTime;
369 //_____________________________________________________________________________
370 TGraph* AliDCSSensorArray::MakeGraph(TObjArray* valueSet, Bool_t keepStart){
372 // Make graph of temperature values read from DCS map
373 // (spline fit parameters will subsequently be obtained from this graph)
375 Int_t nentries = valueSet->GetEntriesFast();
376 if ( nentries == 0 ) return 0;
378 Float_t *x = new Float_t[nentries];
379 Float_t *y = new Float_t[nentries];
380 Int_t time0=0, previousTime=0;
381 TTimeStamp firstTime(0);
382 TTimeStamp lastTime(0);
384 firstTime = fStartTime;
385 time0 = firstTime.GetSec();
389 AliDCSValue *val = (AliDCSValue *)valueSet->At(0);
390 AliDCSValue::Type type = val->GetType();
391 if ( type == AliDCSValue::kInvalid || type == AliDCSValue::kBool ) {
397 for (Int_t i=0; i<nentries; i++){
398 val = (AliDCSValue *)valueSet->At(i);
401 time0=val->GetTimeStamp();
402 firstTime= TTimeStamp((time_t)val->GetTimeStamp(),0);
403 lastTime=TTimeStamp((time_t)val->GetTimeStamp(),0);
407 case AliDCSValue::kFloat:
408 value = val->GetFloat();
410 case AliDCSValue::kChar:
411 value = static_cast<Float_t>(val->GetChar());
413 case AliDCSValue::kInt:
414 value = static_cast<Float_t>(val->GetInt());
416 case AliDCSValue::kUInt:
417 value = static_cast<Float_t>(val->GetUInt());
422 if (fValCut>0 && TMath::Abs(value)>fValCut) continue; // refuse values greater than cut
424 if ( out>0 && skipped<10 && TMath::Abs(value-y[out-1])>fDiffCut) {
425 skipped++; // refuse values changing
426 continue; // by > cut in one time step
430 if (val->GetTimeStamp()-time0>1000000) continue;
431 if (val->GetTimeStamp()-previousTime < 1 ) continue; // refuse duplicate recordings
432 previousTime=val->GetTimeStamp();
433 lastTime=TTimeStamp((time_t)val->GetTimeStamp(),0);
434 x[out] = (val->GetTimeStamp()-time0)/kSecInHour; // give times in fractions of hours
438 if (!keepStart) fStartTime=firstTime;
440 TGraph * graph = new TGraph(out,x,y);
446 //_____________________________________________________________________________
447 void AliDCSSensorArray::RemoveGraphDuplicates(Double_t tolerance){
449 // Remove points with same y value as the previous measured point
450 // (to save space for non-fitted graphs -- i.e. last measured point used)
452 Int_t nsensors = fSensors->GetEntries();
453 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
454 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
455 TGraph *graph = entry->GetGraph();
456 Double_t x=-999.,y=-999., x0=-999.,y0=-999.;
458 Int_t npoints=graph->GetN();
460 for (Int_t i=npoints-1;i>0;i--) {
461 graph->GetPoint(i,x,y);
462 graph->GetPoint(i-1,x0,y0);
463 if ( TMath::Abs(y-y0) < TMath::Abs(tolerance*y0) ) graph->RemovePoint(i);
471 //_____________________________________________________________________________
472 AliDCSSensor* AliDCSSensorArray::GetSensor(Int_t IdDCS)
475 // Return sensor information for sensor specified by IdDCS
477 Int_t nsensors = fSensors->GetEntries();
478 for (Int_t isensor=0; isensor<nsensors; isensor++) {
479 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
480 if (entry->GetIdDCS() == IdDCS) return entry;
484 //_____________________________________________________________________________
485 AliDCSSensor* AliDCSSensorArray::GetSensor(const TString& stringID)
488 // Return sensor information for sensor specified by stringID
490 Int_t nsensors = fSensors->GetEntries();
491 for (Int_t isensor=0; isensor<nsensors; isensor++) {
492 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
493 if (entry->GetStringID() == stringID) return entry;
497 //_____________________________________________________________________________
498 AliDCSSensor* AliDCSSensorArray::GetSensor(Double_t x, Double_t y, Double_t z)
501 // Return sensor closest to given position
503 Int_t nsensors = fSensors->GetEntries();
504 Double_t dist2min=1e99;
505 Double_t xs,ys,zs,dist2;
507 for (Int_t isensor=0; isensor<nsensors; isensor++) {
508 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
512 dist2 = (x-xs)*(x-xs) + (y-ys)*(y-ys) + (z-zs)*(z-zs);
513 if (dist2 < dist2min) {
519 return (AliDCSSensor*)fSensors->At(ind);
524 //_____________________________________________________________________________
525 AliDCSSensor* AliDCSSensorArray::GetSensorNum(Int_t ind)
528 // Return sensor given by array index
530 return (AliDCSSensor*)fSensors->At(ind);
533 //_____________________________________________________________________________
534 Int_t AliDCSSensorArray::SetSensor(const TString& stringID,
535 const AliDCSSensor& sensor)
538 // Update sensor information for sensor specified by stringID
540 Int_t nsensors = fSensors->GetEntries();
541 for (Int_t isensor=0; isensor<nsensors; isensor++) {
542 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
543 if (entry->GetStringID() == stringID)
545 new ((*fSensors)[isensor])AliDCSSensor(sensor);
551 //_____________________________________________________________________________
552 void AliDCSSensorArray::SetSensorNum(const Int_t ind, const AliDCSSensor& sensor)
555 // Update sensor information for sensor at index ind
557 new ((*fSensors)[ind])AliDCSSensor(sensor);
560 //_____________________________________________________________________________
561 void AliDCSSensorArray::RemoveSensorNum(Int_t ind)
564 // Return sensor given by array index
567 delete fSensors->RemoveAt(ind);
568 fSensors->Compress();
570 //_____________________________________________________________________________
571 void AliDCSSensorArray::RemoveSensor(Int_t IdDCS)
574 // Deletes Sensor by given IdDCS
577 Int_t nsensors = fSensors->GetEntries();
578 for (Int_t isensor=0; isensor<nsensors; isensor++) { // loop over sensors
579 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
580 if (entry->GetIdDCS()==IdDCS) {
581 delete fSensors->RemoveAt(isensor);
585 fSensors->Compress();
587 //_____________________________________________________________________________
588 TArrayI AliDCSSensorArray::OutsideThreshold(Double_t threshold, UInt_t timeSec, Bool_t below) const
591 // Return sensors with values outside threshold at time defined by second
593 // By default sensors with values below threshold are listed, if third
594 // parameter is set to kFALSE sensors with values above threshold are listed
596 Int_t nsensors = fSensors->GetEntries();
597 TArrayI array(nsensors);
599 for (Int_t isensor=0; isensor<nsensors; isensor++) { // loop over sensors
600 AliDCSSensor *entry = (AliDCSSensor*)fSensors->At(isensor);
601 Double_t val=entry->GetValue(timeSec);
603 if (val<threshold) array[outside++] = entry->GetIdDCS();
605 if (val>threshold) array[outside++] = entry->GetIdDCS();
612 //_____________________________________________________________________________
613 Int_t AliDCSSensorArray::GetFirstIdDCS() const
616 // Return DCS Id of first sensor
618 if ( fSensors != 0 ) {
619 return ((AliDCSSensor*)fSensors->At(0))->GetIdDCS();
625 //_____________________________________________________________________________
626 Int_t AliDCSSensorArray::GetLastIdDCS() const
629 // Return DCS Id of last sensor
631 if ( fSensors != 0 ) {
632 Int_t last = fSensors->GetEntries();
633 return ((AliDCSSensor*)fSensors->At(last-1))->GetIdDCS();
638 //_____________________________________________________________________________
639 void AliDCSSensorArray::ClearGraph()
642 // Delete DCS graphs from all sensors in array
645 Int_t nsensors = fSensors->GetEntries();
646 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
647 AliDCSSensor *sensor = (AliDCSSensor*)fSensors->At(isensor);
648 TGraph *gr = sensor->GetGraph();
656 //_____________________________________________________________________________
657 void AliDCSSensorArray::ClearFit()
660 // Delete spline fits from all sensors in array
663 Int_t nsensors = fSensors->GetEntries();
664 for ( Int_t isensor=0; isensor<nsensors; isensor++) {
665 AliDCSSensor *sensor = (AliDCSSensor*)fSensors->At(isensor);
666 AliSplineFit *fit = sensor->GetFit();
674 //_____________________________________________________________________________
675 void AliDCSSensorArray::AddSensors(AliDCSSensorArray *newSensors)
678 // add sensors from two sensor arrays
681 Int_t numNew = newSensors->NumSensors();
682 Int_t numOld = fSensors->GetEntries();
683 fSensors->Expand(numOld+numNew);
684 for (Int_t i=0;i<numNew;i++) {
685 AliDCSSensor *sens = newSensors->GetSensorNum(i);
686 new ((*fSensors)[numOld+i]) AliDCSSensor(*sens);