! 5.2 圆形薄膜大变形静力分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）设置工程选项, 单元类型、实常数和材料参数
/FILNAME, EX5.2
/PREP7
/TITLE, EX5.2, LARGE DEFLECTION OF A CIRCULAR MEMBRANE.
ET, 1, SHELL51, , , , 1
R, 1, 2.54e-3
MP, EX, 1, 207E3
MP, NUXY, 1, 0.25
MP, ALPX, 1, 0.556E-5
! (2)定义节点和单元
N, 1
N, 11, 254
FILL
E, 1, 2
EGEN, 10, 1, 1
FINISH
! (3)在求解模块, 设置求解选项, 施加位移约束后求解
/SOLU
ANTYPE, STATIC
NLGEOM, ON
SSTIF, ON
CNVTOL, F, , , , 2
OUTPR, , LAST
TUNIF, -50
NSEL, S, LOC, X, 0
DSYM, SYMM, X
NSEL, ALL
D, 11, ALL
SOLVE
! (4)设置递增步长荷载, 循环求解
KBC, 1
SF, ALL, PRES, 689.5e-6
SOLVE
! (5)移去温度应力, 在求解
TUNIF, 0
SOLVE
! (6)在后处理模块, 定义单元表, 提取单元应力计算结果
/POST1
SET, 3
*GET, UY, NODE, 1, U, Y
ESEL, S, ELEM, , 1, 1
ETABLE, CENT, LS, 5
ESORT, CENT
*GET, PRSCNT, SORT, , MAX
ESEL, S, ELEM, , 10, 10
ETABLE, CEN, LS, 5
ESORT, CEN
*GET, PRSOUT, SORT, , MAX
*STATUS, PARM
FINISH
