mod_assemb_prep
!
et,1,shell63
et,2,solid45
!
UIMP,1,EX, , ,29.4E6,                       ! Material:  INCONEL 718
UIMP,1,DENS, , ,.286/g_bin,
UIMP,1,NUXY, , ,0.29,
!
csys,0
!
k,,1.5,0,0
k,,-1.5,0,0
k,,-0.5,0,20
k,,0.5,0,20
!
create_volume,,0.75
!
asel,s,area,,1
msh_algorithm,1,3,1,,,,1,2,0.85,,,,,,
aclear,all
!
nsel,s,loc,z,0
d,all,all
!
init_entity_num
!
lplot
!
!
/SOLU
ANTYPE,MODAL             ! PERFORM A MODAL ANALYSIS
MODOPT,SUBSP,5           ! SUBSPACE ITERATION METHOD
                         ! EXTRACT 2 MODES FROM ENTIRE FREQUENCY RANGE
MXPAND,5,,,YES           ! EXPAND 2 MODES, DO ELEMENT STRESS CALCULATIONS
SOLVE
*GET,FREQ1,MODE,1,FREQ
*GET,FREQ2,MODE,2,FREQ
*GET,FREQ3,MODE,3,FREQ
*GET,FREQ4,MODE,4,FREQ
*GET,FREQ5,MODE,5,FREQ
FINISH