Re: [Amforth-devel] Float testing - small/large numbers

[pito <pi...@vo...>]

Leon, great! See the test:

\ test float small and large numbers f* f/
\ needs float constants

marker _tstflt_

314159265. d>f 100000000. d>f f/ fconstant _pi
-314159265. d>f 100000000. d>f f/ fconstant _-pi

: prntpi _1e6 _100 f* f* f>d d. ;

\ +pi f* f/

: test1 
_1e6 fdup fdup fdup fdup
f* f* f* f*
_pi  
fswap 
f/
_1e6 fdup fdup fdup fdup
f* f* f* f* f*

prntpi ( the result shall be 314159265 )
;

: test2
_pi _1e6 f/ _1e6 f/ _1e6 f/ _1e6 f/ _1e6 f/ 
_1e6 fdup fdup fdup fdup
f* f* f* f* f*
prntpi ( the result shall be 314159265 )
;

\ -pi f* f/

: test3 
_1e6 fdup fdup fdup fdup
f* f* f* f*
_-pi  
fswap 
f/
_1e6 fdup fdup fdup fdup
f* f* f* f* f*

prntpi ( the result shall be 314159265 )
;

: test4
_-pi _1e6 f/ _1e6 f/ _1e6 f/ _1e6 f/ _1e6 f/ 
_1e6 fdup fdup fdup fdup
f* f* f* f* f*
prntpi ( the result shall be 314159265 )
;

> test1
314159200  ok
> test2
314159136  ok
> test3
-314159200  ok
> test4
-314159136  ok
> 

The magnitude errors caused by single precision (let us hope so..).
The next step is to test add and sub.
Pito




.
> 
> My reposititory has been updated -- keep the tests
> coming.
> 
> -Leon
>