Format long;
N=(b-a)/h;
y=zeros(N+1,1);
y(1)=y0;
x=a:h:b;
var=findsym(f);
for i=2:N+1
   fx=Funval(f,var(1),x(i));
   gx=y(i-1)+h*fx-varvec(2);
   y(i)=NewtonRoot(gx,-10,10,eps);%用牛顿法得出下步的迭代值
end
format short;

7楼: Originally posted by 微尘、梦想 at 2012-02-23 16:50:00:
嗯，我也就是想把它搞明白它到底是如何工作的，解常微分方程的显示解法，我都搞明白了，从最简单的欧拉法到四阶龙格-库塔法，不过我在网上找到一篇关于算法分析的文章，结论是隐式算法的稳定性普遍比显式算法高， ...

yt[n+1] = y[n] + h * f(x[n], y[n]);
y[n+1] = y[n] + h * f(x[n+1], yt[n+1]);

3楼: Originally posted by sudo at 2012-02-23 13:29:11:
恩，如果不要求通用的方法，只需要针对特定函数的话，也可以先化简迭代式，或者可能可以直接导出y[n+1]的公式什么的~