1 // (C) Copyright John Maddock 2008.
2 // Use, modification and distribution are subject to the
3 // Boost Software License, Version 1.0. (See accompanying file
4 // LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
5
6 #ifndef BOOST_MATH_TEST_NCBETA_OTHER_HOOKS_HPP
7 #define BOOST_MATH_TEST_NCBETA_OTHER_HOOKS_HPP
8
9
10 #ifdef TEST_R
11 #define MATHLIB_STANDALONE
12 #include <rmath.h>
13 namespace other{
ncbeta_cdf(float a,float b,float nc,float x)14 inline float ncbeta_cdf(float a, float b, float nc, float x)
15 {
16 return (float)pnbeta(x, a, b, nc, 1, 0);
17 }
ncbeta_cdf(double a,double b,double nc,double x)18 inline double ncbeta_cdf(double a, double b, double nc, double x)
19 {
20 return pnbeta(x, a, b, nc, 1, 0);
21 }
ncbeta_cdf(long double a,long double b,long double nc,long double x)22 inline long double ncbeta_cdf(long double a, long double b, long double nc, long double x)
23 {
24 return pnbeta((double)x, (double)a, (double)b, (double)nc, 1, 0);
25 }
26 }
27 #define TEST_OTHER
28 #endif
29
30 #ifdef TEST_OTHER
31 namespace other{
ncbeta_cdf(boost::math::concepts::real_concept,boost::math::concepts::real_concept,boost::math::concepts::real_concept)32 boost::math::concepts::real_concept ncbeta_cdf(boost::math::concepts::real_concept, boost::math::concepts::real_concept, boost::math::concepts::real_concept){ return 0; }
33 }
34 #endif
35
36
37 #endif
38
39
40