[TMath] Add moving mean, moving median and mode

Author: pitkajuh

math/mathcore/inc/TMath.h

@@ -517,6 +517,10 @@ struct Limits {
    template <typename Iterator> Double_t Mean(Iterator first, Iterator last);
    template <typename Iterator, typename WeightIterator> Double_t Mean(Iterator first, Iterator last, WeightIterator wfirst);
 
+   template <typename T> T *MovMedian(Long64_t n, T *a, Long64_t k, Double_t *w = nullptr, Long64_t *work = nullptr);
+   template <typename T> T *MovMean(Long64_t n, T *a, Long64_t k, Double_t *w = nullptr);
+   template <typename T> Double_t Mode(const Long64_t n, T *a);
+
    template <typename T> Double_t GeomMean(Long64_t n, const T *a);
    template <typename Iterator> Double_t GeomMean(Iterator first, Iterator last);
 
@@ -1083,7 +1087,7 @@ Double_t TMath::Mean(Iterator first, Iterator last, WeightIterator w)
 }
 
 ////////////////////////////////////////////////////////////////////////////////
-/// Returns the weighted mean of an array a with length n.
+/// Returns the weighted mean of an array with a length n.
 
 template <typename T>
 Double_t TMath::Mean(Long64_t n, const T *a, const Double_t *w)
@@ -1095,6 +1099,184 @@ Double_t TMath::Mean(Long64_t n, const T *a, const Double_t *w)
    }
 }
 
