/COM,ANSYS MEDIA REL. 2024R2 (05/10/2024) REF. VERIF. MANUAL: REL. 2024R2
/VERIFY,vmr027-cr10b-182
/TITLE,vmr027-cr10b-182,2D PLANE STRESS-BIAXIAL DISPLACEMENT PRIMARY CREEP
/COM, REFERENCE: TEST 10(B) FROM NAFEMS R0027.
/PREP7
C*** PARAMETRIC INPUT FOR CREEP CONSTANTS (TIME HARDENING)!***
*SET,C1,1.5625E-14
*SET,C2,5.0
*SET,C3,-0.5
*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
C*** PARAMETRIC INPUT FOR CREEP CONSTANTS (STRAIN HARDENING)!***
*SET,C1,1.5625E-14
*SET,C2,5
*SET,C3,-0.5
MP,EX,2,200E3
MP,NUXY,2,0.3
TB,CREEP,2,,,7
TBDATA,1,C1,C2,C3
SAVE
N,1,0,0,0
N,2,100,0
N,3,100,100
N,4,0,100
N,5,50,0
N,6,100,50
N,7,50,100
N,8,0,50
N,9,50,50
ET,1,182
KEYOPT,1,1,1
KEYOPT,1,3,0
E,1,5,9,8
E,5,2,6,9
E,9,6,3,7
E,8,9,7,4
NSEL,ALL
NSEL,S,LOC,X
D,ALL,UX
NSEL,S,LOC,Y
D,ALL,UY
NSEL,ALL
NSEL,S,LOC,X,100
D,ALL,UX,0.1
NSEL,ALL
NSEL,S,LOC,Y,100
D,ALL,UY,-0.1
NSEL,ALL
*DO,I,1,2
/PREP7
*IF,I,EQ,1,THEN
/COM,
/COM, TIME HARDENING CASE
/COM,
MAT,1
*ELSEIF,I,EQ,2,THEN
/COM,
/COM, STRAIN HARDENING CASE
/COM,
MPCHG,2,ALL
*ENDIF
/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
*IF,I,EQ,1,THEN
ESOL,2,1,,S,X,TIMEHARD
PRVAR,2
/AXLAB,X,TIME
/AXLAB,Y,STRESS
/YRANGE,0,160
/COLOR,CURVE,RED,1
PLVAR,2
/NOERASE
/POST1
SET,1,1
*GET,SH1,NODE,3,S,X
R1=SH1/153.85
SET,,,,,,,9
*GET,SH6,NODE,3,S,X
R6=SH6/26.69
SET,,,,,,,14
*GET,SH7,NODE,3,S,X
R7=SH7/24.45
SET,,,,,,,54
*GET,SH8,NODE,3,S,X
R8=SH8/20.00
SET,,,,,,,104
*GET,SH9,NODE,3,S,X
R9=SH9/18.34
*DIM,VALUE,,5,3
*DIM,LABEL,CHAR,10
LABEL(1) = '0','50.0','100.0','500.0','1000.0'
*VFILL,VALUE(1,1),DATA,153.85,26.69,24.45,20.00,18.34
*VFILL,VALUE(1,2),DATA,SH1,SH6,SH7,SH8,SH9
*VFILL,VALUE(1,3),DATA,R1,R6,R7,R8,R9
/COM
/COM
/COM,----------- vmr027-cr10b-182 TIME HARDENING RESULTS COMPARISON -------------
/COM,
/COM,| TIME | TARGET | Mechanical APDL | RATIO
/COM,
*VWRITE,LABEL(1), VALUE(1,1), VALUE(1,2), VALUE(1,3)
(1X,A8,' ',F8.3,' ',F13.3,' ',1F13.3,' ')
FINISH
*ELSEIF,I,EQ,2,THEN
/POST26
ESOL,3,1,,S,X,STRAINHA
PRVAR,3
/AXLAB,X,TIME
/AXLAB,Y,STRESS
/YRANGE,0,160
/COLOR,CURVE,BLUE,1
PLVAR,3
/POST1
SET,1,1
*GET,S1,NODE,3,S,X
R11=S1/153.85
SET,,,,,,,9
*GET,S6,NODE,3,S,X
R66=S6/35.96
SET,,,,,,,14
*GET,S7,NODE,3,S,X
R77=S7/33.46
SET,,,,,,,54
*GET,S8,NODE,3,S,X
R88=S8/28.06
SET,,,,,,,104
*GET,S9,NODE,3,S,X
R99=S9/26.10
*DIM,VALUE2,,5,6
LABEL(1) = '0','50.0','100.0','500.0','1000.0'
*VFILL,VALUE2(1,1),DATA,153.85,35.96,33.46,28.06,26.10
*VFILL,VALUE2(1,2),DATA,S1,S6,S7,S8,S9
*VFILL,VALUE2(1,3),DATA,R11,R66,R77,R88,R99
/COM
/COM
/COM,--------- vmr027-cr10b-182 STRAIN HARDENING RESULTS COMPARISON ----------
/COM,
/COM,| TIME | TARGET | Mechanical APDL | RATIO |
/COM,
*VWRITE,LABEL(1), VALUE2(1,1), VALUE2(1,2), VALUE2(1,3)
(1X,A8,' ',F8.3,' ',F13.3,' ',1F13.3,' ')
FINISH
*ENDIF
*ENDDO
FINISH
/POST26
*DIM,LABEL1,CHAR,2
*DIM,VALUE1,,2,3
LABEL1(1) = ' S6 ',' S7 '
*VFILL,VALUE1(1,1),DATA,SH9,S9
*VFILL,VALUE1(1,2),DATA,R9,R99
*DIM,LABEL2,CHAR,3
LABEL2(1) = 'vmr027-','cr10b-18','2'
/OUT,vmr027-cr10b-182,vrt
/COM
/COM,------------------- vmr027-cr10b RESULTS COMPARISON ---------------------
/COM,
/COM, | Mechanical APDL | RATIO | INPUT |
/COM,
/COM, PLANE182
*VWRITE,LABEL1(1),VALUE1(1,1),VALUE1(1,2),LABEL2(1),LABEL2(2),LABEL2(3)
(1X,A8,' ',F13.3,' ',F9.4,' ',A7,A8,A8)
*VWRITE,LABEL1(2),VALUE1(2,1),VALUE1(2,2),LABEL2(1),LABEL2(2),LABEL2(3)
(1X,A8,' ',F13.3,' ',F9.4,' ',A7,A8,A8)
/COM,
/COM,----------------------------------------------------------------
/OUT
FINISH
*LIST,vmr027-cr10b-182,vrt
