newton.asv

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

function newton(x,y,e,f)
syms s
f1=inline(f);
xx=linspace(x,y,100);
f2=diff(f1(s));
yy=f2(xx);
if yy~=zeros(1,100);
    f3=x-f(x)/f2(x);
    f=inline(f3);
    syms s1
    y1=diff(f(s1));
    f2=inline(y1);
    xx1=linspace(x,y,100);
    
    
    
    function xia329(a,b,j,f3)
f=inline(f3);
syms s1
y=diff(f(x));
f2=inline(y);
xx=linspace(a,b,100);
    s=abs(f2(xx));
    s1=zeros(1,100);
    s2=ones(1,100);
    if s>s1 & s<s2;
        i=1;
        while abs(a-b)>j;
            a=b;
            b=f(a);
            i=i+1;
            fprintf('%d%13.8f\n',i,b);
        end
    else 
        disp('此多项式不能进行迭代');
    end