|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
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显示图在上传文件里!
|
|