ex3.1.txt

通过实例详细介绍Ansys在实际工程中的应用

!3.1  利用梁单元计算压杆稳定性
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR, NOSTART
! (1) 定义工程选项,单元类型,实常数和材料参数
/FileName, EX3.1
/PREP7
/TITLE, EX3.1, BUCKLING OF A BAR WITH HINGED END BY BEAM3 ELEMENT
C***    STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 148
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
! (6)定义数组变量,将计算结果输出到文件
*DIM,LABEL,CHAR,1,2
*DIM,VALUE,,1,3
LABEL(1,1) = 'Fcr '
LABEL(1,2) = '(N) '
*VFILL,VALUE(1,1),DATA,171.46
*VFILL,VALUE(1,2),DATA,FCR
*VFILL,VALUE(1,3),DATA,ABS(FCR/171.46)
/COM
/OUT, EX3_1, out
/COM,-------------------  EX3.1  RESULTS COMPARISON -------------
/COM,
/COM,                 |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F10.3,'  ',F10.3,'   ',1F5.3)
/COM,----------------------------------------------------------
/OUT
FINISH
*LIST, EX3_1, out