13 lines
371 B
Plaintext
13 lines
371 B
Plaintext
y = 1
|
|
while t <= 10
|
|
k1 = t * sqr(y)
|
|
k2 = (t + .05) * sqr(y + .05 * k1)
|
|
k3 = (t + .05) * sqr(y + .05 * k2)
|
|
k4 = (t + .1) * sqr(y + .1 * k3)
|
|
|
|
if right$(using("##.#",t),1) = "0" then print "y(";using("##",t);") ="; using("####.#######", y);chr$(9);"Error ="; (((t^2 + 4)^2) /16) -y
|
|
y = y + .1 *(k1 + 2 * (k2 + k3) + k4) / 6
|
|
t = t + .1
|
|
wend
|
|
end
|