| 1 | \ @(#) t_floats.fth 98/02/26 1.1 17:46:04\r |
| 2 | \ Test ANS Forth FLOAT words.\r |
| 3 | \\r |
| 4 | \ Copyright 1994 3DO, Phil Burk\r |
| 5 | \r |
| 6 | INCLUDE? }T{ t_tools.fth\r |
| 7 | \r |
| 8 | ANEW TASK-T_FLOATS.FTH\r |
| 9 | \r |
| 10 | DECIMAL\r |
| 11 | 3.14159265 fconstant PI\r |
| 12 | \r |
| 13 | TEST{\r |
| 14 | \ ==========================================================\r |
| 15 | T{ 1 2 3 }T{ 1 2 3 }T\r |
| 16 | \ ----------------------------------------------------- D>F F>D\r |
| 17 | \ test some basic floating point <> integer conversion\r |
| 18 | T{ 4 0 D>F F>D }T{ 4 0 }T\r |
| 19 | T{ 835 0 D>F F>D }T{ 835 0 }T\r |
| 20 | T{ -57 -1 D>F F>D }T{ -57 -1 }T\r |
| 21 | T{ 15 S>F 2 S>F F/ F>S }T{ 7 }T \ 15.0/2.0 -> 7.5\r |
| 22 | \r |
| 23 | \ ----------------------------------------------------- input\r |
| 24 | T{ 79.2 F>S }T{ 79 }T\r |
| 25 | T{ 0.003 F>S }T{ 0 }T\r |
| 26 | \r |
| 27 | \ ------------------------------------------------------ F~\r |
| 28 | T{ 23.4 23.5 0.2 f~ }T{ true }T\r |
| 29 | T{ 23.4 23.7 0.2 f~ }T{ false }T\r |
| 30 | T{ 922.3 922.3 0.0 f~ }T{ true }T\r |
| 31 | T{ 922.3 922.31 0.0 f~ }T{ false }T\r |
| 32 | T{ 0.0 0.0 0.0 f~ }T{ true }T\r |
| 33 | T{ 0.0 -0.0 0.0 f~ }T{ false }T\r |
| 34 | T{ 50.0 51.0 -0.02 f~ }T{ true }T\r |
| 35 | T{ 50.0 51.0 -0.002 f~ }T{ false }T\r |
| 36 | T{ 500.0 510.0 -0.02 f~ }T{ true }T\r |
| 37 | T{ 500.0 510.0 -0.002 f~ }T{ false }T\r |
| 38 | \r |
| 39 | \ convert number to text representation and then back to float\r |
| 40 | : T_F. ( -- ok? ) ( r ftol -f- )\r |
| 41 | fover (f.) >float fswap f~\r |
| 42 | AND\r |
| 43 | ;\r |
| 44 | : T_FS. ( -- ok? ) ( r ftol -f- )\r |
| 45 | fover (fs.) >float fswap f~\r |
| 46 | AND\r |
| 47 | ;\r |
| 48 | : T_FE. ( -- ok? ) ( r ftol -f- )\r |
| 49 | fover (fe.) >float fswap f~\r |
| 50 | AND\r |
| 51 | ;\r |
| 52 | \r |
| 53 | : T_FG. ( -- ok? ) ( r ftol -f- )\r |
| 54 | fover (f.) >float fswap f~\r |
| 55 | AND\r |
| 56 | ;\r |
| 57 | \r |
| 58 | : T_F>D ( -- ok? ) ( r ftol -f- )\r |
| 59 | fover f>d d>f fswap f~\r |
| 60 | ;\r |
| 61 | \r |
| 62 | T{ 0.0 0.00001 T_F. }T{ true }T\r |
| 63 | T{ 0.0 0.00001 T_FS. }T{ true }T\r |
| 64 | T{ 0.0 0.00001 T_FE. }T{ true }T\r |
| 65 | T{ 0.0 0.00001 T_FG. }T{ true }T\r |
| 66 | T{ 0.0 0.00001 T_F>D }T{ true }T\r |
| 67 | \r |
| 68 | T{ 12.34 -0.0001 T_F. }T{ true }T\r |
| 69 | T{ 12.34 -0.0001 T_FS. }T{ true }T\r |
| 70 | T{ 12.34 -0.0001 T_FE. }T{ true }T\r |
| 71 | T{ 12.34 -0.0001 T_FG. }T{ true }T\r |
| 72 | T{ 1234.0 -0.0001 T_F>D }T{ true }T\r |
| 73 | \r |
| 74 | T{ 2345 S>F 79 S>F F/ -0.0001 T_F. }T{ true }T\r |
| 75 | T{ 511 S>F -294 S>F F/ -0.0001 T_F. }T{ true }T\r |
| 76 | \r |
| 77 | : T.SERIES { N matchCFA | flag -- ok? } ( fstart fmult -f- )\r |
| 78 | fswap ( -- fmult fstart )\r |
| 79 | true -> flag\r |
| 80 | N 0\r |
| 81 | ?DO\r |
| 82 | fdup -0.0001 matchCFA execute not\r |
| 83 | IF\r |
| 84 | false -> flag\r |
| 85 | ." T_F_SERIES failed for " i . fdup f. cr\r |
| 86 | leave\r |
| 87 | THEN\r |
| 88 | \ i . fdup f. cr\r |
| 89 | fover f*\r |
| 90 | LOOP\r |
| 91 | matchCFA >name id. ." T.SERIES final = " fs. cr\r |
| 92 | flag\r |
| 93 | ;\r |
| 94 | \r |
| 95 | : T.SERIES_F. ['] t_f. t.series ;\r |
| 96 | : T.SERIES_FS. ['] t_fs. t.series ;\r |
| 97 | : T.SERIES_FG. ['] t_fg. t.series ;\r |
| 98 | : T.SERIES_FE. ['] t_fe. t.series ;\r |
| 99 | : T.SERIES_F>D ['] t_f>d t.series ;\r |
| 100 | \r |
| 101 | T{ 1.0 1.3 150 t.series_f. }T{ true }T\r |
| 102 | T{ 1.0 -1.3 150 t.series_f. }T{ true }T\r |
| 103 | T{ 2.3456789 1.3719 150 t.series_f. }T{ true }T\r |
| 104 | \r |
| 105 | T{ 3000.0 1.298 120 t.series_f>d }T{ true }T\r |
| 106 | \r |
| 107 | T{ 1.2 1.27751 150 t.series_fs. }T{ true }T\r |
| 108 | T{ 7.43 0.812255 200 t.series_fs. }T{ true }T\r |
| 109 | \r |
| 110 | T{ 1.195 1.30071 150 t.series_fe. }T{ true }T\r |
| 111 | T{ 5.913 0.80644 200 t.series_fe. }T{ true }T\r |
| 112 | \r |
| 113 | T{ 1.395 1.55071 120 t.series_fe. }T{ true }T\r |
| 114 | T{ 5.413 0.83644 160 t.series_fe. }T{ true }T\r |
| 115 | \r |
| 116 | \ ----------------------------------------------------- FABS\r |
| 117 | T{ 0.0 FABS 0.0 0.00001 F~ }T{ true }T\r |
| 118 | T{ 7.0 FABS 7.0 0.00001 F~ }T{ true }T\r |
| 119 | T{ -47.3 FABS 47.3 0.00001 F~ }T{ true }T\r |
| 120 | \r |
| 121 | \ ----------------------------------------------------- FSQRT\r |
| 122 | T{ 49.0 FSQRT 7.0 -0.0001 F~ }T{ true }T\r |
| 123 | T{ 2.0 FSQRT 1.414214 -0.0001 F~ }T{ true }T\r |
| 124 | \r |
| 125 | \ ----------------------------------------------------- FSIN\r |
| 126 | T{ 0.0 FSIN 0.0 0.00001 F~ }T{ true }T\r |
| 127 | T{ PI FSIN 0.0 0.00001 F~ }T{ true }T\r |
| 128 | T{ PI 2.0 F* FSIN 0.0 0.00001 F~ }T{ true }T\r |
| 129 | T{ PI 0.5 F* FSIN 1.0 0.00001 F~ }T{ true }T\r |
| 130 | T{ PI 6.0 F/ FSIN 0.5 0.00001 F~ }T{ true }T\r |
| 131 | \r |
| 132 | \ ----------------------------------------------------- \\r |
| 133 | }TEST\r |
| 134 | \r |