- 积分
- 1
- 注册时间
- 2008-6-30
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 accbd 于 2009-5-30 20:00 编辑
使用自编强度折减法,对澳大利亚ACADS ex1(a)算例进行校核,最后结果竟为Fs=3.333e8。问题出现在哪?
ACADS ex1(a): c(kPa) | phi
|
γ(kN/m^3)
|
E(kPa)
|
泊松比
| 3.0
| 19.6
| 20.0
| 1.0e4
| 0.25
|
以下为命令流:
n
gen zone brick p0 0,0,0 p1 50,0,0 p2 0,0.5,0 p3 0,0,5 size 50 1 5
gen zone brick p0 10,0,5 p1 50,0,5 p2 10,0.5,5 p3 30,0,15 p4 50,0.5,5 &
p5 30,0.5,15 p6 50,0,15 p7 50,0.5,15 size 40 1 10
plo sur
def SSR
ait1=0.002
k1=0.8
k2=1.2
kr=(k1+k2)/2
loop while (k2-k1)>ait1
co0=3000/kr
fri0=(atan((tan(19.60*pi/180))/kr))*180/pi
dens0=(20.0/10.0)*1000 ;重度γ=20.0,算出密度ρ
E0=1.0e7 ;弹模E=1.0e7
Poss0=0.25 ;泊松比μ=0.25
G0=E0/(2.0*(1.0+Poss0))
K0=E0/(3.0*(1.0-2.0*Poss0))
G1=G0*100
K1=K0*100
command
model null
model elas
prop bu K0 sh G0 dens dens0 co co0 fri fri0
fix x range x -0.1 0.1
fix x range x 49.9 50.1
fix x y z range z -0.1 0.1
fix y
set grav 0 0 -10.0
plo con ssi ou on
solve
ini xdis 0 ydis 0 zdis 0 xvel 0 yvel 0 zvel 0
model mohr
prop bu K0 sh G0 dens dens0 co co0 fri fri0
set mech ratio 1.0e-5
solve step 20000
endcommand
if mech_ratio<1.0e-5
k1=kr
k2=k2
else
k2=kr
k1=k1
endif
kr=(k1+k2)/2
endloop
end
SSR
print kr |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|