管道有限元问题
浏览:117011
!环境设置
FINI
/CLE
/FILNAME,EX1-1-1
/TITLE,EXAMPLE 1-1-1
!1 参数设定
!1.1 几何参数设定
!管道
*set, P_D, 304.8 !管道外径
*set, P_t, 6.35 !管道壁厚
*set, P_L, 225 !管道长度?
!缺陷
*set, D_L, 26 !缺陷长度
*set, D_W, 20 !缺陷宽度
*set, D_D, 4.95 !缺陷深度
!1.2 材料参数设定
*set, EXX, 9.71E10 !初始弹性模量E/GPa
*set, PRXY, 0.3 !泊松比
*set, N, 0.3 !幂硬化指数
*set, a, 0.3 !硬化系数
!1.3 荷载参数设定
*set, P1, 15.3 !均布内压
!2. 参数定义
/prep7
!2.1 定义单元属性
ET, 1, solid95 !定义95号单元
!2.2 定义材料属性
MP, EX, 1, EXX !定义初始弹性模量E/GPa
MP, NUXY, 1, PRXY !定义泊松比
!3.实体建模
!3.1 缺陷
WPOFFS, 0, P_D/2,
WPROTA, 0,90,0
CSYS,4
a = D_W/2
b = D_L/2
c = D_D
sph4,,,a !创建半径为A的球体
vlscale,all,,,1, b/a, c/a,,,1 !以X轴的比例为1, Y轴的比例为B/A缩放球,Z轴的比例为c/A创建椭球
WPSTYL,DEFA
!3.2 管道
CYLIND, P_D/2-P_t, P_D/2, 0, P_L,0,180
!3.3 布尔运算
VSBV, 2, 1
wprota,0,0,90 !旋转工作平面
vsbw,all !切分所有体
vdele,1,,,1
!4划分网格
!4.1单元体属性设置
!4.2定义网络划分控制
MSHAPE,0,3D
MSHKEY,0
!单元尺寸
ESIZE,10
VMESH,ALL
!出现错误,谁来 看看这是什么问题
FINI
/CLE
/FILNAME,EX1-1-1
/TITLE,EXAMPLE 1-1-1
!1 参数设定
!1.1 几何参数设定
!管道
*set, P_D, 304.8 !管道外径
*set, P_t, 6.35 !管道壁厚
*set, P_L, 225 !管道长度?
!缺陷
*set, D_L, 26 !缺陷长度
*set, D_W, 20 !缺陷宽度
*set, D_D, 4.95 !缺陷深度
!1.2 材料参数设定
*set, EXX, 9.71E10 !初始弹性模量E/GPa
*set, PRXY, 0.3 !泊松比
*set, N, 0.3 !幂硬化指数
*set, a, 0.3 !硬化系数
!1.3 荷载参数设定
*set, P1, 15.3 !均布内压
!2. 参数定义
/prep7
!2.1 定义单元属性
ET, 1, solid95 !定义95号单元
!2.2 定义材料属性
MP, EX, 1, EXX !定义初始弹性模量E/GPa
MP, NUXY, 1, PRXY !定义泊松比
!3.实体建模
!3.1 缺陷
WPOFFS, 0, P_D/2,
WPROTA, 0,90,0
CSYS,4
a = D_W/2
b = D_L/2
c = D_D
sph4,,,a !创建半径为A的球体
vlscale,all,,,1, b/a, c/a,,,1 !以X轴的比例为1, Y轴的比例为B/A缩放球,Z轴的比例为c/A创建椭球
WPSTYL,DEFA
!3.2 管道
CYLIND, P_D/2-P_t, P_D/2, 0, P_L,0,180
!3.3 布尔运算
VSBV, 2, 1
wprota,0,0,90 !旋转工作平面
vsbw,all !切分所有体
vdele,1,,,1
!4划分网格
!4.1单元体属性设置
!4.2定义网络划分控制
MSHAPE,0,3D
MSHKEY,0
!单元尺寸
ESIZE,10
VMESH,ALL
!出现错误,谁来 看看这是什么问题