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
 TEXT(MOFOR by In-Form,CYLINDR object rotation)
TITLE 
  DISPLAY
  This input file illustrates the use of MOFOR by In-Form to 
  simulate the effect on the motion and rotation of the wheel. 
  The wheel geometry is represented as a simple cylindr in XY plane.

  The MOFOR option is set active without mofdat file using by next
   SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
    
  Next '(MOVOB' statement set the position of world coordinate system
   (MOVOB of CHAM is OFFSET(0&0&0))

  Next '(MOVOB' statement describing the position of CYLINDR frame
  for which CHAM frame is parent
   (MOVOB of CYLINDR is OFFSET(0.3&0.7&0) with PARENT=CHAM)

  '(MOVOB' statement describing the movement and rotation of CYLINDR
  frame by setting of first and sixth parameters of POS() function
  as functions of TIM variable. Where TIM is current time.
   (MOVOB of CYLINDR is POS(.6*tim&0&0&0&0&-tim*180))

  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 1
  upause 2
  p
  m2;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m3;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m4;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m5;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m6;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m7;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m8;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m9;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m10;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m11;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m12;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m13;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m14;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m15;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m16;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m17;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m18;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m19;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  upause 2
  p
  m20;
 
  gr ou z 1
  ve z 1 sh
  surf obid z 1
  enduse
 ************************************************************
 IRUNN   =       1 ;LIBREF =     381
 ************************************************************
  Group 1. Run Title
 TEXT(MOFOR by In-Form,CYLINDR object rotation)
 ************************************************************
  Group 2. Transience
 STEADY=F
    * Set overall time and no. of steps
 RSET(U,0.000000E+00,2.000000E+00,20)
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,100,80,1)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
 NAME(150) =OBID
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  )
    * Stored variables list
 STORE(OBID, PRPS)
 store(#fxu,#fxv)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y) 
  ************************************************************
  Echo InForm settings for Group  7
  INFORM7BEGIN
 REAL(PI); PI=3.14159         ! Pi number
   ** Definition of the VR moving objects by In-Form
 (MOVOB of CHAM is OFFSET(0&0&0))
 (MOVOB of CYLINDR is OFFSET(0.3&0.7&0) with PARENT=CHAM)
 (MOVOB of CYLINDR is POS(.6*tim&0&0&0&0&-tim*180))
  INFORM7END
 ************************************************************
  Group 8. Terms & Devices
 ************************************************************
  Group 9. Properties
 PRESS0  = 1.000000E+05 ;TEMP0  = 2.730000E+02
 SETPRPS(1,  0)
 ENUT    = 0.000000E+00
 DVO1DT  = 3.410000E-03
 EMISS   = 0.000000E+00 ;SCATT  = 0.000000E+00
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
   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
 
 EGWF    =    T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =      40
 RESFAC  = 1.000000E-03
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 RELAX(P1  ,LINRLX, 5.000000E-01)
 ************************************************************
  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
 SPEDAT(SET,MOFOR,LMOFOR,C,T)
 SPEDAT(SET,MOFOR,MOFFILE,C,NOTSET)
 SPEDAT(SET,GXMONI,TRANSIENT,L,F)
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 DISTIL  =    T  ;NULLPR =    F
 NDST    =       0
 DSTTOL  = 1.000000E-02
 EX    (P1  ) =  4.210000E-02 ;EX    (U1  ) =  8.596000E-02
 EX    (V1  ) =  4.800000E-02 ;EX    (PRPS) =  1.000000E+00
 EX    (#FXV) =  1.767000E-03 ;EX    (#FXU) =  7.350000E-03
 EX    (OBID) =  4.400000E-02
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =      50 ;IYMON  =      35 ;IZMON  =       1
 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'
 
 GVIEW(P,0.000000E+00,0.000000E+00,1.000000E+00)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
 
> DOM,    SIZE,        2.000000E+00, 1.600000E+00, 1.000000E-01
> DOM,    MONIT,       9.900000E-01, 6.900000E-01, 5.000000E-02
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        CYLINDR
> OBJ,    POSITION,    2.000000E-01, 6.000000E-01, 0.000000E+00
> OBJ,    SIZE,        2.000000E-01, 2.000000E-01, 1.000000E-01
> OBJ,    CLIPART,     cylinder
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,       -1
> OBJ,    TIME_LIMITS,   ALWAYS_ACTIVE
 
> OBJ,    NAME,        PRESS
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        2.000000E-02, 2.000000E-02, 1.000000E-01
> OBJ,    CLIPART,     cubet
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PRESSURE_RELIEF
> OBJ,    PRES_RELIEF,   1.000000E+00, 0.000000E+00
STOP