Page 166 - Using ANSYS for Finite Element Analysis Dynamic, Probabilistic, Design and Heat Transfer Analysis

apDl programming • 153

FITEM,2,13
FITEM,2,15
FITEM,2,19
FITEM,2,21
FITEM,2,-22
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
! SAVE, Tutorial 1,db,
! /AUTO,1
! /REP,FAST
FLST,2,1,4,ORDE,1
FITEM,2,7
/GO
!*
SFL,P51X,PRES,88,
! SAVE, Tutorial 1,db,
FINISH
/SOL
! /STATUS,SOLU
SOLVE
! SAVE, Tutorial 1,db,
FINISH
/POST1
! PLDISP,2
! SAVE, Tutorial 1,db,
! LGWRITE,’Tutorial
1’,’lgw’,’C:\A6_ANS~1\FINOPT~1\
OPTIMI~1\’,COMMENT

After removing nonessential comments and adding comments:
/PREP7
!* Selection of Element Type
ET,1,PLANE82
KEYOPT,1,3,3 ! Option plane with thickness
KEYOPT,1,5,0
KEYOPT,1,6,0
!* Enter thickness value as a real constant
R,1,0.3,
!* Enter material properties
MPTEMP,,,,,,,,
MPTEMP,1,0