TALK=F;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 3.5, Date 10/02/03
CPVNAM=VDI;SPPNAM=Core
************************************************************
Echo DISPLAY / USE settings
DISPLAY
This input file illustrates the use of MOFOR by In-Form to
simulate the effect on the motion of the air about of moving
box. Simultaneously the box is moved in X direction
and rotates about Z axis.
The MOFOR option is set active by next
SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
'(MOVOB' statements describing motion of moving objects use POS()
function of which parameters set X, Y and Z coordinate and
rotation angles about X, Y and Z axis of moving object as function
of TIM variable. TIM is the current time.
(MOVOB of BLOCK is POS(0.5*tim&0&0&0&0&-30*tim))
OBID is used by PHOTON for marks of borders of moving objects.
The Q1 contains PHOTON USE commands
ENDDIS
PHOTON USE
p
m1;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m2;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m3;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m4;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m5;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m6;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m7;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m8;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m9;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m10;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m11;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m12;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m13;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m14;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m15;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m16;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m17;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m18;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m19;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
upause 2
p
m20;
gr ou z 1
ve z 1 sh
surf obid z 0.999
upause 2
con u1 z 1 fi;.0001
surf obid z 0.999
upause 2
con v1 z 1 fi;.0001
surf obid z 0.999
ENDUSE
************************************************************
IRUNN = 1 ;LIBREF = 382
************************************************************
Group 1. Run Title
TEXT(MOFOR by In-Form: BOX object rotation)
************************************************************
Group 2. Transience
STEADY=F
* Set overall time and no. of steps
RSET(U,0.000000E+00,2.000000E+00,20)
* Modify regions
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
RSET(M,100,80,1,1.000000E+02)
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
* Non-default variable names
NAME(149) =OBID ; NAME(150) =PRPS
* Solved variables list
SOLVE(P1 ,U1 ,V1 )
* Stored variables list
STORE(PRPS,OBID)
* Additional solver options
SOLUTN(P1 ,Y,Y,Y,N,N,Y)
************************************************************
Echo InForm settings for Group 7
INFORM7BEGIN
** Definition of the VR moving objects by In-Form
(MOVOB of CHAM is OFFSET(0&0&0))
(MOVOB of BLOCK is OFFSET(0.55&0.9&0) with PARENT=CHAM)
(MOVOB of BLOCK is POS(0.5*tim&0&0&0&0&-30*tim))
INFORM7END
************************************************************
Group 8. Terms & Devices
************************************************************
Group 9. Properties
SETPRPS(1, 0)
ENUT = 0.000000E+00
DRH1DP = 1.000000E-05
DVO1DT = 3.410000E-03
EMISS = 0.000000E+00 ;SCATT = 0.000000E+00
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(PRPS) = 0.000000E+00
No PATCHes used for this Group
INIADD = F
************************************************************
Group 12. Convection and diffusion adjustments
No PATCHes used for this Group
************************************************************
Group 13. Boundary & Special Sources
No PATCHes used for this Group
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 50
RESFAC = 1.000000E-03
************************************************************
Group 16. Terminate Iterations
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,0.5)
************************************************************
Group 18. Limits
VARMAX(U1 ) = 1.000000E+06 ;VARMIN(U1 ) =-1.000000E+06
VARMAX(V1 ) = 1.000000E+06 ;VARMIN(V1 ) =-1.000000E+06
************************************************************
Group 19. EARTH Calls To GROUND Station
USEGRD = T ;USEGRX = T
ASAP = T
CSG1 ='M'
SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
SPEDAT(SET,GXMONI,TRANSIENT,L,F)
ISG62 = 0
************************************************************
Group 20. Preliminary Printout
ECHO = T
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL = 1.000000E-02
EX (P1 ) = 3.499000E-02 ;EX (U1 ) = 8.158000E-02
EX (V1 ) = 4.152000E-02 ;EX (OBID) = 6.300000E-02
EX (PRPS) = 0.000000E+00
************************************************************
Group 21. Print-out of Variables
OUTPUT(V1 ,Y,Y,Y,N,Y,Y)
************************************************************
Group 22. Monitor Print-Out
NPRMON = 100000
NPRMNT = 1
TSTSWP = -1
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000
NTPRIN = 100000 ;ISTPRF = 1 ;ISTPRL = 10000
ISWPRF = 1 ;ISWPRL = 100000
No PATCHes used for this Group
************************************************************
Group 24. Dumps For Restarts
NOWIPE = T
IDISPA = 1 ;IDISPB = 0 ;IDISPC = 0
CSG1 ='M'
************************************************************
Echo InForm settings for Group 25
INFORM25BEGIN
DEBUG=f
MOFOR=f
formula=f
INFORM25END
GVIEW(P,0.000000E+00,-9.995500E-01,2.999551E-02)
GVIEW(UP,0.000000E+00,2.999551E-02,9.995500E-01)
> DOM, SIZE, 2.000000E+00, 1.600000E+00, 1.000000E-01
> DOM, MONIT, 1.000000E+00, 8.000000E-01, 5.000000E-02
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, SNAPSIZE, 1.000000E-02
> OBJ, NAME, RELIEF
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 2.000000E-01, 2.000000E-01, 1.000000E-01
> OBJ, CLIPART, cubet
> OBJ, ROTATION24, 1
> OBJ, TYPE, PRESSURE_RELIEF
> OBJ, PRES_RELIEF, 1.000000E+03, 0.000000E+00
> OBJ, NAME, GROUND
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 2.000000E+00, 0.000000E+00, 5.000000E-02
> OBJ, CLIPART, cube11
> OBJ, ROTATION24, 1
> OBJ, TYPE, PLATE
> OBJ, TIME_LIMITS, ALWAYS_ACTIVE
> OBJ, NAME, BLOCK
> OBJ, POSITION, 4.500000E-01, 8.000000E-01, 0.000000E+00
> OBJ, SIZE, 2.000000E-01, 2.000000E-01, 1.000000E-01
> OBJ, CLIPART, cubet
> OBJ, ROTATION24, 1
> OBJ, GRID, 2
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, -1
> OBJ, TIME_LIMITS, ALWAYS_ACTIVE
> OBJ, INI_PRESS, 0.000000E+00
> OBJ, SCAL_FIXF, 0.000000E+00
STOP