NREGX=2 IREGX=1;GRDPWR(X,4,2.0,1.0) IREGX=2;GRDPWR(X,5,1.5,1.0)NREGY=3 IREGY=1;GRDPWR(Y,2,3.0,1.0) IREGY=2;GRDPWR(Y,5,3.0,1.5) IREGY=3;GRDPWR(Y,3,1.0,1.0)
CARTES=F;RINNER=2NREGX=2 IREGX=1;GRDPWR(X,4,2.0,1.0) IREGX=2;GRDPWR(X,5,1.5,1.0)
NREGY=3 IREGY=1;GRDPWR(Y,2,3.0,1.0) IREGY=2;GRDPWR(Y,5,3.0,1.5) IREGY=3;GRDPWR(Y,3,1.0,1.0)
RSET(D,TEST,.5,2.,3.,1,0) RSET(B,BLK,.2,.5,1.,.3,.4,.4,15,0) RSET(B,INL,0.,0.,0.,.5,1.,0.,6,0) RSET(B,OUT,0.,1.5,3.,.5,.5,0.,10,0) RSET(M,10,10,10) RSET(V,2)GVIEW(P) GGRID(I,1,1,NY+1,1,NZ+1,1,0) GGRID(J,1,1,NX+1,1,NZ+1,1,0) GGRID(K,1,1,NX+1,1,NY+1,1,0) GDRAW
STEADY=FRSET(U,0.0,10.0,20) RSET(T,L,0,3.0) RSET(T,1,10,1.0) RSET(T,2,10,2.0)
PTIME(1,LSTEP+1,1,0) GDRAW
JJS