?? atkenstablepoint.m
字號:
function [root,n]=AtkenStablePoint(f,x0,eps)
if(nargin==2)
eps=1.0e-4;
end
tol=1;
root=x0;
x(1:2)=0;
n=0;
m=0;
a2=x0;
while(tol>eps)
n=n+1;
a1=a2;
r1=root;
root=subs(sym(f),findsym(sym(f)),r1)+r1;
x(n)=root;
if(n>2)
m=m+1;
a2=x(m)-(x(m+1)-x(m))^2/(x(m+2)-2*x(m+1)+x(m));
tol=abs(a2-a1);
end
end
root=a2;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -