; ================================================
; --- fluid flow test run ---
; --- slope : 10 m high ---
; --- 2 joint sets : 20 and 80 deg.
; --- r.h.s. water level : 6 m --- no failure ---
; ================================================
block 0,-5 0,0 5,0 11,10 22,10 22,-5
;定义问题几何体的外轮廓
jset 20,0 100,0 0,0 2,0 (5,1)
;倾角20
jset 80,0 100,0 0,0 3,0 (5,0)
;倾角80
del area 0.1
;删除面积小于0.1的块体
gen auto 10
;生成变长10的三角形单元
;;plot block zones
;显示单元划分网格
prop mat=1 dens=0.0025 k=16667 g=10000
prop mat=1 jkn=10000 jks=10000 jfric=45.0
prop mat=1 jperm=1.0e8 azero=0.0005 ares=0.0002
insitu str -0.125 0 -0.25 ygrad 0.0125 0 0.025
bound xvel=0 range -1,1 -6 1
bound yvel=0 range -1,31 -6 -4
bound xvel=0 range 21,23 -6 11
;记录时步和点的位移、不平衡力
hist n=100 xdis 11,10 ydis 11,10
; --------------------------------------
; flow --- r.h.s. water at y=6m
; --------------------------------------
bound imperm range -1,31 -6 -4
;不可渗透边界
bound pygrad -0.01 range -1,1 -6 1
;左侧水位0,x=0,y=-6~1
bound pp=0.06 pygrad -0.01 range 21,23 -6 6
; 右侧升高水位到6m,x=22,y=-6~6
hist xdis 5.92 1.54 ydis 5.92 1.54
;记录点位移
;plot bl vf yel
显示流体矢量-黄色
;plot bl pp yel
显示节理孔隙水压力
; --------------------------------------
; flow --- r.h.s. water raised to y=8m
; --- some slip, but no block failure ---
; --------------------------------------
bound pp=0.08 pygrad -0.01 range 21,23 -6 8
;plot bl pp red dis yel
同时显示孔隙水压力(红色)和位移(黄色)
;plot bl sh yel
显示节理剪切位移数量
; --------------------------------------
; flow --- r.h.s. water raised to y=9m
; --------------------------------------
bound pp=0.09 pygrad -0.01 range 21,23 -6 9
cyc 1000
; --------------------------------------
; flow --- r.h.s. water raised to y=10m
; --------------------------------------
bound pp=0.10 pygrad -0.01 range 21,23 -6 11
return