/BATCH
/input,menust,tmp ,,,,,,,,,,,,,,,,,1

/TITLE,Mr. Johnson's Plate with A Hole (FEA 1)

!* This file was written by ANSYS (FILE -> WRITE DB LOG LOGFILE)
!*    (a jobname.lgw file) with ESSENTIAL COMMANDS ONLY
!* Note: blank lines are added for clarity, and have no effect on ANSYS

/PREP7                  ! Enter Preprocessing

ET,1,PLANE82            ! Select element type PLANE82, 2D Quad.

UIMP,1,EX, , ,10587920,        ! Material properties for AL 6061-T6
UIMP,1,DENS, , ,0.0002526768, !   in units of BIN (inches - lbf)
UIMP,1,ALPX, , ,1.35e-005,    !   from the ANSYS material library
UIMP,1,REFT, , , ,
UIMP,1,NUXY, , ,0.33,
UIMP,1,PRXY, , , ,
UIMP,1,GXY, , , ,
UIMP,1,MU, , , ,
UIMP,1,DAMP, , , ,
UIMP,1,KXX, , ,0.002088528,
UIMP,1,C, , ,88.792452,
UIMP,1,ENTH, , , ,
UIMP,1,HF, , , ,
UIMP,1,EMIS, , , ,
UIMP,1,QRATE, , , ,       ! These blank lines of property data
UIMP,1,MURX, , , ,        !      could be removed.
UIMP,1,MGXX, , , ,
UIMP,1,RSVX, , , ,
UIMP,1,PERX, , , ,
UIMP,1,VISC, , , ,
UIMP,1,SONC, , , ,

RECTNG,0,6,0,6,         ! Create a rectangle, by dimensions
PCIRC,0.5, ,0,360,     ! Create a circle by dimensions
ASBA, 1, 2             ! Subtract areas (circle from rectangle)

ESIZE,0.75,0,           ! Set global element size to 0.75 in.

FLST,5,2,3,ORDE,2      ! Graphical picking for:
FITEM,5,5              ! (KP's of the hole in the plate)
FITEM,5,-6
CM,_Y,KP
KSEL, , , ,P51X        ! Select keypoints from picking, above
CM,_Y1,KP              ! Create a component '_Y1' of selected KP's
CMSEL,S,_Y
CMSEL,S,_Y1            ! Select the component '_Y1'
KESIZE,ALL,0.1         ! Set element size at selected KP to 0.1 in.
CMSEL,S,_Y
CMDEL,_Y1              ! Delete temporary components
CMDEL,_Y

MSHAPE,0,2D             ! Use 2D quadrilateral element shapes
MSHKEY,0                ! Set for FREE neshing
CM,_Y,AREA
ASEL, , , , 3          ! Select area no. 3
CM,_Y1,AREA            ! Create component '_Y1' pf areas
CHKMSH,'AREA'          ! Check to see if areas are already meshed
CMSEL,S,_Y
AMESH,_Y1              ! Mesh areas
CMDEL,_Y
CMDEL,_Y1              ! Delete temporary components
CMDEL,_Y2
FINISH                  ! Finish Preprocessing

/SOLU                   ! Enter solution

FLST,2,2,4              ! Graphical picking for :
FITEM,2,10
FITEM,2,9
DL,P51X, ,SYMM         ! Define symmetry on picked lines, above

FLST,2,1,4,ORDE,1      ! Grpahical picking for:
FITEM,2,2
SFL,P51X,PRES,-1000, , ! Define pressure on picked lines, above

SBCTRAN                 ! Transfer all solid model loads to nodes & elements

SOLVE                   ! Run the solution
FINISH                  ! Finish solution

/POST1                  ! Enter the general postprocessor
/GRAPHICS,FULL         ! De-activate Powergraphics
AVPRIN,0,0,            ! Settings for calc. of principal stresses
AVPRIN,0,0,
AVPRIN,0,0,
FINISH                  ! Finish Postprocessing
/EXIT,NOSAVE           ! Exit ANSYS without saving the database