/prep7
/title,Random Vibration of a Cantilever Beam with a Point Mass
!
et,1,beam4                      ! define element type
et,2,mass21,,,2                 ! 3-dimensional mass w/o rotary inertia
!
mp,ex,1,200e9                      ! define material properties
mp,nuxy,1,0.3
mp,alpx,1,0.1e-5
mp,dens,1,8000
!
r,1,4,1.333,1.333,2,2,0            ! define real constants
rmore,0,2.2496,1.177,1.177
r,2,100000
!
n,1,0
n,101,20
fill
e,1,2
egen,100,1,1
d,1,all
!
type,2               ! define active element type as set 2
real,2               ! define active real constant type as set 2
e,101                ! define mass at end of wire
!
finish
!


!*go,:skip1

/solu
antype,modal             ! perform a modal analysis
modopt,reduc,5
!modopt,lanb,5           ! subspace iertation method
m,all,uy
!eqslv,pcg                ! extract 2 modes from entire frequency range
mxpand,5                   ! 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

!:skip1


*go,:skip2

/solu
antype,modal             ! perform a modal analysis
modopt,reduc,5
!modopt,lanb,5           ! subspace iertation method
m,all,uy
!eqslv,pcg                ! extract 2 modes from entire frequency range
mxpand,5                   ! 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

:skip2