restore nature.sav
m m
set large
;煤层开挖
ini xdis 0
ini ydis 0
ini zdis 0
ini xvel 0
ini zvel 0
ini yvel 0
;煤层
pro bulk 1.3e11 she 1.11e11 range group 1 any group 2 any group 3 any group 4 any
ini density 2500 range group 1 any group 2 any group 3 any group 4 any
;砂岩
pro bulk 11e13 she 8e13 range group 5 any group 7 any
ini density 3500 range group 5 any group 7 any
;泥岩
pro bulk 6e13 she 4e13 range group 6
ini density 3100 range group 6
;松散层
pro bulk 2.2e13 she 1.9e13 range group 8
ini density 2500 range group 8
;断层
pro bulk 2.2e13 she 1.9e13 range group 9
ini density 2900 range group 9
;断层另一侧
pro bulk 6e13 she 4e13 range group 10
ini density 3000 range group 10
fix x range x -99.9 -100.1
fix x range x 1249.9.9 1250.1
fix x y z range z -0.1 0.1
fix y range y -0.1 0.1
fix y range y 614.9 615.1
m n range group 2 any group 3 any
;group 2 any
plot block state
solve
save e-all.sav