　科学工程计算与matlab编程5-2.pptVIP

下载本文档

0
0
约5.47千字
约 29页
2016-12-20 发布于贵州
举报
版权申诉

　科学工程计算与matlab编程5-2.ppt

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

5.2 微分方程问题的数值解法 function [outx,outy]=MyEuler(fun,x0,xt,y0,PointNum) % fun 表示f(x,y); x0,xt:自变量的初值和终值; %y0:函数在x0处的值,其可以为向量形式; %PointNum表示自变量在[x0,xt]上取的点数 if nargin==4 | PointNum=0 %PointNum 默认值为100 PointNum=100; end if nargin==3 % y0默认值为0 y0=0; PointNum=100; end 例：求 y=dsolve(Dy=y+sin(t),y(0)=1); %该常微分方程的解析解 for k=1:33 t(k)=x11(k); y2(k)=subs(y,t(k)); %求其对应点的离散解 end plot(x1,y1,+b,x11,y11,og,x11,y2,*r) legend(h=0.4的欧拉法解,h=0.2的欧拉解,符号解) function [Xout,Yout]=MyEulerPro(fun,x0,xt,y0,PointNumber) %MyEulerPro 用改进的欧拉法解微分方程 if nargin==4 | PointNumber=0 %PointNumer默认值为100 PointNumer=100; end if nargin==3 %y0默认值为0 y0=0; PointNumer=100; end h=(xt-x0)/PointNumber; %计算所取的两离散点之间的距离 x=x0+[0:PointNumber]*h; %表示出离散的自变量x,初始点为x0 y=zeros(size(x)); ％输入与x相应的函数值向量 y(1)=y0;％初始值 for k=1:PointNumber %迭代计算过程 z1=y(k)+h*feval(fun,x(k),y(k)); z2=y(k)+h*feval(fun,x(k+1),z1); y(k+1)=1/2*(z1+z2); end Xout=x;Yout=y; 例：对方程应用改进欧拉法、简单欧拉方法以及微分方程符号求解方法分别求解并比较结果； f1=@(x,y)sin(x)+y; [x3,y3]=MyEulerPro(f1,0,2*pi,1,128); [x,y1]=MyEuler(f1,0,2*pi,1,128);%欧拉法所的的解 y=dsolve(Dy=y+sin(t),y(0)=1);%该常微分方程的符号解 for k=1:129 t(k)=x(k); y2(k)=subs(y,t(k));%求解析解对应点的离散解 end plot(x,y1,-b,x3,y3,og,x,y2,*r) legend(简单欧拉法解,改进欧拉解,符号解) Matlab 实现： function [tout,yout]=rk_4(odefile,tspan,y0) ％y0初值列向量 t0=tspan(1); th=tspan(2); if length(tspan)=3, h=tspan(3); % tspan=[t0,th,h] else, h=tspan(2)-tspan(1); th=tspan(end); end ％等间距数组 tout=[t0:h:th]; yout=[]; for t=tout k1=h*eval对应的是数组([odefile (t,y0) ]); % odefile是一个字符串变量，为表示微分方程f( )的文件名。 k2=h*eval([odefile (t+h/2,y0+0.5*k1)]); k3=h*eval([odefile (t+h/2,y0+0.5*k2)]); k4=h*eval([odefile (t+h,y0+k3)]); y0=y0+(k1+2*k2+2*k3+k4)/6; yout=[yout; y0]; end ％由效果看，该算法不是一个较好的方法。 5.2.3 一阶微分方程组的数值解5.2.3.1 四阶五级Runge-Kutta-Felhberg算法 5.2.3.2 基于 MATLAB