1 /*################################################################################
2 ##
3 ## Copyright (C) 2016-2020 Keith O'Hara
4 ##
5 ## This file is part of the GCE-Math C++ library.
6 ##
7 ## Licensed under the Apache License, Version 2.0 (the "License");
8 ## you may not use this file except in compliance with the License.
9 ## You may obtain a copy of the License at
10 ##
11 ## http://www.apache.org/licenses/LICENSE-2.0
12 ##
13 ## Unless required by applicable law or agreed to in writing, software
14 ## distributed under the License is distributed on an "AS IS" BASIS,
15 ## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16 ## See the License for the specific language governing permissions and
17 ## limitations under the License.
18 ##
19 ################################################################################*/
20
21 #define TEST_PRINT_PRECISION_1 3
22 #define TEST_PRINT_PRECISION_2 18
23
24 #include "gcem_tests.hpp"
25
main()26 int main()
27 {
28 print_begin("incomplete_beta");
29
30 //
31
32 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.11464699677582491921L, 0.9L, 0.9L, 0.1L);
33 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.78492840804657726395L, 0.9L, 0.9L, 0.8L);
34
35 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.80000000000000004441L, 1.0L, 1.0L, 0.8L);
36 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.89600000000000001865L, 2.0L, 2.0L, 0.8L);
37 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.81920000000000003926L, 3.0L, 2.0L, 0.8L);
38
39 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.97279999999999999805L, 2.0L, 3.0L, 0.8L);
40 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 3.9970000000000084279e-09L, 3.0L, 2.0L, 0.001L);
41 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, 0.35200000000000003508L, 2.0L, 2.0L, 0.4L);
42
43 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, TEST_NAN, TEST_NAN, TEST_NAN, TEST_NAN);
44 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, TEST_NAN, TEST_NAN, 2.0L, 0.8L);
45 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, TEST_NAN, 2.0L, TEST_NAN, 0.8L);
46 GCEM_TEST_EXPECTED_VAL(gcem::incomplete_beta, TEST_NAN, 2.0L, 2.0L, TEST_NAN);
47
48 //
49
50 print_final("incomplete_beta");
51
52 return 0;
53 }
54