数值逼近上机作业4.docVIP

下载本文档

1
0
约1.53千字
约 3页
2017-06-13 发布于广东
举报
版权申诉

数值逼近上机作业4.doc

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

数值逼近上机作业4

Runge现象的插值比较——拉格朗日插值VS三次样条插值程序代码：主程序代码 function varargout=runge(varargin) close all clear all clc %% 给出插值条件 x=-1:0.2:1; y=1./(1+25*x.^2); n=length(x); ybar=[10/(26)^2,-10/(26)^2]; %% 给出绘图节点 z=-1:0.01:1; m=length(z); %% 计算拉格朗日插值L(x)在z处的函数值 for k=1:m L(k)=0; for i=1:n t=1; for j=1:n if j~=i t=t*(z(k)-x(j))/(x(i)-x(j)); end end L(k)=L(k)+y(i)*t; end end %% 计算三次样条插值S(x)在z处的函数值 % 计算三弯矩方程的系数 lmd(1)=1; mu(n)=1; for i=1:n-1 h(i)=x(i+1)-x(i); end d(1)=6*((y(2)-y(1))/h(1)-ybar(1))/h(1); d(n)=6*(ybar(2)-(y(n)-y(n-1))/h(n-1))/h(n-1); for i=2:n-1 lmd(i)=h(i)/(h(i-1)+h(i)); mu(i)=h(i-1)/(h(i-1)+h(i)); d(i)=6*((y(i+1)-y(i))/h(i)-(y(i)-y(i-1))/h(i-1))/(h(i-1)+h(i)); end % 追赶法解三弯矩方程，求矩M beta(1)=lmd(1)/2; for i=2:n-1 beta(i)=lmd(i)/(2-mu(i)*beta(i-1)); end u(1)=d(1)/2; for i=2:n u(i)=(d(i)-mu(i)*u(i-1))/(2-mu(i)*beta(i-1)); end M(n)=u(n); for i=n-1:-1:1 M(i)=u(i)-beta(i)*M(i+1); end % 计算三次样条插值函数的值 for k=1:m for i=1:n-1 if z(k)=x(i) z(k)=x(i+1); S(k)=M(i)*(x(i+1)-z(k))^3/(6*h(i))+M(i+1)*(z(k)-x(i))^3/(6*h(i))... +(y(i)-M(i)*h(i)^2/6)*(x(i+1)-z(k))/h(i)+(y(i+1)-M(i+1)*h(i)... ^2/6)*(z(k)-x(i))/h(i); break end end end %% 计算函数值 F=1./(1+25*z.^2); %% 输出节点，函数值，样条值，拉氏值 disp(节点函数值样条值拉氏值); disp([z,F,S,L]); %% 作图 plot(z,F,b,z,L,k,z,S,r); legend(函数值,拉氏值,样条值); title(Runge现象的插值比较——拉格朗日插值VS三次样条插值); 运行结果：