|
|
function yout = runge_kutta(fun,t,yin,varargin)( T# _8 n, y3 H1 Y1 l1 [
t_interval = t(2)-t(1);1 G+ ~5 y0 ~6 t7 o0 e z
k1 = t_interval*fun(t(1),yin,varargin);1 I5 P+ |4 \9 ]$ l
k2 = t_interval*fun(t(1)+t_interval/2,yin+k1/2varargin);
& a* ]: C/ r) f; [; P3 E& @k3 = t_interval*fun(t(1)+t_interval/2,yin+k2/2,varargin);( N- d( v4 l3 P' u8 y
k4 = t_interval*fun(t(1)+t_interval,yin+k3,varargin);
o9 `) c$ }" f' B+ X. `yout = yin+(k1+2*k2+2*k3+k4)/6;: J, n1 O$ I/ u* D1 n% {
end |
|