! 7.8  有軸向壓力作用的簡(jiǎn)支梁的自由振動(dòng)
! 本程序來(lái)源于邢靜忠編著的《ANSYS應(yīng)用實(shí)例與分析》，科學(xué)出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）定義工程選項(xiàng)、分析類型、單元類型、實(shí)常數(shù)和材料參數(shù)
/FILNAME, EX7.8
/PREP7
/TITLE, EX7.8, LATERAL VIBRATION OF AN AXIALLY LOADED BAR.
ANTYPE, STATIC
PSTRES, ON
ET, 1, BEAM4
R, 1, 25.81E-4, 55.493E-8, 55.493E-8, 50.8E-3, 50.8E-3
MP, EX, 1, 207E9
MP, DENS, 1, 7781
MP, PRXY, , 0.3
! （2）定義節(jié)點(diǎn)位置和單元連接
N, 1
N, 14, 2.032
FILL
E, 1, 2
EGEN, 13, 1, 1
! （3）施加位移約束和荷載
D, 1, UY, , , 14, , ROTX, ROTZ
D, 1, UX, , , , , UZ
D, 14, UZ
F, 14, FX, -177932
M, 2, UZ, 13
FINISH
! （4）進(jìn)入求解模塊, 指定求解選項(xiàng)并求解
/SOLU
OUTPR, BASIC, 1
SOLVE
FINISH
! （5）進(jìn)入一般后處理模塊, 提取頻率計(jì)算結(jié)果
/POST1
ETABLE, STRS, LS, 1
*GET, STRSS, ELEM, 13, ETAB, STRS
*GET, DEF, NODE, 14, U, X
! （6）重新進(jìn)入求解模塊, 用模態(tài)求解方法求解
/SOLU
ANTYPE, MODAL
PSTRES, ON
MXPAND, 3
MODOPT, LANB, 3
SOLVE
! （7）提取頻率計(jì)算結(jié)果
*GET, FREQ1, MODE, 1, FREQ
*GET, FREQ2, MODE, 2, FREQ
*GET, FREQ3, MODE, 3, FREQ
*STATUS, PARM
FINISH