in reply to Re^2: Help me make a test case for Math::BigFloat
in thread Help me make a test case for Math::BigFloat
Hmm. There seem to be two interacting problems here.
#!perl -slw use strict; use overload; #use bignum; use Math::BigFloat; printf "exp(-7e-17): %.17f\n", my $exp = exp( Math::BigFloat->new( '-7 +e-17' ) ); eval{ print overload::Overloaded( $exp ) } or warn $@; print overload::StrVal( $exp ); printf "1-exp(-7-e17): %.17f\n", Math::BigFloat->new("1") - $exp; __END__ C:\test>junk7 exp(-7e-17): 0.99999999999999989 Can't call method "can" without a package or object reference at c:/Pe +rl/lib/overload.pm line 54. 1 1-exp(-7-e17): 0.00000000000000000
#!perl -slw use strict; use overload; use bignum; use Math::BigFloat; printf "exp(-7e-17): %.17f\n", my $exp = exp( Math::BigFloat->new( '-7 +e-17' ) ); eval{ print overload::Overloaded( $exp ) } or warn $@; print overload::StrVal( $exp ); printf "1-exp(-7-e17): %.17f\n", Math::BigFloat->new("1") - $exp; __END__ C:\test>junk7 exp(-7e-17): 0.99999999999999989 Can't call method "can" without a package or object reference at c:/Pe +rl/lib/overload.pm line 54. 1 1-exp(-7-e17): 1.00000000000000000
All of which makes me glad that I rarely need the accuracy beyond 53-bits and when I do, 64-bit ints suffice.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Help me make a test case for Math::BigFloat
by spiritway (Vicar) on Mar 07, 2006 at 06:45 UTC | |
by fizbin (Chaplain) on Mar 07, 2006 at 07:01 UTC | |
by spiritway (Vicar) on Mar 07, 2006 at 07:09 UTC | |
by fizbin (Chaplain) on Mar 07, 2006 at 13:31 UTC | |
by spiritway (Vicar) on Mar 07, 2006 at 23:20 UTC |