diff options
author | akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-03-06 05:53:03 +0000 |
---|---|---|
committer | akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-03-06 05:53:03 +0000 |
commit | d1cd806372d04675e9f646f1c1e01ef97e103ecc (patch) | |
tree | d6cfec215d6194c81d652da0ddad654474dfc1eb | |
parent | d2797c33bd41382c7dd6dbccdb4f2b08044d0cf9 (diff) |
* missing/lgamma_r.c (loggamma): return 0 for 1 and 2.
* test/ruby/test_math.rb: accept errors by functions under missing/.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@15708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | missing/lgamma_r.c | 2 | ||||
-rw-r--r-- | test/ruby/test_math.rb | 3 |
3 files changed, 10 insertions, 1 deletions
@@ -1,3 +1,9 @@ +Thu Mar 6 14:46:08 2008 Tanaka Akira <akr@fsij.org> + + * missing/lgamma_r.c (loggamma): return 0 for 1 and 2. + + * test/ruby/test_math.rb: accept errors by functions under missing/. + Thu Mar 6 14:29:44 2008 NARUSE, Yui <naruse@ruby-lang.org> * transcode.c (rb_str_transcode_bang): set coderange. diff --git a/missing/lgamma_r.c b/missing/lgamma_r.c index ab6c28294a..ae93d078cb 100644 --- a/missing/lgamma_r.c +++ b/missing/lgamma_r.c @@ -34,6 +34,8 @@ loggamma(double x) /* the natural logarithm of the Gamma function. */ { double v, w; + if (x == 1.0 || x == 2.0) return 0.0; + v = 1; while (x < N) { v *= x; x++; } w = 1 / (x * x); diff --git a/test/ruby/test_math.rb b/test/ruby/test_math.rb index 60fc591a65..67f5e86e42 100644 --- a/test/ruby/test_math.rb +++ b/test/ruby/test_math.rb @@ -2,7 +2,8 @@ require 'test/unit' class TestMath < Test::Unit::TestCase def check(a, b) - assert_in_delta(a, b, Float::EPSILON * 4) + err = [Float::EPSILON * 4, [a.abs, b.abs].max * Float::EPSILON * 256].max + assert_in_delta(a, b, err) end def test_atan2 |