************************************************************
   Q1 created by VDI menu, Version 3.5, Date 10/02/03
 CPVNAM=VDI;SPPNAM=Core
  Echo DISPLAY / USE settings
 TEXT(Device for changing flow direction
 TITLE
  DISPLAY
   This case simulates a device for change of a flow direction.
   Device is described by a box objects with domain properties
   wich turned revolved under 45 degrees angle concerning
   the horizon.

   The turn is executed by means of the sources for U1 and V1
   variables  
     for U1 as coeff*(V1/tangent(angl)-U1),
     for V1 as coeff*(U1*tangent(angl)-V1).
   where angl is a setting angle of flow direction.

   The In-Form is used for the setting of the linearized source
   per unit volume as

  (SOURCE of U1 at TURNING is :COEF:*(V1/:TANG:-U1) with VOLU!LINE)
  (SOURCE of V1 at TURNING is :COEF:*(U1*:TANG:-V1) with VOLU!LINE)

  The Q1 contains PHOTON USE commands
  ENDDIS
  PHOTON USE
  p;;; 
 
  ve z 1 sh
  use patgeo
  enduse
 ************************************************************
 IRUNN   =       1 ;LIBREF =     151
 ************************************************************
  Group 1. Run Title
 TEXT(Device for changing flow direction
  Groups 3, 4, 5  Grid Information
 RSET(M,40,40,1)
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Non-default variable names
 NAME(150) =PRPS
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  )
    * Stored variables list
 STORE(PRPS)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)
  Group 9. Properties
 SETPRPS(1,  0)
  Group 13. Boundary & Special Sources
  Echo InForm settings for Group 13
  Echo InForm settings for Group 13
  INFORM13BEGIN
 REAL(ANGL); ANGL=3.14/4.
 REAL(TANG); TANG=TAN(ANGL)+TINY
 REAL(COEF); COEF=10.
 (SOURCE of U1 at TURNING is :COEF:*(V1/:TANG:-U1) with VOLU!LINE)
 (SOURCE of V1 at TURNING is :COEF:*(U1*:TANG:-V1) with VOLU!LINE)
  INFORM13END
  Group 15. Terminate Sweeps
 LSWEEP  =     200
  Group 20. Preliminary Printout
 DISTIL  =    T
 EX    (P1  ) =  1.243000E+00 ;EX    (U1  ) =  4.594000E-01
 EX    (V1  ) =  3.911000E-01 ;EX    (PRPS) =  4.779000E+01
  Group 22. Monitor Print-Out
 IXMON   =      26 ;IYMON  =      14 ;IZMON  =       1
 TSTSWP  =      -1
 
 GVIEW(P,0.000000E+00,0.000000E+00,1.000000E+00)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
 
> DOM,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    MONIT,       6.374999E-01, 3.373770E-01, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
 
> OBJ,    NAME,        TURNING
> OBJ,    POSITION,    5.000000E-01, 1.271100E-01, 0.000000E+00
> OBJ,    SIZE,        1.000000E-01, 5.000000E-01, 1.000000E+00
> OBJ,    ARBORIEN,   -4.500000E+01, 0.000000E+00, 0.000000E+00
> OBJ,    CLIPART,     cubet
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,       -1
> OBJ,    FIX_FLX_X,     2.000000E-10, 1.000000E-10
> OBJ,    FIX_FLX_Y,     2.000000E-10, 1.000000E-10
> OBJ,    SCAL_FIXF,     0.000000E+00
 
> OBJ,    NAME,        BLOCK
> OBJ,    POSITION,    0.000000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     cube14
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198
 
> OBJ,    NAME,        INLET
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 5.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     cube3t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    VELOCITY,      1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00
 
> OBJ,    NAME,        OUTLET
> OBJ,    POSITION,    5.000000E-01, 1.000000E+00, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 0.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube12t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,  -1.026000E+04
> OBJ,    COEFFICIENT,   1.000000E+00
 
> OBJ,    NAME,        E_WALL
> OBJ,    POSITION,    1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube11
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
 
> OBJ,    NAME,        S_WALL
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube11
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        PLATE
STOP