5 lines
131 B
Text
5 lines
131 B
Text
Define f.d=1.0, e.d=1.0, e0.d=e, n.i=1
|
|
LOOP:
|
|
f*n : e+1.0/f
|
|
If e-e0>=1.0e-15 : e0=e : n+1 : Goto LOOP : EndIf
|
|
Debug "e="+StrD(e,15)
|