ksxjf.m

来自「为配套王能超版本数值分析简明教程编写,方便学生教师演示!」· M 代码 · 共 35 行

function ksxjf(x,y,e,f)
syms t
f1=inline(f);
f2=diff(f1(t));
f5=inline(f2);
xx=linspace(x,y,100);
for i=2:100;
    yy(i)=(f1(xx(i))-f1(xx(i-1)))/(xx(i)-xx(i-1));
end
yy(1)=0;
if yy~=ones(1,100);
    syms t2
    f3=inline(t2-f1(t2)/f5(t2));
    syms t1
    y1=diff(f3(t1));
    f2=inline(y1);
    xx1=linspace(x,y,100);
    s=abs(f2(xx));
    s1=zeros(1,100);
    s2=ones(1,100);
    if s>s1 & s<s2;
        i=0;
        while abs(x-y)>e;
            w=x;
            x=y;
            y=x-f1(x)*(x-w)/(f1(x)-f1(w));
            i=i+1;
            fprintf('%d%13.8f\n',i,y);
        end
    else 
        disp('此多项式不能进行迭代');
    end
else
    disp('此多项式不能进行迭代');
end