GetTimeSeriesLogInformation.cpp

Go to the documentation of this file.

// Mantid Repository : https://github.com/mantidproject/mantid
//
// Copyright © 2018 ISIS Rutherford Appleton Laboratory UKRI,
//   NScD Oak Ridge National Laboratory, European Spallation Source,
//   Institut Laue - Langevin & CSNS, Institute of High Energy Physics, CAS
// SPDX - License - Identifier: GPL - 3.0 +
#include "MantidAlgorithms/GetTimeSeriesLogInformation.h"
#include "MantidAPI/Run.h"
#include "MantidAPI/TableRow.h"
#include "MantidAPI/WorkspaceProperty.h"
#include "MantidDataObjects/EventList.h"
#include "MantidDataObjects/EventWorkspace.h"
#include "MantidDataObjects/WorkspaceCreation.h"
#include "MantidGeometry/Instrument.h"
#include "MantidHistogramData/Histogram.h"
#include "MantidKernel/ListValidator.h"
#include "MantidKernel/TimeSeriesProperty.h"
#include <algorithm>
#include <fstream>
 
using namespace Mantid::Kernel;
using namespace Mantid::API;
using namespace Mantid::DataObjects;
using namespace Mantid::HistogramData;
using Mantid::Types::Core::DateAndTime;
 
using namespace std;
 
