! 6.1  利用梁單元計算壓桿穩定性
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）定義工程選項、單元類型、實常數和材料參數
/FILNAME, EX6.1
/PREP7
/TITLE, EX6.1, BUCKLING OF A BAR WITH HINGED END BY BEAM3.
ET, 1, BEAM3
R, 1, 161.29, 2167.87, 12.7
MP, EX, 1, 207000
MP, PRXY, , 0.3
! (2)定義節點和單元
N, 1
N, 11, , 2540
FILL
E, 1, 2
EGEN, 10, 1, 1
FINISH
! (3)設置求解選項、位移約束和荷載, 開始求解
/SOLU
ANTYPE, STATIC
PSTRES, ON
D, 1, ALL
F, 11, FY, -1
OUTPR, , 1
SOLVE
FINISH
! (4)再次進入求解模塊, 進行屈曲分析
/SOLU
ANTYPE, BUCKLE
BUCOPT, LANB, 1
MXPAND, 1
SOLVE
! (5)提取計算結果
*GET, FCR, MODE, 1, FREQ
*STATUS, PARM
FINISH