• Federal Highway Administration >
• Publications >
• Research Publications >
• 03048 >
• App.Cfm
• Effects of Geosynthetic Reinforcement Spacing on the Behavior of Mechanically Stabilized Earth Walls

Effects of Geosynthetic Reinforcement Spacing on the Behavior of Mechanically Stabilized Earth Walls

APPENDIX. TYPICAL INPUT DATA FILE

title
Effects of Geosynthetic Reinforcement Spacing on the Behavior of MSEW
;
define set_parameters
;
nstep='t5';
home_dir='c:\chris\';
fmov=string(home_dir)+'flac'+string(nstep)+'.mov'
command
movie file @fmov 
end_command
;
;                    WALL DIMENSIONS AND GRID DENSITY PARAMETERS
hw=15
k1=0.6
lr=k1*hw
lra=10 
lbc=5	
nsl=2
;
;                    MATERIAL PROPERTY PARAMETERS
fri_g=45
ni_g=0.3
emod_gi=60000.0	
smod_gi=emod_gi/(2.0*(1.0+ni_g))
bmod_gi=emod_gi/(3.0*(1.0-2.0*ni_g))	
;
fri_s=45
ni_s=0.3
emod_si=60000.0
smod_si=emod_si/(2.0*(1.0+ni_s))
bmod_si=emod_si/(3.0*(1.0-2.0*ni_s))
;
fri_b=45
ni_b=0.3
emod_bi=60000.0
smod_bi=emod_bi/(2.0*(1.0+ni_b))
bmod_bi=emod_bi/(3.0*(1.0-2.0*ni_b))
;
emod_cb=600000.0
ni_cb=0.15
smod_cb=emod_cb/(2.0*(1.0+ni_cb))
bmod_cb=emod_cb/(3.0*(1.0-2.0*ni_cb))
;
mod_cab=1e6
stif_gr=smod_si
stre_gr=100
nstif_if=bmod_cb
sstif_if=smod_si
;
nl=hw/0.2
tnsl=nl*nsl
ah=0.2/nsl
nz=lr/ah
nz1=lra/ah
;
nzx=nz+nz1+43
nzy=(nsl+2)*nl+20
ngx = nz + 1
ngy = nzy + 1
;
c_x_1 = 5.2 + lr
c_x_2 = 10.2 + lr + lra
c_x_3 = 5.2 + lr + lra
c_y_1 = 5 + hv
;
z_i_1 = 22 +(lr+lra)/0.1
z_i_2 = z_i_1 + 1
z_i_3 = z_i_1 + 20
z_i_4 = nz + 22
z_i_5 = z_i_4 + 1
z_i_6 = nz + nz1 + 24
z_i_7 = nz + nz1 + 43
z_i_8 = nz + nz1 + 22
z_i_9 = nz + nz1 + 23
z_j_1 = 19+(nsl+2)*nl
z_j_2 = 21+tnsl
z_j_3 = 21+hw/0.1
;
g_i_1 = z_i_1+1
g_i_2 = z_i_3+1
g_i_3 = z_i_5
g_i_4 = z_i_6
g_i_5 = z_i_6 + 1
g_i_6 = z_i_9
g_j_1 = 20+(nsl+2)*nl
g_j_2 = 22+tnsl
g_j_3 = 22+hw/0.1
cx1=10.5 + lr + lra
end;                    "set_paremeters"
;
set_parameters
movie on
;
define e_modulus_ground
;
loop ig (1,z_i_3)
loop jg (1,20)
;
ag=abs(sxx(ig,jg))
agg=sqrt(ag)
ex_1(ig,jg)=20720000*agg
ex_2(ig,jg)=ex_1(ig,jg)/(2.0*(1.0+ni_g))
ex_3(ig,jg)=ex_1(ig,jg)/(3.0*(1.0-2.0*ni_g))
smod_g=ex_2(ig,jg)
bmod_g=ex_3(ig,jg)
;
command
prop bulk=bmod_g shear=smod_g i=ig j=jg
end_command
endloop
endloop
end;                    "e_modulus_ground"
;
define e_modulus_resoil
;
loop ir (23,z_i_8)
loop jr (22,wtzj)
;
ar=abs(sxx(ir,jr))
arr=sqrt(ar)
ex_1(ir,jr)=2072*arr
ex_2(ir,jr)=ex_1(ir,jr)/(2.0*(1.0+ni_s))
ex_3(ir,jr)=ex_1(ir,jr)/(3.0*(1.0-2.0*ni_s))
smod_s=ex_3(ir,jr)
bmod_s=ex_2(ir,jr)


