Runge现象的演示(内含 L 和 N 插值多项式).docx_第1页
Runge现象的演示(内含 L 和 N 插值多项式).docx_第2页
Runge现象的演示(内含 L 和 N 插值多项式).docx_第3页
Runge现象的演示(内含 L 和 N 插值多项式).docx_第4页
全文预览已结束

下载本文档

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

文档简介

实验4_2 Runge现象的演示(内含 L 和 N 插值多项式)【实验目的】1、了解并掌握matlab软件的基本应用方法;2、初步了解matlab中部分函数,熟悉循环语句的使用;3、通过上机进一步掌握Lagrange插值多项式的建立。【实验内容】(1)【实验一】 Lagrange 插值多项式(1)首先把本程序另存为一个不同的文件名;(2)把下面程序中开头的注释去掉,再把问号填写正确;.(2) 【实验二】Newton 插值多项式对于Newton插值多项式,可以不计算差分表(矩阵),而直接计算差分表中的对角元(实际上只用到这些值),这样就能大大减少储存空间,P79 图4-5 就是这种方法, 请你证明图中y(k)就是差分表的对角元,并注意后半部分就是 Horner 算法. 按此法编程【解】:手工分析怎样求解这题。【计算机求解】:怎样设计程序?流程图?变量说明?能否将某算法设计成具有形式参数的函数形式?【实验一】Lagrange 插值多项式【程序如下】:function y=lagrange(X,Y,x); n=length(X);m=length(x); for i=1:m z=x(i); s=0.0; for k=1:n t=1.0; for j=1:n if j=k t=t*(z-X(j)/(X(k)-X(j); end end s=t*Y(k)+s; end y(i)=s; endf = inline(1./(1+25*x.2); n = 30;X = linspace(-1,1,n); Y = f(X); x = -1 : 0.01 : 1; y=lagrange(X,Y,x);plot(x,f(x),r,X,Y,o,x,y,b)title(Runge现象) legend(y=1/(1+25*x2),插值点 ,等分的30次插值多项式,0) 【运行结果如下】将n改为50次,得到下面图像:【结果分析】 通过实验,可以更直观的将插值的结果展现出来,同时还能发现格式插值的弊端。由图可知,并非插值多项式的次数越高,逼近的精度越好。相反,当n增大时,Pn(x)上下振荡更加剧烈,这就是高次插值多项式产生的不收敛现象龙格现象。【实验二】 Newton 插值多项式【程序如下】:functionc,d=newploy(x,y)n=length(x);d=zeros(n,n);d(:,1)=y;for j=2:n for k=j:n d(k,j)=(d(k,j-1)-d(k-1,j-1)/(x(k)-x(k-j+1); endendc=d(n,n);for k=(n-1):-1:1 c=conv(c,poly(x(k); m=length(c) c(m)=c(m)+d(k,k);end t=0:0.1:6; z=t.3-4*t; x=1 2 3 4 5 6; y=-3,0,15,48,105,192; plot(t,z,x,y,ro);grid【运行结果如下】: 【结果分析】:本程序给出了计算牛顿插值多项式的函数,通过调用函数可以求得牛顿多项

温馨提示

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

评论

0/150

提交评论