数值传热Fortran程序_第1页
数值传热Fortran程序_第2页
数值传热Fortran程序_第3页
全文预览已结束

下载本文档

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

文档简介

班级：2014级暖通学硕班学号：2014214045姓名：李昊民题目：流体以均匀速度在半径为R，长度为L的圆管内流动，忽略其径向温度变化，假定在进口处流体的温度为TL,出口处流体温度为TO，管壁温度也是TO，无量纲温度Φ=t-TLTL-To,无量纲坐标X=xR,X=0时，ΦO=0，解：选控制体←μ建立热平衡方程由于对流进入控制体的热量为：（1）由于导热进入控制体的热量为：（2）由于管壁对流换热进入控制体的热量为：（3）由(1)+(2)+(3)=0总的平衡方程为：无量纲化及解方程划分控制体的个数设为n，则无量纲化解得结果为：（1+2n）Φi+1-(2+32n2)Φi+1程序编制采用fortran编写程序，变成如下:programshuzhichuanreimplicitnoneintegern,i,krealmreal,allocatable::a(:),b(:),c(:),g(:),o(:),q(:)write(*,*)'请输入'read(*,*)nallocate(a(n),b(n),c(n),g(n),q(n),o(n))m=ng(1)=(1+2/m)/(2+32/(m**2))o(n)=1doi=1,na(i)=1-2/mb(i)=2+32/(m**2)c(i)=1+2/menddodoi=1,n-1g(i+1)=c(i)/(b(i)-a(i)*g(i))enddowrite(*,*)g(3),a(n),b(n),c(n)k=n100o(k-1)=g(k-1)*o(k)k=k-1 if(k>1)then

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

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

最新文档

评论

0/150

提交评论