找回密码
 注册
查看: 3362|回复: 3

请教用Tecplot作图问题?

[复制链接]
发表于 2004-10-27 11:28:51 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
大家好!
    请问用Fortran编的程序,生存 xxx.dat 文件,如何用Tecplot处理??比如画网格、等值线。
    由于小弟没有学过Tecplot,还望各位指教!谢谢!
发表于 2004-11-7 11:11:09 | 显示全部楼层

请教用Tecplot作图问题?

你的xxx.dat文件必须是Tecplot形式,不然的话它就认不了;如果已经生成Tecplot 形式的文件,直接键入命令 tecplot xxx.dat即可。
我有很久的Tecplot使用历史了,如有其他问题,请发送邮件到我的邮箱:
owen9020@sina.com
 楼主| 发表于 2004-11-13 22:19:11 | 显示全部楼层

请教用Tecplot作图问题?

owen9020
    你好!很高兴在流体中文网上认识你!  
     1)meshA.dat文件是圆锥弹体某截面的空间网格;
     2)meshB.dat文件是圆锥头的空间网格;
     以下是生成网格的代码,
    其中: X=R(1,J,K,I),Y=R(2,J,K,I),Z=R(3,J,K,I)为空间坐标的三个方向值;
           xo(i,k),yo(i,k)为物面坐标。
    当我安以下程序代码生成文件时,用tecplot作图时画的都只有一条直线,但去掉以下两行代码:
      write(15,*)';TITLE="meshA.dat"';
      write(15,*)';ZONE j=';,j1 ,';k=';,kk1  ,';F=';,j1*kk1
则可画出图形,但图形中第一个只作出径向的线没有周向线,第二个画的象螺旋线似的,不知咱回事好像只是把以下计算的各坐标点简单的想连???以前从没有用过这个软件,还望指教!!!谢谢!
                                
      OPEN(15,FILE=';meshA.dat';,status=';unknown';)
      I=21
      write(15,*)';TITLE="meshA.dat"';
      write(15,*)';VARIABLES="x","y","U","V",""';
      write(15,*)';ZONE j=';,j1 ,';k=';,kk1  ,';F=';,j1*kk1
      DO K=1,kk1
      DO J=1,j1
      Z=R(3,J,K,I)
      Y=R(2,J,K,I)
      WRITE(15,*)Z,Y,1.0
      enddo
      enddo
      CLOSE(15)
OPEN(9,FILE=';meshB.dat';,STATUS=';UNKNOWN';)
      write(9,*) ';TITLE="meshB.dat"';
      write(9,*) ';variables="x","y","z"';
      write(9,*) ';zone k=';,kk1,'; j=';,j1,'; i=';,is1
      DO I=1,is1
      DO j=1,j1
      DO k=1,Kk1
      WRITE(9,*) R(1,J,K,I), R(2,J,K,I), R(3,J,K,I)
      enddo
      enddo
      enddo
      CLOSE(9)
发表于 2004-11-24 01:07:50 | 显示全部楼层

请教用Tecplot作图问题?

mesh A的编程应该可以,如果有问题,也是小问题,但meshB就根本不对了。
tecplot编程输出不难,但你上面的code是处理不了3D数据,没有你想象的那末简单,只用输出x,y,z的坐标
还是好好看看manual吧,上面讲的很清楚
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表