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	! 进入前处理模块PREP7
/View, 1, 1, 1, 1	! 将1号窗口的视点切换到等轴测视点
K, 1	! 在坐标原点定义位于管道轴线上的第1个关键点
K, 2, , , 12	! 在(0, 0, 12m)位置定义第2个关键点
K, 3, , 2.8, 12	! 在(0, 2.8m, 12m)位置定义第3个关键点
K, 4, , 2.8, 13.5	! 在(0, 2.8m, 13.5m)位置定义第4个关键点
! （2）过关键定义管道轴线和拐角处的倒圆
L, 1, 2	! 过1号关键点和2号关键点定义第1条线
L, 2, 3	! 过2号关键点和3号关键点定义第2条线
L, 3, 4	! 过31号关键点和4号关键点定义第1条线
Lfillt, 1, 2, 0.6	! 定义1号线和2号线相交位置半径为0.6m的倒圆
Lfillt, 2, 3, 0.6	! 定义2号线和3号线相交位置半径为0.6m的倒圆
! （3）定义管道横截面圆，通过拉伸这个圆生成管道
K, 21	! 在坐标原点定义第21号关键点
Circle, 21, 0.15	! 以21号关键点为圆心, 0.15m为半径作圆, 圆弧线编号依次是6, 7, 8, 9
ADRAG, 6, 7, 8, 9, , , 1, 4, 2, 5, 3	! 开始沿前面定义的路径1, 4, 2, 5, 3号线用圆扫描形成管道
! (4)定义单元类型、实常数、材料参数和单元尺寸后, 将管道剖分为壳体单元
ANTYPE, STATIC	! 定义分析类型为静力分析
ET, 1, SHELL63	! 定义第1类单元为壳单元SHELL63
R, 1, 0.010	! 定义单元的第1类实常数:壳体单元厚度10mm
MP, EX, 1, 207E9	! 定义第1类材料的弹性模量EX=210 GPa
MP, NUXY, 1, 0.3	! 定义第1类材料的泊松比NUXY=0.3
MP, ALPX, 1, 6E-6	! 定义第1类材料的热膨胀系数ALPX＝0.6E-5
ESIZE, 0.06, 0,	! 单元剖分尺寸0.05m
MSHKEY, 1	! 设置单元网格剖分类型为映射网格
AMESH, ALL	! 将所有管道面剖分为壳体单元
FINISH	! 退出前处理模块
! (5)在求解模块定义两段位移约束和荷载
/SOLU	! 进入求解模块SOLU
DL, 6, , UZ, 0	! 定义直线管对称位置的6, 7, 8, 9号线轴向位移固定条件
DL, 7, , UZ, 0
DL, 8, , UZ, 0
DL, 9, , UZ, 0
DK, 9, UY, 0	! 定义直线管对称位置的9, 10, 11, 12号关键点的位移条件
DK, 11, UY, 0
DK, 10, UX, 0
DK, 12, UX, 0
DL, 42, , SYMM	! 定义膨胀弯管对称位置出42, 45, 47, 49号线的对称位移条件
DL, 45, , SYMM
DL, 47, , SYMM
DL, 49, , SYMM
SFA, ALL, 1, PRESS, 0.2E6	! 对所有面定义压力荷载, 大小为0.2 MPa
TUNIF, 80	! 设置温度升高80度, 形成温度应力
SOLVE	! 开始求解
FINISH	! 退出求解模块
! (6)在后处理模块中显示变形和应力计算结果
/POST1	! 进入后处理模块POST1
SET, 1	! 读入第1个荷载步的计算结果
PLDISP, 1	! 显示变形图
PLNSOL, S, 1	! 在图形窗口显示结点上的主应力
PLNSOL, S, Z	! 在图形窗口显示结点上的轴向应力
! (7)计算端部的推力
Nsel, S, LOC, Z, 0	! 通过位置选择Z=0位置的节点
FSUM 	! 统计汇总节点上的合力
FINISH	! 退出后处理模块