@@ -1,7 +1,7 @@ | |||
// | |||
// LolRemez - Remez algorithm implementation | |||
// | |||
// Copyright © 2005-2015 Sam Hocevar <sam@hocevar.net> | |||
// Copyright © 2005—2015 Sam Hocevar <sam@hocevar.net> | |||
// | |||
// This program is free software. It comes without any warranty, to | |||
// the extent permitted by applicable law. You can redistribute it | |||
@@ -317,21 +317,21 @@ private: | |||
// r_mul <- "*" r_factor | |||
// r_div <- "/" r_factor | |||
// term <- r_factor ( r_mul / r_div ) * | |||
// r_term <- r_factor ( r_mul / r_div ) * | |||
struct r_mul : ifapply<seq<_, one<'*'>, _, r_factor>, do_op<op::mul>> {}; | |||
struct r_div : ifapply<seq<_, one<'/'>, _, r_factor>, do_op<op::div>> {}; | |||
struct r_term : seq<r_factor, | |||
star<sor<r_mul, r_div>>> {}; | |||
// add <- "+" r_term | |||
// sub <- "-" r_term | |||
// r_expr <- r_term ( add / sub ) * | |||
// r_add <- "+" r_term | |||
// r_sub <- "-" r_term | |||
// r_expr <- r_term ( r_add / r_sub ) * | |||
struct r_add : ifapply<seq<_, one<'+'>, _, r_term>, do_op<op::add>> {}; | |||
struct r_sub : ifapply<seq<_, one<'-'>, _, r_term>, do_op<op::sub>> {}; | |||
struct r_expr : seq<r_term, | |||
star<sor<r_add, r_sub>>> {}; | |||
// stmt <- r_expr <end> | |||
// r_stmt <- r_expr <end> | |||
struct r_stmt : seq<_, r_expr, _, eof> {}; | |||
}; | |||
@@ -1,7 +1,7 @@ | |||
// | |||
// LolRemez - Remez algorithm implementation | |||
// | |||
// Copyright © 2005-2015 Sam Hocevar <sam@hocevar.net> | |||
// Copyright © 2005—2015 Sam Hocevar <sam@hocevar.net> | |||
// | |||
// This program is free software. It comes without any warranty, to | |||
// the extent permitted by applicable law. You can redistribute it | |||
@@ -1,7 +1,7 @@ | |||
// | |||
// LolRemez - Remez algorithm implementation | |||
// | |||
// Copyright © 2005-2015 Sam Hocevar <sam@hocevar.net> | |||
// Copyright © 2005—2015 Sam Hocevar <sam@hocevar.net> | |||
// | |||
// This program is free software. It comes without any warranty, to | |||
// the extent permitted by applicable law. You can redistribute it | |||
@@ -20,16 +20,16 @@ using namespace lol; | |||
*/ | |||
template<typename T> | |||
struct LinearSystem : public array2d<T> | |||
struct linear_system : public array2d<T> | |||
{ | |||
inline LinearSystem<T>(int cols) | |||
inline linear_system<T>(int cols) | |||
{ | |||
ASSERT(cols > 0); | |||
this->SetSize(ivec2(cols)); | |||
} | |||
void Init(T const &x) | |||
void init(T const &x) | |||
{ | |||
int const n = this->GetSize().x; | |||
@@ -39,12 +39,12 @@ struct LinearSystem : public array2d<T> | |||
} | |||
/* Naive matrix inversion */ | |||
LinearSystem<T> inverse() const | |||
linear_system<T> inverse() const | |||
{ | |||
int const n = this->GetSize().x; | |||
LinearSystem a(*this), b(n); | |||
linear_system a(*this), b(n); | |||
b.Init((T)1); | |||
b.init((T)1); | |||
/* Inversion method: iterate through all columns and make sure | |||
* all the terms are 1 on the diagonal and 0 everywhere else */ | |||
@@ -1,7 +1,7 @@ | |||
// | |||
// LolRemez - Remez algorithm implementation | |||
// | |||
// Copyright © 2005-2015 Sam Hocevar <sam@hocevar.net> | |||
// Copyright © 2005—2015 Sam Hocevar <sam@hocevar.net> | |||
// | |||
// This program is free software. It comes without any warranty, to | |||
// the extent permitted by applicable law. You can redistribute it | |||
@@ -91,9 +91,9 @@ void remez_solver::remez_init() | |||
fxn.Push(eval_func(m_zeroes[i])); | |||
} | |||
/* We build a matrix of Chebishev evaluations: row i contains the | |||
/* We build a matrix of Chebyshev evaluations: row i contains the | |||
* evaluations of x_i for polynomial order n = 0, 1, ... */ | |||
LinearSystem<real> system(m_order + 1); | |||
linear_system<real> system(m_order + 1); | |||
for (int n = 0; n < m_order + 1; n++) | |||
{ | |||
auto p = polynomial<real>::chebyshev(n); | |||
@@ -127,9 +127,9 @@ void remez_solver::remez_step() | |||
for (int i = 0; i < m_order + 2; i++) | |||
fxn.Push(eval_func(m_control[i])); | |||
/* We build a matrix of Chebishev evaluations: row i contains the | |||
/* We build a matrix of Chebyshev evaluations: row i contains the | |||
* evaluations of x_i for polynomial order n = 0, 1, ... */ | |||
LinearSystem<real> system(m_order + 2); | |||
linear_system<real> system(m_order + 2); | |||
for (int n = 0; n < m_order + 1; n++) | |||
{ | |||
auto p = polynomial<real>::chebyshev(n); | |||
@@ -173,7 +173,7 @@ void remez_solver::remez_step() | |||
*/ | |||
void remez_solver::find_zeroes() | |||
{ | |||
m_stats_cheby = m_stats_func = m_stats_weight = 0.f; | |||
Timer t; | |||
for (int i = 0; i < m_order + 1; i++) | |||
{ | |||
@@ -210,8 +210,7 @@ void remez_solver::find_zeroes() | |||
m_zeroes[i] = c.x; | |||
} | |||
printf(" -:- timings for zeroes: estimate %f func %f weight %f\n", | |||
m_stats_cheby, m_stats_func, m_stats_weight); | |||
printf(" -:- timing for zeroes: %f ms\n", t.Get() * 1000.f); | |||
} | |||
/* | |||
@@ -225,14 +224,14 @@ void remez_solver::find_zeroes() | |||
*/ | |||
void remez_solver::find_extrema() | |||
{ | |||
Timer t; | |||
using std::printf; | |||
m_control[0] = -1; | |||
m_control[m_order + 1] = 1; | |||
m_error = 0; | |||
m_stats_cheby = m_stats_func = m_stats_weight = 0.f; | |||
for (int i = 1; i < m_order + 1; i++) | |||
{ | |||
struct { real x, err; } a, b, c, d; | |||
@@ -277,8 +276,7 @@ void remez_solver::find_extrema() | |||
m_control[i] = c.x; | |||
} | |||
printf(" -:- timings for extrema: estimate %f func %f weight %f\n", | |||
m_stats_cheby, m_stats_func, m_stats_weight); | |||
printf(" -:- timing for extrema: %f ms\n", t.Get() * 1000.f); | |||
printf(" -:- error: "); | |||
m_error.print(m_decimals); | |||
printf("\n"); | |||
@@ -306,26 +304,17 @@ void remez_solver::print_poly() | |||
real remez_solver::eval_estimate(real const &x) | |||
{ | |||
Timer t; | |||
real ret = m_estimate.eval(x); | |||
m_stats_cheby += t.Get(); | |||
return ret; | |||
return m_estimate.eval(x); | |||
} | |||
real remez_solver::eval_func(real const &x) | |||
{ | |||
Timer t; | |||
real ret = m_func.eval(x * m_k2 + m_k1); | |||
m_stats_func += t.Get(); | |||
return ret; | |||
return m_func.eval(x * m_k2 + m_k1); | |||
} | |||
real remez_solver::eval_weight(real const &x) | |||
{ | |||
Timer t; | |||
real ret = m_has_weight ? m_weight.eval(x * m_k2 + m_k1) : real(1); | |||
m_stats_weight += t.Get(); | |||
return ret; | |||
return m_has_weight ? m_weight.eval(x * m_k2 + m_k1) : real(1); | |||
} | |||
real remez_solver::eval_error(real const &x) | |||
@@ -1,7 +1,7 @@ | |||
// | |||
// LolRemez - Remez algorithm implementation | |||
// | |||
// Copyright © 2005-2015 Sam Hocevar <sam@hocevar.net> | |||
// Copyright © 2005—2015 Sam Hocevar <sam@hocevar.net> | |||
// | |||
// This program is free software. It comes without any warranty, to | |||
// the extent permitted by applicable law. You can redistribute it | |||
@@ -56,10 +56,5 @@ private: | |||
lol::array<lol::real> m_control; | |||
lol::real m_k1, m_k2, m_epsilon, m_error; | |||
/* Statistics */ | |||
float m_stats_cheby; | |||
float m_stats_func; | |||
float m_stats_weight; | |||
}; | |||