New example:
Code: Select all
'euler method example
precision 4
let s = 2
gosub euler
let s = 5
gosub euler
let s = 10
gosub euler
end
sub euler
cls
cursor 1, 1
wait
print "step: ", s
let b = 100
let y = 100
for t = 0 to b step s
print t, " : ", y
let y = y + s * (-0.07 * (y - 20))
gosub delay
next t
alert "step ", s, " finished"
return
sub delay
let w = clock
do
wait
loop clock < w + 200
return