twoeuler.m

来自「研一」· M 代码 · 共 11 行

function TE=twoeuler(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
    Y(j+1)=Y(j-1)+(2*h)*feval(f,T(j),Y(j));
end
TE=[T' Y'];