fover (f.) >float fswap f~\r
AND\r
;\r
-: T_FS. ( -- ok? ) ( r -f- )\r
+: T_FS. ( -- ok? ) ( r ftol -f- )\r
fover (fs.) >float fswap f~\r
AND\r
;\r
-: T_FE. ( -- ok? ) ( r -f- )\r
+: T_FE. ( -- ok? ) ( r ftol -f- )\r
fover (fe.) >float fswap f~\r
AND\r
;\r
\r
-: T_FG. ( -- ok? ) ( r -f- )\r
+: T_FG. ( -- ok? ) ( r ftol -f- )\r
fover (f.) >float fswap f~\r
AND\r
;\r
\r
-: T_F>D ( -- ok? ) ( r -f- )\r
+: T_F>D ( -- ok? ) ( r ftol -f- )\r
fover f>d d>f fswap f~\r
;\r
\r
T{ 511 S>F -294 S>F F/ -0.0001 T_F. }T{ true }T\r
\r
: T.SERIES { N matchCFA | flag -- ok? } ( fstart fmult -f- )\r
- fswap ( -- fmust fstart )\r
+ fswap ( -- fmult fstart )\r
true -> flag\r
N 0\r
?DO\r