mirror of
https://github.com/aportelli/LatAnalyze.git
synced 2024-09-20 05:25:37 +01:00
143 lines
4.4 KiB
C++
143 lines
4.4 KiB
C++
/*
|
|
* TabFunction.cpp, part of LatAnalyze 3
|
|
*
|
|
* Copyright (C) 2013 - 2015 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/>.
|
|
*/
|
|
|
|
#include <LatAnalyze/TabFunction.hpp>
|
|
#include <LatAnalyze/includes.hpp>
|
|
|
|
using namespace std;
|
|
using namespace Latan;
|
|
|
|
/******************************************************************************
|
|
* TabFunction implementation *
|
|
******************************************************************************/
|
|
// constructors ////////////////////////////////////////////////////////////////
|
|
TabFunction::TabFunction(const DVec &x, const DVec &y,
|
|
const InterpType interpType)
|
|
: interpType_(interpType)
|
|
{
|
|
setData(x, y);
|
|
}
|
|
|
|
TabFunction::TabFunction(const XYStatData &data, const Index i, const Index j,
|
|
const InterpType interpType)
|
|
: interpType_(interpType)
|
|
{
|
|
setData(data, i, j);
|
|
}
|
|
|
|
// access //////////////////////////////////////////////////////////////////////
|
|
void TabFunction::setData(const DVec &x, const DVec &y)
|
|
{
|
|
if (x.size() != y.size())
|
|
{
|
|
LATAN_ERROR(Size, "tabulated function x/y data size mismatch");
|
|
}
|
|
FOR_VEC(x, i)
|
|
{
|
|
value_[x(i)] = y(i);
|
|
}
|
|
}
|
|
|
|
void TabFunction::setData(const XYStatData &data, const Index i, const Index j)
|
|
{
|
|
setData(data.x(i), data.y(j));
|
|
}
|
|
|
|
// function call ///////////////////////////////////////////////////////////////
|
|
double TabFunction::operator()(const double *arg) const
|
|
{
|
|
double result = 0.0, x = arg[0];
|
|
|
|
|
|
if ((x < value_.begin()->first) || (x >= value_.rbegin()->first)) {
|
|
LATAN_ERROR(Range, "tabulated function variable out of range "
|
|
"(x= " + strFrom(x) + " not in ["
|
|
+ strFrom(value_.begin()->first) + ", "
|
|
+ strFrom(value_.rbegin()->first) + "])");
|
|
}
|
|
|
|
switch (interpType_) {
|
|
case InterpType::LINEAR: {
|
|
double x_a, x_b, y_a, y_b;
|
|
|
|
auto i = value_.equal_range(x);
|
|
auto low = (x == i.first->first) ? i.first : prev(i.first);
|
|
auto high = i.second;
|
|
|
|
x_a = low->first;
|
|
x_b = high->first;
|
|
y_a = low->second;
|
|
y_b = high->second;
|
|
result = y_a + (x - x_a) * (y_b - y_a) / (x_b - x_a);
|
|
break;
|
|
}
|
|
case InterpType::NEAREST: {
|
|
auto it = value_.upper_bound(x);
|
|
auto upper_pair = *it;
|
|
auto lower_pair = *(--it);
|
|
if (fabs(upper_pair.first - x) < fabs(lower_pair.first - x)) {
|
|
result = upper_pair.second;
|
|
}
|
|
else {
|
|
result = lower_pair.second;
|
|
}
|
|
break;
|
|
}
|
|
case InterpType::QUADRATIC:
|
|
default:
|
|
int intType = static_cast<int>(interpType_);
|
|
LATAN_ERROR(Implementation, "unsupported interpolation type in "
|
|
"tabulated function: "
|
|
+ strFrom(intType));
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
// DoubleFunction factory //////////////////////////////////////////////////////
|
|
DoubleFunction TabFunction::makeFunction(const bool makeHardCopy) const
|
|
{
|
|
DoubleFunction res;
|
|
|
|
if (makeHardCopy)
|
|
{
|
|
TabFunction copy(*this);
|
|
|
|
res.setFunction([copy](const double *x){return copy(x);}, 1);
|
|
}
|
|
else
|
|
{
|
|
res.setFunction([this](const double *x){return (*this)(x);}, 1);
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
DoubleFunction Latan::interpolate(const DVec &x, const DVec &y,
|
|
const InterpType interpType)
|
|
{
|
|
return TabFunction(x, y, interpType).makeFunction();
|
|
}
|
|
|
|
DoubleFunction Latan::interpolate(const XYStatData &data, const Index i,
|
|
const Index j, const InterpType interpType)
|
|
{
|
|
return TabFunction(data, i, j, interpType).makeFunction();
|
|
}
|