- 积分
- 1
- 注册时间
- 2004-11-29
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2010-6-4 17:07:44
|
显示全部楼层
来自 湖南长沙
;-----------------------------------------------------------
; emc3.dat
; Loading by an embankment on a Cam-clay foundation
;-----------------------------------------------------------
new
title
loading by an embankment on a Cam-clay foundation
config fluid
gen zone brick p0 (0,0,0) P1 (20,0,0) P2 (0,1,0) P3 (0,0,10) &
size 20 1 10
; --- model and properties ---
model cam-clay
prop poisson .3 bulk_bound 5e6
prop mm 0.888 lambda 0.161 kappa 0.062
prop mp1 1e3 mv_l 2.858
;prop mpc 160e3
;
ini density 2000
;
model fl_iso
set fluid biot off
prop perm 1e-12 por .3
ini fmod 2e7 ftens -1e2 fdens 1e3
; --- fish function ---
def camclay_ini_p
nccz = 0
p_z = zone_head
loop while p_z # null
if z_model(p_z) = 'cam-clay' then
s1=z_sxx(p_z)
s2=z_syy(p_z)
s3=z_szz(p_z)
p0 = -(s1+s2+s3)/3.0 - z_pp(p_z)
z_prop(p_z,'cam_cp') = p0
q0=sqrt(((s1-s2)^2+(s2-s3)^2+(s3-s1)^2)*0.5)
temp1=q0/(z_prop(p_z,'mm')*p0)
pc0=p0*(1.0+temp1^2)*1 ;先期有效固结压力,用于确定屈服面
z_prop(p_z,'mpc')=pc0
;z_prop(p_z,'mpc')=160e3
end_if
p_z = z_next(p_z)
endloop
end
def ramp
ramp = min(1.0,float(step)/_nsteps)
end
; --- initial conditions ---
ini sat 1
ini sxx -1.6e5 grad 0 0 1.6e4
ini syy -1.6e5 grad 0 0 1.6e4
ini szz -2.3e5 grad 0 0 2.3e4
ini pp 1e5 grad 0 0 -1e4
;(the CamClay property of mean effective stress must be initialized)
camclay_ini_p
;pause
; --- boundary conditions ---
fix x range x=0
fix x range x=20
fix y
fix x y z range z=0
fix pp 0 range z=10
set _nsteps=5000
apply nstress=-5e4 his ramp range x 0 4 y 0 1 z 9.9 10.1
; --- settings ---
set gravity 0 0 -10
set mech on fluid off
; --- histories ---
hist nstep 100
hist unbal
hist ramp
hist gp zdisp 0 0 10
hist gp zdisp 2 0 10
hist gp zdisp 4 0 10
hist gp zdisp 6 0 10
hist zone szz 0.5 0.5 9.5
hist zone sxx 0.5 0.5 9.5
hist zone pp 0.5 0.5 9.5
hist zone pp 1.5 0.5 7.5
; --- undrained response ---
plot disp
step _nsteps
solve
save emc0.sav
; --- drained response ---
set fluid on
hist fltime
set mech force 0 ratio 5e-5
set fluid substep 100
set mech substep 10 auto
solve age 1e5
set mech substep 50 auto
solve age 1.e8
save emc.sav
plot his 3 4 5 6 vs 11
ret |
|