?? secant.m
字號:
%割線法求根的程序
function[p1,err,k,y]=secant(p0,p1,wl,l)
delta=0.5e-6;
epsilon=7e-6;
maxl=10;
format long;
for k=1:maxl
g=@two;
p2=p1-feval(g,wl,l,p1).*(p1-p0)./(feval(g,wl,l,p1)-feval(g,wl,l,p0));
err=abs(p2-p1);
relerr=2.*err./(abs(p2)+delta);
p0=p1;
p1=p2;
y=feval(g,wl,l,p1);
if(err<delta)|(relerr<delta)|(abs(y)<epsilon)
break
end
end
p1
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -