- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
二分法,不动点迭代法,艾特肯加速迭代法,牛顿切线法的matlab程序及举例
§2.1.1 二分法的MATLAB主程序
function [k,x,wuca,yx]=erfen(a,b,abtol)
a(1)=a; b(1)=b;
ya=fun(a(1)); yb=fun(b(1)); %程序中调用的fun.m 为函数
if ya* yb0,
disp(注意:ya*yb0,请重新调整区间端点a和b.), return
end
max1=-1+ceil((log(b-a)- log(abtol))/ log(2)); % ceil是向 方向取整
for k=1: max1+1
a;ya=fun(a); b;yb=fun(b); x=(a+b)/2;
yx=fun(x); wuca=abs(b-a)/2; k=k-1;
[k,a,b,x,wuca,ya,yb,yx]
if yx==0
a=x; b=x;
elseif yb*yx0
b=x;yb=yx;
else
a=x; ya=yx;
end
if b-a abtol , return, end
end
k=max1; x; wuca; yx=fun(x);
§2.1.2 不动点迭代法的MATLAB主程序
function [k,piancha,xdpiancha,xk,yk]=diedai2(x0,tol,ddmax)
x(1)=x0;
for i=1: ddmax
x(i+1)=fun(x(i));piancha=abs(x(i+1)-x(i));
xdpiancha=piancha/( abs(x(i+1))+eps);i=i+1;
xk=x(i);yk=fun(x(i)); [(i-1) piancha xdpiancha xk yk]
if (pianchatol)|(xdpiancha tol)
k=i-1; xk=x(i);
return;
end
end
if iddmax
disp(迭代次数超过给定的最大值ddmax)
k=i-1; xk=x(i);yk=fun(x(i));
[(i-1) piancha xdpiancha xk yk];
return;
end
P=[(i-1),piancha,xdpiancha,xk,yk];
§2.1.3 艾特肯加速迭代法的MATLAB主程序
function [k,xk,yk,p]= Aitken (x0,tol, ddmax)
x(1)=x0;
for i=1: ddmax
x1(i+1)=fun(x(i)); x2(i+1)=fun(x1(i+1));
x(i+1)=x2(i+1)-(x2(i+1)-x1(i+1))^2/(x2(i+1)-2*x1(i+1)+ x(i));
piancha=abs(x(i+1)-x(i));
xdpiancha= piancha/( abs(x(i+1))+eps);
i=i+1; xk=x(i);yk=fun(x(i));
if (pianchatol)|(xdpianchatol)
k=i-1; xk=x(i); yk=fun(x(i));
m=[0,1:i-1]; p=[m,x1,x2,x];
return;
end
end
if iddmax
disp(迭代次数超过给定的最大值ddmax)
k=i-1; xk=x(i); yk=fun(x(i));
m=[0,1:i-1]; p=[m,x1,x2,x];
return;
end
m=[0,1:i-1]; p=[m,x1,x2,x];
§2.1.4 牛顿切线法的MATLAB主程序
function [k,xk,yk,piancha,xdpiancha]=newtonqx(x0,tol,ftol,gxmax)
x(1)=x0;
for i=1: gxmax
x(i+1)=x(i)-fun(x(i))/(dfun(x(i))+eps); piancha=abs(x(i+1)-x(i));
xdpiancha= piancha/( abs(x(i+1))+eps); i=i+1;
xk=x(i);yk=fun(x(i)); [(i-1) xk yk piancha xdpiancha]
if (abs(yk)ftol)((pianchatol)|(xdpiancha tol))
k=i-1; xk=x(i);[(i-1) xk yk piancha xdpiancha]
return;
end
end
if igxmax
disp(请注意:迭代次数超过给定的最大值gxma
文档评论(0)