Chris@16: // Copyright John Maddock 2008. Chris@16: // Use, modification and distribution are subject to the Chris@16: // Boost Software License, Version 1.0. Chris@16: // (See accompanying file LICENSE_1_0.txt Chris@16: // or copy at http://www.boost.org/LICENSE_1_0.txt) Chris@16: Chris@16: #ifndef BOOST_MATH_TR1_HPP Chris@16: #define BOOST_MATH_TR1_HPP Chris@16: Chris@16: #ifdef _MSC_VER Chris@16: #pragma once Chris@16: #endif Chris@16: Chris@16: #include // So we can check which std C lib we're using Chris@16: Chris@16: #ifdef __cplusplus Chris@16: Chris@16: #include Chris@16: #include Chris@16: Chris@16: namespace boost{ namespace math{ namespace tr1{ extern "C"{ Chris@16: Chris@16: #else Chris@16: Chris@16: #define BOOST_PREVENT_MACRO_SUBSTITUTION /**/ Chris@16: Chris@16: #endif // __cplusplus Chris@16: Chris@16: // we need to import/export our code only if the user has specifically Chris@16: // asked for it by defining either BOOST_ALL_DYN_LINK if they want all boost Chris@16: // libraries to be dynamically linked, or BOOST_MATH_TR1_DYN_LINK Chris@16: // if they want just this one to be dynamically liked: Chris@16: #if defined(BOOST_ALL_DYN_LINK) || defined(BOOST_MATH_TR1_DYN_LINK) Chris@16: // export if this is our own source, otherwise import: Chris@16: #ifdef BOOST_MATH_TR1_SOURCE Chris@16: # define BOOST_MATH_TR1_DECL BOOST_SYMBOL_EXPORT Chris@16: #else Chris@16: # define BOOST_MATH_TR1_DECL BOOST_SYMBOL_IMPORT Chris@16: #endif // BOOST_MATH_TR1_SOURCE Chris@16: #else Chris@16: # define BOOST_MATH_TR1_DECL Chris@16: #endif // DYN_LINK Chris@16: // Chris@16: // Set any throw specifications on the C99 extern "C" functions - these have to be Chris@16: // the same as used in the std lib if any. Chris@16: // Chris@16: #if defined(__GLIBC__) && defined(__THROW) Chris@16: # define BOOST_MATH_C99_THROW_SPEC __THROW Chris@16: #else Chris@16: # define BOOST_MATH_C99_THROW_SPEC Chris@16: #endif Chris@16: Chris@16: // Chris@16: // Now set up the libraries to link against: Chris@16: // Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) Chris@16: # define BOOST_LIB_NAME boost_math_c99 Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) Chris@16: # define BOOST_LIB_NAME boost_math_c99f Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) \ Chris@16: && !defined(BOOST_MATH_NO_LONG_DOUBLE_MATH_FUNCTIONS) Chris@16: # define BOOST_LIB_NAME boost_math_c99l Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) Chris@16: # define BOOST_LIB_NAME boost_math_tr1 Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) Chris@16: # define BOOST_LIB_NAME boost_math_tr1f Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: #if !defined(BOOST_MATH_TR1_NO_LIB) && !defined(BOOST_MATH_TR1_SOURCE) \ Chris@16: && !defined(BOOST_ALL_NO_LIB) && defined(__cplusplus) \ Chris@16: && !defined(BOOST_MATH_NO_LONG_DOUBLE_MATH_FUNCTIONS) Chris@16: # define BOOST_LIB_NAME boost_math_tr1l Chris@16: # if defined(BOOST_MATH_TR1_DYN_LINK) || defined(BOOST_ALL_DYN_LINK) Chris@16: # define BOOST_DYN_LINK Chris@16: # endif Chris@16: # include Chris@16: #endif Chris@16: Chris@16: #if !(defined(BOOST_INTEL) && defined(__APPLE__)) && !(defined(__FLT_EVAL_METHOD__) && !defined(__cplusplus)) Chris@16: #ifndef FLT_EVAL_METHOD Chris@16: typedef float float_t; Chris@16: typedef double double_t; Chris@16: #elif FLT_EVAL_METHOD == 0 Chris@16: typedef float float_t; Chris@16: typedef double double_t; Chris@16: #elif FLT_EVAL_METHOD == 1 Chris@16: typedef double float_t; Chris@16: typedef double double_t; Chris@16: #else Chris@16: typedef long double float_t; Chris@16: typedef long double double_t; Chris@16: #endif Chris@16: #endif Chris@16: Chris@16: // C99 Functions: Chris@16: double BOOST_MATH_TR1_DECL boost_acosh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_acoshf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_acoshl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_asinh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_asinhf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_asinhl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_atanh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_atanhf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_atanhl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_cbrtf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_cbrtl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_copysign BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_copysignf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_copysignl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_erf BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_erff BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_erfl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_erfc BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_erfcf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_erfcl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL boost_exp2 BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_exp2f BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_exp2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_expm1f BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_expm1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL boost_fdim BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_fdimf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_fdiml BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: double BOOST_MATH_TR1_DECL boost_fma BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y, double z) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_fmaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y, float z) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_fmal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y, long double z) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_fmax BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_fmaxf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_fmaxl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_fmin BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_fminf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_fminl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_hypot BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_hypotf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_hypotl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: int BOOST_MATH_TR1_DECL boost_ilogb BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: int BOOST_MATH_TR1_DECL boost_ilogbf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: int BOOST_MATH_TR1_DECL boost_ilogbl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_lgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_lgammal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #ifdef BOOST_HAS_LONG_LONG Chris@16: #if 0 Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llrint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llrintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llrintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llround BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llroundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: ::boost::long_long_type BOOST_MATH_TR1_DECL boost_llroundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_log1p BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_log1pf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_log1pl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL log2 BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL log2f BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL log2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL logb BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL logbf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL logbl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long BOOST_MATH_TR1_DECL lrint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long BOOST_MATH_TR1_DECL lrintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long BOOST_MATH_TR1_DECL lrintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: long BOOST_MATH_TR1_DECL boost_lround BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long BOOST_MATH_TR1_DECL boost_lroundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long BOOST_MATH_TR1_DECL boost_lroundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL nan BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL nanf BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL nanl BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str) BOOST_MATH_C99_THROW_SPEC; Chris@16: double BOOST_MATH_TR1_DECL nearbyint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL nearbyintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL nearbyintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_nextafterf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_nextafterl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_nexttowardf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_nexttowardl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL boost_remainder BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_remainderf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_remainderl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: double BOOST_MATH_TR1_DECL boost_remquo BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y, int *pquo) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_remquof BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y, int *pquo) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_remquol BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y, int *pquo) BOOST_MATH_C99_THROW_SPEC; Chris@16: double BOOST_MATH_TR1_DECL boost_rint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_rintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_rintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_round BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_roundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_roundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: double BOOST_MATH_TR1_DECL boost_scalbln BOOST_PREVENT_MACRO_SUBSTITUTION(double x, long ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_scalblnf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, long ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_scalblnl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: double BOOST_MATH_TR1_DECL boost_scalbn BOOST_PREVENT_MACRO_SUBSTITUTION(double x, int ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_scalbnf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, int ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_scalbnl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, int ex) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: double BOOST_MATH_TR1_DECL boost_tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_tgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_tgammal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: double BOOST_MATH_TR1_DECL boost_trunc BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_truncf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_truncl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.1] associated Laguerre polynomials: Chris@16: double BOOST_MATH_TR1_DECL boost_assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_assoc_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_assoc_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.2] associated Legendre functions: Chris@16: double BOOST_MATH_TR1_DECL boost_assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_assoc_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_assoc_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.3] beta function: Chris@16: double BOOST_MATH_TR1_DECL boost_beta BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_betaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_betal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.4] (complete) elliptic integral of the first kind: Chris@16: double BOOST_MATH_TR1_DECL boost_comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(double k) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_comp_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(float k) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_comp_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.5] (complete) elliptic integral of the second kind: Chris@16: double BOOST_MATH_TR1_DECL boost_comp_ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(double k) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_comp_ellint_2f BOOST_PREVENT_MACRO_SUBSTITUTION(float k) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_comp_ellint_2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.6] (complete) elliptic integral of the third kind: Chris@16: double BOOST_MATH_TR1_DECL boost_comp_ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double nu) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_comp_ellint_3f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float nu) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_comp_ellint_3l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double nu) BOOST_MATH_C99_THROW_SPEC; Chris@16: #if 0 Chris@16: // [5.2.1.7] confluent hypergeometric functions: Chris@16: double BOOST_MATH_TR1_DECL conf_hyperg BOOST_PREVENT_MACRO_SUBSTITUTION(double a, double c, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL conf_hypergf BOOST_PREVENT_MACRO_SUBSTITUTION(float a, float c, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL conf_hypergl BOOST_PREVENT_MACRO_SUBSTITUTION(long double a, long double c, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: // [5.2.1.8] regular modified cylindrical Bessel functions: Chris@16: double BOOST_MATH_TR1_DECL boost_cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_cyl_bessel_if BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_cyl_bessel_il BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.9] cylindrical Bessel functions (of the first kind): Chris@16: double BOOST_MATH_TR1_DECL boost_cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_cyl_bessel_jf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_cyl_bessel_jl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.10] irregular modified cylindrical Bessel functions: Chris@16: double BOOST_MATH_TR1_DECL boost_cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_cyl_bessel_kf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_cyl_bessel_kl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.11] cylindrical Neumann functions BOOST_MATH_C99_THROW_SPEC; Chris@16: // cylindrical Bessel functions (of the second kind): Chris@16: double BOOST_MATH_TR1_DECL boost_cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_cyl_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_cyl_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.12] (incomplete) elliptic integral of the first kind: Chris@16: double BOOST_MATH_TR1_DECL boost_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.13] (incomplete) elliptic integral of the second kind: Chris@16: double BOOST_MATH_TR1_DECL boost_ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_ellint_2f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_ellint_2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.14] (incomplete) elliptic integral of the third kind: Chris@16: double BOOST_MATH_TR1_DECL boost_ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double nu, double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_ellint_3f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float nu, float phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_ellint_3l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double nu, long double phi) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.15] exponential integral: Chris@16: double BOOST_MATH_TR1_DECL boost_expint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_expintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_expintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.16] Hermite polynomials: Chris@16: double BOOST_MATH_TR1_DECL boost_hermite BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_hermitef BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_hermitel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: #if 0 Chris@16: // [5.2.1.17] hypergeometric functions: Chris@16: double BOOST_MATH_TR1_DECL hyperg BOOST_PREVENT_MACRO_SUBSTITUTION(double a, double b, double c, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL hypergf BOOST_PREVENT_MACRO_SUBSTITUTION(float a, float b, float c, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL hypergl BOOST_PREVENT_MACRO_SUBSTITUTION(long double a, long double b, long double c, Chris@16: long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: #endif Chris@16: Chris@16: // [5.2.1.18] Laguerre polynomials: Chris@16: double BOOST_MATH_TR1_DECL boost_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.19] Legendre polynomials: Chris@16: double BOOST_MATH_TR1_DECL boost_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.20] Riemann zeta function: Chris@16: double BOOST_MATH_TR1_DECL boost_riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(double) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_riemann_zetaf BOOST_PREVENT_MACRO_SUBSTITUTION(float) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_riemann_zetal BOOST_PREVENT_MACRO_SUBSTITUTION(long double) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.21] spherical Bessel functions (of the first kind): Chris@16: double BOOST_MATH_TR1_DECL boost_sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_sph_besself BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_sph_bessell BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.22] spherical associated Legendre functions: Chris@16: double BOOST_MATH_TR1_DECL boost_sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, double theta) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_sph_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float theta) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_sph_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double theta) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: // [5.2.1.23] spherical Neumann functions BOOST_MATH_C99_THROW_SPEC; Chris@16: // spherical Bessel functions (of the second kind): Chris@16: double BOOST_MATH_TR1_DECL boost_sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: float BOOST_MATH_TR1_DECL boost_sph_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) BOOST_MATH_C99_THROW_SPEC; Chris@16: long double BOOST_MATH_TR1_DECL boost_sph_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) BOOST_MATH_C99_THROW_SPEC; Chris@16: Chris@16: #ifdef __cplusplus Chris@16: Chris@16: }}}} // namespaces Chris@16: Chris@16: #include Chris@16: Chris@16: namespace boost{ namespace math{ namespace tr1{ Chris@16: // Chris@16: // Declare overload of the functions which forward to the Chris@16: // C interfaces: Chris@16: // Chris@16: // C99 Functions: Chris@16: inline double acosh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_acosh BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float acoshf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_acoshf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double acoshl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_acoshl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float acosh BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::acoshf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double acosh BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::acoshl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type acosh BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::acosh BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline double asinh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_asinh BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float asinhf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_asinhf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double asinhl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_asinhl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float asinh BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::asinhf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double asinh BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::asinhl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type asinh BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::asinh BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline double atanh BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_atanh BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float atanhf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_atanhf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double atanhl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_atanhl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float atanh BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::atanhf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double atanh BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::atanhl(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type atanh BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::atanh BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline double cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float cbrtf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_cbrtf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double cbrtl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_cbrtl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::cbrtf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::cbrtl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline double copysign BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_copysign BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float copysignf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_copysignf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double copysignl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_copysignl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float copysign BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::copysignf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double copysign BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::copysignl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type copysign BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::copysign BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: inline double erf BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_erf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float erff BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_erff BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double erfl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_erfl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float erf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::erff BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double erf BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::erfl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type erf BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::erf BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline double erfc BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_erfc BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float erfcf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_erfcf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double erfcl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_erfcl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float erfc BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::erfcf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double erfc BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::erfcl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type erfc BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::erfc BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: #if 0 Chris@16: double exp2 BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: float exp2f BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long double exp2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: Chris@16: inline float expm1f BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_expm1f BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double expm1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_expm1l BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::expm1f BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::expm1l BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: #if 0 Chris@16: double fdim BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y); Chris@16: float fdimf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y); Chris@16: long double fdiml BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y); Chris@16: double fma BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y, double z); Chris@16: float fmaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y, float z); Chris@16: long double fmal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y, long double z); Chris@16: #endif Chris@16: inline double fmax BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_fmax BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float fmaxf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_fmaxf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double fmaxl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_fmaxl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float fmax BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::fmaxf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double fmax BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::fmaxl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type fmax BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::fmax BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: inline double fmin BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_fmin BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float fminf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_fminf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double fminl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_fminl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float fmin BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::fminf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double fmin BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::fminl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type fmin BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::fmin BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: inline float hypotf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_hypotf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline double hypot BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_hypot BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double hypotl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_hypotl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float hypot BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::hypotf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double hypot BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::hypotl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type hypot BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::hypot BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: #if 0 Chris@16: int ilogb BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: int ilogbf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: int ilogbl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: Chris@16: inline float lgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_lgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double lgammal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_lgammal BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::lgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::lgammal BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::lgamma BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: #ifdef BOOST_HAS_LONG_LONG Chris@16: #if 0 Chris@16: ::boost::long_long_type llrint BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: ::boost::long_long_type llrintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: ::boost::long_long_type llrintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: Chris@16: inline ::boost::long_long_type llroundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_llroundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline ::boost::long_long_type llround BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_llround BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline ::boost::long_long_type llroundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_llroundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline ::boost::long_long_type llround BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::llroundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline ::boost::long_long_type llround BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::llroundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline ::boost::long_long_type llround BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return llround BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast(x)); } Chris@16: #endif Chris@16: Chris@16: inline float log1pf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_log1pf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double log1p BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_log1p BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double log1pl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_log1pl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float log1p BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::log1pf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double log1p BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::log1pl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type log1p BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::log1p BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: #if 0 Chris@16: double log2 BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: float log2f BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long double log2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: Chris@16: double logb BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: float logbf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long double logbl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: long lrint BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: long lrintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long lrintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: inline long lroundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_lroundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long lround BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_lround BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long lroundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_lroundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long lround BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::lroundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long lround BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::lroundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: long lround BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::lround BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast(x)); } Chris@16: #if 0 Chris@16: double nan BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str); Chris@16: float nanf BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str); Chris@16: long double nanl BOOST_PREVENT_MACRO_SUBSTITUTION(const char *str); Chris@16: double nearbyint BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: float nearbyintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long double nearbyintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: inline float nextafterf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_nextafterf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline double nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double nextafterl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_nextafterl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::nextafterf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::nextafterl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::nextafter BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: inline float nexttowardf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_nexttowardf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline double nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double nexttowardl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_nexttowardl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::nexttowardf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::nexttowardl BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(T1 x, T2 y) Chris@16: { return boost::math::tr1::nexttoward BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast(y)); } Chris@16: #if 0 Chris@16: double remainder BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y); Chris@16: float remainderf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y); Chris@16: long double remainderl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y); Chris@16: double remquo BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y, int *pquo); Chris@16: float remquof BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y, int *pquo); Chris@16: long double remquol BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y, int *pquo); Chris@16: double rint BOOST_PREVENT_MACRO_SUBSTITUTION(double x); Chris@16: float rintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x); Chris@16: long double rintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x); Chris@16: #endif Chris@16: inline float roundf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_roundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double round BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_round BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double roundl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_roundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float round BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::roundf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double round BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::roundl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type round BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::round BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: #if 0 Chris@16: double scalbln BOOST_PREVENT_MACRO_SUBSTITUTION(double x, long ex); Chris@16: float scalblnf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, long ex); Chris@16: long double scalblnl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long ex); Chris@16: double scalbn BOOST_PREVENT_MACRO_SUBSTITUTION(double x, int ex); Chris@16: float scalbnf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, int ex); Chris@16: long double scalbnl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, int ex); Chris@16: #endif Chris@16: inline float tgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_tgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double tgammal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_tgammal BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::tgammaf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::tgammal BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::tgamma BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: inline float truncf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_truncf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double trunc BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_trunc BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double truncl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_truncl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float trunc BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::truncf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double trunc BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::truncl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type trunc BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::trunc BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: # define NO_MACRO_EXPAND /**/ Chris@16: // C99 macros defined as C++ templates Chris@16: template bool signbit NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> bool BOOST_MATH_TR1_DECL signbit NO_MACRO_EXPAND(float x); Chris@16: template<> bool BOOST_MATH_TR1_DECL signbit NO_MACRO_EXPAND(double x); Chris@16: template<> bool BOOST_MATH_TR1_DECL signbit NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: template int fpclassify NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> int BOOST_MATH_TR1_DECL fpclassify NO_MACRO_EXPAND(float x); Chris@16: template<> int BOOST_MATH_TR1_DECL fpclassify NO_MACRO_EXPAND(double x); Chris@16: template<> int BOOST_MATH_TR1_DECL fpclassify NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: template bool isfinite NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> bool BOOST_MATH_TR1_DECL isfinite NO_MACRO_EXPAND(float x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isfinite NO_MACRO_EXPAND(double x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isfinite NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: template bool isinf NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> bool BOOST_MATH_TR1_DECL isinf NO_MACRO_EXPAND(float x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isinf NO_MACRO_EXPAND(double x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isinf NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: template bool isnan NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> bool BOOST_MATH_TR1_DECL isnan NO_MACRO_EXPAND(float x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isnan NO_MACRO_EXPAND(double x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isnan NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: template bool isnormal NO_MACRO_EXPAND(T x) Chris@16: { BOOST_STATIC_ASSERT(sizeof(T) == 0); return false; } // must not be instantiated Chris@16: template<> bool BOOST_MATH_TR1_DECL isnormal NO_MACRO_EXPAND(float x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isnormal NO_MACRO_EXPAND(double x); Chris@16: template<> bool BOOST_MATH_TR1_DECL isnormal NO_MACRO_EXPAND(long double x); Chris@16: Chris@16: #undef NO_MACRO_EXPAND Chris@16: Chris@16: // [5.2.1.1] associated Laguerre polynomials: Chris@16: inline float assoc_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, float x) Chris@16: { return boost::math::tr1::boost_assoc_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, x); } Chris@16: inline double assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, double x) Chris@16: { return boost::math::tr1::boost_assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, x); } Chris@16: inline long double assoc_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, long double x) Chris@16: { return boost::math::tr1::boost_assoc_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, x); } Chris@16: inline float assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, float x) Chris@16: { return boost::math::tr1::assoc_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, x); } Chris@16: inline long double assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, long double x) Chris@16: { return boost::math::tr1::assoc_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, unsigned m, T x) Chris@16: { return boost::math::tr1::assoc_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(n, m, static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.2] associated Legendre functions: Chris@16: inline float assoc_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float x) Chris@16: { return boost::math::tr1::boost_assoc_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, x); } Chris@16: inline double assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, double x) Chris@16: { return boost::math::tr1::boost_assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, x); } Chris@16: inline long double assoc_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double x) Chris@16: { return boost::math::tr1::boost_assoc_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, x); } Chris@16: inline float assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float x) Chris@16: { return boost::math::tr1::assoc_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, x); } Chris@16: inline long double assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double x) Chris@16: { return boost::math::tr1::assoc_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, T x) Chris@16: { return boost::math::tr1::assoc_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.3] beta function: Chris@16: inline float betaf BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::boost_betaf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline double beta BOOST_PREVENT_MACRO_SUBSTITUTION(double x, double y) Chris@16: { return boost::math::tr1::boost_beta BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double betal BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::boost_betal BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline float beta BOOST_PREVENT_MACRO_SUBSTITUTION(float x, float y) Chris@16: { return boost::math::tr1::betaf BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: inline long double beta BOOST_PREVENT_MACRO_SUBSTITUTION(long double x, long double y) Chris@16: { return boost::math::tr1::betal BOOST_PREVENT_MACRO_SUBSTITUTION(x, y); } Chris@16: template Chris@16: inline typename tools::promote_args::type beta BOOST_PREVENT_MACRO_SUBSTITUTION(T2 x, T1 y) Chris@16: { return boost::math::tr1::beta BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x), static_cast::type>(y)); } Chris@16: Chris@16: // [5.2.1.4] (complete) elliptic integral of the first kind: Chris@16: inline float comp_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(float k) Chris@16: { return boost::math::tr1::boost_comp_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(k); } Chris@16: inline double comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(double k) Chris@16: { return boost::math::tr1::boost_comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(k); } Chris@16: inline long double comp_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k) Chris@16: { return boost::math::tr1::boost_comp_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(k); } Chris@16: inline float comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(float k) Chris@16: { return boost::math::tr1::comp_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(k); } Chris@16: inline long double comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(long double k) Chris@16: { return boost::math::tr1::comp_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(k); } Chris@16: template Chris@16: inline typename tools::promote_args::type comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(T k) Chris@16: { return boost::math::tr1::comp_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(k)); } Chris@16: Chris@16: // [5.2.1.5] (complete) elliptic integral of the second kind: Chris@16: inline float comp_ellint_2f(float k) Chris@16: { return boost::math::tr1::boost_comp_ellint_2f(k); } Chris@16: inline double comp_ellint_2(double k) Chris@16: { return boost::math::tr1::boost_comp_ellint_2(k); } Chris@16: inline long double comp_ellint_2l(long double k) Chris@16: { return boost::math::tr1::boost_comp_ellint_2l(k); } Chris@16: inline float comp_ellint_2(float k) Chris@16: { return boost::math::tr1::comp_ellint_2f(k); } Chris@16: inline long double comp_ellint_2(long double k) Chris@16: { return boost::math::tr1::comp_ellint_2l(k); } Chris@16: template Chris@16: inline typename tools::promote_args::type comp_ellint_2(T k) Chris@16: { return boost::math::tr1::comp_ellint_2(static_cast::type> BOOST_PREVENT_MACRO_SUBSTITUTION(k)); } Chris@16: Chris@16: // [5.2.1.6] (complete) elliptic integral of the third kind: Chris@16: inline float comp_ellint_3f(float k, float nu) Chris@16: { return boost::math::tr1::boost_comp_ellint_3f(k, nu); } Chris@16: inline double comp_ellint_3(double k, double nu) Chris@16: { return boost::math::tr1::boost_comp_ellint_3(k, nu); } Chris@16: inline long double comp_ellint_3l(long double k, long double nu) Chris@16: { return boost::math::tr1::boost_comp_ellint_3l(k, nu); } Chris@16: inline float comp_ellint_3(float k, float nu) Chris@16: { return boost::math::tr1::comp_ellint_3f(k, nu); } Chris@16: inline long double comp_ellint_3(long double k, long double nu) Chris@16: { return boost::math::tr1::comp_ellint_3l(k, nu); } Chris@16: template Chris@16: inline typename tools::promote_args::type comp_ellint_3(T1 k, T2 nu) Chris@16: { return boost::math::tr1::comp_ellint_3(static_cast::type> BOOST_PREVENT_MACRO_SUBSTITUTION(k), static_cast::type> BOOST_PREVENT_MACRO_SUBSTITUTION(nu)); } Chris@16: Chris@16: #if 0 Chris@16: // [5.2.1.7] confluent hypergeometric functions: Chris@16: double conf_hyperg BOOST_PREVENT_MACRO_SUBSTITUTION(double a, double c, double x); Chris@16: float conf_hypergf BOOST_PREVENT_MACRO_SUBSTITUTION(float a, float c, float x); Chris@16: long double conf_hypergl BOOST_PREVENT_MACRO_SUBSTITUTION(long double a, long double c, long double x); Chris@16: #endif Chris@16: Chris@16: // [5.2.1.8] regular modified cylindrical Bessel functions: Chris@16: inline float cyl_bessel_if BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_if BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline double cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_il BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_il BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline float cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::cyl_bessel_if BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::cyl_bessel_il BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(T1 nu, T2 x) Chris@16: { return boost::math::tr1::cyl_bessel_i BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(nu), static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.9] cylindrical Bessel functions (of the first kind): Chris@16: inline float cyl_bessel_jf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_jf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline double cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_jl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_jl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline float cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::cyl_bessel_jf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::cyl_bessel_jl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(T1 nu, T2 x) Chris@16: { return boost::math::tr1::cyl_bessel_j BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(nu), static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.10] irregular modified cylindrical Bessel functions: Chris@16: inline float cyl_bessel_kf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_kf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline double cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_kl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::boost_cyl_bessel_kl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline float cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::cyl_bessel_kf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::cyl_bessel_kl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(T1 nu, T2 x) Chris@16: { return boost::math::tr1::cyl_bessel_k BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type> BOOST_PREVENT_MACRO_SUBSTITUTION(nu), static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.11] cylindrical Neumann functions; Chris@16: // cylindrical Bessel functions (of the second kind): Chris@16: inline float cyl_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::boost_cyl_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline double cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(double nu, double x) Chris@16: { return boost::math::tr1::boost_cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::boost_cyl_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline float cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(float nu, float x) Chris@16: { return boost::math::tr1::cyl_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: inline long double cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(long double nu, long double x) Chris@16: { return boost::math::tr1::cyl_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(nu, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(T1 nu, T2 x) Chris@16: { return boost::math::tr1::cyl_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(nu), static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.12] (incomplete) elliptic integral of the first kind: Chris@16: inline float ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) Chris@16: { return boost::math::tr1::boost_ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline double ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double phi) Chris@16: { return boost::math::tr1::boost_ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline long double ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) Chris@16: { return boost::math::tr1::boost_ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline float ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) Chris@16: { return boost::math::tr1::ellint_1f BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline long double ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) Chris@16: { return boost::math::tr1::ellint_1l BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: template Chris@16: inline typename tools::promote_args::type ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(T1 k, T2 phi) Chris@16: { return boost::math::tr1::ellint_1 BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(k), static_cast::type>(phi)); } Chris@16: Chris@16: // [5.2.1.13] (incomplete) elliptic integral of the second kind: Chris@16: inline float ellint_2f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) Chris@16: { return boost::math::tr1::boost_ellint_2f BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline double ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double phi) Chris@16: { return boost::math::tr1::boost_ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline long double ellint_2l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) Chris@16: { return boost::math::tr1::boost_ellint_2l BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline float ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float phi) Chris@16: { return boost::math::tr1::ellint_2f BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: inline long double ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double phi) Chris@16: { return boost::math::tr1::ellint_2l BOOST_PREVENT_MACRO_SUBSTITUTION(k, phi); } Chris@16: template Chris@16: inline typename tools::promote_args::type ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(T1 k, T2 phi) Chris@16: { return boost::math::tr1::ellint_2 BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(k), static_cast::type>(phi)); } Chris@16: Chris@16: // [5.2.1.14] (incomplete) elliptic integral of the third kind: Chris@16: inline float ellint_3f BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float nu, float phi) Chris@16: { return boost::math::tr1::boost_ellint_3f BOOST_PREVENT_MACRO_SUBSTITUTION(k, nu, phi); } Chris@16: inline double ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(double k, double nu, double phi) Chris@16: { return boost::math::tr1::boost_ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(k, nu, phi); } Chris@16: inline long double ellint_3l BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double nu, long double phi) Chris@16: { return boost::math::tr1::boost_ellint_3l BOOST_PREVENT_MACRO_SUBSTITUTION(k, nu, phi); } Chris@16: inline float ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(float k, float nu, float phi) Chris@16: { return boost::math::tr1::ellint_3f BOOST_PREVENT_MACRO_SUBSTITUTION(k, nu, phi); } Chris@16: inline long double ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(long double k, long double nu, long double phi) Chris@16: { return boost::math::tr1::ellint_3l BOOST_PREVENT_MACRO_SUBSTITUTION(k, nu, phi); } Chris@16: template Chris@16: inline typename tools::promote_args::type ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(T1 k, T2 nu, T3 phi) Chris@16: { return boost::math::tr1::ellint_3 BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(k), static_cast::type>(nu), static_cast::type>(phi)); } Chris@16: Chris@16: // [5.2.1.15] exponential integral: Chris@16: inline float expintf BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::boost_expintf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline double expint BOOST_PREVENT_MACRO_SUBSTITUTION(double x) Chris@16: { return boost::math::tr1::boost_expint BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double expintl BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::boost_expintl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline float expint BOOST_PREVENT_MACRO_SUBSTITUTION(float x) Chris@16: { return boost::math::tr1::expintf BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: inline long double expint BOOST_PREVENT_MACRO_SUBSTITUTION(long double x) Chris@16: { return boost::math::tr1::expintl BOOST_PREVENT_MACRO_SUBSTITUTION(x); } Chris@16: template Chris@16: inline typename tools::promote_args::type expint BOOST_PREVENT_MACRO_SUBSTITUTION(T x) Chris@16: { return boost::math::tr1::expint BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.16] Hermite polynomials: Chris@16: inline float hermitef BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::boost_hermitef BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline double hermite BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) Chris@16: { return boost::math::tr1::boost_hermite BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double hermitel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::boost_hermitel BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline float hermite BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::hermitef BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double hermite BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::hermitel BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type hermite BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, T x) Chris@16: { return boost::math::tr1::hermite BOOST_PREVENT_MACRO_SUBSTITUTION(n, static_cast::type>(x)); } Chris@16: Chris@16: #if 0 Chris@16: // [5.2.1.17] hypergeometric functions: Chris@16: double hyperg BOOST_PREVENT_MACRO_SUBSTITUTION(double a, double b, double c, double x); Chris@16: float hypergf BOOST_PREVENT_MACRO_SUBSTITUTION(float a, float b, float c, float x); Chris@16: long double hypergl BOOST_PREVENT_MACRO_SUBSTITUTION(long double a, long double b, long double c, Chris@16: long double x); Chris@16: #endif Chris@16: Chris@16: // [5.2.1.18] Laguerre polynomials: Chris@16: inline float laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::boost_laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline double laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) Chris@16: { return boost::math::tr1::boost_laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::boost_laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline float laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::laguerref BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::laguerrel BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, T x) Chris@16: { return boost::math::tr1::laguerre BOOST_PREVENT_MACRO_SUBSTITUTION(n, static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.19] Legendre polynomials: Chris@16: inline float legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, float x) Chris@16: { return boost::math::tr1::boost_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, x); } Chris@16: inline double legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, double x) Chris@16: { return boost::math::tr1::boost_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, x); } Chris@16: inline long double legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, long double x) Chris@16: { return boost::math::tr1::boost_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, x); } Chris@16: inline float legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, float x) Chris@16: { return boost::math::tr1::legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, x); } Chris@16: inline long double legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, long double x) Chris@16: { return boost::math::tr1::legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, T x) Chris@16: { return boost::math::tr1::legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.20] Riemann zeta function: Chris@16: inline float riemann_zetaf BOOST_PREVENT_MACRO_SUBSTITUTION(float z) Chris@16: { return boost::math::tr1::boost_riemann_zetaf BOOST_PREVENT_MACRO_SUBSTITUTION(z); } Chris@16: inline double riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(double z) Chris@16: { return boost::math::tr1::boost_riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(z); } Chris@16: inline long double riemann_zetal BOOST_PREVENT_MACRO_SUBSTITUTION(long double z) Chris@16: { return boost::math::tr1::boost_riemann_zetal BOOST_PREVENT_MACRO_SUBSTITUTION(z); } Chris@16: inline float riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(float z) Chris@16: { return boost::math::tr1::riemann_zetaf BOOST_PREVENT_MACRO_SUBSTITUTION(z); } Chris@16: inline long double riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(long double z) Chris@16: { return boost::math::tr1::riemann_zetal BOOST_PREVENT_MACRO_SUBSTITUTION(z); } Chris@16: template Chris@16: inline typename tools::promote_args::type riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(T z) Chris@16: { return boost::math::tr1::riemann_zeta BOOST_PREVENT_MACRO_SUBSTITUTION(static_cast::type>(z)); } Chris@16: Chris@16: // [5.2.1.21] spherical Bessel functions (of the first kind): Chris@16: inline float sph_besself BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::boost_sph_besself BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline double sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) Chris@16: { return boost::math::tr1::boost_sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double sph_bessell BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::boost_sph_bessell BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline float sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::sph_besself BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::sph_bessell BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, T x) Chris@16: { return boost::math::tr1::sph_bessel BOOST_PREVENT_MACRO_SUBSTITUTION(n, static_cast::type>(x)); } Chris@16: Chris@16: // [5.2.1.22] spherical associated Legendre functions: Chris@16: inline float sph_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float theta) Chris@16: { return boost::math::tr1::boost_sph_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, theta); } Chris@16: inline double sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, double theta) Chris@16: { return boost::math::tr1::boost_sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, theta); } Chris@16: inline long double sph_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double theta) Chris@16: { return boost::math::tr1::boost_sph_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, theta); } Chris@16: inline float sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, float theta) Chris@16: { return boost::math::tr1::sph_legendref BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, theta); } Chris@16: inline long double sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, long double theta) Chris@16: { return boost::math::tr1::sph_legendrel BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, theta); } Chris@16: template Chris@16: inline typename tools::promote_args::type sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned l, unsigned m, T theta) Chris@16: { return boost::math::tr1::sph_legendre BOOST_PREVENT_MACRO_SUBSTITUTION(l, m, static_cast::type>(theta)); } Chris@16: Chris@16: // [5.2.1.23] spherical Neumann functions; Chris@16: // spherical Bessel functions (of the second kind): Chris@16: inline float sph_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::boost_sph_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline double sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, double x) Chris@16: { return boost::math::tr1::boost_sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double sph_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::boost_sph_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline float sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, float x) Chris@16: { return boost::math::tr1::sph_neumannf BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: inline long double sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, long double x) Chris@16: { return boost::math::tr1::sph_neumannl BOOST_PREVENT_MACRO_SUBSTITUTION(n, x); } Chris@16: template Chris@16: inline typename tools::promote_args::type sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(unsigned n, T x) Chris@16: { return boost::math::tr1::sph_neumann BOOST_PREVENT_MACRO_SUBSTITUTION(n, static_cast::type>(x)); } Chris@16: Chris@16: }}} // namespaces Chris@16: Chris@16: #else // __cplusplus Chris@16: Chris@16: #include Chris@16: Chris@16: #endif // __cplusplus Chris@16: Chris@16: #endif // BOOST_MATH_TR1_HPP Chris@16: