[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: weird math



FYI, here's what Lucid yields on an HP (HP Common Lisp, Development
Environment, 25 June 1992, HP-9000, Series 300/400 Dev Lisp 98688C,
Rev. A.04.0.2)...

> (= 1.4 (/ 7 5))
NIL
> (= 1.4 (coerce (/ 7 5) 'float))
T
> (= 1.5 (/ 3 2))
T
> (coerce 1.4s0 'double-float)
1.4
> single-float-epsilon
1.1107651257113996E-16
> (> (- 1.4d0 1.4s0) single-float-epsilon)
NIL
> (= 1.4 (coerce (/ 7 5) 'double-float))
T

Al Reich
Lockheed - Austin Division
reich@austin.lockheed.com