finish
/clear
/prep7
qk=1e4
et,1,beam3
et,2,plane82,,,2
et,3,conta172
et,4,targe169
mp,ex,1,3.6e7
mp,prxy,1,0.18
mp,dens,1,2300
mp,ex,2,1e4
mp,prxy,2,0.3
mp,dens,2,1700
tb,dp,2
tbdata,,34.5,15.8
mp,mu,3,0
r,1,0.1944,0.00728352,0.6
r,2
r,3
r,4
r,5
K,1
K,2,0,27
K,3,6.8,27
K,4,6.8,0
L,1,2
l,2,3
l,3,4
cm,wall,line
lsel,s,,,1
lsel,a,,,2,3,1
latt,1,1,1
lmesh,all
ksel,none
lsel,none
k,5
k,6,6.8,0
k,7,6.8,16.05
k,8,32.95,16.05
k,9,32.95,-10
k,10,-27.7,-10
k,11,-27.7,16.05
k,12,0,16.05
*do,i,5,11
l,i,i+1
*enddo
l,5,12
al,all
blc4,,,6.8,25.4
wprota,0,90,0
asbw,all
wprota,0,0,-90
asbw,all
wpoff,0,0,-6.8
asbw,all
wpcsys,-1
cm,soil1,area
aatt,2,2,2
esize,0.4
amesh,all
allsel,all
ksel,none
lsel,none
asel,none
k,21,0,16.05
k,22,0,22.4
k,23,-5,22.4
k,24,-17.7,16.05
a,21,22,23,24
k,25,6.8,16.05
k,26,6.8,22.8
k,27,13.4,22.8
k,28,22.95,16.05
a,25,26,27,28
cm,soil2,area
aatt,2,2,2
esize,0.4
amesh,all
allsel,all
lsel,s,,,1,3,2
nsll,s,1
type,4
real,3
esurf
lsel,s,,,13,15,2
nsll,s,1
type,3
real,3
mat,3
esurf
lsel,s,,,1,3,2
nsll,s,1
type,4
real,4
esurf
lsel,s,,,5,11,6
nsll,s,1
type,3
real,4
mat,3
esurf
allsel,all
lsel,s,loc,x,-27.7
lsel,a,loc,x,32.95
dl,all,,all
lsel,s,loc,y,-10
dl,all,,all
dk,1,all
dk,4,all
sfgrad,pres,,y,0,-9800
nsel,s,loc,x,0
nsel,r,loc,y,22.4,27.68
sf,all,pres,51744
sfgrad,pres,,y,0,-9800
nsel,s,loc,x,6.8
nsel,r,loc,y,22.4,25.5
sf,all,pres,30380
lsel,s,,,2
esll
sfbeam,all,1,pres,qk
allsel
eplot
/solu
