命令流: >oqZ !V5[
4v qNule
new &O tAAE
def _parm &jm[4'$
*z
yXF|Sqv
;-----------------几何参数---------------------------------------------------- KO,_6>8]U
SE!L :
p_d1=0.15 ;-----------桩径------------------------------- cU+>|'f&
tslope=7.5 ;-----------坡顶------------------------------- [hU=mS8=^
dslope=-7.5 ;-----------坡脚------------------------------- ]^@0+!
ngrad01=1.5 ;-----------坡率------------------------------- 3*WS"bt
s1=3.0*p_d1 ;-----------桩排距S1=3D------------------------- 2Xgx*'t\
s2=3.0*p_d1 ;-----------桩间距S2=3D---------------------- Jz$>k$!UD
s=2.0*s2 ;-----------模型厚度S=2S2---------------------- q^Inb)FeN
sl1=s-0.1 3h&bZ
sl2=s+0.1 a:u}d7T3e
}W}G X(?P
;-----------------土体材料参数---------------------------------------------------- H8i+'5x,?
G(\Ckf:
s_Emod=1.0e7 :qnokrGzB
s_nu=0.3 FpzP#;
s_fri=20.0 kCp)!hVQ
s_coh=10e3 x,1=D~L}
s_tens=0 BXA]9eK
soil_dens=2000 1+^n!$
soil_bulk=s_Emod/3/(1-2*s_nu) 8c).8RL f
soil_shear=s_Emod/2/(1+s_nu) k4R4YI"jV
MPvWCPB
q6&67u0
;-----------------桩位---------------------------------------------------- -f.R#J$2
};p~A-E=
;-----------------1# 桩---------------------- )ddsyFGW
x_beg01=-s1/2 gj;@?o0
y_beg01=0.5*s2 \7
Mq $d
z_beg01=10.0+5.0*(7.5+x_beg01)/7.5 8IJ-]wHIb
owMmCR
x_end01=-s1/2 d*%Mv[X:<