论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 8798阅读
  • 26回复

[资料原创]邓肯张模型(ANSYS) [复制链接]

上一主题 下一主题
离线wu911
 
发帖
3
土币
39
威望
4
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2008-03-14
— 本帖被 geofem 执行提前操作(2008-12-31) —
!!!Duncan-ChangModel
!!!Symbols:c-粘滞力,Fai-内摩擦角,
Sf-破坏强度(pl-p3)f,Ds-应力水平,
Pa-大气压,P3-围压
*CREATE,Duncan-Chang
!建立邓肯张模型的宏文件
*afun,deg
!将单位转化为角度
Pa=1e5
!给定大气压
*set,P1,-ArrS3(i)!
*set,Pl,-ArrS2(i)
*set,P3,-ArrSl(i)
*if,P3,LT,0.1*Pa,then
P3=0.1*Pa
*endif
Sf=2*(c*cos(Fai)+((P2+P3)/2)*sin(Fai))/(1-sin(Fai))
!Mohr-Coulomb破坏强度
Ds=(P1-((P2+P3)/2))/Sf
*if,Ds,GT,0.95,then
Ds=0.95
*endif
*if,MaxPs(i),LT,P1-(P2+P3)/2,then
Ei=k*Pa*(((P2+P3)/2)/Pa)**n
Et=Ei*(1-Rf*Ds)**2
MaxPs(i)=P1-(P2+P3)/2
*elseif,MaxPs(i),GE,P1-(P2+P3)/2
Et=Kur*Pa*(((P2+P3)/2)/Pa)**n
*endif
mp,ex,i,Et
!修改单元i的Et
mp,nuxy,i,Mu
*END
离线lovecan
发帖
164
土币
263
威望
165
原创币
0
只看该作者 1楼 发表于: 2008-07-01
很有水平的
离线yfliu

发帖
336
土币
1895
威望
337
原创币
0
只看该作者 2楼 发表于: 2008-11-27
谢谢,很有水平的,狂顶
离线yfliu

发帖
336
土币
1895
威望
337
原创币
0
只看该作者 3楼 发表于: 2008-11-27
谢谢,很有水平的,狂顶
离线pf004511

发帖
74
土币
1
威望
71
原创币
0
只看该作者 4楼 发表于: 2008-12-24
相当有水平啊
离线岩土之人

发帖
604
土币
3664
威望
1985
原创币
0
只看该作者 5楼 发表于: 2008-12-25
      
愿岩土兴旺发达
离线岩土之人

发帖
604
土币
3664
威望
1985
原创币
0
只看该作者 6楼 发表于: 2009-01-01
      
愿岩土兴旺发达
离线lyf1260

发帖
769
土币
962
威望
1586
原创币
0
只看该作者 7楼 发表于: 2009-01-09
good   
离线xujianwucs
发帖
396
土币
12
威望
1460
原创币
0
只看该作者 8楼 发表于: 2009-02-04
  
想学点东西
离线qinxinyi

发帖
1214
土币
3412
威望
9836
原创币
0
只看该作者 9楼 发表于: 2009-02-14
好东西,谢谢楼主分享。好东西,谢谢楼主分享。
念了十几年书,想起来还是幼儿园比较好混。
离线3xxx

发帖
15
土币
115
威望
20
原创币
0
只看该作者 10楼 发表于: 2009-02-14
请问可以在ansys里用这个材料模型计算么?就这样简单?
好,非常好
离线sunyang8008

发帖
206
土币
1503
威望
152
原创币
0
只看该作者 11楼 发表于: 2009-02-15
很好啊  谢谢楼主
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      浙公网安备 33010602003799号 浙ICP备14021682号-1

      工业和信息化部备案管理系统网站