刘凯数值分析.docxVIP

下载本文档

46
0
约7.51千字
约 20页
2017-02-10 发布于重庆
举报
版权申诉

刘凯数值分析.docx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

刘凯数值分析

数值分析上机作业刘凯 2120111276第一章1.1计算积分 (要求计算结果具有6位有效数字)程序如下：format longsyms xy=(x^9)*exp(x-1);m=int(y,x,0,1);p=double(m)结果：p = 04分别将区间［-10,10］分为100,200,400等份，利用mesh或surf命令画出二元函数的三维图形。程序如下：x=-10:0.2:10;y=x;[X,Y]=meshgrid(x,y);z=exp(-abs(X))+cos(X+Y)+1./(X.^2+Y.^2+1);mesh(z);第二章2.2试用MATLAB软件编程实现追赶法求解三对角方程组的算法，并考虑如下梯形电阻电路问题：其中电路中的各个电流{i1,i2,…，i8}满足下列线性方程组：2i1-2i2 　　　　　　　=V/R-2i1+5i2-2i3 =0-2i2+5i3-2i4 =0 -2i3+5i4-2i5 =0 -2i4+5i5-2i6 =0 -2i5+5i6-2i7 =0 -2i6+5i7-2i8=0 -2i7+5i8=0设V=220V，R=27Ω，求各段电路的电流量。程序如下：Cleara=[0 -2 -2 -2 -2 -2 -2 -2];b=[2 5 5 5 5 5 5 5];c=[-2 -2 -2 -2 -2 -2 -2 0];v=220;r=27;d=[v/r 0 0 0 0 0 0 0];n=8;for i=2:n a(i)=a(i)/b(i-1); b(i)=b(i)-c(n-1)*a(i); d(i)=d(i)-a(i)*d(i-1); end; d(n)=d(n)/b(n); for i=n-1:-1:1 d(i)=(d(i)-c(i)*d(i+1)); end; I=d; fprintf(“各路段的电流量I为”);运行结果如下：各段电路电流量I为ans =149.0717 70.4618 31.1568 12.8624 4.9497 1.7169 0.4772 0.0477第三章3.1试分别用(1)Jacobi迭代法；(2)Gauss-Seidel迭代法解线性方程组=迭代初始向量取=(0,0,0,0,0)T。程序如下：Jacobi：b=[12;-27;14;-17;12]x=[0;0;0;0;0;] k=0; r=1; e=0.000001A=[10,1,2,3,4;1,9,-1,2,-3;2,-1,7,3,-5;3,2,3,12,-1;4,-3,-5,-1,15;]D=diag(diag(A));B=inv(D)*(D-A);f=inv(D)*b;p=max(abs(eig(B))); if p=1 迭代法不收敛 returnendwhile re x0=x; x=B*x0 + f; k=k + 1; r=norm (x-x0,inf);endxk计算结果：x = 1.0000 -2.0000 3.0000 -2.0000 1.0000k=65SOR：A=[10,1,2,3,4;1,9,-1,2,-3;2,-1,7,3,-5;3,2,3,12,-1;4,-3,-5,-1,15]x=[0;0;0;0;0]; b=[12;-27;14;-17;12]e=0.000001w=1.44; L=-tril(A,-1)U=-triu(A,1) D=(diag(diag(A)))X=inv(D-w*L)*((1-w)*D+w*U)*x+w*inv(D-w*L)*b n=1;while norm(X-x,inf)=e x=X;X=inv(D-w*L)*((1-w)*D+w*U)*x+w*inv(D-w*L)*b;n=n+1;endXn计算结果：X =1.0000 -2.0000 3.0000 -2.0000 1.0000n=22G-S：A=[10,1,2,3,4;1,9,-1,2,-3;2,-1,7,3,-5;3,2,3,12,-1;4,-3,-5,-1,15;]x=[0;0;0;0;0]; b=[12;-2