Line: 1 to 1 | ||||||||
---|---|---|---|---|---|---|---|---|
%DASHBOARD{ section="banner" | ||||||||
Line: 79 to 79 | ||||||||
| ||||||||
Changed: | ||||||||
< < |
| |||||||
> > |
| |||||||
0.1005e fs. 1.01E-1 ok. 0.1005e fm. 101m ok. 4 set-precision 0.100005e fs. 1.0000E-1 ok. 0.100005e fm. 100.00m ok. | ||||||||
Added: | ||||||||
> > | 1.00005e f>x x. 1,00004994869232177734375000000000 ok. 1,00005 x. 1,00004999991506338119506835937500 ok. | |||||||
Line: 238 to 240 | ||||||||
Added: | ||||||||
> > |
| |||||||
: f|| ( r1 r2 -- r3) | ||||||||
Changed: | ||||||||
< < | 2dup * -rot + / | |||||||
> > | 2dup f* -rot f+ f/ | |||||||
; | ||||||||
Changed: | ||||||||
< < | 27k 100k f|| fm. | |||||||
> > | 27k 100k f|| fm. 21.3k ok.
: f. ( r -- ) \ display, with a trailing space, the floating-point number r in fixed-point notation $3F000000 \ .5 precision 0 do $41200000 f/ \ 10.0 / loop f+ \ round f>x <# 0 #s 2drop \ integer part 46 hold< \ decimal point precision 0 do x# \ fract digit loop dup #> type space ; | |||||||