资源描述：
《计算流体力学实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划计算流体力学实验报告 中山大学 本科生实验报告书 差分格式A、B、C的fortran编程 院系工学院应用力学与工程系 专业班级理论与应用力学10级 实验课程计算流体力学 姓名程彬 学号 实验地点中山大学东校区实验中心 实验时间XX年4月5日 指导教师詹杰民 一实验目的 通过实验使用fortran语言编写差分格式A、B、C数值求解一维对流方程，更加了解不同差分格式求解方程的解的不同，熟练掌握fortran语言编
2、程技巧。 二实验说明 1、一维对流方程 ??????0,-8?x?8t?0?t?x ?(x,0)?1?x-1?x?0 ?(x,0)??x?10?x?1目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 ?(x,0)?0x??1或x?1 2、fortran程序 主程序 programfirst implicitnone integeri,j
3、,k realA(-160:160,0:100) REALR !dt/dx=1 R= K=160 callcomu(A,R,K) OPEN(10,FILE='') doj=32,32!n=30 doi=-40,40 WRITE(10,*)A(i,j) enddo enddo pause endprogramfirst 差分A格式的子程序 subroutinecomu(A,R,K)目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公
4、司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 realA(-160:160,0:100) A(-160:-21,0)=0 A(21:160,0)=0 doi=-20,0 a(i,0)=i*+1 enddo doi=1,20 a(i,0)=1-i* enddo doj=1,100 doi=-k+1,k-1 A(i,j)=A(i,j-1)-R/*(A(i+1,j-1)-A(i-1,j-1)) enddo enddo endsubroutine 差分B格式的子程
5、序 subroutinecomu(A,R,K) realA(-160:160,0:100) A(-160:-21,0)=0 A(21:160,0)=0 doi=-20,0 a(i,0)=i*+1目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 enddo doi=1,20 a(i,0)=1-i* enddo doj=1,100 doi
6、=-k+1,k-1 A(i,j)=A(i,j-1)-R*(A(i+1,j-1)-A(i,j-1)) enddo enddo endsubroutine 差分C格式的子程序 subroutinecomu(A,R,K) realA(-160:160,0:100) A(-160:-21,0)=0 A(21:160,0)=0 doi=-20,0 a(i,0)=i*+1 enddo doi=1,20 a(i,0)=1-i* enddo doj=1,100目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨
7、大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 doi=-k+1,k-1 A(i,j)=A(i,j-1)-R*(A(i,j-1)-A(i-1,j-1)) enddo enddo endsubroutine 2、执行结果 差分A格式在t=、时不同R值下的图像 差分B格式在t=、时不同R值下的图像 计算流体力学 实 验 报 告 学院：城市轨道交通学院专业：建筑环境与设备工程学号：姓名：张伟 计算流体
8、力学实验报告 --------Gambit及Fluent软件应用 前言计算流体力学或计算流体动力学，英文ComputationalFluidDyn