;
command
prop bulk=bmod_s shear=smod_s i=ir j=jr
end_command
end_loop
end_loop
end;                    "e_modulus_resoil"
;
define e_modulus_backfill
;
loop ib (z_i_6,z_i_7)
loop jb (22,ba_tzj)
;
ab=abs(min(sxx(ib,jb),szz(ib,jb)))
abb=sqrt(ab)
ex_1(ib,jb)=2072*abb
ex_2(ib,jb)=ex_1(ib,jb)/(2.0*(1.0+ni_b))
ex_3(ib,jb)=ex_1(ib,jb)/(3.0*(1.0-2.0*ni_b))
smod_b=ex_2(ib,jb)
bmod_b=ex_3(ib,jb)
;
command
prop bulk=bmod_b shear=smod_b i=ib j=jb
end_command
end_loop
end_loop
end;                    "e_modulus_backfill"
;
window -0.25 cx1 -0.25 cx1
;
;                       GROUND: GRID GENERATION & MODELLING
grid ngx, ngy
model mohr i=1,z_i_3 j=1,20
prop dens=2.201 bulk=bmod_gi shear=smod_gi fric=fri_g dil=15 coh=1000 &
i=1,z_i_3 j=1,20
gen 0,0 0,5 5,5 5,0 rat 0.91878121,0.91878121 i=1,21 j=1,21
gen same same 5.2,5 5.2,0 rat 1, 0.981878121 i=21,23 j=1,21
gen same same c_x_3,5 c_x_3,0 rat 1, 0.91878121 i=23,g_i_1 j=1,21
gen same same c_x_2,5 c_x_2,0 rat 1.0883984,0.91878121 i=g_i_1,g_i_2 j=1,21
;
;                       GROUND: BOUNDARY CONDITIONS
fix x i=1
fix y j=1
fix x i=g_i_2 j=1,21
;
;                       GROUND: INITIAL STRESSES
set gravity 9.81
ini sxx -33 var 0,33 j=1,20
ini syy -100 var 0,100 j=1,20
ini szz -33 var 0,33 j=1,20
e_modulus_ground
;
;                       HISTORIES
his 1 u
his 2 ydis 	i=38 j=20
his 3 ex_2 	i=38 j=20
his 4 ex_3 	i=38 j=20
;
define ground_equilibrium
;
grfname=string(home_dir)+'gr'+string(nstep)+'.sav'
prfname=string(home_dir)+'gr'+string(nstep)+'.pri'
;
command
prop tens 1e5 coh 1e5
solve srat 0.01
prop tens 0 coh 0
prop coh=1000 i=1,z_i_2 j=1,20
solve srat 0.01
end_command
;
e_modulus_ground
end;                    "ground_equilibrium"
;
ground_equilibrium
;
ini xdis 0 j=1,21
ini ydis 0 j=1,21
ini x 5.0 y 5.0 i=21 j=21
ini x 5.2 y 5.0 i=23 j=21
ini x c_x_3 y 5.0 i=g_i_1 j=21
;
save @grfname
;set log on
;set log @prfname
;print xdisp i=25
;set log off
;
define one_layer_parameters
;
;                    parameters for block generation
bbgj=22+(layer-1)*(nz+2)
btgj=bbgj+nsl
bbzj=bbgj
btzj=btgj-1
bfgi=17
bfzi=bfgi
;
y1=5+(layer-1)*0.2
y2=y1+0.2
;
;                    parameters for wall generation
wbzj=22+(layer-1)*nsl
wtzj=wbzj+nsl-1
wbgj=wbzj
wtgj=wtzj+1
;
;                    parameters for backfill generation
ba_bzj=22+(layer-1)*2
ba_tzj=ba_bzj+2
ba_bgj=ba_bzj
ba_tgj=ba_tzj+1
;
end;                    "one_layer_parameters"
;
define first_layer_generation
;
command
;		concrete block generation
m e i=bfzi,21 j=bbzj,btzj
gen 5,y1 5,y2 5.2,y2 5.2,y1 i=bfgi,22 j=bbgj,btgj
prop d=2.199 b=bmod_cb s=smod_cb i=bfzi,21 j=bbzj,btzj
;

