Lucid Apogee Forum

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