15 lines
338 B
Plaintext
15 lines
338 B
Plaintext
x = euler(-0.07,-20, 100, 0, 100, 2)
|
|
x = euler-0.07,-20, 100, 0, 100, 5)
|
|
x = euler(-0.07,-20, 100, 0, 100, 10)
|
|
end
|
|
|
|
FUNCTION euler(da,db, y, a, b, s)
|
|
print "===== da:";da;" db:";db;" y:";y;" a:";a;" b:";b;" s:";s;" ==================="
|
|
t = a
|
|
WHILE t <= b
|
|
PRINT t;chr$(9);y
|
|
y = y + s * (da * (y + db))
|
|
t = t + s
|
|
WEND
|
|
END FUNCTION
|