;                    a layer of wall generation
m m i=23,z_i_8 j=wbzj,wtzj; wall
gen 5.2,y1 5.2,y2 c_x_3,y2 c_x_3,y1 i=23,g_i_6 j=wbgj,wtgj
prop d=2.2 bulk=bmod_si shear=smod_si fric=fri_s dil=15 &
i=23,z_i_8 j=wbzj,wtzj
;
;                    a layer of backfill generation
m m i=z_i_6,z_i_7 j=ba_bzj,ba_tzj; backfill
gen c_x_3,y1 c_x_3,y2 c_x_2,y2 c_x_2,y1 rat 1.0883984,1 &
i=g_i_4,g_i_5 j=ba_bgj,ba_tgj
prop dens=2.2 bulk=bmod_bi shear=smod_bi fric=fri_b dil=15 &
i=z_i_6,z_i_7 j=ba_bzj,ba_tzj
;
att as fr g_i_6,wbgj to g_i_6,wtgj bs fr g_i_4,ba_bgj to g_i_4,ba_tgj
fix x i=g_i_5 j=ba_bgj,ba_tgj
;
end_command
;
end;                    "first_layer_generation"
;
define one_layer_generation
;
command
;                    concrete block generation
m e i=bfzi,21 j=bbzj,btzj
gen x1,y11 x6,y6 x7,y7 x2,y22 i=bfgi,22 j=bbgj,btgj
prop d=2.199 b=bmod_cb s=smod_cb i=bfzi,21 j=bbzj,btzj
;
;                    a layer of wall generation
m m i=23,z_i_8 j=wbzj,wtzj; wall
gen x3,y3 x8,y8 x9,y9 x4,y4 i=23,g_i_6 j=wbgj,wtgj
prop d=2.2 b=bmod_si  s=smod_si  fric=fri_s dil=15 i=23,z_i_8 j=wbzj,wtzj
;
;                    a layer of backfill generation
m m i=z_i_6,z_i_7 j=ba_bzj,ba_tzj
gen x5,y5 x10,y10 c_x_2,y2 c_x_2,y1 rat 1.0883984,1 &
i=g_i_4,g_i_5 j=ba_bgj,ba_tgj
prop d=2.2 b=bmod_bi s=smod_bi fric=fri_b dil=15 &
i=z_i_6,z_i_7 j=ba_bzj,ba_tzj
att as fr g_i_6,wbgj to g_i_6,wtgj bs fr g_i_4,ba_bgj to g_i_4,ba_tgj
fix x i=g_i_5 j=ba_bgj,ba_tgj
end_command
;
end;                    "one_layer_generation"
;
define top_coord_upgrade
;
x1=x(bfgi,btgj)
y11=y(bfgi,btgj)
x2=x(22,btgj)
y22=y(22,btgj)
x3=x(23,wtgj)
y3=y(23,wtgj)
x4=x(g_i_6,wtgj)
y4=y(g_i_6,wtgj)
x5=x(g_i_4,ba_tgj)
y5=y(g_i_4,ba_tgj)
;
end;                    "top_coord_upgrade"
;
define define_top_coord
;
x6=x1-y22+y11
y6=y11+x2-x1
x7=x2-y22+y11
y7=y22+x2-x1+1
x8=x7  
y8=y7  
x9=x4
y9=y7
x10=x4 
y10=y7 
;
end;                    "define_top_coord"
;
;                    BEAM & CABLE PROPERTIES
struct prop=2 area=0.002 peri=2 e=mod_cab yield=200 d=2.1
struct prop=2 kbond=stif_gr sbond=stre_gr sfriction=35
struct prop=3 area=0.002 e=mod_cab i=6.67e-10 d=2.1
;
define sos
;
fname=string(home_dir)+'l'+string(nstep)+'_'+string(layer)+'.sav'
fnameend=string(home_dir)+'end'+string(nstep)+'.sav'
prfname=string(home_dir)+'l'+string(nstep)+'_'+string(layer)+'.pri'
;
command
solve srat 0.01
end_command
;
command
save @fname
;set log on
;set log @prfname
;print xdisp i=25
;set log off
end_command
;
e_modulus_ground
e_modulus_resoil
e_modulus_backfill
;
end;                    "sos" = solve & save
;
define wall_construction
;
h_lbc=lbc*0.2
nl1_f=(hw-0.2)/h_lbc
nl1=int(nl1_f)
h_top=hv-0.2-nl1*h_lbc
if h_top=0 then
tnc=nl1
else
tnc=nl1+1
endif
nrl=1
;
layer=1
;
one_layer_parameters
first_layer_generation
;
command	
att as fr 23,21 to g_i_1,21 bs fr 23,22 to g_i_6,22
att as fr g_i_1,21 to g_i_2,21 bs fr g_i_6,22 to g_i_5,22
int 1 as fr 19,21 to 24,21 bs long fr bfgi,btgj to 22,btgj
int 1 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int 2 as fr 22,bbgj to 22,btgj bs fr 23,wbgj to 23,wtgj
int 2 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
sos
top_coord_upgrade
b1e_no=6
;
command
struct beam begin x1,y11 end x2,y2 seg=5 prop=3
struct node range 1 6 pin
struct cable begin no b1e_no end c_x_1,y2 seg=nz prop=2
int 3 as fr no b1e_no to no 1 bs fr 22,btgj to bfgi,btgj
int 3 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
tot_nu_int=3
;
loop layer (2,nl)
;
top=1+nrl*lbc
bottom=top-lbc+1
;
if top=bottom then
;
one_layer_parameters
define_top_coord
one_layer_generation
;
bbf_no=(nz+6)*(layer-1)+1
bbb_no=bbf_no+5
btf_no=(nz+6)*(layer-2)+1
btb_no=btf_no+5
b_gj=bbgj-2
b_gjb=bbgj-nsl-2
f_1=(layer-2)*5+4
f_2=f_1+1
f_3=f_1+2
f_4=f_1+3
f_5=f_1+4
tot_nu_int=f_5
;
command
int f_1 as fr no bbf_no to no bbb_no bs fr bfgi,bbgj to 22,bbgj
int f_1 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_2 as fr 22,bbgj to 22,btgj bs fr 23,wbgj to 23,wtgj
int f_2 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_3 as fr bfgi,bbgj to 22,bbgj bs fr bfgi,b_gj to 22,b_gj
int f_3 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_4 as fr 23,wbgj to 23,wtgj bs fr 22,b_gjb to 22,b_gj
int f_4 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
sos
top_coord_upgrade
;
command
stru beam begin x6,y6 end x7,y7 seg 5 prop 3
stru cable begin no btb_no end c_x_1,y9 seg nz prop 2
int f_5 as fr no btb_no to no btf_no bs fr 22,btgj to bfgi,btgj
int f_5 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
nrl=nrl+1
;
else
;
if layer=bottom then
;
one_layer_parameters
define_top_coord
one_layer_generation
;
bbf_no=(nz+6)*(nrl-2)+1
bbb_no=bbf_no+5
b_gj=bbgj-2
b_gjb=bbgj-nsl-2
f_6=tot_nu_int+1
f_7=f_6+1
f_8=f_6+2
f_9=f_6+3
tot_nu_int=f_9
;

