安徽师范大学《计算方法》实验课程序+答案(数学专业)七_第1页
安徽师范大学《计算方法》实验课程序+答案(数学专业)七_第2页
安徽师范大学《计算方法》实验课程序+答案(数学专业)七_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

PAGE3实验七一、阅读理解下列程序，并在计算机上运行.1.newt.m%x,y分别为插值节点列向量及节点相应的函数值列向量,A为差商表矩阵,z为插值点，s为插值点的newton插值多项式计算值function[A,s]=newt(x,y,z)n=length(x);A=zeros(n);A(:,1)=y;c(1)=y(1);forj=2:nfori=j:nA(i,j)=(A(i,j-1)-A(i-1,j-1))/(x(i)-x(i-j+1));endc(j)=A(j,j);%差商表每一列的第一个数即newton插值多项式的系数ends=c(n);fork=n-1:-1:1%秦九韶算法计算newton插值多项式的值s=s*(z-x(k))+c(k);endA=[x,A];以课本P32例2、P33例3测试，并计算课本P6016（x=2.25）2.neville.m%x,y分别为插值节点向量及节点相应的函数值列向量,A为逐步插值表，z为插值点functionA=neville(x,y,z)n=length(x);A=zeros(n);A(:,1)=y;forj=2:nfori=j:nA(i,j)=A(i-1,j-1)+(A(i,j-1)-A(i-1,j-1))*(z-x(i-j+1))/(x(i)-x(i-j+1));endendA=[x,A];以课本P38例6测试.3.neville1.m%x,y分别为插值节点向量及节点相应的函数值列向量,A为逐步插值表,z为插值点，w为精度functionA=neville1(x,y,z,w)n=length(x);A=zeros(n);A(:,1)=y;forj=2:nfori=j:nA(i,j)=A(i-1,j-1)+(A(i,j-1)-A(i-1,j-1))*(z-x(i-j+1))/(x(i)-x(i-j+1));ifabs(A(i,j)-A(i,j-1))<w|abs(A(i,j)-A(i-1,j))<ww=1;breakendendifw==1breakendendA=[x,A];以课本P38例6，对不同的精度进行测试.二、调试修改程序gaocila.m（以z=4.5测试（此时y=1.578721））%验证高次插值的Runge现象function[y,err]=gaocila(z)%z为插值点x=-5:5;n=11;y=f(x);fori=1:nk=1;forj=1:nifj~=ik=k*(x-X(j))/(X(i)-X(j));endendy=y+k*Y(i);enderr=f(z)-y;functiony=f(x)%子函数y=1./(1+x.*x);三、编程并在计算机上调试修改运行.1.编写复化梯形公式及复化Simpson公式求值程

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论