set log on
set logfile 888.log
gen zone brick p0 0 0 0 p1 8 0 0 p2 0 8 0 p3 0 0 8 size 10 10 10
model mohr
prop bulk=6.7e8 shear=3.1e8 fric=41 coh=4.5e3 tens=3.5e3
fix x range x -.1 .1
fix x range x 9.9 10.1
fix y range y -.1 .1
fix y range y 9.9 10.1
fix z range z -.1 .1
sel cable id 1 begin 4.5 1.6 4.5 end 8 1.6 4.5 nseg 5
sel cable id 1 begin 4.5 3.2 4.5 end 8 3.2 4.5 nseg 5
sel cable id 1 begin 4.5 4.8 4.5 end 8 4.8 4.5 nseg 5
sel cable id 1 begin 4.5 6.4 4.5 end 8 6.4 4.5 nseg 5
macro maosuo1 'xcarea=8.5e-3 emod=200e9 ytens=1e10 gr_k=0.0 gr_coh=0.0 gr_per=0.314 gr_fric=0.0'
macro maosuo2 'xcarea=8.5e-2 emod=200e9 ytens=1e10 gr_k=7e6 gr_coh=1e4 gr_per=0.314 gr_fric=20'
sel node apply xforce=100 range x 7.9 8.1
sel cable id=1 prop maosuo2 range x 4.5 5.9
sel cable id=1 prop maosuo1 range x 5.9 8
plot show