Runge-Kutta method: Difference between revisions
m
→{{header|Fortran}}
m (→{{header|Fortran}}: slightly cleaner) |
|||
Line 707:
t = tstart
write (6, '(a,f4.1,a,f12.8,a,es13.6)') 'y(', t, ') = ', y, ' error = ', &
abs(y-(t**2+4
do while (t < tstop)
k1 = dt*f(t, y)
| |||