! 5.4 圆柱形薄壳在均匀内压作用下的静力分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
/FILNAME, EX5.4
/TITLE, EX5.4, CYLINDRICAL MEMBRANE UNDER PRESSURE.
! （1）定义工程选项、分析类型、单元类型、实常数和材料参数
/PREP7
ANTYPE, STATIC
ET, 1, SHELL41
R, 1, 25.4
MP, EX, 1, 207E3
MP, NUXY, 1, 0.3
! （2）在柱坐标系下, 定义节点和单元
CSYS, 1
/View, 1, 1, 1, 1
N, 1, 1524
N, 2, 1524, , 254
NGEN, 2, 2, 1, 2, 1, , 10
NROTAT, ALL
E, 1, 2, 4, 3
! （3）定义耦合自由度、位移约束和荷载力
CP, 1, UX, 1, 2, 3, 4
CP, 2, UZ, 2, 4
D, 1, UZ, , , 3, 2
D, ALL, UY
SFE, 1, 4, PRES, , -103.43*25.4
SFE, 1, 1, PRES, , -3.447575
FINISH
! (4)在求解模块, 设置求解选项后求解
/SOLU
OUTPR, , 1
SOLVE
FINISH
! (5)在后处理模块中提取应力计算结果
/POST1
*GET, STRS_HOP, NODE, 1, S, 2
*GET, STRS_AX, NODE, 1, S, 1
FINISH
