二分法及迭代法求解非线性方程根(5)

function val=DieDai(f,x0,delta) %用

if nargin<3

delta=1e-7;

end

n=1;

x1=feval(f,x0);

while abs(x1-x0)>delta

x0=x1;

x1=feval(f,x0);

n=n+1;

if n>100

exit('跌代出问题'); end

end

val=x1;

disp(['跌代次数']);%显示跌代次数 disp(n);