|
|

楼主 |
发表于 2004-7-1 08:10:58
|
显示全部楼层
请教一个问题?
boling2000,我的气缸的网格输出如下
write(10,*)'VARIABLES = "X", "Y", "Z", "U", "V", "W", " ","T",
&"Tke","Eps","np"'
write(10,*)'ZONE N=',netvtxs,', E=',netcels,
& ', F=FEPOINT, ET=BRICK'
do i4=ifirst,nverts
write(10,'(11e16.8)') x(i4),y(i4),z(i4),u(i4),
& v(i4),w(i4),p(i4),temp(i4),tke(i4),eps(i4),np
enddo
do i4=ifirst,ncells
i1=i1tab(i4)
i2=i3tab(i1)
i3=i3tab(i4)
i5=i8tab(i1)
i6=i8tab(i2)
i7=i8tab(i3)
i8=i8tab(i4)
write(10,"(8i7)") i4-ifirst+1,i1-ifirst+1,
& i2-ifirst+1,i3-ifirst+1,i8-ifirst+1,i5-ifirst+1,
& i6-ifirst+1,i7-ifirst+1
enddo
我现在要把喷雾过程在气缸区域显示出了,应该如何写? |
|