!6.2 利用实体单元计算压杆稳定性
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
! (1)设置工程选项、 单元类型、实常数和材料参数
/FILNAME, EX6.2
/PREP7
/TITLE, EX6.2, BUCKLING OF A BAR WITH HINGED BY PLANE42.
ET, 1, PLANE42, , , 3
R, 1, 12.7
MP, EX, 1, 207000
MP, PRXY, , 0.3
! （2）定义节点和单元
N, 1
N, 11, , 2540
FILL
! NGEN, ITIME, INC, NODE1, NODE2, NINC, DX, DY, DZ, SPACE
NGEN, 2, 11, 1, 11, , 12.7
E, 12, 13, 2, 1
EGEN, 10, 1, 1
FINISH
! （3）定义求解选项, 位移约束和荷载力, 并开始静力分析的求解
/SOLU
PSTRES, ON
D, 1, ALL, , , 12, 11
F, 11, FY, -0.5, , 22, 11
OUTPR, , 1
SOLVE
FINISH
! (4)再次进入求解模块, 进行屈曲分析
/SOLU
ANTYPE, BUCKLE
BUCOPT, SUBSP, 1
MXPAND, 1
SOLVE
! (5)提取计算结果
*GET, FCR1, MODE, 1, FREQ
FINISH
! (6)改用其他特征值求解方法
/SOLU
BUCOPT, LANB, 1
SOLVE
! (7)显示计算结果
*GET, FCR2, MODE, 1, FREQ
*STATUS, PARM
FINISH
