ex5.8(2).inp

来自「ansys有限元分析程序」· INP 代码 · 共 59 行

! 5.8  利用拉伸操作建立膨胀弯管模型
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
!
FINISH	! 退出以前模块
/CLEAR, NOSTART	! 清除内存中的所有数据, 不读入初始化文件
/FILNAME, EX5.8(2)	! 定义工程文件名称
/TITLE, EX5.8(2), A Straight Pipe by Extrude Operation under Thermal load.
! （1）定义管道轴线上的关键点、线和管道横截面圆, 沿着管道轴线拉伸圆生成管道
/PREP7	! 进入前处理模块PREP7
/View, 1, 1, 1, 1	! 将1号窗口的视点切换到等轴测视点
K, 1	! 在坐标原点定义位于管道轴线上的第1个关键点
K, 2, , , 13.5	! 在(0, 0, 13.5m)位置定义第2个关键点
! （2）过关键点定义管道轴线和拐角处的倒圆
L, 1, 2	! 过1号关键点和2号关键点定义第1条线
! （3）定义管道横截面圆，通过拉伸这个圆生成管道
K, 21	! 在坐标原点定义第21号关键点
Circle, 21, 0.15	! 以21号关键点为圆心, 0.15m为半径作圆, 弧线编号是2, 3, 4, 5
ADRAG, 2, 3, 4, 5, , , 1	! 开始沿前面定义的路径1号线用圆扫描形成管道
! (4)定义单元类型、实常数、材料参数和单元尺寸后, 将管道剖分为壳体单元
ANTYPE, STATIC	! 定义分析类型为静力分析
ET, 1, SHELL63	! 定义第1类单元为壳单元SHELL63
R, 1, 0.010	! 定义单元的第1类实常数:壳体单元厚度10mm
MP, EX, 1, 210E9	! 定义第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.06m
MSHKEY, 1	! 设置单元网格剖分类型为映射网格
AMESH, ALL	! 将所有管道面剖分为壳体单元
FINISH	! 退出前处理模块
! (5)在求解模块定义两段位移约束和荷载
/SOLU	! 进入求解模块SOLU
DL, 2, , UZ, 0	! 定义直线管对称位置轴向的2, 3, 4, 5号线固定条件
DL, 3, , UZ, 0
DL, 4, , UZ, 0
DL, 5, , UZ, 0
DK, 3, UY, 0	! 定义直线管对称位置的3, 4, 5, 6号关键点固定条件
DK, 5, UY, 0
DK, 4, UX, 0
DK, 6, UX, 0
DL, 6, , SYMM	! 定义原来膨胀弯管对称位置处的6, 9, 11, 13号线对称位移条件
DL, 9, , SYMM
DL, 11, , SYMM
DL, 13, , SYMM
SFA, ALL, 1, PRESS, 0.2E6	! 对所有面定义压力荷载, 大小为0.2 MPa
TUNIF, 80	! 设置温度升高80度, 形成温度应力
SOLVE	! 开始求解
FINISH	! 退出求解模块
! (6)在后处理模块中显示变形和应力计算结果
/POST1	! 进入后处理模块POST1
SET, 1	! 读入第1个荷载步的计算结果
PLDISP, 2	! 显示变形图
PLNSOL, S, 1	! 在图形窗口显示结点上的主应力
PLNSOL, S, Z	! 在图形窗口显示结点上的轴向应力
! (7)计算端部的推力
Nsel, S, LOC, Z, 0	! 通过位置选择Z=0位置的节点
FSUM 	! 统计节点上的合力
FINISH	! 退出后处理模块