mirror of
https://github.com/boostorg/math.git
synced 2026-01-19 16:32:10 +00:00
36 lines
1.3 KiB
C++
36 lines
1.3 KiB
C++
// 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();
|
|
}
|