|
|
发表于 2004-3-12 10:44:50
|
显示全部楼层
请教tecplot调用问题?
TECPLOT常用的格式并不是太多,学会几种就行了,TEC90/examples/dat下面有得出的数据格式,下面给出几个实现的例子
二维有限元
OPEN(8,FILE=FILENAME)
WRITE(8,*)'TITLE= ',FILENAME,'": 2D Finite-Element Velocity Data"'
WRITE(8,*)'VARIABLES = "X", "Y", "U", "V"'
WRITE(8,*)'ZONE N=',NN, ',E=',NE,',F=FEPOINT,ET=QUADRILATERAL'
WRITE(8,'(4(F12.6,2X))')(X(I),Y(I),U(I),V(I),I=1,NN)
WRITE(8,'(4(I8,2X))')((KEN(I,J),J=1,4),I=1,NE)
CLOSE(8)
三维有限元
OPEN(11,FILE='MESH.DAT')
WRITE(11,*)'TITLE="Mesh: 3D Finite-Element Brick Data"'
WRITE(11,*)'VARIABLES="X","Y","Z"'
WRITE(11,*)'ZONE N=',MAXNOD,',E=',MAXNEL,',F=FEPOINT,ET=BRICK'
WRITE(11,'(3(f12.6,2x))') ((COORD(IPOIN,IDIME),IDIME=1,NDIME),IPOIN=1,MAXNOD)
WRITE(11,'(8(I8,2X))') ((LNODS(IELEM,INODE),INODE=1,NNODE),IELEM=1,MAXNEL)
CLOSE(11)
|
|