1.求,精度为10-6
clc,clear
f=inline('x^2-113');
df=inline('2*x');
[y,k]=newton(f,df,10,10^(-6),500,1)
function[y,k]=newton(fname,dfname,x0,tol,N,m)
y=x0;
x0=y+2*tol;
k=0;
while abs(x0-y)>tol&k<N
k=k+1
x0=y
y=x0-m*fname(x0)/dfname(x0);
disp(y)
end
if k==N
disp(warning)
end
end
clc,clear
f=inline('2*x^3-3*x^2+1');
df=inline('6*x^2-6*x');
[y,k]=newton(f,df,-0.4,10^(-3),500,1)
function[y,k]=newton(fname,dfname,x0,tol,N,m)
y=x0;
x0=y+2*tol;
k=0;
while abs(x0-y)>tol&k<N
k=k+1
x0=y
y=x0-m*fname(x0)/dfname(x0);
disp(y)
end
if k==N
disp(warning)
end
end