微分方程数值解报告三.doc_第1页
微分方程数值解报告三.doc_第2页
微分方程数值解报告三.doc_第3页
微分方程数值解报告三.doc_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

微分方程数值解报告三 迎风格式和Lax-Friedrichs格式求解微分方程一 、引言双曲型方程差分格式的性质和定解问题解析解的性质之间有着密切的联系,由于其对初值的局部依赖关系和特征关系是其他两类方程所没有的,其初值函数的一些性质也会沿特征线传播,从而使解不具有光滑性质,在构造双曲型方程的差分格式时应充分考虑这些特性,下面江将用两种常见格式求解一个简单的偏微分方程。二、方法原理本题求解首先用到一阶迎风格式(Upwind Scheme)其中定义:另外,为了克服中心差分格式的不稳定性,还有Lax-Friedrichs格式:三、求解问题四、编程设计和方法分析考虑网格参数:接下来我们按照迎风格式和Lax-Friedrichs格式分别对方程进行离散处理迎风格式:Lax-Fredrichs格式为:迎风格式代码:%迎风格式clear allclose allclc%设置计算网格的参数L=1.0;%计算区域的长度T=0.5;%计算的时间长度dx=0.01;dt=0.005;x=-L:dx:L;t=0:dt:T;xn=size(x,2)-1;%网格段的个数tn=size(t,2)-1;%时间段的个数u=zeros(tn+1,xn+1);%设置初始条件for xi=1:xn+1if(x(xi)=0)u(1,xi)=1;%x0时,uo(x)=0endend%在计算开始前,将中间的网格点的值设为零for i=2:xnu(i,1)=1;%将中间的网格点的值设置为0endfor ti=1:tnfor j=2:xnu(ti+1,j)=dt*u(ti,j-1)/dx+(1.0-dt/dx)*u(ti,j);endend%绘制计算结果for i=2:30:92subplot(2,2,1+(i-2)/30);plot(x,u(i,:);str=num2str(t(i),T=%f);xlabel(str);str=num2str(i,u(%d,x);ylabel(str);endLax-Friedrichs格式代码2%Lax-Friedrichs格式clear allclose allclc%设置计算网格的参数L=1.0;%计算区域的长度T=0.8;%计算的时间长度dx=0.01;%网格尺寸dt=0.005;%时间步长miu=1;x=-L:dx:L;t=0:dt:T;xn=size(x,2)-1;%x的分段数tn=size(t,2)-1;%时间的分段数u=zeros(tn+1,xn+1);%u的上标为时间标号,下标为坐标标号%设置初始条件for xi=1:xn+1if(x(xi)=0)u(1,xi)=1;%x0时,uo(x)=0endendfor i=2:xnu(i,1)=1;endfor ti=1:tnfor j=2:xnu(ti+1,j)=0.5*(1-dt/dx)*u(ti,j+1)+0.5*(1+dt/dx)*u(ti,j-1);endend%绘制计算结果for i=2:30:92subplot(2,2,1+(i-2)/30);plot(x,u(i,:);str=nu

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论