命令流思路:
new;
title
Slop Stability Analyze by HSS_Unsat
;-------------Config for HSS_Unsat Model----------
config cppudm
model load HSS_UNSAT.dll
;-------------Config Zone Extra memory of saturation----------
Config zextra 1
;-------------The Core of SSR should be loaded earlier----------
call SSRUnsat.dat
call LoadSat.dat
set gravity 0,-9.8,0
set mech ratio 1.0e-5
;------------Import the mesh----------------
IMPGRID grid.Flac3D
;------------Assign the soil material----------------
model HSS_UNSAT
;layer 2
prop dens 1.85e3 cohesion 16.0e3 fric_q 32.7
prop fric_b 11.7 dialancy 0.0
prop E50_ref 4.8e6. Eur_ref 30.0e6 Ei_ref 150.0e6 Eoed_ref 4.8e6
pro poisson_ur 0.20 door .0001 m_index 1.0 dm 1.0
prop rf 0.75 suction 0.0
prop pc0 50e3 mtype 3
;------------Load Saturation information----------------
load_sat
;----Config the suction by saturation----
set_suction
fix z
fix x range x -0.1 0.1
fix x rang x 29.9 30.1
fix x y z range y -0.1 0.1
sol
;------------Initialize State----------------
def zero_de1
new_disp = 0.0
p_z = zone_head
loop while p_z # null
if z_model(p_z) = 'HSS_UNSAT'
z_prop(p_z,'strain1') = 0.0
z_prop(p_z,'gamma_s') = 0.0
z_prop(p_z,'e1_p') = 0.0
endif
p_z = z_next(p_z)
endloop
end
zero_de1
ini xdisp 0.0 ydisp 0.0 zdisp 0.0
ini state 0
def ini_SSRF
_delta = 0.02
_upperK = 5.
_lowerK = 1.
SSR_ratio = 1.0e-4
end
ini_SSRF
;------------Model Null--------------
mod null rang group 3
;------------Apply the surcharge------------
apply syy -20.e3 range x 16.0 21.5 y 14.9 15.1
;----------save the final step information of the model-------------
put_state
;----------get the characteristic step of the system-------------
get_step
_SSRUnsat
save final2.sav