使用tecplot遇到的困惑！

wangwei2005

[这个贴子最后由wangwei2005在 2007/08/11 08:30pm 第 1 次编辑]

   parameter(n1=300,n2=100)
real y(0:n1),x(0:n1)
open(unit=1,file=';f:\gamamo\ROEerwei1.plt';)
dx=3.0/real(n1)
dy=1.0/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:n1)  
write(ifile,*) ';title="example:3d geometries"';
      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=100,时的显示图

n2=300,时的显示图
为什么能取值不同，tecplot显示结果就不同呢！请高手帮忙指点哦！