Marc:
_num.scm has some code to deal with computing the correct inexact real for (sqrt x) when x is an exact number and (sqrt x) is not an exact number.
The simplest thing to do would be (sqrt (exact->inexact x)), but I feared that the double rounding could lead to incorrect (but very close) answers. (There are also issues of unnecessary overflows and underflows with that simple expression.)
So I ran some random tests to see (a) whether the Gambit code always gave correctly-rounded answers (it did), and (b) how often it happened that double rounding caused (sqrt (exact->inexact x)) to give incorrect answers.
In just 100 tests of (sqrt x) where x is a rational with numerator and denominator between 1 and 100, the tests found the following examples where (sqrt (exact->inexact x)) gives incorrect answers. In each row the numbers are: x, (sqrt (exact->inexact x)), and correctly-rounded (sqrt x):
(double-rounded-result-wrong 9/70 .35856858280031806 .3585685828003181) (double-rounded-result-wrong 33/49 .8206518066482897 .8206518066482898) (double-rounded-result-wrong 87/91 .977775002771065 .9777750027710649) (double-rounded-result-wrong 100/67 1.2216944435630523 1.2216944435630521) (double-rounded-result-wrong 77/18 2.068278940998476 2.0682789409984763) (double-rounded-result-wrong 3/7 .6546536707079771 .6546536707079772) (double-rounded-result-wrong 48/7 2.6186146828319083 2.618614682831909) (double-rounded-result-wrong 20/51 .6262242910851494 .6262242910851495) (double-rounded-result-wrong 25/11 1.5075567228888183 1.507556722888818) (double-rounded-result-wrong 38/59 .8025383458814721 .8025383458814722) (double-rounded-result-wrong 3/7 .6546536707079771 .6546536707079772) (double-rounded-result-wrong 25/11 1.5075567228888183 1.507556722888818)
So even for something as simple as (sqrt 3/7) the formula (sqrt (exact->inexact 3/7)) gives an unnecessarily inaccurate answer.
And for integers we have the example
(double-rounded-result-wrong 5680341405563297078633 7.536803968237e10 7.536803968236998e10)
Pretty cool. Maybe not so important, but still cool!
Brad
Afficher les réponses par date