! 9.3  利用8節點2D實體單元PLANE82計算壓力容器
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
Finish
/Clear
/FileName, EX9.3
/Title, EX9.3, Long Cyclinder Pressure Vessel for CNG with PLANE82.
! （1）定義基本參數
h1=298.5
b1=44.5
b2=b1+23
r1=185
r2=203
! （2）定義剖面區域邊界上的關鍵點
/Prep7
k, 1, b1, h1
k, 2, b2, h1
k, 3, b1, sqrt(r1*r1-b1*b1)
k, 4, b2, sqrt(r2*r2-b2*b2)
k, 5, r1, 0
k, 6, r2, 0
k, 7, 0, 0
k, 8, r1, -1000+h1
k, 9, r2, -1000+h1
K, 10, 0, h1
! （3）定義圍成結構剖面區域的線，并定義剖面
L, 1, 2
L, 1, 3
L, 2, 4
L, 5, 8
L, 8, 9
L, 6, 9
Larc, 5, 3, 7, r1
Larc, 6, 4, 7, r2
LFILLT, 2, 7, 63, , 
LFILLT, 3, 8, 40, , 
AL, all
! （4）定義單元類型、材料參數和實常數
ANTYPE, STATIC
ET, 1, PLANE82
KEYOPT, 1, 3, 1
MP, EX, 1, 207E3
MP, NUXY, 1, 0.3
! （5）定義位移約束和荷載
DL, 5, , SYMM
SFL, 2, PRES, 23, , , , 
SFL, 4, PRES, 23, , , , 
SFL, 7, PRES, 23, , , , 
SFL, 9, PRES, 23, , , , 
SFL, 1, PRES, -17.681, 
Esize, 5
Amesh, 1
FINISH
! （6）進入求解模塊求解
/SOLU
Solve
FINISH
! （7）進入后處理模塊處理計算結果
/POST1
Pldisp, 2
Plnsol, s, 1
Plnsol, s, 2
Plnsol, s, 3
Plnsol, s, EQV
Plnsol, s, Z
Finish