二分法改进加快收敛速.pptx

粗略寻找零点k=0;
a=0;
b=3;
whileabs(b-a)>eps*abs(b)
x=(a+b)/2;
ifsign(f(x))==sign(f(b))
b=x;
else
a=x;
end
k=k+1;
end
formatlong
x
k改进思想（a,x0）（x,x0）k=0;
a=0;
b=3;
whileabs(b-a)>eps*abs(b)
x=(a+b)/2;
ifsign(f(x))==sign(f(b))
x0=(x*f(a)-a*f(x))/(f(a)-f(x));
ifsign(f(x0))==sign(f(x))
b=x0;
else
a=x0;
b=x;
end
else
x0=(b*f(x)-x*f(b))/(f(x)-f(b));
ifsign(f(x0))==sign(f(b))
b=x0;
a=x;
else
a=x0;
end
end
k=k+1;
end
formatlong
x0
k
function1/(x-pi)谢谢！