VM323 Input Listing


/COM,ANSYS MEDIA REL. 2025R1 (11/08/2024) REF. VERIF. MANUAL: REL. 2025R1
/VERIFY,VM323
/COM, REFERENCE: PAUL DUXBURY, TONY CROOK AND PAUL LYONS,
/COM, "A CONSISTENT FORMULATION FOR THE INTEGRATION OF COMBINED PLASTICITY AND CREEP",
/COM, INTERNATIONAL JOURNAL FOR NUMERICAL METHODS IN ENGINEERING, VOL. 37, 1277-1295 (1994)
/COM,
/TITLE, VM323, TOTAL STRAINS OF A BAR WITH COMBINED PLASTICITY AND CREEP
/OUT,vm323_scratch

/PREP7
ET,1,185            ! 3D 8-NODE STRUCTURAL SOLID ELEMENT
KEYOPT,1,2,1        ! REDUCED INTEGRATION
KEYOPT,1,6,1        ! MIXED U-P

MP,EX,1,20000       ! MPA
MP,NUXY,1,0.3

TB,PLAS,1,,,BISO
TBDATA,1,20,100     ! YIELD STRESS, PLASTIC TANGENT MODULUS

TB,CREEP,1,,,2      ! TIME HARDENING CREEP
TBDATA,1,0.5E-7,5,-0.5,0,

BLOCK,0,1,0,1,0,10
ESIZE,1
VMESH,1

NSEL,S,LOC,X,0
D,ALL,UX
NSEL,S,LOC,Y,0
D,ALL,UY
NSEL,S,LOC,Z,0
D,ALL,UZ
ALLSEL
NSEL,S,LOC,Z,10
SF,ALL,PRES,-20    ! TENSION, MPA
ALLSEL
FINISH

/SOLU
RATE,OFF           ! NO IMPLICIT CREEP ANALYSIS
TIME,1E-8
NSUBST,1,
KBC,0
SOLVE
RATE,ON            ! PERFORM IMPLICIT CREEP ANALYSIS
CUTCONTROL,CRPLIM,5,1
TIME,1
NSUBST,100,2000,10
NSEL,S,LOC,Z,10
SF,ALL,PRES,-40
ALLSEL
OUTRES,ALL,-15
SOLVE
TIME,1.5
NSUBST,100,2000,10
NSEL,S,LOC,Z,10
SF,ALL,PRES,-20
ALLSEL
SOLVE
FINISH

/POST26
ESOL,2,1,,EPEL,Z     ! ELASTIC STRAIN IN Z DIRECTION
ESOL,3,1,,EPPL,Z     ! PLASTIC STRAIN IN Z DIRECTION
ESOL,4,1,,EPCR,Z     ! CREEP STRAIN IN Z DIRECTION
ADD,5,2,3,4,EPTOTAL  ! TOTAL STRAIN IN Z DIRECTION

/OUT
PRVAR,2,3,4,5
FINISH

/POST1
SET,LAST
*GET,STRAIN_TOTAL_Z,NODE,1,EPTO,Z

*DIM,LABEL,CHAR,1,1
*DIM,TARGET,,1,1
*DIM,ANSYS,,1,1
*DIM,RATIO,,1,1
LABEL(1)='EPTOTAL'
ANSYS(1)=STRAIN_TOTAL_Z
TARGET(1)=3.167
RATIO(1)=ABS(ANSYS(1)/TARGET(1))

/OUT,vm323,vrt
/COM,------------------- VM323 RESULTS COMPARISON ---------------------
/COM,
/COM,                   |  TARGET  |   MECHANICAL APDL   |  RATIO
/COM,
*VWRITE,LABEL(1,1),TARGET(1),ANSYS(1),RATIO(1)
(8X,A9,'      ',F6.4,'           ',F6.4, '         ',F6.4)
/COM,------------------------------------------------------------------
/OUT
*LIST,vm323,vrt
FINISH