3DEC 4.0 版本做边坡，怎么计算边坡安全性系数？

MRswfeifei

3DEC 4.1版本的好像可以计算边坡的安全系数，但是现在没学习版的出来，只有4.0版本的，3DEC  4.0 版本做边坡，怎么计算边坡安全性系数？哪位大牛知道呀？

竹林远去

您好，能麻烦您把3DEC 4.0 版本的软件发我一份吗？ 我邮箱是476682545@qq.com  
谢谢了！

ckyyjs2004

强度折减吧。。

zhuimeng01

写一个强度折减的小程序就可以啦！

Hunter2011

大侠：我在用UDEC（3.0版）编强度折减程序，有个控制循环的力不平衡比率的问题不知道该如何写，我把程序附上，若能得到大侠赐教不胜感激！

Hunter2011

zhuimeng01 发表于 2011-9-13 09:58
写一个强度折减的小程序就可以啦！

我QQ号604895872，希望能联系！

Hunter2011

zhuimeng01 发表于 2011-9-13 09:58
写一个强度折减的小程序就可以啦！

new
ro 0.01
bl 0 0 0 2 2 2 12 12 20 12 20 0
cr 3 3 15.5 12
gen edge 0.6
def SSR
  ait1=0.02         
  k11=1.0         
  k12=2.0         
  ks=(k11+k12)/2
  loop while (k12-k11)>ait1
     coh1=2e5/ks
     fri1=(atan((tan(50*pi/180))/ks))*180/pi
     jcoh1=1e4/ks
     jfri1=(atan((tan(25*pi/180))/ks))*180/pi
     ten1=1e5
     grav0=-10
     d=2000
     b=1e9
     s=0.3e9
   command  
     chan cons 0
     chan cons 3
     pro mat 1 bulk b she s d 2000 coh coh1 &
     fri fri1 tens ten1
     prop jmat 1 jkn 35e9 jks 35e9 jcoh jcoh1 jfri jfri1
     bound xvel 0 range -1 1 0 2
     bound yvel 0 range 0 20 -1 1
     bound xvel 0 range 19 21 0 12
     set grav 0 grav0
;==========================
     set solve ratio 9.8e-6      ;? 请指正
;==========================
     solve step 10000
     print ks
   endcommand
;==========================
     if solve ratio<1.0e-5       ;? 请指正  
;==========================         
       k11=ks
       k12=k12
     else
       k12=ks
       k11=k11
     endif
     ks=(k11+k12)/2
  endloop
end
SSR
pr ks

曾锦秀

7楼这个程序好像在flac3d里面的吧？

wanghe6363

这个要顶啊？