49 lines
387 B
Plaintext
49 lines
387 B
Plaintext
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
|