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 > ------------------------------------------------------------------------------ This SF.net Dev2Dev email is sponsored by: Show off your parallel programming skills. Enter the Intel(R) Threading Challenge 2010. http://p.sf.net/sfu/intel-thread-sfd _______________________________________________ Amforth-devel mailing list Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
