找回密码
 注册
查看: 1453|回复: 0

求助高手,本人使用tecplot遇到的困惑!

[复制链接]
发表于 2007-8-11 23:19:56 | 显示全部楼层 |阅读模式

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

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

x
        请看下列小程序,        
         parameter(n1=10,n2=5)
real y(0:n2),x(0:n1)
open(unit=1,file=';d:\wangwei\ROEerwei1.plt';)
dx=1.0/real(n1)
dy=0.5/real(n2)
do i=0,n1
x(i)=real(i)*dx
enddo
do i=0,n2
y(i)=real(i)*dy
enddo
call outp(n1,n2,x,y,1)
end
subroutine outp(n1,n2,x,y,ifile)
            real x(0:n1),y(0:n2)  
write(ifile,*) ';title="sample mesh"';
            write(ifile,*)';variables="x","y"';
write(ifile,*)';zone  t="floor",i=';,n1+1,';,j=';,n2+1,';,f=point';
do 50 i=0,n1
  do 50 j=0,n2
   write(ifile,*)x(i),y(j)
        50    continue
           close(ifile)
end
请问,当n2=5时,为什么不能正确显示计算域,而当n2=10时,却可以呢?请高手帮忙指点哦!多谢,多谢!
附:n2=10和n2=5显示图在上传文件里!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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