new
;主隧道
gen zone radcy p0=(15,0,0) p1=(23,0,0) &
p2=(15,50,0) p3=(15,0,8) &
size 4 10 6 4 dimension 4 4 4 4 &
ratio 1 1 1 1 fill group MainTun
gen zone reflect dip 90 dd 90 origin=(15,0,0)
gen zone reflect dip 0 origin=(0,0,0)
;辅助隧道
gen point id 1 (3,0.0,-1)
gen point id 2 (3,50.0,-1)
gen zone radc p0=(0,0,-1) p1=(7,0,0) &
p2=(0,50,-1) p3=(0,0,8) p4=(7,50,0) p5=(0,50,8) &
p6=(7,0,8) p7=(7,50,8) p8=point 1 p10=point 2 &
size 3 10 6 4 dimension 3 3 3 3 ratio 1 1 1 1
gen zone radc p0=(0,0,-1) p1=(0,0,-8) &
p2=(0,50,-1) p3=(7,0,0) p4=(0,50,-8) p5=(7,50,0) &
p6=(7,0,-8) p7=(7,50,-8) p9=point 1 p11=point 2 &
size 3 10 6 4 dimension 3 3 3 3 ratio 1 1 1 1
;辅助隧道支护
sel shell range cylinder end1=(0,0,-1) end2=(0,50,-1) radius 3
;主、辅隧道外围网格
gen zone radtunnel size 9 10 3 10 &
p0=(0,0,0) p1=(50,0,0) p2=(0,50,0) p3=(0,0,50) &
dimension 23 8 23 ratio 1 1 1 1.1 &
group outgrid
gen zone reflect normal=(0,0,-1) origin=(0,0,0) &
range group outgrid
group servic range cylinder end1 0,0,-1 end2 0,50,-1 radius=3
plot add block group cyan orange yellow
plot add sel group shrinkfac 2.0 dgray
plot set rot 20 0 30
plot set center auto
plot add axes
plot show

彭文斌书上的为黑白图,但是支护部分有明显的颜色深浅差异