mbutterick
/
describe
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove bigfloat support to avoid bug in v.5.3.x

Browse Source
pull/1/head
Matthew Butterick 11 years ago
parent 21308f2855
commit 589305ee09
4 changed files with 209 additions and 281 deletions
Show Stats Download Patch File Download Diff File

5
describe/describe-test.rkt
Unescape Escape View File

@ -16,8 +16,7 @@
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;
(require math/bigfloat
racket/mpair)
(require racket/mpair)
(require (planet williams/describe/describe))
;;; Booleans
@ -58,8 +57,6 @@
(describe (sqrt -10))
(describe (+ (sqrt 10) (sqrt -10)))
(describe (bf 1/10))
(describe (bf "15e200000000"))
;;; Strings

39
describe/float-test-bigfloat.rkt
Unescape Escape View File

@ -1,39 +0,0 @@
#lang racket
(require math/bigfloat)
(require (planet williams/describe/describe))
(printf "--- Using literals (big float) ---~n")
(describe (bf 1/10))
(describe (bf 2/10))
(describe (bf 3/10))
(describe (bf 4/10))
(describe (bf 5/10))
(describe (bf 6/10))
(describe (bf 7/10))
(describe (bf 8/10))
(describe (bf 9/10))
(describe (bf 10/10))
(printf "--- Exact decimal values of big floats ---~n")
(float->string (bf 1/10))
(float->string (bf 2/10))
(float->string (bf 3/10))
(float->string (bf 4/10))
(float->string (bf 5/10))
(float->string (bf 6/10))
(float->string (bf 7/10))
(float->string (bf 8/10))
(float->string (bf 9/10))
(float->string (bf 10/10))
(printf "--- Using summation (big float) ---~n")
(for/fold ((sum 0.bf))
((i (in-range 10)))
(define new-sum (bf+ sum (bf 1/10)))
(describe new-sum)
new-sum)
(printf "--- Using product (big float) ---~n")
(for ((i (in-range 1 11)))
(describe (bf* (bf i) (bf 1/10))))

30
describe/main.rkt
Unescape Escape View File

