************************************************************
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