- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2015
2015.1.9
上机作业题报告
上机作业题报告
1.Chapter 1
1.1题目
设SN=j=2N1
(1)编制按从大到小的顺序,计算SN的通用程序。
(2)编制按从小到大的顺序,计算SN的通用程序。
(3)按两种顺序分别计算,并指出有效位数。(编制程序时用单精度)
(4)通过本次上机题,你明白了什么?
clear;N=input(
clear;
N=input(请输入N值:);
Ac=single((3/2-1/N-1/(N+1))/2);
Snl2s=single(0);
Sns2l=single(0);
for i=2:N
Snl2s=Snl2s+1/(i*i-1);
end
for i=N:-1:2
Sns2l=Sns2l+1/(i*i-1);
end
fprintf(精确值为: %f\n,Ac);
fprintf(从大到小的顺序累加得SN=%f\n,Snl2s);
fprintf(从小到大的顺序累加得SN=%f\n,Sns2l);
disp(========================================================);
P20T17请输入N
P20T17
请输入N值:10^2
精确值为: 0.740049
从大到小的顺序累加得SN=0.740049
从小到大的顺序累加得SN=0.740050
============================================================
P20T17
请输入N值:10^4
精确值为: 0.749900
从大到小的顺序累加得SN=0.749852
从小到大的顺序累加得SN=0.749900============================================================ P20T17
从小到大的顺序累加得SN=0.749900
============================================================
P20T17
请输入N值:10^6
精确值为: 0.749999
从大到小的顺序累加得SN=0.749852
从小到大的顺序累加得SN=0.749999
============================================================
按从大到小的顺序,有效位数分别为:6,4,3。
按从小到大的顺序,有效位数分别为:5,6,6。
可以看出,不同的算法造成的误差限是不同的,好的算法可以让结果更加精确。当采用从大到小的顺序累加的算法时,误差限随着N的增大而增大,可见在累加的过程中,误差在放大,造成结果的误差较大。因此,采取从小到大的顺序累加得到的结果更加精确。
2.Chapter 2
2.1题目
(1)给定初值及容许误差,编制牛顿法解方程f(x)=0的通用程序。
(2)给定方程,易知其有三个根
eq \o\ac(○,1)由牛顿方法的局部收敛性可知存在当时,Newton迭代序列收敛于根x2*。试确定尽可能大的δ。
eq \o\ac(○,2)试取若干初始值,观察当时Newton序列的收敛性以及收敛于哪一个根。
(3)通过本上机题,你明白了什么?
2.2程序
f(x)函数m文件:fu.m
function Fu=fu(x)
Fu=x^3/3-x;
end
f(x)函数m
function Fu=dfu(x)
Fu=x^2-1;
end
用Newton法求根的通用程序Newton.m
clear;
x0=input(请输入初值x0:);
ep=input(请输入容许误差:);
flag=1;
while flag==1
x1=x0-fu(x0)/dfu(x0);
if abs(x1-x0)ep
flag=0;
end
x0=x1;
end
fprintf(方程的一个近似解为:%f\n,x0);
寻找最大δ值的程序:Find.m
clear
eps=input(请输入搜索精度:);
ep=input(请输入容许误差:);
flag=1;
k=0;
x0=0;
while flag==1
sigma=k*eps;
x0=sigma;
k=k+1;
m=0;
flag1=1;
while flag1==1 m=10^3
x1=x0-fu(x0)/dfu(x0);
if abs(x1-x0)ep
flag1=0;
end
m=m+1;
x0=x1;
end
if flag1==1||a
文档评论(0)