数学实验报告利用MALTAB计算插值与数值积分..docxVIP

数学实验报告利用MALTAB计算插值与数值积分..docx

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

实验一 插值与数值积分一、差值㈠问题描述选择一些函数,在n个节点上用拉格朗日、分段线性、三次样条三种差值方法,计算m个插值点的函数值,通过函数和图形输出,将三种插值结果与精确值进行比较,适当增加n再作比较,由此作初步分析。㈡方法与公式1、拉格朗日插值法2、分段线性插值法3、三次样条插值法㈢结果与分析1、函数 , ;(1)5节点,100插值点由图可以看出,三种差值方法中,拉格朗日插值法所得结果与真实值最接近,其次是三次样条插值法,最后是分段线性插值法。dif1 = 0.0043; dif2 = 0.0196; dif3 = 0.0058。dif表示每种插值方法得到的插值点与实际值的差方均。(即每个插值点与实际值之差的平方的和的平均值)。由此页可以看出,拉格朗日插值法所得结果与真实值最接近,其次是三次样条插值法,最后是分段线性插值法。(2)7节点,100插值点可以发现,通过增加节点,每一种插值法的结果都比原来更加接近真实值。dif1 = 0.0015; dif2 = 0.0082; dif3 = 0.0027;(3)10节点,100插值点结果进一步逼近真实值。dif1 = 0.00062; dif2 = 0.0035; dif3 = 0.0012;(4)简要小结a.增加节点可以有效地提高插值结果的准确度。b.在本函数下,拉人格朗日插值法的效果与三次样条插值法的效果相近,两者都好于分段线性插值法。(5)对比对比了自己编写的分段线性插值和matlab自带的分段线性插值函数。发现两者基本一致,区别无法从图中读出。dif1 = dif2 = 0.0121。误差相等。2、其它函数为了更好地对比各种插值法的优劣,仅用一种函数作测试是不够的,这里将书中提供的另外三个函数训练,结果如下:(1)6节点,100插值点此种情况与上一函数所示结果相近:拉格朗日插值法与三次样条插值法效果相近,两者优于分段线性插值法。(实验过程中发现,若节点为5,则拉格朗日插值法与三次样条插值法所得结果一致)。(2)6节点,100插值点10节点,100插值点时观察到了比较明显的Runge现象。(3)6节点,100插值点10节点,100插值点3、总结由以上各个对比可以得出以下结论:a.拉格朗日插值法的结果与三次样条插值法的结果在许多情况下比较相像;b.除非节点取得足够多,分段线性插值法的精度才能有所保障;c.对一些有峰值的函数,是否取峰值点为节点对结果的影响非常大;d.拉格朗日插值法在个别函数中会出现Runge现象,但并不是所有类似钟形的函数中都会出现,最后一个函数说明了这一点;e.在拉格朗日插值法可能出现Runge现象的情况中,三次样条插值法和分段线性插值法的效果要好于拉格朗日插值法。㈣程序清单1、拉格朗日插值法function y = lagr(x0,y0,x)n = length(x0); m = length(x);for i = 1:m z = x(i); s = 0; for k = 1:n p = 1; for j = 1:n if j~=k p = p*(z-x0(j))/(x0(k)-x0(j)); end end s = p*y0(k)+s; end y(i) = s;end2、分段线性插值法function y = myInterp(x0, y0, x)n = length(x0); m = length(x);for i = 1:m for j = 1:n if x(i) x0(j) break end end if(j == 1) y(i) = 0; elseif x0(j) == x0(j-1) y(i) = y0(j); else y(i) = (x(i)-x0(j-1))/(x0(j)-x0(j-1))*(y0(j)-y0(j-1))+y0(j-1); endend 3、“自启动”脚本x0 = -1: 2/5 : 1;y0 = sqrt(1-x0.^2);x = -1 : 0.02 : 1;y = sqrt(1-x.^2);y1 = larg(x0,y0,x);y2 = myInterp(x0,y0,x);y3 = interp1(x0,y0,x,spline);y4 = interp1(x0,y0,x); dif1 = 0;dif2 = 0;dif3 = 0;dif4 = 0;for i = 1:length(x) dif1 = dif1 + (y(i)-y1(i))^2; dif2 = dif2 + (y(i)-y2(i))^2; dif3 = dif3 + (y(i)-y3(i))^2; dif4 = dif4 + (y(i)-y4(i))^2;enddif1 = dif1/length(x);dif2 = dif2/length(x

文档评论(0)

stzs + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档