| 查看: 3428 | 回复: 22 | |||
| 本帖产生 1 个 计算强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
自编CFD程序怎样做后处理
|
|||
|
大家好！ 我现在在做CFD计算。网格是用ICEM划分的，将ICEM生成的文件读取后，导入自编的CFD程序进行流场的计算得出结果。计算结果的值（如速度、压力、温度）储存在每个网格点(node)上，请问我该怎样对得到的结果进行图像显示，得到流线、等高线图等信息？ 谢谢 |
回复此楼» 收录本帖的淘帖专辑推荐
 仿真模拟 |
» 猜你喜欢
哈尔滨理工大学物理系招收物理学考研调剂
已经有6人回复
-
0702一志愿吉大B区求调剂
已经有5人回复
-
物理学I论文润色/翻译怎么收费?
已经有250人回复
-
求调剂
已经有0人回复
-
0702一志愿吉大B区求调剂有论文
已经有0人回复
-
请问还有没有用Latex写文章的小伙伴们？
已经有0人回复
-
光学工程学硕调剂信息
已经有31人回复
-
欢迎加入课题组
已经有0人回复
-
散金币，求好运，祝面上顺利！
已经有65人回复
-
华东师范大学芯片设计徐珑真实水平咋样
已经有1人回复
-
调剂
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 与ICEM相媲美的强大结构网格工具下载：Pointwise
已经有9人回复
- 【讨论】ICEMCFD网格问题
已经有11人回复
9楼2013-05-13 10:13:19
windzhu
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 6718.5
- 散金: 204
- 红花: 3
- 帖子: 173
- 在线: 138.1小时
- 虫号: 2204544
- 注册: 2012-12-25
- 性别: GG
- 专业: 流体力学
2楼2013-05-11 19:50:37
3楼2013-05-11 20:54:52
onesupeng
金虫 (职业作家)
- 计算强帖: 13
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9224
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
csgt0: 金币+2, 计算强帖+1, 多谢指导 2013-05-13 11:39:30
zhanghuang10: 金币+5, ★★★很有帮助 2013-05-13 21:09:14
感谢参与，应助指数 +1
csgt0: 金币+2, 计算强帖+1, 多谢指导 2013-05-13 11:39:30
zhanghuang10: 金币+5, ★★★很有帮助 2013-05-13 21:09:14
|
我列一个详细的tecplot的规矩给你看看吧。 打开open(unit=70,file='field.dat') 首先是结构网格的输出： 二维时： write(70,*)'VARIABLES="X","Y","U","V","P"' write(70,*)'ZONE F=POINT, I=',nx,', J=',ny do j=1,ny do i=1,nx write(70,*)xc(i),yc(j),u(i,j),v(i,j),p(i,j) enddo enddo 三维类似： write(70,*)'VARIABLES="X","Y","Z","U","V","W","P"' write(70,*)'ZONE F=POINT, I=',nx,', J=',ny,' K=',nz do k=1,nz do j=1,ny do i=1,nx write(70,*)xc(i),yc(j),zc(k),u(i,j,k),v(i,j,k),w(i,j,k),p(i,j,k) enddo enddo enddo 非结构网格： 二维4边形单元 write(70,*)'variables= "x" "y" "u" "v" "p" "w" ' write(70,*)'zone f=fepoint et=quadrilateral n=',np,' e=',Nequd do i=1,np write(70,*)x(i),y(i),u(i),v(i),p(i),w(i) enddo do ee=1,Nequd e=Equd(ee) write(70,*)(ep(e,j),j=1,4) enddo 三角形单元： write(70,*)'zone f=fepoint et=triangle n=',np,' e=',Netri do i=1,np write(70,*)x(i),y(i),u(i),v(i),p(i),w(i) enddo do ee=1,Netri e=Etri(ee) write(70,*)(ep(e,j),j=1,3) enddo 其他情况类似。多google、baidu和看手册，很容易找到答案。主要是动手！！！ |
4楼2013-05-12 02:20:50
