campbell图实例单轴约束建模分析

jxz19900417

//batch,list
/title, Spinning Simply Supported Beam
!* Parameters
lx=8                  ! length
dia=0.2               ! diameter
/PREP7                ! -----
ET,1,16
R,1, dia, dia/2
MP,EX,1,2e+11
MP,DENS,1,7800
MP,PRXY,1,0.3
n,1
n,9,lx
fill,1,9
e,1,2
egen,8,1,-1
d,1,uy,,, ,,uz        ! simply supported left end
d,9,uy,,, ,,uz        ! simply supported right end
d,all,ux              ! supress axial motion
d,all,rotx            ! supress torsion
finish
/SOLU                 ! -----
antype,modal
! Use the QRDAMP eigensolver, request 8 modes,
!   and specify complex eigensolutions
modopt,qrdamp,8,,,on
! Write 8 modes to the result file, calculate
!   element results
mxpand,8,,,yes
! Apply Coriolis effect and specify
!   stationary reference frame
coriolis,on,,,on
! Solve 2 loadsteps with rotational velocity
omega,0.
solve
omega,30000.
solve
finish
/POST1                ! -----
! Plot Campbell Diagram
plcamp
! Print Campbell Diagram
prcamp
finish