!6.4 利用拉伸操作建立膨胀弯管模型
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR,NOSTART
/FILENAME,EX6.4
/TITLE,EX6.4, A sample to Generate Elbow by Extrude Operation.
! (1) 定义管道轴线上的关键点,线和管道横截面圆,沿着管道轴线拉伸圆生成管道
/PREP7
k,1
k,2,,,1
k,3,,0.8,1
k,4,,0.8,1.5
l,1,2
l,2,3
l,3,4
lfillt,1,2,.28
lfillt,2,3,.28
k,21
circle,21,0.1
/VIEW,1,1,1,1
ADRAG,6,7,8,9,,,1,4,2,5,3
! (2)定义单元类型,实常数,材料参数和单元尺寸后,将管道划分为壳体单元
ET,1,SHELL63
R,1,0.01
MP,EX,1,3E11
ESIZE,0.08,0,
AMESH,ALL
! (3)在求解模块定义两段位移约束和荷载
/SOLU
DL,6,ALL,ALL,0
DL,7,ALL,ALL,0
DL,8,ALL,ALL,0
DL,9,ALL,ALL,0
DL,42,,SYMM
DL,45,,SYMM
DL,47,,SYMM
DL,49,,SYMM
SFA,ALL,1,PRESS,1
SOLVE
FINISH
! (4)在后处理模块中显示变形和应力计算结果
/POST1
SET,1
PLNSOL,S,1
FINISH
