/COM,ANSYS MEDIA REL. 2024R2 (05/10/2024) REF. VERIF. MANUAL: REL. 2024R2
/VERIFY,vmr027-cr5b-183
/TITLE,vmr027-cr5b-183, 2D PLANE STRAIN-BIAXIAL DISPLACEMENT SECONDARY CREEP
/COM, REFERENCE: TEST 5(B) FROM NAFEMS R0027.

/PREP7
C*** PARAMETRIC INPUT FOR CREEP CONSTANTS !***
*SET,C1,3.125E-14
*SET,C2,5.0
*SET,C3,0.0
*SET,C4,0
C***  TIME PARAMETER
*SET,HOUR,1000
C***   ELASTIC CONSTANT
MP,EX,1,200E3
MP,NUXY,1,0.3
TUNIF,HOT
TOFF,OFFS
TB,CREEP,1,,,6
TBDATA,1,C1,C2,C3,C4
SAVE
N,1
N,2,100
N,3,100,100
N,4,0,100
N,5,50,0
N,6,100,50
N,7,50,100
N,8,0,50
ET,1,183,,,2
E,1,2,3,4,5,6,7,8
NSEL,ALL
NSEL,S,LOC,X
D,ALL,UX
NSEL,S,LOC,Y
D,ALL,UY
NSEL,S,LOC,X,100
D,ALL,UX,0.1
NSEL,S,LOC,Y,100
D,ALL,UY,0.05
NSEL,ALL
FINISH

/SOLU
RATE, OFF
DELT,1.0E-8,1.0E-9,1.0E-8
TIME, 1.0E-8
OUTRES,ALL,LAST
/OUTPUT,SCRATCH
SOLVE
/OUT
RATE, ON
DELT,0.10,0.099,0.10
TIME, 0.10
OUTRES,ALL,LAST
/OUTPUT,SCRATCH
SOLVE
/OUT
RATE, ON
DELT,1.0,0.99,1.0
TIME, 1.0
OUTRES,ALL,LAST
/OUTPUT,SCRATCH
SOLVE
/OUT
RATE, ON
DELT,5.0,4.99,5.0
TIME, 5.0
OUTRES,ALL,LAST
/OUTPUT,SCRATCH
SOLVE
/OUT
RATE, ON
DELT,10.0,9.99,10.0
TIME, 10.0
OUTRES,ALL,LAST
/OUTPUT,SCRATCH
SOLVE
/OUT
RATE, ON, ON
DELT,10,1,100
AUTOS,OFF
TIME,1000
OUTRES,ALL,ALL
/OUTPUT,SCRATCH
SOLVE
/OUT
FINISH

/POST26
ESOL,2,1,,S,X
ESOL,3,1,,S,Y
ESOL,4,1,,S,Z
PRVAR,2,3,4
/AXLAB,Y,STRESS
/AXLAB,X,TIME
/YRANGE,250,330
PLVAR,2

/POST1
SET,1,1
*GET,SH12,NODE,3,S,X
R12=SH12/326.92
SET,2,1
*GET,SH22,NODE,3,S,X
R22=SH22/314.79
SET,3,1
*GET,SH32,NODE,3,S,X
R32=SH32/292.41
SET,4,1
*GET,SH42,NODE,3,S,X
R42=SH42/278.97
SET,,,,,,,5
*GET,SH52,NODE,3,S,X
R52=SH52/274.41
SET,,,,,,,9
*GET,SH62,NODE,3,S,X
R62=SH62/266.34
SET,,,,,,,14
*GET,SH72,NODE,3,S,X
R72=SH72/263.76
SET,,,,,,,54
*GET,SH82,NODE,3,S,X
R82=SH82/259.21
SET,,,,,,,104
*GET,SH92,NODE,3,S,X
R92=SH92/257.74
*DIM,VALUE2,,9,3
*DIM,LABEL2,CHAR,10
LABEL2(1) = '0','0.1', '1.0', '5.0', '10.0', '50.0','100.0','500.0','1000.0'
*VFILL,VALUE2(1,1),DATA,326.92,314.79,292.41,278.97,274.41,266.34,263.76,259.21,257.74
*VFILL,VALUE2(1,2),DATA,SH12,SH22,SH32,SH42,SH52,SH62,SH72,SH82,SH92
*VFILL,VALUE2(1,3),DATA,R12,R22,R32,R42,R52,R62,R72,R82,R92
/COM
/COM
/COM,--------- vmr027-cr5b-183 RESULTS COMPARISON-----------
/COM,
/COM,|   TIME   | TARGET |   Mechanical APDL  |   RATIO
/COM,
*VWRITE,LABEL2(1), VALUE2(1,1), VALUE2(1,2), VALUE2(1,3)
(1X,A8,'   ',F8.3,'   ',F12.3,'   ',1F12.3)
/SHOW,CLOSE
FINISH

/POST26
*DIM,LABEL1,CHAR,2
*DIM,VALUE1,,2,3
LABEL1(1) = ' ECR6X ',' ECR6Y '
*VFILL,VALUE1(1,1),DATA,SH92
*VFILL,VALUE1(1,2),DATA,R92
*DIM,LABEL3,CHAR,2
LABEL3(1) = 'vmr027-','cr5b-183'

/OUT,vmr027-cr5b-183,vrt
/COM
/COM,------------------- vmr027-cr5b RESULTS COMPARISON ---------------------
/COM,
/COM,            |   Mechanical APDL   |   RATIO  |         INPUT         |
/COM,
/COM, PLANE183
*VWRITE,LABEL1(1),VALUE1(1,1),VALUE1(1,2),LABEL3(1),LABEL3(2)
(1X,A8,'      ',F12.3,'      ',F12.4,'     ',A7,A8)
/COM,
/COM,----------------------------------------------------------------
/OUT

FINISH
*LIST,vmr027-cr5b-183,vrt