第七?/p>
命令流按照顺序进?/p>
new
;1/4
上半部分
gen zon radcyl
p0 15.7 0 0 p1 24.5 0 0 p2 15.7 1 0 p3 15.7 0 8.8 &
size 5 2 10 4 dim 5.8 5.8 5.8 5.8 rat 1 1 1 1.2 group outrockys
gen zone cshell p0 15.7 0 0 p1 21.5 0 0 p2 15.7 1 0 p3 15.7 0 5.8 &
size 1 2 10 4 dim 5.4 5.4 5.4 5.4 rat 1 1 1 1 group liningys fill group inrockys
gen zon reflect dip 90 dd 270 orig 15.7 0 0
;1/4
下半部分
gen zon radcyl
p0 15.7 0 0 p1 15.7 0 -6.9
p2 15.7 1 0 p3 24.5 0 0 &
size 5 2 10 4 dim 3.9 5.8 3.9 5.8 rat 1 1 1 1.2 group outrockyx
gen zone cshell p0 15.7 0 0 p1 15.7 0 -3.9 p2 15.7 1 0 p3 21.5 0 0 &
size 1 2 10 4 dim 3.5 5.4 3.5 5.4 rat 1 1 1 1 group liningyx fill group inrockyx
gen zon reflect dip 90 dd 270 orig 15.7 0 0 range group liningyx any &
group inrockyx any group outrockyx any
;
右隧道中地层网格
gen zon brick
p0 0 0 -6.9
p1 6.9 0 -6.9
p2 0 1 -6.9
p3 0 0 0
size 6 2 5
group outrock1
gen zon brick
p0 24.5 0 -6.9
p1 65 0 -6.9
p2 24.5 1 -6.9
p3 24.5 0 0
size 20 2 5
group
outrock1
gen zon brick
p0 0 0 0
p1 6.9 0 0
p2 0 1 0
p3 0 0 8.8
size 6 2 5
group outrock2
gen
zon
brick
p0
24.5
0
0
p1
65
0
0
p2
24.5
1
0
p3
24.5
0
8.8
size
20
2
5
group
outrock2
;
右隧道上侧土体网?/p>
gen zon brick
p0 0 0 8.8
p1 6.9 0 8.8
p2 0 1 8.8
p3 0 0 36
size 6 2 10
group outrock3
gen zon brick
p0 24.5 0 8.8
p1 65 0 8.8
p2 24.5 1 8.8
p3 24.5 0 36
size 20 2 10
group
outrock3
gen zon brick
p0 6.9 0 8.8
p1 24.5 0 8.8
p2 6.9 1 8.8
p3 6.9 0 36
size 10 2 10
group
outrock3
;
右隧道下侧土体网?/p>
gen zon brick
p0 0 0 -24
p1 6.9 0 -24
p2 0 1 -24
p3 0 0 -6.9
size 6 2 8
group outrock4
gen
zon
brick
p0
24.5
0
-24
p1
65
0
-24
p2
24.5
1
-24
p3
24.5
0
-6.9
size
20
2
8
groupoutrock4
gen zon brick
p0 6.9 0 -24
p1 24.5 0 -24
p2 6.9 1 -24
p3 6.9 0 -6.9
size 10 2 8
group
outrock4
gen zon reflect dip 90 dd 270 orig 0 0 0
plot add axes red
plot block group
;
设置重力加速度
set gravity 0 0 -10
;
给定边界条件
fix z range z -24.01,-23.99
fix x range x -65.01,-64.99
fix x range x 64.99,65.01