twochange.m

研一

function TC=twochange(f,a,b,ya,yb,M)
h=(b-a)/M;
T=zeros(1,M+1);
Y=zeros(1,M+1);
T=a:h:b;
Y(1)=ya;
Y(2)=yb;
for j=2:M
    K1=feval(f,T(j),Y(j));
    K2=feval(f,T(j+1),Y(j-1)+2*h*K1);
    Y(j+1)=Y(j)+(h/2)*(K1+K2);
end
TC=[T' Y'];