24小时热门版块排行榜    

CyRhmU.jpeg
查看: 3265  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

zoudaxiang

铁虫 (初入文坛)

[求助] ansys里面壳单元上模拟出裂纹损伤,哪位大神会啊?已有3人参与

跪求写几条命令流吧!!!!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

剽悍的人生不需要解释
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sd9366

至尊木虫 (正式写手)

【答案】应助回帖

弹塑性焊接接头的J积分计算

/FILNAME,Welded Joint,0
/PREP7
H1=0.002      !焊接接头的厚度
H=0.08        !焊接接头的宽度
ML1=0.1       !母材区1的长度
RL1=0.006     !热影响区1的长度
HL=0.01       !焊缝区的长度
ML2=0.1       !母材区2的长度
RL2=0.006     !热影响区2的长度
A=0.004       !裂纹的半长
OL=0.003      !裂纹中心到热影响区1的距离
OH=0.04       !裂纹中心到底边的距离

ET,1,PLANE183  !定义1号单元
KEYOPT,1,3,3   !设置单元关键字考虑平面应变
R,1,H1,        !定义实常数

MP,EX,1,2E11   
MP,PRXY,1,0.3  
TB,BISO,1,1,2,  
TBTEMP,0
TBDATA,,300e6,2e10,,,,

MP,EX,2,2.5E11   
MP,PRXY,2,0.3  
TB,BISO,2,1,2,  
TBTEMP,0
TBDATA,,200e6,2.1e10,,,,

MP,EX,3,1.9E11   
MP,PRXY,3,0.3  
TB,BISO,3,1,2,  
TBTEMP,0
TBDATA,,500e6,1.2e10,,,,

MP,EX,4,2.6E11   
MP,PRXY,4,0.3  
TB,BISO,4,1,2,  
TBTEMP,0
TBDATA,,250e6,2.1e10,,,,

MP,EX,5,2.1E11   
MP,PRXY,5,0.3  
TB,BISO,5,1,2,  
TBTEMP,0
TBDATA,,350e6,2e10,,,,


!定义关键点
K,1,ML1+RL1,0,0
K,2,ML1+RL1+OL,0,0
K,3,ML1+RL1+HL,0,0
K,4,ML1+RL1+HL,H,0
K,5,ML1+RL1+OL,H,0
K,6,ML1+RL1,H,0
K,7,ML1+RL1+OL,OH-A,0
K,8,ML1+RL1+OL,OH,0
K,9,ML1+RL1+OL,OH+A,0
!通过关键点定义面
A,1,2,7,8,9,5,6
A,2,3,4,5,9,7,2

!定义矩形
RECTNG,0,ML1,0,H,   
RECTNG,ML1,ML1+RL1,0,H,  
RECTNG,ML1+RL1+HL,ML1+RL1+HL+RL2,0,H,
RECTNG,ML1+RL1+HL+RL2,ML1+RL1+HL+RL2+ML2,0,H,
!粘结面
AGLUE,3,4,1
AGLUE,2,5,6

WPAVE,ML1+RL1+OL,OH !移动工作平面
wprot,0,90,0        !转动工作平面
!通过工作平面割分面
ASBW,1
ASBW,2
!设置裂纹尖端网格
KSCON,7,A/9,1,10,0,
KSCON,9,A/9,1,10,0,
!定义单元属性
TYPE, 1   
MAT,  1
REAL, 1   
ESIZE,0.004,0,
AMESH,3

MAT,  2
REAL, 1   
ESIZE,0.001,0,
AMESH,7

MAT,  3
REAL, 1   
ESIZE,0.001,0,
AMESH,5
AMESH,1
AMESH,6
AMESH,9

MAT,  4
REAL, 1   
ESIZE,0.002,0,
AMESH,4

MAT,  5
REAL, 1   
ESIZE,0.005,0,
AMESH,8

/SOL
!定义位移约束
DL,15, ,ALL,  
!施加拉应力
SFL,25,PRES,-300E6,
!定义局部坐标系
LOCAL,11,0,ML1+RL1+OL,OH-A,0,-90, , ,1,1,
!激活总体笛卡尔坐标系
CSYS,0
NC=NODE(ML1+RL1+OL,OH-A,0) !提取裂纹尖端节点号
NSEL,S, , ,NC
CM,CRACKTIP,NODE      !定义裂纹尖端节点组

CINT,NEW,1               ! 定义裂纹尖端ID号
CINT,CTNC,CRACKTIP       !定义裂纹尖端节点组
CINT,SYMM,OFF            !SYMMETRY OFF
CINT,NCON,5              !定义J积分的条数
CINT,NORM,11,2           !定义裂纹尖端的法向
ALLSEL,ALL
SOLVE

/POST1
PRCINT,1                        ! 输出所有J积分的数值
*GET,J,CINT,1,,NC,,5            ! 提取第5条J积分
*STATUS,J
8楼2014-04-20 15:07:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zoudaxiang 的主题更新
信息提示
请填处理意见