fixpt.asv

来自「通过迭代的原理,进行数值计算,求得所需解的曲线,精度很高」· ASV 代码 · 共 23 行

function [k,p,err,P]=fixpt(g,p0,tol,max1)
%Input-g is the iteration function input as a string 'g'
%     -p0 is the initial guess for the fixed point
%     -tol is the tolerance
%     -max1 is the maximum number of iterations
%Output-k is the number of iterations that were carried out
%      -p is the approximation to the fixed point
%      -err is the error in the approximation 
%      -P contains the sequencee{pn}用于计算不动点的迭代问题
P(1)=p0;
for k=2:max1;
    P(k)=feval('g',P(k-1));
    err=abs(P(k)-P(k-1));
    relerr=err/(abs(P(k))+eps);
    p=P(k);
    if (err<tol)|(relerr<tol),fprintf(%f,d);
        break;
    end
end
if k==max1
    disp('maximum number of iterations exceeded')
end
P=P';