ex5.8.inp

ansys有限元分析程序

! 5.8  利用拉伸操作建立膨胀弯管模型
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH
/CLEAR, NOSTART
/FILNAME, EX5.8(1)
/TITLE, EX5.8(1), A sample to Generate Elbow by Extrude Operation.
! （1）定义管道轴线上的关键点、线和管道横截面圆, 沿着管道轴线拉伸圆生成管道
/PREP7
/View, 1, 1, 1, 1
K, 1
K, 2, , , 12
K, 3, , 2.8, 12
K, 4, , 2.8, 13.5
! （2）过关键定义管道轴线和拐角处的倒圆
L, 1, 2
L, 2, 3
L, 3, 4
Lfillt, 1, 2, 0.6
Lfillt, 2, 3, 0.6
! （3）定义管道横截面圆，通过拉伸这个圆生成管道
K, 21
Circle, 21, 0.15
ADRAG, 6, 7, 8, 9, , , 1, 4, 2, 5, 3
! (4)定义单元类型、实常数、材料参数和单元尺寸后, 将管道剖分为壳体单元
ANTYPE, STATIC
ET, 1, SHELL63
R, 1, 0.010
MP, EX, 1, 207E9
MP, NUXY, 1, 0.3
MP, ALPX, 1, 6E-6
ESIZE, 0.06, 0, 
MSHKEY, 1
AMESH, ALL
FINISH
! (5)在求解模块定义两段位移约束和荷载
/SOLU
DL, 6, , UZ, 0
DL, 7, , UZ, 0
DL, 8, , UZ, 0
DL, 9, , UZ, 0
DK, 9, UY, 0
DK, 11, UY, 0
DK, 10, UX, 0
DK, 12, UX, 0
DL, 42, , SYMM
DL, 45, , SYMM
DL, 47, , SYMM
DL, 49, , SYMM
SFA, ALL, 1, PRESS, 0.2E6
TUNIF, 80
SOLVE
FINISH
! (6)在后处理模块中显示变形和应力计算结果
/POST1
SET, 1
PLDISP, 1
PLNSOL, S, 1
PLNSOL, S, Z
! (7)计算端部的推力
Nsel, S, LOC, Z, 0
FSUM
FINISH