aftereuler.m

研一

function AE=aftereuler(f,a,b,ya,M)
h=(b-a)/M;
T=zeros(1,M+1);
Y=zeros(1,M+1);
T=a:h:b;
Y(1)=ya;
for j=1:M
    K=Y(j)+h*feval(f,T(j),Y(j));
    Y(j+1)=Y(j)+h*feval(f,T(j+1),K);
end
AE=[T' Y'];