网站大量收购闲置独家精品文档,联系QQ:2885784924

交大数值分析大作业3.docxVIP

  1. 1、本文档共8页,可阅读全部内容。
  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文档。上传文档
查看更多
交大数值分析大作业3

数值分析大作业-------第三次校区:徐汇班级:B1329191学号:1132919012姓名:杨小亮大作业3 对于常微方程数值解问题检查各种数值算法的长期行为观察步长对于收敛效果的影响给定方程组证明方程组的解是xOy平面上的一个椭圆;利用①改进的欧拉折线法,②4阶标准龙格-库塔法,选几个不同的步长h,计算上述方程组的轨道,看看哪种方法和步长能够保持椭圆轨道不变。(计算的时间步要足够多――至少10000步)证明:由求导得:所给方程的特征方程为故是一对共轭复根,所以所求通解为因为所以同理可得:因为即所以,所以整理得:方程组的解是xOy平面上的一个椭圆。研究不同步长下改进的欧拉折现法和四阶标准龙格-库塔法轨道变化情况。取a=6,b=3,此时椭圆方程为:。取步数n=15000,分别取不同的步长h=0.0001,0.001,0.01,0.1,利用matlab程序进行计算和绘图。取步长h=0.0001,计算得到的轨道如图 1 所示。此时,改进的欧拉折线法和四阶标准龙格-库塔法轨道仍是椭圆,并且计算结果同精确解几乎完全一样。?图1图2取步长h=0.001,计算得到的轨道如图3所示,局部放大如图4所示。此时,改进的欧拉折线法轨道仍是椭圆,而且和精确解几乎一致。但是四阶标准龙格-库塔法轨道出现了明显的向精确解外部发散。?图3图4取步长h=0.01,计算得到的轨道如图5所示,局部放大如图6,图7所示。此时,改进的欧拉折线法轨道仍是椭圆,通过进一步局部放大图7可以看出改进的欧拉折线法轨道也出现了微小的向外发散。四阶标准龙格-库塔法轨道出现了严重的向外发散。?图5图6图7取步长h=0.1,计算得到的轨道如图8所示。此时,改进的欧拉折线法轨道仍是椭圆,但向外发散程度变大。四阶标准龙格-库塔法不能保持椭圆轨道。?图8结论:通过以上实验可以看出,对于上述常微方程数值解问题的改进的欧拉折线法数值算法和四阶标准龙格-库塔法,在计算的时间步足够多(至少10000步)的情况下:当步长很小时,两种方法都能够保持椭圆轨道不变,而且都能得到较高的精度步长增加时,改进的欧拉折线法仍能保持椭圆轨道,只是会出现轻微的向外发散。而四阶标准龙格-库塔法发散情况较严重,不能得到精确解,步长继续增加时,四阶标准龙格-库塔法不能保持椭圆轨道对于本实验所研究的常微方程数值解问题,欧拉折线法数值算法效果好于四阶标准龙格-库塔法本实验用到的程序:clc; clear; a=6;b=3; n=15000; h=0.1; [x1,y1]=ImpEuler(a,b,h,n); [x2,y2]=RungeKutta4(a,b,h,n); hold on;syms u v;p=ezplot(b*u^2+a*v^2-a*b^2); set(p,color,k,linewidth,4);plot(x1,y1,r-,linewidth,2) plot(x2,y2,b-,linewidth,2) legend(精确解,改进Euler, 四阶Runge-Kutta);xlabel(x);ylabel(y);title(h=0.1);hold off;附:欧拉折线法数值算法和四阶标准龙格-库塔法程序function [x,y]=ImpEuler(a,b,h,n) x(1)=0; y(1)=b; for i=1:n xp=x(i)+h*a*y(i); yp=y(i)+h*(-b)*x(i); xc=x(i)+h*a*yp; yc=y(i)+h*(-b)*xp; x(i+1)=(xp+xc)/2; y(i+1)=(yp+yc)/2; endfunction [x,y]=RungeKutta4(a,b,h,n) % x,y为微分方程的数值解% a,b为方程组的系数% h为步长% n为迭代步数x(1)=0; y(1)=b; for i=1:n Kx1=a*y(i); Kx2=a*(y(i)+0.5*h*Kx1); Kx3=a*(y(i)+0.5*h*Kx2); Kx4=a*(y(i)+h*Kx3); x(i+1)=x(i)+h/6*(Kx1+2*Kx2+2*Kx3+Kx4); Ky1=-b*x(i); Ky2=-b*(x(i)+0.5*h*Ky1); Ky3=-b*(x(i)+0.5*h*Ky2); Ky4=-b*(x(i)+h*Ky3); y(i+1)=y(i)+h/6*(Ky1+2*Ky2+2*Ky3+Ky4); end

文档评论(0)

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

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

1亿VIP精品文档

相关文档