- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数值分析实验(四)插值法实验.doc
插值法实验
班别: 学生姓名: 学号:
实验目的
1.通过进行不同类型的插值,比较各种插值的效果,明确各种插值的优越性;
2.通过比较不同次数的多项式拟合效果,了解多项式拟合的原理;
3.利用matlab编程,学会matlab命令;
4.掌握拉格朗日插值法和牛顿插值法;
实验题目
(1) 调用拉格朗日插值程序求拉格朗日插值4次多项式在0.45 0.5 0.6 0.8上的值,并画出原函数与拉格朗日插值4次多项式的图像进行比较。
(2) 调用牛顿插值程序求牛顿插值4次多项式, 并求其在0.45 0.5 0.6 0.8上的值。
(3)选做:调用分段线性插值程序求其在0.45 0.5 0.6 0.8上的值,并画出原函数与分段线性插值多项式的图像进行比较。
实验原理
1. 拉格朗日插值
2. 牛顿插值的原理
实验内容与结果
1. 拉格朗日插值法
(1)相关程序
function yy=mlagr(x,y,xx)
%用途:拉格朗日插值法求解
%格式:yy=mlagr(x,y,xx), x是节点向量, y是节点对应的函
%数值向量, xx是插值点(可以是多个), yp返回插值结果
n=length(x); m=length(xx);
yy=zeros(1,m); c1=ones(n-1,1); c2=ones(1,m);
for i=1:n
xp=x([1:i-1,i+1:n]);
yy=yy+y(i)*prod((c1*xx-xp*c2)./(x(i)-xp*c2));
End
(原函数与拉格朗日插值4次多项式的图像进行比较的程序)
x=[0.4 0.55 0.65 0.8 0.9];y=[0.41075 0.57815 0.69675 0.88811 1.02652];plot(x,y,+);
x=0.4:0.01:0.6;y0=sin(x); plot(x,y0,*)
实验结果
x=[0.4 0.55 0.65 0.8 0.9];y=[0.41075 0.57815 0.69675 0.88811 1.02652];xx=[0.45 0.5 0.6 0.8]; yy=mlagr(x,y,xx)
yy =
0.4653 0.5211 0.6367 0.8881
(原函数与拉格朗日插值4次多项式的图像进行比较)
x=[0.4 0.55 0.65 0.8 0.9];y=[0.41075 0.57815 0.69675 0.88811 1.02652];plot(x,y,+);
x=0.4:0.01:0.6;y0=sin(x); plot(x,y0,*)
(3)实验结果分析
2. 牛顿插值法相关程序
(1)相关程序
%程序5.2--mnewp.m
function yy=mnewp(x,y,xx)
%用途:牛顿差值
%格式:yy=mnewp(x,y,xx), x是节点向量, y是节点对应的函
%数值向量, xx是插值点(可以是多个), yy返回插值结果
n=length(x);
syms t;
yy=y(1);
y1=0; lx=1;
for i=1:n-1
for j=i+1:n
y1(j)=(y(j-1)-y(j))/(x(j-i)-x(j)); %计算差商
end
c(i)=y1(i+1); lx=lx*(t-x(i));
yy=yy+c(i)*lx; %计算牛顿插值多项式的值
y=y1;
end
if nargin==3
yy=subs(yy,t,xx);
else
yy=collect(yy);
yy=vpa(yy,6);
end
(2)实验结果
x=[0.4 0.55 0.65 0.8 0.9];y=[0.41075 0.57815 0.69675 0.88811 1.02652];xx=[0.45 0.5 0.6 0.8]; yy=mnewp(x,y,xx)
yy =
0.4653 0.5211 0.6367 0.8881
(3)实验结果分析
文档评论(0)