于是,隧道周围土体建模的命令流如下:
;隧道周围土体模型
;上方覆
;先建立与隧道等高的部分网格
gen zone radcyl p0 0 45 0 p1 21.3 45 0 p2 0 135 0 p3 21.3 45 3.1 &
p4 21.3 135 0 p5 21.3 135 3.1 p6 21.3 45 1.55 p7 21.3 135 1.55 &
p8 3.1 45 0 p9 0 45 3.1 p10 3.1 135 0 p11 0 135 3.1 &
size 4 10 8 4 dim 3.1 3.1 3.1 3.1 &
rat 1 1 1 1.2 group outsiderock1-1
; 建立上方网格模拟三角形荷载
gen zone wedge p0 0 45 3.1 p1 0 45 23.1 p2 21.3 45 3.1 p3 0 135 3.1 &
p4 21.3 45 23.1 p5 21.3 135 3.1 &
size 4 4 10 ratio 1 1.2 1 &
group outsiderock1-2
;下方覆土
gen zone radcyl p0 0 0 0 p1 0 0 -12.4 p2 0 180 0 &
p3 21.3 0 0 size 4 20 8 4 dim 3.1 3.1 3.1 3.1 &
rat 1 1 1 1.2 group outsiderock2
pause
;镜像右边到左边
gen zone reflect dip 90 dd 90 orig 0 0 0 range &
group outsiderock1-1
gen zone reflect dip 90 dd 90 orig 0 0 0 range &
group outsiderock1-2
gen zone reflect dip 90 dd 90 orig 0 0 0 range &
group outsiderock2