fini
/clear
/filname,MA-rod1 
/title,rod1-frequency
/units,MPA

/prep7
!define parameter
radius=1
length=100
emodul=2.1e5
poisson=0.3
density=7.85e-9

!define elementtype and material
et,1,solid45
mp,ex,1,emodul 
mp,prxy,1,poisson 
mp,dens,1,density 

!geometry
cyl4,0,0,radius,,,,length
csys,1

!mesh
smrtsize,8
vsweep,all

!boundary cond
da,2,all

/solu
antype,modal
modopt,lanb,20
mxpand,all
solve

/post1
/view,,-1,1,-2
set,1,9
pldi,1
anmode,40