! 6.6  矩形截面懸壁梁的側向穩定性分析
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR
/FILNAME, EX6.6
/TITLE, EX6.6, Lateral Torsional Buckling Analysis of a Cantilever Beam.
! （1）設置圖形選項并定義幾何模型
/PREP7
/GRA, POWER
K, 1, 0, 0, 0, 
K, 2, 1000, 0, 0, 
K, 3, 500, 100, 0, 
LSTR, 1, 2
! （2）定義單元類型和橫截面信息
ET, 1, BEAM189
SECTYPE, 1, BEAM, RECT, 
SECDATA, 10, 50
! （3）定義材料特性并定位結點
MP, EX, 1, 210E3
MP, NUXY, 1, 0.0
LSEL, S, , , 1, 1, 1
LATT, 1, , 1, 0, 3, , 1
! （4）對線剖分網格并確認梁的定位
LESIZE, ALL, , , 10
SECNum, 1
LMESH, ALL
/VIEW, , 1, 1, 1
/ESHAPE, 1
EPLOT
! （5）定義邊界條件和荷載
DK, 1, ALL
FK, 2, FY, 1
FINISH
! （6）打開預應力選項，開始靜力求解
/SOLU
PSTRES, ON
EQSLV, SPARSE
SOLVE
FINISH
! （7）重新進行線性屈曲求解
/SOLU
ANTYPE, BUCKLE
BUCOPT, LANB, 3
MXPAND, 3, , , YES
SOLVE
FINISH
! （8）在后處理模塊顯示分析結果
/POST1
SET, LIST
SET, 1, 1
PLDisp, 2
FINISH