@ -70,8 +70,7 @@
;;; 2.0.1 08/26/13 Added exact decimal value for floats. (MDW)
;;; 2.0.1 09/26/13 Added bigfloat support to float->string. (MDW)
(require math/bigfloat
racket/extflonum
(require racket/extflonum
racket/mpair)
;;; (variant x) -> symbol
@ -339,11 +338,7 @@
; ((extfl> x 0.0t0) +1.0)
; (else 0.0))
; (sgn x)))
(define sign (cond ((bigfloat? x)
(cond ((bf< x 0.bf) -1.0)
((bf> x 0.bf) +1.0)
(else 0.0)))
((extflonum? x)
(define sign (cond ((extflonum? x)
(cond ((extfl< x 0.0t0) -1.0)
((extfl> x 0.0t0) +1.0)
(else 0.0)))
@ -353,8 +348,7 @@
;(define exact-x (if (extflonum? x)
; (abs (extfl->exact x))
; (abs (inexact->exact x))))
(define exact-x (cond ((bigfloat? x) (abs (bigfloat->rational x)))
((extflonum? x) (abs (extfl->exact x)))
(define exact-x (cond ((extflonum? x) (abs (extfl->exact x)))
(else (inexact->exact x))))
(define int (truncate exact-x))
(define frac (- exact-x int))
@ -421,20 +415,6 @@
(format "~s is an extended precision (80-bit) floating point number whose exact decimal value is ~a"
x (float->string x)))))
;;; (bigfloat-description x) -> string
;;; x : extflonum?
;;; Returns a string describing the big float, x.
(define (bigfloat-description x)
(cond ((eqv? x +inf.bf)
(format "~s is positive infinity" x))
((eqv? x -inf.bf)
(format "~s is negative infinity" x))
((eqv? x +nan.bf)
(format "~s is non-a-number" x))
(else
(format "~s is a ~a big float with ~a bits of precision"
x (if (bfnegative? x) "negative" "positive")
(bigfloat-precision x)))))
;;; (string-description str) -> string?
;;; str : string?
@ -795,8 +775,6 @@
(number-description x))
((extflonum? x)
(extflonum-description x))
((bigfloat? x)
(bigfloat-description x))
((string? x)
(string-description x))
((bytes? x)
@ -863,7 +841,7 @@
(integer->string
(-> exact-integer? string?))
(float->string
(-> (or/c flonum? single-flonum? extflonum? bigfloat?) string?))
(-> (or/c flonum? single-flonum? extflonum?) string?))
(description
(-> any/c string?))
(describe

20
describe/scribblings/describe.scrbl
Unescape Escape View File

@ -8,12 +8,14 @@
@title[#:tag "describe"]{Describe}
M. Douglas Williams
@(author+email @tt{M. Douglas Williams} "doug@cognidrome.org")
@author[(author+email "M. Douglas Williams" "doug@cognidrome.org")]
This library provides functions to describe Racket objects. Currently, the following types of objects are described:
@margin-note{This is not the official version of Describe. It is the 1.5 version from PLaneT, retooled to use Racket's new package system, and with bigfloat support disabled (because of bugs related to v.5.3.x compatability.) The canonical version of Describe is on the @link["http://planet.racket-lang.org/display.ss?package=describe.plt&owner=williams" "PLaneT server"]. — MB}
@itemize{
@item{Booleans}
@item{Numbers}
@ -78,11 +80,8 @@ Examples:
@scheme[(integer->string (expt 10 150))] -> "at least 10^102"
@defproc[(float->string (x (or/c flonum? single-flonum? extflonum? bigfloat?))) string?]{
Returns a string with the exact decimal value of the floating-point number @scheme[x]. This works for single precision, double precision, extended precision, and big floating-point values. Note that internally @scheme[x] is converted to an exact rational number as part of converting to a string and the following warning from the Arbitrary-Precision Floating-Point Numbers (Bigfloats) section in the Math Library is important.
@bold{Be careful with exact conversions.} Bigfloats with large exponents may not fit in memory as integers or exact rationals. Worse, they might fit, but have all your RAM and swap space for lunch.
}
@defproc[(float->string (x (or/c flonum? single-flonum? extflonum?))) string?]{
Returns a string with the exact decimal value of the floating-point number @scheme[x]. This works for single precision, double precision, and extended precision values. Note that internally @scheme[x] is converted to an exact rational number as part of converting to a string.}
Examples:
@ -96,8 +95,6 @@ Examples:
@scheme[(float->string 0.1t0)] -> "0.1000000000000000000013552527156068805425093160010874271392822265625"
@scheme[(float->string (bf 1/10))] -> "0.10000000000000000000000000000000000000007346839692639296924804603357639035486366659729825547009429698164240107871592044830322265625"
@defproc[(describe (x any/c)) void?]{
Prints a description of @scheme[x] to the current output port.}
@ -169,9 +166,6 @@ racket
(describe (sqrt -10))
(describe (+ (sqrt 10) (sqrt -10)))
(describe (bf 1/10))
(describe (bf "15e200000000"))
;;; Strings
(printf "~n--- Strings ---~n")
@ -344,8 +338,6 @@ Produces the following output.
3.1622776601683795 is an inexact positive real number whose exact decimal value is 3.162277660168379522787063251598738133907318115234375
0+3.1622776601683795i is an inexact positive imaginary number whose exact decimal value is 0+3.162277660168379522787063251598738133907318115234375i
3.1622776601683795+3.1622776601683795i is an inexact complex number whose real part 3.1622776601683795 is an inexact positive real number whose exact decimal value is 3.162277660168379522787063251598738133907318115234375 and whose imaginary part 0+3.1622776601683795i is an inexact positive imaginary number whose exact decimal value is 0+3.162277660168379522787063251598738133907318115234375i
(bf #e0.1000000000000000000000000000000000000001) is a positive big float with 128 bits of precision
(bf "1.499999999999999999999999999999999999998e200000001") is a positive big float with 128 bits of precision
--- Strings ---
"abc" is an immutable string of length 3

Write Preview
Loading…
Cancel
Save