1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
// Copyright Matt Borland, 2023
// Use, modification and distribution are subject to the
// Boost Software License, Version 1.0. (See accompanying file
// LICENSE or copy at http://www.boost.org/LICENSE_1_0.txt)
//
// https://github.com/scipy/scipy/issues/18511
#include <boost/math/distributions/hypergeometric.hpp>
#include <boost/math/policies/policy.hpp>
#include <limits>
#include <cstdint>
#include "math_unit_test.hpp"
template <typename T>
void test()
{
//https://www.wolframalpha.com/input?i=%2812000+*+370000%29+%2F+390000
auto dist = boost::math::hypergeometric_distribution<T>(UINT64_C(12'000), UINT64_C(370'000), UINT64_C(390'000));
auto hm = boost::math::mean(dist);
CHECK_ULP_CLOSE(hm, static_cast<T>(11384.615384615384615384615384615384615384615384615384615384615384L), 1);
// Same result as above because both the numerator and denom have been multiplied by 100 (Exceeds UINT32_MAX)
auto dist2 = boost::math::hypergeometric_distribution<T>(UINT64_C(12'000), UINT64_C(37'000'000), UINT64_C(39'000'000));
auto hm2 = boost::math::mean(dist2);
CHECK_ULP_CLOSE(hm2, static_cast<T>(11384.615384615384615384615384615384615384615384615384615384615384L), 1);
}
int main()
{
test<float>();
test<double>();
test<long double>();
return boost::math::test::report_errors();
}
|