+////////////////////////////////////////////////////////////////////////////////
+/// Returns the moving mean of an array with a length n.
+
+template <typename T>
+class Moving {
+public:
+   T *a0;
+   Double_t *w0;
+   Long64_t *work0;
+   Long64_t k0;
+   Long64_t n0;
+
+   virtual Double_t GetValue(Long64_t n, T *a, Double_t *w = nullptr, Long64_t *work = nullptr) = 0;
+   virtual ~Moving() {};
+
+   Moving(Long64_t n, T *a, Long64_t k, Double_t *w = nullptr, Long64_t *work = nullptr)
+   {
+      n0 = n;
+      a0 = a;
+      k0 = k;
+      w0 = w;
+      work0 = work;
+   }
+
+   template <typename U>
+   void SplitArray(U *v, U *v1, Int_t first, Int_t last)
+   {
+      int i = 0;
+
+      while (first <= last) {
+         v1[i] = v[first];
+         i++;
+         first++;
+      }
+   }
+
+   Double_t GetMoving(Long64_t n, Int_t first, Int_t last, Moving *sp)
+   {
+      Double_t result;
+      T *a1 = new T[n + 1];
+      SplitArray(a0, a1, first, last);
+
+      if (w0 != nullptr) {
+         Double_t *w1 = new Double_t[n + 1];
+         SplitArray(w0, w1, first, last);
+
+         if (work0 != nullptr) {
+            Long64_t *wrk1 = new Long64_t[n + 1];
+            SplitArray(work0, wrk1, first, last);
+            result = sp->GetValue(n, a1, w1, wrk1);
+            delete[] wrk1;
+         } else {
+            result = sp->GetValue(n, a1, w1);
+         }
+         delete[] w1;
+      } else {
+         result = sp->GetValue(n, a1);
+      }
+      delete[] a1;
+      return result;
+   }
+
+   T *GetResult(Moving *sp)
+   {
+      Long64_t kl = k0 / 2;
+      Long64_t kr = (k0 % 2) ? k0 / 2 : k0 / 2 - 1;
+      T *mov = new T[n0 + 1];
+
+      for (int i = 0; i != n0; i++) {
+         kl = (i < k0 / 2 and i > 0) ? i : k0 / 2;
+	 if (i + kr > n0 - 1) {
+	   kr--;
+	 }
+
+         if (i == 0) {
+            if (k0 > 2) {
+               mov[i] = sp->GetMoving(kr + 1, 0, kr + 1, sp);
+            } else {
+               mov[i] = sp->GetMoving(1, 0, 1, sp);
+            }
+         } else if (i == n0 - 1) {
+            mov[i] = sp->GetMoving(kl + 1, i - kl, i, sp);
+         } else {
+            mov[i] = sp->GetMoving(kl + kr + 1, i - kl, i + kr, sp);
+         }
+      }
+      return mov;
+   }
+};
+
+template <typename T>
+class MovingMean : public Moving<T> {
+public:
+   MovingMean(Long64_t n, T *a, Long64_t k, Double_t *w) : Moving<T>(n, a, k, w) {}
+
+   Double_t GetValue(Long64_t n, T *a, Double_t *w = nullptr, Long64_t *work = nullptr)
+   {
+      (void) work;
+      Double_t mean = TMath::Mean(n, a, w);
+      return mean;
+   }
+};
+
+template <typename T>
+T *TMath::MovMean(Long64_t n, T *a, Long64_t k, Double_t *w)
+{
+   if (n <= 2) {
+      Fatal("MovMean", "the length of the array must be >1");
+   }
+   if (k > n) {
+      Fatal("MovMean", "the window length k is larger than the length of the array");
+   }
+   if (k == 1) {
+      Fatal("MovMean", "the window length k must be >1");
+   }
+
+   MovingMean<T> *movmean = new MovingMean(n, a, k, w);
+   T *result = movmean->GetResult(movmean);
+   delete movmean;
+   return result;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+/// Returns the moving median of an array with a length n.
+
+template <typename T>
+class MovingMedian : public Moving<T> {
+public:
+   MovingMedian(Long64_t n, T *a, Long64_t k, Double_t *w, Long64_t *work) : Moving<T>(n, a, k, w, work) {}
+
+   Double_t GetValue(Long64_t n, T *a, Double_t *w, Long64_t *work)
+   {
+      Double_t median = TMath::Median(n, a, w, work);
+      return median;
+   }
+};
+
+template <typename T>
+T *TMath::MovMedian(Long64_t n, T *a, Long64_t k, Double_t *w, Long64_t *work)
+{
+   if (n <= 2) {
+      Fatal("MovMedian", "the length of the array must be >1");
+   }
+   if (k > n) {
+      Fatal("MovMedian", "the window length k is larger than the length of the array");
+   }
+   if (k == 1) {
+      Fatal("MovMedian", "the window length k must be >1");
+   }
+
+   MovingMedian<T> *movmedian = new MovingMedian(n, a, k, w, work);
+   T *result = movmedian->GetResult(movmedian);
+   delete movmedian;
+   return result;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+/// Returns the mode of an array. If there are an equal amount of
+/// different values, the smallest value will be returned.
+
+template <typename T>
+Double_t TMath::Mode(const Long64_t n, T *a)
+{
+   int N1 = 0;
+   int N2 = 0;
+   Double_t mode = 0;
+   std::sort(a, a + n);
+
+   for (Long64_t i = 0; i < n; i++) {
+      N2 = std::count(a, a + n, a[i]);
+      if (N2 > N1 && mode != a[i]) {
+         mode = a[i];
+      }
+      N1 = N2;
+   }
+   return mode;
+}
+
 ////////////////////////////////////////////////////////////////////////////////
 /// Returns the geometric mean of an array defined by the iterators.
 /// \f[ GeomMean = (\prod_{i=0}^{n-1} |a[i]|)^{1/n} \f]

math/mathcore/test/testTMath.cxx

@@ -36,6 +36,42 @@ void testNormCross()
    << endl;
 }
 
+template <typename T>
+void testMovingFunctions()
+{
+   const Long64_t n = 10;
+   const Long64_t k1 = 5;
+   const Long64_t k2 = 6;
+   T sa[n] = {2, 4, 6, 8, 10, 12, 14, 16, 18, 20};
+
+   const T meanresulta[n] = {4, 5, 6, 7, 9, 11, 13, 15, 16, 17};
+   const T medianresulta[n] = {4, 5, 6, 8, 10, 12, 14, 16, 17, 18};
+
+   Double_t w[n] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1};
+   Long64_t work[n] = {1, 1, 1, 1, 1, 1, 1, 1, 1, 1};
+
+   T *movmediana = TMath::MovMedian(n, sa, k1, w, work);
+   T *movmeana = TMath::MovMean(n, sa, k2, w);
+
+   // test results
+   bool ok1 = true;
+   bool ok2 = true;
+
+   for (Int_t i = 0; i < n && ok1 && ok2; i++) {
+      ok1 &= (meanresulta[i] == movmeana[i]);
+
+      if (!ok1)
+         Error("testMovingFunctions", "For MovMean, different values found at i = %d", i);
+
+      ok2 &= (medianresulta[i] == movmediana[i]);
+
+      if (!ok2)
+         Error("testMovingFunctions", "For MovMedian, different values found at i = %d", i);
+   }
+
+   delete[] movmediana;
+   delete[] movmeana;
+}
 
 template <typename T, typename U>
 void testArrayFunctions()
@@ -63,6 +99,7 @@ void testArrayFunctions()
         << " RMS: " << RMS(n, sa)
         << " Median: " << Median(n, sa)
         << " KOrdStat(3): " << KOrdStat(n, sa, k)
+        << " Mode: " << Mode(n, sa)
         << endl;
 
    Sort(n, sa, index, kFALSE);
@@ -183,6 +220,15 @@ void testTMath()
    testIteratorFunctions<Long_t>();
    testIteratorFunctions<Long64_t>();
 
+   cout << "\nMoving functions tests: " << endl;
+
+   testMovingFunctions<Short_t>();
+   testMovingFunctions<Int_t>();
+   testMovingFunctions<Float_t>();
+   testMovingFunctions<Double_t>();
+   testMovingFunctions<Long_t>();
+   testMovingFunctions<Long64_t>();
+
    cout << "\nPoint functions tests: " << endl;
 
    testPoints<Double_t>(1.3, 0.5);