2014-02-12 18:39:17 +00:00
|
|
|
/*
|
|
|
|
* StatArray.hpp, part of LatAnalyze 3
|
|
|
|
*
|
|
|
|
* Copyright (C) 2013 - 2014 Antonin Portelli
|
|
|
|
*
|
|
|
|
* LatAnalyze 3 is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* LatAnalyze 3 is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with LatAnalyze 3. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef Latan_StatArray_hpp_
|
|
|
|
#define Latan_StatArray_hpp_
|
|
|
|
|
2014-03-13 18:51:01 +00:00
|
|
|
#include <LatAnalyze/Global.hpp>
|
|
|
|
#include <LatAnalyze/Mat.hpp>
|
2014-02-17 18:48:44 +00:00
|
|
|
#include <iostream>
|
2014-02-12 18:39:17 +00:00
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
#define FOR_STAT_ARRAY(ar, i) \
|
|
|
|
for (Latan::Index i = -(ar).offset; i < (ar).size(); ++i)
|
|
|
|
|
2015-01-28 17:15:05 +00:00
|
|
|
BEGIN_LATAN_NAMESPACE
|
2014-02-12 18:39:17 +00:00
|
|
|
|
|
|
|
/******************************************************************************
|
|
|
|
* Array class with statistics *
|
|
|
|
******************************************************************************/
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os = 0>
|
2014-02-26 18:36:29 +00:00
|
|
|
class StatArray: public Array<T, dynamic, 1>
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-04-07 19:29:47 +01:00
|
|
|
protected:
|
2014-02-26 18:36:29 +00:00
|
|
|
typedef Array<T, dynamic, 1> Base;
|
2014-02-12 18:39:17 +00:00
|
|
|
public:
|
|
|
|
// constructors
|
|
|
|
StatArray(void);
|
2014-03-03 14:21:37 +00:00
|
|
|
explicit StatArray(const Index size);
|
2014-03-17 15:00:59 +00:00
|
|
|
EIGEN_EXPR_CTOR(StatArray, unique_arg(StatArray<T, os>), Base, ArrayExpr)
|
2014-02-12 18:39:17 +00:00
|
|
|
// destructor
|
2014-02-20 22:54:11 +00:00
|
|
|
virtual ~StatArray(void) = default;
|
2014-02-17 18:48:44 +00:00
|
|
|
// access
|
2014-02-26 18:36:29 +00:00
|
|
|
Index size(void) const;
|
2014-03-12 19:03:36 +00:00
|
|
|
void resize(const Index size);
|
2014-02-17 18:48:44 +00:00
|
|
|
// operators
|
2014-03-03 12:41:48 +00:00
|
|
|
T & operator[](const Index s);
|
|
|
|
const T & operator[](const Index s) const;
|
2014-02-12 18:39:17 +00:00
|
|
|
// statistics
|
2014-02-26 18:36:29 +00:00
|
|
|
void bin(Index binSize);
|
2014-03-12 19:03:36 +00:00
|
|
|
T mean(const Index pos = 0, const Index n = -1) const;
|
2014-02-17 18:48:44 +00:00
|
|
|
T mean(void) const;
|
2014-03-12 19:03:36 +00:00
|
|
|
T covariance(const StatArray<T, os> &array, const Index pos = 0,
|
|
|
|
const Index n = -1) const;
|
|
|
|
T covarianceMatrix(const StatArray<T, os> &array, const Index pos = 0,
|
|
|
|
const Index n = -1) const;
|
|
|
|
T variance(const Index pos = 0, const Index n = -1) const;
|
|
|
|
T varianceMatrix(const Index pos = 0, const Index n = -1) const;
|
2014-03-04 17:16:36 +00:00
|
|
|
public:
|
|
|
|
static const Index offset = os;
|
2014-02-12 18:39:17 +00:00
|
|
|
};
|
|
|
|
|
2014-02-17 18:48:44 +00:00
|
|
|
// reduction operations
|
|
|
|
namespace ReducOp
|
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
// general templates
|
2014-02-17 18:48:44 +00:00
|
|
|
template <typename T>
|
2014-03-12 19:03:36 +00:00
|
|
|
inline T prod(const T &a, const T &b);
|
|
|
|
template <typename T>
|
|
|
|
inline T tensProd(const T &v1, const T &v2);
|
2014-02-17 18:48:44 +00:00
|
|
|
template <typename T>
|
|
|
|
inline T sum(const T &a, const T &b);
|
2014-03-12 19:03:36 +00:00
|
|
|
// matrix specializations
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
2014-02-12 18:39:17 +00:00
|
|
|
|
2014-03-12 19:23:22 +00:00
|
|
|
// Sample types
|
|
|
|
#define SAMPLE_OFFSET 1
|
|
|
|
|
|
|
|
const int central = -SAMPLE_OFFSET;
|
|
|
|
|
|
|
|
template <typename T>
|
|
|
|
using Sample = StatArray<T, SAMPLE_OFFSET>;
|
|
|
|
|
2014-04-15 17:29:54 +01:00
|
|
|
typedef Sample<double> DSample;
|
|
|
|
typedef Sample<std::complex<double>> CSample;
|
2014-03-12 19:23:22 +00:00
|
|
|
|
2014-02-12 18:39:17 +00:00
|
|
|
/******************************************************************************
|
|
|
|
* StatArray class template implementation *
|
|
|
|
******************************************************************************/
|
|
|
|
// constructors ////////////////////////////////////////////////////////////////
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
StatArray<T, os>::StatArray(void)
|
|
|
|
: Base(static_cast<typename Base::Index>(os))
|
2014-02-12 18:39:17 +00:00
|
|
|
{}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
StatArray<T, os>::StatArray(const Index size)
|
|
|
|
: Base(static_cast<typename Base::Index>(size + os))
|
2014-02-12 18:39:17 +00:00
|
|
|
{}
|
|
|
|
|
2014-02-17 18:48:44 +00:00
|
|
|
// access //////////////////////////////////////////////////////////////////////
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
Index StatArray<T, os>::size(void) const
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-03-04 17:16:36 +00:00
|
|
|
return Base::size() - os;
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
|
2014-03-12 19:03:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
void StatArray<T, os>::resize(const Index size)
|
|
|
|
{
|
|
|
|
Base::resize(size + os);
|
|
|
|
}
|
|
|
|
|
2014-02-17 18:48:44 +00:00
|
|
|
// operators ///////////////////////////////////////////////////////////////////
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
T & StatArray<T, os>::operator[](const Index s)
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-03-04 17:16:36 +00:00
|
|
|
return Base::operator[](s + os);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
const T & StatArray<T, os>::operator[](const Index s) const
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-03-04 17:16:36 +00:00
|
|
|
return Base::operator[](s + os);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-02-12 18:39:17 +00:00
|
|
|
// statistics //////////////////////////////////////////////////////////////////
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
void StatArray<T, os>::bin(Index binSize)
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-02-26 18:36:29 +00:00
|
|
|
Index q = size()/binSize, r = size()%binSize;
|
2014-02-17 18:48:44 +00:00
|
|
|
|
2014-02-26 18:36:29 +00:00
|
|
|
for (Index i = 0; i < q; ++i)
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
|
|
|
(*this)[i] = mean(i*binSize, binSize);
|
|
|
|
}
|
|
|
|
if (r != 0)
|
|
|
|
{
|
|
|
|
(*this)[q] = mean(q*binSize, r);
|
2014-03-04 17:16:36 +00:00
|
|
|
this->conservativeResize(os + q + 1);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2014-03-04 17:16:36 +00:00
|
|
|
this->conservativeResize(os + q);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
|
|
|
T StatArray<T, os>::mean(const Index pos, const Index n) const
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-04-08 19:47:09 +01:00
|
|
|
T result = T();
|
2014-03-12 19:03:36 +00:00
|
|
|
const Index m = (n >= 0) ? n : size();
|
2014-02-12 18:39:17 +00:00
|
|
|
|
2014-03-12 19:03:36 +00:00
|
|
|
if (m)
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
result = this->segment(pos+os, m).redux(&ReducOp::sum<T>);
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
2014-02-17 18:48:44 +00:00
|
|
|
return result/static_cast<double>(n);
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
2014-03-12 19:03:36 +00:00
|
|
|
T StatArray<T, os>::covariance(const StatArray<T, os> &array, const Index pos,
|
|
|
|
const Index n) const
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-04-08 19:47:09 +01:00
|
|
|
T s1, s2, prs, res = T();
|
2014-03-12 19:03:36 +00:00
|
|
|
const Index m = (n >= 0) ? n : size();
|
|
|
|
|
|
|
|
if (m)
|
|
|
|
{
|
|
|
|
auto arraySeg = array.segment(pos+os, m);
|
|
|
|
auto thisSeg = this->segment(pos+os, m);
|
|
|
|
|
|
|
|
s1 = thisSeg.redux(&ReducOp::sum<T>);
|
|
|
|
s2 = arraySeg.redux(&ReducOp::sum<T>);
|
|
|
|
prs = thisSeg.binaryExpr(arraySeg, &ReducOp::prod<T>)
|
|
|
|
.redux(&ReducOp::sum<T>);
|
|
|
|
res = prs - ReducOp::prod(s1, s2)/static_cast<double>(m);
|
|
|
|
}
|
|
|
|
|
|
|
|
return res/static_cast<double>(m - 1);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
2014-03-12 19:03:36 +00:00
|
|
|
T StatArray<T, os>::covarianceMatrix(const StatArray<T, os> &array,
|
|
|
|
const Index pos, const Index n) const
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-04-08 19:47:09 +01:00
|
|
|
T s1, s2, prs, res = T();
|
2014-03-12 19:03:36 +00:00
|
|
|
const Index m = (n >= 0) ? n : size();
|
2014-02-12 18:39:17 +00:00
|
|
|
|
2014-03-12 19:03:36 +00:00
|
|
|
if (m)
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
auto arraySeg = array.segment(pos+os, m);
|
|
|
|
auto thisSeg = this->segment(pos+os, m);
|
|
|
|
|
|
|
|
s1 = thisSeg.redux(&ReducOp::sum<T>);
|
|
|
|
s2 = arraySeg.redux(&ReducOp::sum<T>);
|
|
|
|
prs = thisSeg.binaryExpr(arraySeg, &ReducOp::tensProd<T>)
|
|
|
|
.redux(&ReducOp::sum<T>);
|
|
|
|
res = prs - ReducOp::tensProd(s1, s2)/static_cast<double>(m);
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
2014-03-12 19:03:36 +00:00
|
|
|
return res/static_cast<double>(m - 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
template <typename T, Index os>
|
|
|
|
T StatArray<T, os>::variance(const Index pos, const Index n) const
|
|
|
|
{
|
|
|
|
return covariance(*this, pos, n);
|
2014-02-17 18:48:44 +00:00
|
|
|
}
|
|
|
|
|
2014-03-04 17:16:36 +00:00
|
|
|
template <typename T, Index os>
|
2014-03-12 19:03:36 +00:00
|
|
|
T StatArray<T, os>::varianceMatrix(const Index pos, const Index n) const
|
2014-02-17 18:48:44 +00:00
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
return covarianceMatrix(*this, pos, n);
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
2014-02-17 18:48:44 +00:00
|
|
|
// reduction operations ////////////////////////////////////////////////////////
|
2014-02-12 18:39:17 +00:00
|
|
|
template <typename T>
|
2014-02-17 18:48:44 +00:00
|
|
|
inline T ReducOp::sum(const T &a, const T &b)
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
|
|
|
return a + b;
|
|
|
|
}
|
|
|
|
|
|
|
|
template <typename T>
|
2014-03-12 19:03:36 +00:00
|
|
|
inline T ReducOp::prod(const T &a, const T &b)
|
|
|
|
{
|
|
|
|
return a*b;
|
|
|
|
}
|
|
|
|
|
|
|
|
template <typename T>
|
|
|
|
inline T ReducOp::tensProd(const T &v1 __unused, const T &v2 __unused)
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
LATAN_ERROR(Implementation,
|
|
|
|
"tensorial product not implemented for this type");
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
template <>
|
2014-04-07 18:08:52 +01:00
|
|
|
inline Mat<double> ReducOp::prod(const Mat<double> &a, const Mat<double> &b)
|
2014-02-12 18:39:17 +00:00
|
|
|
{
|
2014-03-12 19:03:36 +00:00
|
|
|
return a.cwiseProduct(b);
|
|
|
|
}
|
|
|
|
|
|
|
|
template <>
|
2014-04-07 18:08:52 +01:00
|
|
|
inline Mat<double> ReducOp::tensProd(const Mat<double> &v1,
|
|
|
|
const Mat<double> &v2)
|
2014-03-12 19:03:36 +00:00
|
|
|
{
|
|
|
|
if ((v1.cols() != 1)||(v2.cols() != 1))
|
|
|
|
{
|
2014-04-07 18:08:52 +01:00
|
|
|
LATAN_ERROR(Size,
|
2014-03-12 19:03:36 +00:00
|
|
|
"tensorial product is only valid with column vectors");
|
|
|
|
}
|
|
|
|
|
|
|
|
return v1*v2.transpose();
|
2014-02-12 18:39:17 +00:00
|
|
|
}
|
|
|
|
|
2015-01-28 17:15:05 +00:00
|
|
|
END_LATAN_NAMESPACE
|
2014-02-12 18:39:17 +00:00
|
|
|
|
|
|
|
#endif // Latan_StatArray_hpp_
|