namespace Mantid::Algorithms {
 
DECLARE_ALGORITHM(GetTimeSeriesLogInformation)
 
 
GetTimeSeriesLogInformation::GetTimeSeriesLogInformation()
    : API::Algorithm(), m_dataWS(), mRunStartTime(), mFilterT0(), mFilterTf(), m_intInfoMap(), m_dblInfoMap(),
      m_log(nullptr), m_timeVec(), m_valueVec(), m_starttime(), m_endtime(), m_ignoreNegativeTime(false) {}
 
void GetTimeSeriesLogInformation::init() {
  declareProperty(
      std::make_unique<API::WorkspaceProperty<MatrixWorkspace>>("InputWorkspace", "Anonymous", Direction::InOut),
      "Input EventWorkspace.  Each spectrum corresponds to 1 pixel");
 
  declareProperty(std::make_unique<WorkspaceProperty<MatrixWorkspace>>("OutputWorkspace", "Dummy", Direction::Output),
                  "Name of the workspace of log delta T distribution. ");
 
  declareProperty(std::make_unique<WorkspaceProperty<TableWorkspace>>("InformationWorkspace", "", Direction::Output),
                  "Name of optional log statistic information output Tableworkspace.");
 
  declareProperty("LogName", "", "Log's name to filter events.");
 
  std::vector<std::string> timeoptions{"Absolute Time (nano second)", "Relative Time (second)"};
  declareProperty("TimeRangeOption", "Relative Time (second)", std::make_shared<StringListValidator>(timeoptions),
                  "User defined time range (T0, Tf) is of absolute time (second). ");
 
  declareProperty("FilterStartTime", EMPTY_DBL(),
                  "Earliest time of the events to be selected.  "
                  "It can be absolute time (ns), relative time (second) or percentage.");
  declareProperty("FilterStopTime", EMPTY_DBL(),
                  "Latest time of the events to be selected.  "
                  "It can be absolute time (ns), relative time (second) or percentage.");
 
  declareProperty("TimeStepBinResolution", 0.0001, "Time resolution (second) for time stamp delta T disibution. ");
 
  declareProperty("IgnoreNegativeTimeInterval", false,
                  "If true, then the time interval with negative number will "
                  "be neglected in doing statistic.");
}
 
void GetTimeSeriesLogInformation::exec() {
  // 1. Get wrokspace, log property and etc.
  m_dataWS = this->getProperty("InputWorkspace");
  if (!m_dataWS) {
    throw runtime_error("Inputworkspace cannot be parsed to a MatrixWorkspace.");
  }
 
  string logname = getProperty("LogName");
  if (logname.empty())
    throw runtime_error("Input log value cannot be an empty string. ");
 
  Kernel::Property *log = m_dataWS->run().getProperty(logname);
  if (!log) {
    stringstream errmsg;
    errmsg << "Property " << logname << " does not exit in sample of workspace " << m_dataWS->getName() << ".";
    g_log.error(errmsg.str());
    throw std::invalid_argument(errmsg.str());
  } else {
    m_log = dynamic_cast<Kernel::TimeSeriesProperty<double> *>(log);
    if (!m_log) {
      stringstream errmsg;
      errmsg << "Log " << logname << " is found, but is not a double type time series log";
      g_log.error(errmsg.str());
      throw std::invalid_argument(errmsg.str());
    }
  }
 
  m_timeVec = m_log->timesAsVector();
  m_valueVec = m_log->valuesAsVector();
 
  m_starttime = m_dataWS->run().startTime();
  m_endtime = m_dataWS->run().endTime();
 
  m_ignoreNegativeTime = getProperty("IgnoreNegativeTimeInterval");
 
  // 2. Process start time and end time
  processTimeRange();
 
  // 3. Check time stamps
  checkLogBasicInforamtion();
 
  // 4. Calculate distribution of delta T
  double resolution = getProperty("TimeStepBinResolution");
  Workspace2D_sptr timestatws = calDistributions(m_timeVec, resolution);
 
  // 5. Check whether the log is alternating
  checkLogValueChanging(m_timeVec, m_valueVec, 0.1);
 
  // 6. Export error log
  if (false) {
    double userinputdt = 1 / 240.1;
    exportErrorLog(m_dataWS, m_timeVec, userinputdt);
  }
 
  // -1. Finish set output properties.
  TableWorkspace_sptr infows = generateStatisticTable();
  setProperty("InformationWorkspace", infows);
 
  this->setProperty("OutputWorkspace", std::dynamic_pointer_cast<MatrixWorkspace>(timestatws));
 
  // 4. Do more staticts (examine)
  // std::string outputdir = this->getProperty("OutputDirectory");
  // examLog(logname, outputdir);
}
 
void GetTimeSeriesLogInformation::processTimeRange() {
  // Orignal
  m_intInfoMap.emplace("Items", m_log->size());
 
  // Input time
  double t0r = this->getProperty("FilterStartTime");
  double tfr = this->getProperty("FilterStopTime");
 
  // Time unit option
  string timeoption = this->getProperty("TimeRangeOption");
  int timecase = 0;
  if (timeoption == "Absolute Time (nano second)")
    timecase = 1;
  else if (timeoption == "Relative Time (second)")
    timecase = 0;
  else
    timecase = -1;
 
  double duration = static_cast<double>(m_timeVec.back().totalNanoseconds() - m_timeVec[0].totalNanoseconds()) * 1.0E-9;
 
  // Process start time
  if (t0r == EMPTY_DBL()) {
    // Default
    mFilterT0 = m_timeVec[0];
  } else {
    switch (timecase) {
    case 0:
      // Relative time (second)
      mFilterT0 = calculateRelativeTime(t0r);
      break;
    case 1:
      // Absolute time (nano second)
      mFilterT0 = getAbsoluteTime(t0r);
      break;
    case -1:
      mFilterT0 = calculateRelativeTime(t0r * duration);
      break;
    default:
      throw runtime_error("Coding error!");
      break;
    }
  } // Filter start time
 
  // Process filter end time
  if (tfr == EMPTY_DBL()) {
    // Default
    mFilterTf = m_endtime;
  } else {
    switch (timecase) {
    // Set with input
    case 0:
      // Relative time (second)
      mFilterTf = calculateRelativeTime(tfr);
      break;
    case 1:
      // Absolute time (nano second)
      mFilterTf = getAbsoluteTime(tfr);
      break;
    case -1:
      mFilterTf = calculateRelativeTime(tfr * duration);
      break;
    default:
      throw runtime_error("Coding error!");
      break;
    }
  }
 
  // Check validity
  if (mFilterTf.totalNanoseconds() <= mFilterT0.totalNanoseconds()) {
    stringstream errmsg;
    errmsg << "User defined filter starting time @ " << mFilterT0 << " (T = " << t0r
           << ") is later than or equal to filer ending time @ " << mFilterTf << " (T = " << tfr << ").";
    g_log.error(errmsg.str());
    throw std::invalid_argument(errmsg.str());
  }
}
 
Types::Core::DateAndTime GetTimeSeriesLogInformation::getAbsoluteTime(double abstimens) {
  DateAndTime temptime(static_cast<int64_t>(abstimens));
 
  return temptime;
}
 
Types::Core::DateAndTime GetTimeSeriesLogInformation::calculateRelativeTime(double deltatime) {
  int64_t totaltime = m_starttime.totalNanoseconds() + static_cast<int64_t>(deltatime * 1.0E9);
  DateAndTime abstime(totaltime);
 
  return abstime;
}
 
TableWorkspace_sptr GetTimeSeriesLogInformation::generateStatisticTable() {
  auto tablews = std::make_shared<TableWorkspace>();
 
  tablews->addColumn("str", "Name");
  tablews->addColumn("double", "Value");
 
  // 1. Integer part
  for (auto &intmapiter : m_intInfoMap) {
    string name = intmapiter.first;
    size_t value = intmapiter.second;
 
    TableRow newrow = tablews->appendRow();
    newrow << name << static_cast<double>(value);
  }
 
  // 2. Double part
  map<string, double>::iterator dblmapiter;
  for (dblmapiter = m_dblInfoMap.begin(); dblmapiter != m_dblInfoMap.end(); ++dblmapiter) {
    string name = dblmapiter->first;
    double value = dblmapiter->second;
 
    TableRow newrow = tablews->appendRow();
    newrow << name << value;
  }
 
  return tablews;
}
 
void GetTimeSeriesLogInformation::exportErrorLog(const MatrixWorkspace_sptr &ws, vector<DateAndTime> abstimevec,
                                                 double dts) {
  std::string outputdir = getProperty("OutputDirectory");
  if (!outputdir.empty() && outputdir.back() != '/')
    outputdir += "/";
 
  std::string ofilename = outputdir + "errordeltatime.txt";
  g_log.notice() << ofilename << '\n';
  std::ofstream ofs;
  ofs.open(ofilename.c_str(), std::ios::out);
 
  Types::Core::DateAndTime t0(ws->run().getProperty("run_start")->value());
 
  for (size_t i = 1; i < abstimevec.size(); i++) {
    double tempdts =
        static_cast<double>(abstimevec[i].totalNanoseconds() - abstimevec[i - 1].totalNanoseconds()) * 1.0E-9;
    double dev = (tempdts - dts) / dts;
 
    if (fabs(dev) > 0.5) {
      double deltapulsetimeSec1 =
          static_cast<double>(abstimevec[i - 1].totalNanoseconds() - t0.totalNanoseconds()) * 1.0E-9;
      double deltapulsetimeSec2 =
          static_cast<double>(abstimevec[i].totalNanoseconds() - t0.totalNanoseconds()) * 1.0E-9;
      auto index1 = static_cast<int>(deltapulsetimeSec1 * 60);
      auto index2 = static_cast<int>(deltapulsetimeSec2 * 60);
 
      ofs << "Error d(T) = " << tempdts << "   vs   Correct d(T) = " << dts << '\n';
      ofs << index1 << "\t\t" << abstimevec[i - 1].totalNanoseconds() << "\t\t" << index2 << "\t\t"
          << abstimevec[i].totalNanoseconds() << '\n';
    }
  }
 
  ofs.close();
}
 
Workspace2D_sptr GetTimeSeriesLogInformation::calDistributions(std::vector<Types::Core::DateAndTime> timevec,
                                                               double stepsize) {
  // 1. Get a vector of delta T (in unit of seconds)
  double dtmin = static_cast<double>(timevec.back().totalNanoseconds() - timevec[0].totalNanoseconds()) * 1.0E-9;
  double dtmax = 0.0;
 
  vector<double> vecdt(timevec.size() - 1, 0.0);
  for (size_t i = 1; i < timevec.size(); ++i) {
    vecdt[i - 1] = static_cast<double>(timevec[i].totalNanoseconds() - timevec[i - 1].totalNanoseconds()) * 1.0E-9;
    if (vecdt[i - 1] < dtmin)
      dtmin = vecdt[i - 1];
    else if (vecdt[i - 1] > dtmax)
      dtmax = vecdt[i - 1];
  }
 
  // 2. Create a vector of counts
  size_t numbins;
  if (m_ignoreNegativeTime && dtmin < 0) {
    numbins = static_cast<size_t>(ceil((dtmax) / stepsize)) + 2;
  } else {
    numbins = static_cast<size_t>(ceil((dtmax - dtmin) / stepsize)) + 2;
  }
 
  g_log.notice() << "Distribution has " << numbins << " bins.  Delta T = (" << dtmin << ", " << dtmax << ")\n";
 
  Workspace2D_sptr distws = create<Workspace2D>(1, Points(numbins));
  auto &vecDeltaT = distws->mutableX(0);
  auto &vecCount = distws->mutableY(0);
 
  double countmin = dtmin;
  if (m_ignoreNegativeTime && dtmin < 0)
    countmin = 0;
 
  for (size_t i = 0; i < numbins; ++i)
    vecDeltaT[i] = countmin + (static_cast<double>(i) - 1) * stepsize;
  for (size_t i = 0; i < numbins; ++i)
    vecCount[i] = 0;
 
  // 3. Count
  for (double dt : vecdt) {
    int index;
    if (dt < 0 && m_ignoreNegativeTime) {
      index = 0;
    } else {
      auto viter = lower_bound(vecDeltaT.begin(), vecDeltaT.end(), dt);
      index = static_cast<int>(viter - vecDeltaT.begin());
      if (index >= static_cast<int>(vecDeltaT.size())) {
        // Out of upper boundary
        g_log.error() << "Find index = " << index << " > vecX.size = " << vecDeltaT.size() << ".\n";
      } else if (dt < vecDeltaT[index]) {
        --index;
      }
 
      if (index < 0)
        throw runtime_error("How can this happen.");
    }
    vecCount[index] += 1;
  }
 
  return distws;
}
 
void GetTimeSeriesLogInformation::checkLogBasicInforamtion() {
  // 1. Time correctness: same time, disordered time
  size_t countsame = 0;
  size_t countinverse = 0;
  for (size_t i = 1; i < m_timeVec.size(); i++) {
    Types::Core::DateAndTime tprev = m_timeVec[i - 1];
    Types::Core::DateAndTime tpres = m_timeVec[i];
    if (tprev == tpres)
      countsame++;
    else if (tprev > tpres)
      countinverse++;
  }
 
  //   Written to summary map
  /*
  Types::Core::time_duration dts = m_timeVec[0]-m_starttime;
  Types::Core::time_duration dtf = m_timeVec.back() - m_timeVec[0];
  size_t f = m_timeVec.size()-1;
  */
 
  m_intInfoMap.emplace("Number of Time Stamps", m_timeVec.size());
  m_intInfoMap.emplace("Number of Equal Time Stamps", countsame);
  m_intInfoMap.emplace("Number of Reversed Time Stamps", countinverse);
 
  // 2. Average and standard deviation (delta t)
  double runduration_sec = static_cast<double>(m_endtime.totalNanoseconds() - m_starttime.totalNanoseconds()) * 1.0E-9;
  if (runduration_sec < 0.0) {
    g_log.warning() << "It shows that the run duration is not right.  "
                    << "Run start = " << m_starttime.toFormattedString() << "; "
                    << "Run End = " << m_endtime.toFormattedString() << ".\n";
    g_log.notice() << "Log start time = " << m_timeVec[0].toFormattedString() << "; "
                   << "Log end time = " << m_timeVec.back().toFormattedString() << ".\n";
  }
 
  double sum_deltaT1 = 0.0; // sum(dt  ) in second
  double sum_deltaT2 = 0.0; // sum(dt^2) in second^2
  double max_dt = 0;
  double min_dt = 0;
  if (runduration_sec > 0)
    min_dt = runduration_sec;
 
  size_t numpts = m_timeVec.size();
  for (size_t i = 0; i < numpts - 1; ++i) {
    int64_t dtns = m_timeVec[i + 1].totalNanoseconds() - m_timeVec[i].totalNanoseconds();
    double dt = static_cast<double>(dtns) * 1.0E-9; // in second
 
    if (dt < 0) {
      g_log.warning() << "Reversed dT: dt = " << dt << " between " << m_timeVec[i].toFormattedString() << " and "
                      << m_timeVec[i + 1].toFormattedString() << " @ index = " << i << ".\n";
    }
 
    sum_deltaT1 += dt;
    sum_deltaT2 += dt * dt;
 
    if (dt > max_dt)
      max_dt = dt;
    if (dt < min_dt)
      min_dt = dt;
  }
 
  double avg_dt = sum_deltaT1 / static_cast<double>(numpts - 1);
  double std_dt = sqrt(sum_deltaT2 / static_cast<double>(numpts - 1) - avg_dt * avg_dt);
 
  m_dblInfoMap.emplace("Average(dT)", avg_dt);
  m_dblInfoMap.emplace("Sigma(dt)", std_dt);
  m_dblInfoMap.emplace("Min(dT)", min_dt);
  m_dblInfoMap.emplace("Max(dT)", max_dt);
 
  // 3. Count number of time intervals beyond 10% of deviation
  /* Temporarily disabled
  for (size_t i = 1; ; i ++)
  {
    int64_t dtns =
  m_timeVec[i].totalNanoseconds()-m_timeVec[i-1].totalNanoseconds();
    double dtms = static_cast<double>(dtns)*1.0E-3;
 
    if (dtms > dtmsA10p)
      numdtabove10p ++;
    else if (dtms < dtmsB10p)
      numdtbelow10p ++;
 
  } // ENDFOR
  */
 
  // 4. Output
  /* Temporily disabled
  g_log.notice() << "Run Start = " << t0.totalNanoseconds() << '\n';
  g_log.notice() << "First Log: " << "Absolute Time = " <<
  m_timeVec[0].totalNanoseconds() << "(ns), "
                 << "Relative Time = " <<
  DateAndTime::nanosecondsFromDuration(dts) << "(ns) \n";
  g_log.notice() << "Last  Log: " << "Absolute Time = " <<
  m_timeVec[f].totalNanoseconds() << "(ns), "
                 << "Relative Time = " <<
  DateAndTime::nanosecondsFromDuration(dtf) << "(ns) \n";
  g_log.notice() << "Normal   dt = " << numnormal << '\n';
  g_log.notice() << "Zero     dt = " << numsame << '\n';
  g_log.notice() << "Negative dt = " << numinvert << '\n';
  g_log.notice() << "Avg d(T) = " << dt << " seconds +/- " << stddt << ",
  Frequency = " << 1.0/dt << '\n';
  g_log.notice() << "d(T) (unit ms) is in range [" << mindtms << ", " << maxdtms
  << "]"<< '\n';
  g_log.notice() << "Number of d(T) 10% larger than average  = " <<
  numdtabove10p << '\n';
  g_log.notice() << "Number of d(T) 10% smaller than average = " <<
  numdtbelow10p << '\n';
 
  g_log.notice() << "Size of timevec = " << m_timeVec.size() << '\n';
  */
}
 
void GetTimeSeriesLogInformation::checkLogValueChanging(vector<DateAndTime> timevec, vector<double> values,
                                                        double delta) {
  std::stringstream ss;
  ss << "Alternating Threashold = " << delta << '\n';
 
  size_t numchange = 0;
  for (size_t i = 1; i < values.size(); i++) {
    double tempdelta = values[i] - values[i - 1];
    if (fabs(tempdelta) < delta) {
      // Value are 'same'
      numchange++;
 
      // An error message
      ss << "@ " << i << "\tDelta = " << tempdelta << "\t\tTime From " << timevec[i - 1].totalNanoseconds() << " to "
         << timevec[i].totalNanoseconds() << '\n';
    }
  }
 
  m_intInfoMap.insert(make_pair("Number of adjacent time stamp w/o value change", numchange));
  g_log.debug() << ss.str();
}
 
} // namespace Mantid::Algorithms