command
int f_6 as fr no bbf_no to no bbb_no bs fr bfgi,bbgj to 22,bbgj
int f_6 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_7 as fr 22,bbgj to 22,btgj bs fr 23,wbgj to 23,wtgj
int f_7 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_8 as fr bfgi,bbgj to 22,bbgj bs fr bfgi,b_gj to 22,b_gj
int f_8 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_9 as fr 23,wbgj to 23,wtgj bs fr 22,b_gjb to 22,b_gj
int f_9 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
sos
top_coord_upgrade
;
else
;
if layer<top then
;
one_layer_parameters
define_top_coord
one_layer_generation
;
b_gj=bbgj-2
b_gjb=bbgj-nsl-2
f_10=tot_nu_int+1
f_11=f_10+1
f_12=f_10+2
tot_nu_int=f_12
;
command
int f_10 as fr bfgi,b_gj to 22,b_gj bs fr bfgi,bbgj to 22,bbgj
int f_10 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_11 as fr 22,bbgj to 22,btgj bs fr 23,wbgj to 23,wtgj
int f_11 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_12 as fr 23,wbgj to 23,wtgj bs fr 22,b_gjb to 22,b_gj
int f_12 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
sos
top_coord_upgrade
;
else
;
one_layer_parameters
define_top_coord
one_layer_generation
b_gj=bbgj-2
b_gjb=bbgj-nsl-2
tbf_no=(nz+6)*nrl+1
tbb_no=tbf_no+5
f_13=tot_nu_int+1
f_14=f_13+1
f_15=f_13+2
f_16=f_13+3
tot_nu_int=f_16
;
command
int f_13 as fr bfgi,b_gj to 22,b_gj bs fr bfgi,bbgj to 22,bbgj
int f_13 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_14 as fr 22,bbgj to 22,btgj bs fr 23,wbgj to 23,wtgj
int f_14 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
int f_15 as fr 23,wbgj to 23,wtgj bs fr 22,b_gjb to 22,b_gj
int f_15 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
sos
top_coord_upgrade
;
command
stru beam begin x6,y6 end x7,y7 seg 5 prop 3
stru cable begin no tbb_no end c_x_1,y9 seg nz prop 2
int f_16 as fr no tbb_no to no tbf_no bs fr 22,btgj to bfgi,btgj
int f_16 f 30 kn nstif_if ks sstif_if coh 0; tbond 30
end_command
;
nrl=nrl+1
;
endif
endif
endif
endloop
end;                    "wall_construction"
;

wall_construction
solve srat 0.01
save @fnameend
;
;                       = END OF FILE =