ex5.8(2).inp

ansys有限元分析程序

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