! 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