>#DEFINE _DECIMALS 5 >#DEFINE _ERRORPOWER 8 >#DEFINE _CICLES 50000 > >CLEAR >? "Expected fails:",INT(10^(_DECIMALS-_ERRORPOWER)/4*_CICLES) >t=0 >FOR K=1 TO _CICLES > X=RAND()*1000 > E=(RAND()-0.5)*1E-_ERRORPOWER > IF ROUND(m.x,_DECIMALS) # ROUND(m.x+m.E,_DECIMALS) > t=t+1 > ENDIF >NEXT >?? " fails: ",T > >? "Expected fails:",INT(10^(_DECIMALS-_ERRORPOWER)/4*_CICLES) >t=0 >FOR K=1 TO _CICLES > X=RAND()*1000 > E=(RAND()-0.5)*1E-_ERRORPOWER > IF STR(m.x,18,_DECIMALS) # STR(m.x+m.E,18,_DECIMALS) > t=t+1 > ENDIF >NEXT >?? " fails: ",T >>
>x=$99999999999999.9900 >? x,STR(x,19,2) >>