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;

6楼: Originally posted by sudo at 2012-02-23 15:41:38:
如果它的方法要通用的话，在NewtonRoot还必须对gx进行一次符号求导（用diff函数），所以这个方法其实比较蛋疼

还不如直接用前向欧拉给估计了...

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]的公式什么的~