TALK=T;RUN(1,1)
DISPLAY
A rectangular plate with a centrally-placed square hole is
extended by uniform equal forces on its upper and lower
surfaces, which are allowed to distort.
By reason of symmetry, only one quarter of the plate is analysed.
Displacements in the third (z) dimension are prevented. The
problem is therefore one of plane strain.
No analytical solution exists; but the computed displacements,
strains and stresses are in close agreement with those computed
by the finite-element code ELCUT.
The boundary conditions are applied in two ways, namely:
caseno=1: when the plate edges are at the domain boundaries;
caseno=2: when the plate is separated from the boundaries,
including the symmetry axis, by thin fluid layers.
ENDDIS
PHOTON USE
p;;;;
set prop off
msg
msg V1 contours
msg
cont V1 z 1 fil;.0001
pause
cl
msg
msg U1 contours
msg
cont U1 z 1 fil;.0001
pause
cl
msg
msg EpsX contours
msg
cont EPSX z 1 fil;.0001
pause
cl
msg
msg EpsY contours
msg
cont EPSY z 1 fil;.0001
pause
cl
msg
msg STRZ contours
msg
cont STRZ z 1 fil;.0001
pause
cl
msg
msg STRX contours
msg
cont STRX z 1 fil;.0001
pause
cl
msg
msg STRY contours
msg
cont STRY z 1 fil;.0001
pause
cl
msg
msg STXY contours
msg
cont STXY z 1 fil;.0001
pause
cl
msg Displacements fields
gr ou z 1
cont DELT z 1 fil;.0001
vec z 1 col 0
pause
cl
AUTOPLOT
file
phi 5
EDZZ\S201_1.txt 2
EDZZ\S201_2.txt 2
EDZZ\S201_3.txt 2
data 1
STRX X 11 Y 1 28
col1 1
data 2
y SXX
colA 2
scale
msg STRX(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
STRY X 11 Y 1 28
col1 1
data 2
y SYY
colA 2
scale
msg STRY(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
STXY X 11 Y 1 28
col1 1
data 2
y TXY
colA 2
scale
msg STXY(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
U1 X 11 Y 1 28
col1 1
data 3
y DX
colA 2
scale
msg U1(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
V1 X 11 Y 1 28
col1 1
data 3
y DY
colA 2
scale
msg V1(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
EPSX X 11 Y 1 28
col1 1
data 3
y EXX
colA 2
scale
msg EpsX(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
EPSY X 11 Y 1 28
col1 1
data 3
y EYY
colA 2
scale
msg EpsY(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
EPSZ X 11 Y 1 28
col1 1
data 3
y EZZ
colA 2
scale
msg EpsZ(Y) for X=45 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
U1 Y 14 X 1 21
col1 1
data 4
x DX
colA 2
scale
msg U1(X) for Y=59 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
clear
data 1
V1 Y 14 X 1 21
col1 1
data 4
x DY
colA 2
scale
msg V1(X) for Y=59 mm (WHITE-Phoenics, YELLOW - Elcut) ...
plot 1 2
pause
ENDUSE
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(2D xy Plate with square hole; s201 )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 3
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 23
XULAST =0.0918
XFRAC(1)=9.803922E-03 ;XFRAC(2)=0.056489
XFRAC(3)=0.103175 ;XFRAC(4)=0.14986
XFRAC(5)=0.196545 ;XFRAC(6)=0.243231
XFRAC(7)=0.289916 ;XFRAC(8)=0.336601
XFRAC(9)=0.383287 ;XFRAC(10)=0.429972
XFRAC(11)=0.476657 ;XFRAC(12)=0.523343
XFRAC(13)=0.570028 ;XFRAC(14)=0.616713
XFRAC(15)=0.663399 ;XFRAC(16)=0.710084
XFRAC(17)=0.756769 ;XFRAC(18)=0.803455
XFRAC(19)=0.85014 ;XFRAC(20)=0.896825
XFRAC(21)=0.943511 ;XFRAC(22)=0.990196
XFRAC(23)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 30
YVLAST =0.1224
YFRAC(1)=9.803922E-03 ;YFRAC(2)=0.044818
YFRAC(3)=0.079832 ;YFRAC(4)=0.114846
YFRAC(5)=0.14986 ;YFRAC(6)=0.184874
YFRAC(7)=0.219888 ;YFRAC(8)=0.254902
YFRAC(9)=0.289916 ;YFRAC(10)=0.32493
YFRAC(11)=0.359944 ;YFRAC(12)=0.394958
YFRAC(13)=0.429972 ;YFRAC(14)=0.464986
YFRAC(15)=0.5 ;YFRAC(16)=0.535014
YFRAC(17)=0.570028 ;YFRAC(18)=0.605042
YFRAC(19)=0.640056 ;YFRAC(20)=0.67507
YFRAC(21)=0.710084 ;YFRAC(22)=0.745098
YFRAC(23)=0.780112 ;YFRAC(24)=0.815126
YFRAC(25)=0.85014 ;YFRAC(26)=0.885154
YFRAC(27)=0.920168 ;YFRAC(28)=0.955182
YFRAC(29)=0.990196 ;YFRAC(30)=1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 1
ZWLAST =1.0E-03
ZFRAC(1)=1.
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(140)=DELT
NAME(141)=DELY ;NAME(142)=DELX
NAME(143)=STXY ;NAME(144)=EPSZ
NAME(145)=EPSX ;NAME(146)=EPSY
NAME(147)=STRZ ;NAME(148)=STRY
NAME(149)=STRX ;NAME(150)=PRPS
* Y in SOLUTN argument list denotes:
* 1-stored 2-solved 3-whole-field
* 4-point-by-point 5-explicit 6-harmonic averaging
SOLUTN(P1,Y,Y,N,N,N,Y)
SOLUTN(U1,Y,Y,N,N,N,Y)
SOLUTN(V1,Y,Y,N,N,N,Y)
SOLUTN(DELT,Y,N,N,N,N,Y)
SOLUTN(DELY,Y,N,N,N,N,Y)
SOLUTN(DELX,Y,N,N,N,N,Y)
SOLUTN(STXY,Y,N,N,N,N,Y)
SOLUTN(EPSZ,Y,N,N,N,N,Y)
SOLUTN(EPSX,Y,N,N,N,N,Y)
SOLUTN(EPSY,Y,N,N,N,N,Y)
SOLUTN(STRZ,Y,N,N,N,N,Y)
SOLUTN(STRY,Y,N,N,N,N,Y)
SOLUTN(STRX,Y,N,N,N,N,Y)
SOLUTN(PRPS,Y,N,N,N,N,Y)
PRPS = 150
************************************************************
Group 8. Terms & Devices
* Y in TERMS argument list denotes:
* 1-built-in source 2-convection 3-diffusion 4-transient
* 5-first phase variable 6-interphase transport
TERMS(P1,Y,Y,Y,N,Y,Y)
TERMS(U1,Y,Y,Y,Y,Y,Y)
TERMS(V1,Y,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
************************************************************
Group 9. Properties used if PRPS is not
stored, and where PRPS = -1.0 if it is!
RHO1 =1. ;TMP1 =0. ;EL1 =0.
TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
RADIA =0. ;RADIB =0.
ENUL =1.0E-05 ;ENUT =0.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRT(U1)=1. ;PRT(V1)=1.
CP1 =1. ;CP2 =1.
* List of user-defined materials to be read by EARTH
MATFLG=T;IMAT=1
* Name
*Ind. Dens. Viscos. Spec.heat Conduct. Expans. Compr.
*
160 7800.0 0.3 473.0 43.0 1.0E-5 0.5E-11
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=0. ;FIINIT(U1)=0.
FIINIT(V1)=0. ;FIINIT(DELT)=0.
FIINIT(DELY)=1.0E-10 ;FIINIT(DELX)=1.0E-10
FIINIT(STXY)=1.0E-10 ;FIINIT(EPSZ)=1.0E-10
FIINIT(EPSX)=1.0E-10 ;FIINIT(EPSY)=1.0E-10
FIINIT(STRZ)=1.0E-10 ;FIINIT(STRY)=1.0E-10
FIINIT(STRX)=1.0E-10 ;FIINIT(PRPS)=0.
PATCH(BODY1 ,INIVAL, 2, 22, 2, 22, 1, 1, 1, 1)
INIT(BODY1 ,PRPS, FIXVAL ,160. )
PATCH(BODY2 ,INIVAL, 9, 22, 22, 29, 1, 1, 1, 1)
INIT(BODY2 ,PRPS, FIXVAL ,160. )
INIADD = F
FSWEEP = 1
NAMFI =CHAM
************************************************************
Group 12. Patchwise adjustment of terms
Patches for this group are printed with those
for Group 13.
Their names begin either with GP12 or &
************************************************************
Group 13. Boundary & Special Sources
PATCH(UP ,NORTH , 9, 22, 29, 29, 1, 1, 1, 1)
COVAL(UP ,V1 , FIXVAL ,0. )
PATCH(FORC01 ,NORTH , 2, 22, 1, 1, 1, 1, 1, 1)
COVAL(FORC01 ,V1 , FIXFLU ,-4.0E+07 )
PATCH(AXESZZ ,WEST , 2, 2, 2, 22, 1, 1, 1, 1)
COVAL(AXESZZ ,U1 , FIXVAL ,0. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 100 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-07
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(U1)=50
LITER(V1)=50
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,1.)
RELAX(U1,LINRLX,1.)
RELAX(V1,LINRLX,1.)
RELAX(DELT,LINRLX,1.)
RELAX(DELY,LINRLX,1.)
RELAX(DELX,LINRLX,1.)
RELAX(STXY,LINRLX,1.)
RELAX(EPSZ,LINRLX,1.)
RELAX(EPSX,LINRLX,1.)
RELAX(EPSY,LINRLX,1.)
RELAX(STRZ,LINRLX,1.)
RELAX(STRY,LINRLX,1.)
RELAX(STRX,LINRLX,1.)
RELAX(PRPS,LINRLX,1.)
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
VARMAX(DELT)=1.0E+10 ;VARMIN(DELT)=-1.0E+10
VARMAX(DELY)=1.0E+10 ;VARMIN(DELY)=-1.0E+10
VARMAX(DELX)=1.0E+10 ;VARMIN(DELX)=-1.0E+10
VARMAX(STXY)=1.0E+10 ;VARMIN(STXY)=-1.0E+10
VARMAX(EPSZ)=1.0E+10 ;VARMIN(EPSZ)=-1.0E+10
VARMAX(EPSX)=1.0E+10 ;VARMIN(EPSX)=-1.0E+10
VARMAX(EPSY)=1.0E+10 ;VARMIN(EPSY)=-1.0E+10
VARMAX(STRZ)=1.0E+10 ;VARMIN(STRZ)=-1.0E+10
VARMAX(STRY)=1.0E+10 ;VARMIN(STRY)=-1.0E+10
VARMAX(STRX)=1.0E+10 ;VARMIN(STRX)=-1.0E+10
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
STRA = T
PARSOL = F
ISG21 = 100
ISG50 = 1
ISG52 = 1
ISG62 = 1
CSG10 ='Q1'
SPEDAT(SET,BOUNDARY,ZCONST,R,1.0E+20)
SPEDAT(SET,LONGNAME,P1,C,pressure_or_dilatation)
SPEDAT(SET,LONGNAME,PTH,C,dilatation_theoretical)
SPEDAT(SET,LONGNAME,ENUL,C,viscosity_or__LAME's_G*1.E11)
SPEDAT(SET,LONGNAME,VISL,C,viscosity_or__LAME's_G*1.E11)
SPEDAT(SET,LONGNAME,DRH1,C,compressibility_or_LAME's_L+G*1.E11)
SPEDAT(SET,LONGNAME,DVO1,C,th.exp.co_r_or_H*1.E11)
SPEDAT(SET,LONGNAME,U1,C,x-direction_velocity_or_displacement)
SPEDAT(SET,LONGNAME,EPSX,C,x-direction_strain)
SPEDAT(SET,LONGNAME,EXTH,C,x-direction_strain_theoretical)
SPEDAT(SET,LONGNAME,STRX,C,x-direction_stress)
SPEDAT(SET,LONGNAME,SXTH,C,x-direction_stress_theoretical)
SPEDAT(SET,LONGNAME,V1,C,y-direction_velocity_or_displacement)
SPEDAT(SET,LONGNAME,EPSY,C,y-direction_strain)
SPEDAT(SET,LONGNAME,EYTH,C,y-direction_strain_theoretical)
SPEDAT(SET,LONGNAME,STRY,C,y-direction_stress)
SPEDAT(SET,LONGNAME,SYTH,C,y-direction_stress_theoretical)
SPEDAT(SET,LONGNAME,W1,C,z-direction_velocity_or_displacement)
SPEDAT(SET,LONGNAME,EPSZ,C,z-direction_strain)
SPEDAT(SET,LONGNAME,STRZ,C,z-direction_stress)
SPEDAT(SET,LONGNAME,EZTH,C,z-direction_strain_theoretical)
SPEDAT(SET,LONGNAME,SZTH,C,z-direction_stress_theoretical)
SPEDAT(SET,LONGNAME,EPST,C,linearthermalexpansion)
SPEDAT(SET,STORED,DELX,C,=0.5*(U1+U1[-1])!IMAT>100!ZSLFIN)
SPEDAT(SET,STORED,DELY,C,=0.5*(V1+V1[&-1])!IMAT>100!ZSLFIN)
SPEDAT(SET,STORED,DELT,C,=SQRT(DELX^2+DELY^2)!IMAT>100!ZSLFIN)
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,MATERIAL,0,L,T)
SPEDAT(SET,MATERIAL,160,L,T)
************************************************************
Group 20. Preliminary Printout
************************************************************
Group 21. Print-out of Variables
INIFLD = F ;SUBWGR = F
* Y in OUTPUT argument list denotes:
* 1-field 2-correction-eq. monitor 3-selective dumping
* 4-whole-field residual 5-spot-value table 6-residual table
OUTPUT(P1,Y,N,Y,Y,Y,Y)
OUTPUT(U1,Y,N,Y,Y,Y,Y)
OUTPUT(V1,Y,N,Y,Y,Y,Y)
OUTPUT(DELT,Y,N,Y,N,N,N)
OUTPUT(DELY,Y,N,Y,N,N,N)
OUTPUT(DELX,Y,N,Y,N,N,N)
OUTPUT(STXY,Y,N,Y,N,N,N)
OUTPUT(EPSZ,Y,N,Y,N,N,N)
OUTPUT(EPSX,Y,N,Y,N,N,N)
OUTPUT(EPSY,Y,N,Y,N,N,N)
OUTPUT(STRZ,Y,N,Y,N,N,N)
OUTPUT(STRY,Y,N,Y,N,N,N)
OUTPUT(STRX,Y,N,Y,N,N,N)
OUTPUT(PRPS,Y,N,Y,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 21 ;IYMON = 2 ;IZMON = 1
NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
UWATCH = T ;USTEER = T
HIGHLO = F
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000 ;NUMCLS = 5
NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000
NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000
IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 3 ;IPROF = 1
ABSIZ =0.5 ;ORSIZ =0.4
NTZPRF = 1 ;NCOLPF = 50
ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
No PATCHes yet used for this Group
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP