mirror of
https://github.com/bolero-MURAKAMI/Sprout.git
synced 2024-12-23 21:25:49 +00:00
248 lines
7.6 KiB
C++
248 lines
7.6 KiB
C++
#ifndef SPROUT_MATH_BERNOULLI_HPP
|
|
#define SPROUT_MATH_BERNOULLI_HPP
|
|
|
|
#include <cstddef>
|
|
#include <stdexcept>
|
|
#include <type_traits>
|
|
#include <sprout/config.hpp>
|
|
#include <sprout/array/array.hpp>
|
|
|
|
namespace sprout {
|
|
namespace math {
|
|
namespace detail {
|
|
# define SPROUT_BERNOULLI_TABLE_DEF_FLOAT \
|
|
table_type{{ \
|
|
1.F, \
|
|
1.F / 6, \
|
|
-1.F / 30, \
|
|
1.F / 42, \
|
|
-1.F / 30, \
|
|
5.F / 66, \
|
|
-691.F / 2730, \
|
|
7.F / 6, \
|
|
-3617.F / 510, \
|
|
43867.F / 798, \
|
|
-174611.F / 330, \
|
|
854513.F / 138, \
|
|
-236364091.F / 2730, \
|
|
8553103.F / 6, \
|
|
-236364091.F / 870, \
|
|
8615841276005.F / 14322, \
|
|
-7709321041217.F / 510, \
|
|
2577687858367.F / 6, \
|
|
-26315271553053477373.F / 1919190, \
|
|
2929993913841559.F / 6, \
|
|
-261082718496449122051.F / 13530, \
|
|
1520097643918070802691.F / 1806, \
|
|
-2.783326957930102423502e22F / 690, \
|
|
5.96451111593912163278e23F / 282, \
|
|
-1.20866265222965259346e23F, \
|
|
7.500866746076964366856e24F, \
|
|
-5.038778101481068914138e26F, \
|
|
3.65287764848181233351e28F, \
|
|
-2.849876930245088222627e30F, \
|
|
2.386542749968362764465e32F, \
|
|
-2.139994925722533366581e34F, \
|
|
2.050097572347809756992e36F, \
|
|
-2.09380059113463784091e38F \
|
|
}}
|
|
# define SPROUT_BERNOULLI_TABLE_DEF_DOUBLE \
|
|
table_type{{ \
|
|
1., \
|
|
1. / 6, \
|
|
-1. / 30, \
|
|
1. / 42, \
|
|
-1. / 30, \
|
|
5. / 66, \
|
|
-691. / 2730, \
|
|
7. / 6, \
|
|
-3617. / 510, \
|
|
43867. / 798, \
|
|
-174611. / 330, \
|
|
854513. / 138, \
|
|
-236364091. / 2730, \
|
|
8553103. / 6, \
|
|
-236364091. / 870, \
|
|
8615841276005. / 14322, \
|
|
-7709321041217. / 510, \
|
|
2577687858367. / 6, \
|
|
-26315271553053477373. / 1919190, \
|
|
2929993913841559. / 6, \
|
|
-261082718496449122051. / 13530, \
|
|
1520097643918070802691. / 1806, \
|
|
-2.783326957930102423502e22 / 690, \
|
|
5.96451111593912163278e23 / 282, \
|
|
-1.20866265222965259346e23, \
|
|
7.500866746076964366856e24, \
|
|
-5.038778101481068914138e26, \
|
|
3.65287764848181233351e28, \
|
|
-2.849876930245088222627e30, \
|
|
2.386542749968362764465e32, \
|
|
-2.139994925722533366581e34, \
|
|
2.050097572347809756992e36, \
|
|
-2.09380059113463784091e38, \
|
|
2.275269648846351555965e40, \
|
|
-2.62577102862395760473e42, \
|
|
3.21250821027180325182e44, \
|
|
-4.159827816679471091392e46, \
|
|
5.692069548203528002388e48, \
|
|
-8.21836294197845756923e50, \
|
|
1.250290432716699301673e53, \
|
|
-2.001558323324837027493e55, \
|
|
3.36749829153643742334e57, \
|
|
-5.947097050313544771866e59, \
|
|
1.101191032362797755956e62, \
|
|
-2.135525954525350118866e64, \
|
|
4.332889698664119241962e66, \
|
|
-9.18855282416693282262e68 , \
|
|
2.034689677632907449346e71, \
|
|
-4.70038339580357310786e73, \
|
|
1.131804344548424927068e76, \
|
|
-2.838224957069370695926e78 \
|
|
}}
|
|
# define SPROUT_BERNOULLI_TABLE_DEF_LONG_DOUBLE \
|
|
table_type{{ \
|
|
1.L, \
|
|
1.L / 6, \
|
|
-1.L / 30, \
|
|
1.L / 42, \
|
|
-1.L / 30, \
|
|
5.L / 66, \
|
|
-691.L / 2730, \
|
|
7.L / 6, \
|
|
-3617.L / 510, \
|
|
43867.L / 798, \
|
|
-174611.L / 330, \
|
|
854513.L / 138, \
|
|
-236364091.L / 2730, \
|
|
8553103.L / 6, \
|
|
-236364091.L / 870, \
|
|
8615841276005.L / 14322, \
|
|
-7709321041217.L / 510, \
|
|
2577687858367.L / 6, \
|
|
-26315271553053477373.L / 1919190, \
|
|
2929993913841559.L / 6, \
|
|
-261082718496449122051.L / 13530, \
|
|
1520097643918070802691.L / 1806, \
|
|
-2.783326957930102423502e22L / 690, \
|
|
5.96451111593912163278e23L / 282, \
|
|
-1.20866265222965259346e23L, \
|
|
7.500866746076964366856e24L, \
|
|
-5.038778101481068914138e26L, \
|
|
3.65287764848181233351e28L, \
|
|
-2.849876930245088222627e30L, \
|
|
2.386542749968362764465e32L, \
|
|
-2.139994925722533366581e34L, \
|
|
2.050097572347809756992e36L, \
|
|
-2.09380059113463784091e38L, \
|
|
2.275269648846351555965e40L, \
|
|
-2.62577102862395760473e42L, \
|
|
3.21250821027180325182e44L, \
|
|
-4.159827816679471091392e46L, \
|
|
5.692069548203528002388e48L, \
|
|
-8.21836294197845756923e50L, \
|
|
1.250290432716699301673e53L, \
|
|
-2.001558323324837027493e55L, \
|
|
3.36749829153643742334e57L, \
|
|
-5.947097050313544771866e59L, \
|
|
1.101191032362797755956e62L, \
|
|
-2.135525954525350118866e64L, \
|
|
4.332889698664119241962e66L, \
|
|
-9.18855282416693282262e68L, \
|
|
2.034689677632907449346e71L, \
|
|
-4.70038339580357310786e73L, \
|
|
1.131804344548424927068e76L, \
|
|
-2.838224957069370695926e78L \
|
|
}}
|
|
|
|
template<typename T>
|
|
struct bernoulli_numbers;
|
|
|
|
template<>
|
|
struct bernoulli_numbers<float> {
|
|
public:
|
|
typedef float type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR std::size_t limit = 64;
|
|
public:
|
|
typedef sprout::array<type, limit / 2 + 1> table_type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR table_type table
|
|
SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_INNER(SPROUT_BERNOULLI_TABLE_DEF_FLOAT)
|
|
;
|
|
};
|
|
SPROUT_CONSTEXPR_OR_CONST typename sprout::math::detail::bernoulli_numbers<
|
|
float
|
|
>::table_type sprout::math::detail::bernoulli_numbers<
|
|
float
|
|
>::table SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_OUTER(SPROUT_BERNOULLI_TABLE_DEF_FLOAT);
|
|
|
|
template<>
|
|
struct bernoulli_numbers<double> {
|
|
public:
|
|
typedef double type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR std::size_t limit = 100;
|
|
public:
|
|
typedef sprout::array<type, limit / 2 + 1> table_type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR table_type table
|
|
SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_INNER(SPROUT_BERNOULLI_TABLE_DEF_DOUBLE)
|
|
;
|
|
};
|
|
SPROUT_CONSTEXPR_OR_CONST typename sprout::math::detail::bernoulli_numbers<
|
|
double
|
|
>::table_type sprout::math::detail::bernoulli_numbers<
|
|
double
|
|
>::table SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_OUTER(SPROUT_BERNOULLI_TABLE_DEF_DOUBLE);
|
|
|
|
template<>
|
|
struct bernoulli_numbers<long double> {
|
|
public:
|
|
typedef long double type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR std::size_t limit = 100;
|
|
public:
|
|
typedef sprout::array<type, limit / 2 + 1> table_type;
|
|
public:
|
|
SPROUT_STATIC_CONSTEXPR table_type table
|
|
SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_INNER(SPROUT_BERNOULLI_TABLE_DEF_LONG_DOUBLE)
|
|
;
|
|
};
|
|
SPROUT_CONSTEXPR_OR_CONST typename sprout::math::detail::bernoulli_numbers<
|
|
long double
|
|
>::table_type sprout::math::detail::bernoulli_numbers<
|
|
long double
|
|
>::table SPROUT_STATIC_CONSTEXPR_DATA_MEMBER_OUTER(SPROUT_BERNOULLI_TABLE_DEF_LONG_DOUBLE);
|
|
|
|
# undef SPROUT_BERNOULLI_TABLE_DEF_FLOAT
|
|
# undef SPROUT_BERNOULLI_TABLE_DEF_DOUBLE
|
|
# undef SPROUT_BERNOULLI_TABLE_DEF_LONG_DOUBLE
|
|
} // namespace detail
|
|
//
|
|
// bernoulli_number_limit
|
|
//
|
|
template<typename T, typename = typename std::enable_if<std::is_floating_point<T>::value>::type>
|
|
inline SPROUT_CONSTEXPR std::size_t bernoulli_number_limit() {
|
|
typedef typename std::remove_cv<T>::type type;
|
|
return sprout::math::detail::bernoulli_numbers<type>::limit;
|
|
}
|
|
//
|
|
// bernoulli_number
|
|
//
|
|
template<typename T, typename = typename std::enable_if<std::is_floating_point<T>::value>::type>
|
|
inline SPROUT_CONSTEXPR T bernoulli_number(std::size_t x) {
|
|
typedef typename std::remove_cv<T>::type type;
|
|
return x <= sprout::math::bernoulli_number_limit<type>()
|
|
? x == 1 ? type(-1) / 2
|
|
: x % 2 ? type(0)
|
|
: sprout::math::detail::bernoulli_numbers<type>::table[x / 2]
|
|
: throw std::invalid_argument("bernoulli_number(): argument limit exceeded")
|
|
;
|
|
}
|
|
} // namespace math
|
|
|
|
using sprout::math::bernoulli_number;
|
|
} // namespace sprout
|
|
|
|
#endif // #ifndef SPROUT_MATH_BERNOULLI_HPP
|