123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183 |
- #ifndef BOOST_RANDOM_FISHER_F_DISTRIBUTION_HPP
- #define BOOST_RANDOM_FISHER_F_DISTRIBUTION_HPP
- #include <iosfwd>
- #include <istream>
- #include <boost/config.hpp>
- #include <boost/limits.hpp>
- #include <boost/random/detail/operators.hpp>
- #include <boost/random/chi_squared_distribution.hpp>
- namespace boost {
- namespace random {
- template<class RealType = double>
- class fisher_f_distribution {
- public:
- typedef RealType result_type;
- typedef RealType input_type;
- class param_type {
- public:
- typedef fisher_f_distribution distribution_type;
-
- explicit param_type(RealType m_arg = RealType(1.0),
- RealType n_arg = RealType(1.0))
- : _m(m_arg), _n(n_arg)
- {}
-
- RealType m() const { return _m; }
-
- RealType n() const { return _n; }
-
- BOOST_RANDOM_DETAIL_OSTREAM_OPERATOR(os, param_type, parm)
- { os << parm._m << ' ' << parm._n; return os; }
-
- BOOST_RANDOM_DETAIL_ISTREAM_OPERATOR(is, param_type, parm)
- { is >> parm._m >> std::ws >> parm._n; return is; }
-
- BOOST_RANDOM_DETAIL_EQUALITY_OPERATOR(param_type, lhs, rhs)
- { return lhs._m == rhs._m && lhs._n == rhs._n; }
-
-
- BOOST_RANDOM_DETAIL_INEQUALITY_OPERATOR(param_type)
- private:
- RealType _m;
- RealType _n;
- };
-
- explicit fisher_f_distribution(RealType m_arg = RealType(1.0),
- RealType n_arg = RealType(1.0))
- : _impl_m(m_arg), _impl_n(n_arg)
- {}
-
- explicit fisher_f_distribution(const param_type& parm)
- : _impl_m(parm.m()), _impl_n(parm.n())
- {}
-
- template<class URNG>
- RealType operator()(URNG& urng)
- {
- return (_impl_m(urng) * n()) / (_impl_n(urng) * m());
- }
-
- template<class URNG>
- RealType operator()(URNG& urng, const param_type& parm) const
- {
- return fisher_f_distribution(parm)(urng);
- }
-
- RealType m() const { return _impl_m.n(); }
-
- RealType n() const { return _impl_n.n(); }
-
- RealType min BOOST_PREVENT_MACRO_SUBSTITUTION () const { return 0; }
-
- RealType max BOOST_PREVENT_MACRO_SUBSTITUTION () const
- { return std::numeric_limits<RealType>::infinity(); }
-
- param_type param() const { return param_type(m(), n()); }
-
- void param(const param_type& parm)
- {
- typedef chi_squared_distribution<RealType> impl_type;
- typename impl_type::param_type m_param(parm.m());
- _impl_m.param(m_param);
- typename impl_type::param_type n_param(parm.n());
- _impl_n.param(n_param);
- }
-
- void reset() { }
-
- BOOST_RANDOM_DETAIL_OSTREAM_OPERATOR(os, fisher_f_distribution, fd)
- {
- os << fd.param();
- return os;
- }
-
- BOOST_RANDOM_DETAIL_ISTREAM_OPERATOR(is, fisher_f_distribution, fd)
- {
- param_type parm;
- if(is >> parm) {
- fd.param(parm);
- }
- return is;
- }
-
- BOOST_RANDOM_DETAIL_EQUALITY_OPERATOR(fisher_f_distribution, lhs, rhs)
- { return lhs._impl_m == rhs._impl_m && lhs._impl_n == rhs._impl_n; }
-
-
- BOOST_RANDOM_DETAIL_INEQUALITY_OPERATOR(fisher_f_distribution)
- private:
- chi_squared_distribution<RealType> _impl_m;
- chi_squared_distribution<RealType> _impl_n;
- };
- }
- }
- #endif
|