📄 lab12ex1.m
字号:
function lab12ex1t0 = 0;tf = 1;y0 = 1;yexact = exp(-1);for h = [0.1,0.01] N = round((tf-t0)/h); [t,ye]=euler(@f,[t0,tf],y0,N); [t,yt]=taylor(@f,@ft,@fy,[t0,tf],y0,N); [t,yr]=rk4(@f,[t0,tf],y0,N); tt = t0:h:tf; plot(tt,ye,'r',tt,yt,'b',tt,yr,'k'); disp(['with h=' num2str(h) ... ' Euler error=' num2str(yexact-ye(end)) ... 'Taylor error=' num2str(yexact-yt(end)) ... ' RK-4 error=' num2str(yexact-yr(end))])endfunction dydt = f(t,y)dydt = -10*(y-exp(-t)) - exp(-t);function dfdt = ft(t,y)dfdt = -9*exp(-t);function dfdy = fy(t,y)dfdy = -10;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -