[Boost-commit] svn:boost r51578 - trunk/boost/math/distributions/detail

Subject: [Boost-commit] svn:boost r51578 - trunk/boost/math/distributions/detail
From: john_at_[hidden]
Date: 2009-03-03 13:18:18

Author: johnmaddock
Date: 2009-03-03 13:18:17 EST (Tue, 03 Mar 2009)
New Revision: 51578
URL: http://svn.boost.org/trac/boost/changeset/51578

Log:
Adjust fudge-factors yet again.
Text files modified: 
   trunk/boost/math/distributions/detail/hypergeometric_quantile.hpp |     4 ++--                                    
   1 files changed, 2 insertions(+), 2 deletions(-)

Modified: trunk/boost/math/distributions/detail/hypergeometric_quantile.hpp
==============================================================================
--- trunk/boost/math/distributions/detail/hypergeometric_quantile.hpp	(original)
+++ trunk/boost/math/distributions/detail/hypergeometric_quantile.hpp	2009-03-03 13:18:17 EST (Tue, 03 Mar 2009)
@@ -110,7 +110,7 @@
       T diff = result;
       while(result < p)
       {
-         diff = (diff > tools::min_value<T>()) 
+         diff = (diff > tools::min_value<T>() * 8) 
             ? T(n - x) * T(r - x) * diff / (T(x + 1) * T(N + x + 1 - n - r))
             : hypergeometric_pdf<T>(x + 1, r, n, N, pol);
          if(result + diff / 2 > p)
@@ -128,7 +128,7 @@
       while(result + diff / 2 < q)
       {
          result += diff;
-         diff = (diff > tools::min_value<T>())
+         diff = (diff > tools::min_value<T>() * 8)
             ? x * T(N + x - n - r) * diff / (T(1 + n - x) * T(1 + r - x))
             : hypergeometric_pdf<T>(x - 1, r, n, N, pol);
          --x;