马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
//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 |