udec实例代码2

;主用。实验室经典版本,例2
new
round=0.01
set ovtol=3 ;???块体与块体之间嵌入量最大值为3米
bl 0,0 0,45.2 180,45.2 180,0

;基本底3m(1.5*1)
crack 0,3 180,3
crack 57,3 57,0
crack 73.8,3 73.8,0
jregion id 11 0,0 0,3 57,3 57,0 delete ;???删除此区域的块体
jset 0,0 57,0 0,0 1,0 0,0 range jregion 11 ;???参数的意义
jset 90,0 1,0 1,0 1.5,0 0,0 range jregion 11
jset 90,0 1,0 1,0 1.5,0 0.75,1 range jregion 11
jregion id 12 57,0 57,3 73.8,3 73.8,0 delete
jset 0,0 16.8,0 0,0 0.25,0 57,0 range jregion 12
jset 90,0 0.25,0 0.25,0 0.5,0 57,0 range jregion 12
jset 90,0 0.25,0 0.25,0 0.5,0 57.25,0.25 range jregion 12
jregion id 13 73.8,0 73.8,3 180,3 180,0 delete
jset 0,0 106.2,0 0,0 1,0 73.8,0 range jregion 13
jset 90,0 1,0 1,0 1.5,0 73.8,0 range jregion 13
jset 90,0 1,0 1,0 1.5,0 74.55,1 range jregion 13

;直接底1.5m(1*0.5/0.5*0.25)
crack 0,4.5 180,4.5
crack 57,3 57,4.5
crack 73.8,3 73.8,4.5
;前57m(1*0.5)
jregion id 21 0,3 0,4.5 57,4.5 57,3 delete
jset 0,0 57,0 0,0 0.5,0 0,3 range jregion 21
jset 90,0 0.5,0 0.5,0 1,0 0.5,3 range jregion 21
jset 90,0 0.5,0 0.5,0 1,0 0,3.5 range jregion 21
;57到73.8m(0.5*0.25)
jregion id 22 57,3 57,4.5 73.8,4.5 73.8,3 delete
jset 0,0 16.8,0 0,0 0.25,0 57,3 range jregion 22
jset 90,0 0.25,0 0.25,0 0.5,0 57,3 range jregion 22
jset 90,0 0.25,0 0.25,0 0.5,0 57.25,3.25 range jregion 22
;后73.8到180m(1*0.5)
jregion id 23 73.8,3 73.8,4.5 180,4.5 180,3 delete
jset 0,0 106.2,0 0,0 0.5,0 73.8,3 range jregion 23
jset 90,0 0.5,0 0.5,0 1,0 73.8,3 range jregion 23
jset 90,0 0.5,0 0.5,0 1,0 74.3,3.5 range jregion 23

;5.7m的煤层,采3.5m。???这一部分的意义
crack 0,10.2 180,10.2
crack 0,9.5 57,9.5
crack 73.8,9.5 180,9.5
crack 57,4.5 57,10.2
crack 73.8,4.5 73.8,10.2
crack 63,4.5 63,7.75
crack 67.8,4.5 67.8,10.2
crack 57,7.75 67.8,7.75
crack 67.8,8 180,8
;前57m(1*0.5)
jregion id 31 0,4.5 0,9.5 57,9.5 57,4.5 delete
jset 0,0 57,0 0,0 0.5,0 0,4.5 range jregion 31
jset 90,0 0.5,0 0.5,0 1,0 0,4.5 range jregion 31
jset 90,0 0.5,0 0.5,0 1,0 0.5,5 range jregion 31
jregion id 30 0,9.5 0,10.2 57,10.2 57,9.5 delete
jset 90,0 0.7,0 0.7,0 1,0 0,9.5 range jregion 30
;57到73.8m(0.5*0.25)
jregion id 321 57,4.5 57,7.75 63,7.75 63,4.5 delete
jset 0,0 6,0 0,0 0.25,0 57,4.5 range jregion 321
jset 90,0 0.25,0 0.25,0 0.5,0 57,4.5 range jregion 321
jset 90,0 0.25,0 0.25,0 0.5,0 57.25,4.75 range jregion 321
jregion id 322 63,4.5 63,7.75 67.8,7.75 67.8,4.5 delete
jset 0,0 3.2,0 0,0 0.25,0 63,4.5 range jregion 322
jset 90,0 0.25,0 0.25,0 0.5,0 63,4.5 range jregion 322
jset 90,0 0.25,0 0.25,0 0.5,0 63.25,4.75 range jregion 322
jregion id 323 57,7.75 57,10.2 67.8,10.2 67.8,7.75 delete
jset 0,0 10.8,0 0,0 0.25,0 57,7.75 range jregion 323
jset 90,0 0.25,0 0.25,0 0.5,0 57.25,7.75 range jregion 323
jset 90,0 0.25,0 0.25,0 0.5,0 57,8 range jregion 323
jregion id 324 67.8,4.5 67.8,8 73.8,8 73.

8,4.5 delete
jset 0,0 6,0 0,0 0.25,0 67.8,4.5 range jregion 324
jset 90,0 0.25,0 0.25,0 0.5,0 68,4.5 range jregion 324
jset 90,0 0.25,0 0.25,0 0.5,0 68.25,4.75 range jregion 324
jregion id 325 67.8,8 67.8,10.2 73.8,10.2 73.8,8 delete
jset 0,0 6,0 0,0 0.25,0 67.8,4.5 range jregion 325
jset 90,0 0.25,0 0.25,0 0.5,0 68,8 range jregion 325
jset 90,0 0.25,0 0.25,0 0.5,0 68.25,8.25 range jregion 325
;后73.8到180m(1*0.5)
jregion id 331 73.8,4.5 73.8,9.5 180,9.5 180,4.5 delete
jset 0,0 106.2,0 0,0 0.5,0 73.8,4.5 range jregion 331
jset 90,0 0.5,0 0.5,0 1,0 74.3,4.5 range jregion 331
jset 90,0 0.5,0 0.5,0 1,0 73.8,5 range jregion 331
jregion id 300 73.8 9.5 73.8,10.2 180,10.2 180,9.5 delete
jset 90,0 0.7,0 0.7,0 1,0 74.3,9.5 range jregion 300

;直接顶1m(1.5*1)
crack 0,11.2 180,11.2
crack 57,10.2 57,11.2
crack 73.8,10.2 73.8,11.2
;前57m(1*0.5)
jregion id 41 0,10.2 0,11.2 57,11.2 57,10.2 delete
;jset 0,0 57,0 0,0 0.5,0 0,10.2 range jregion 41
jset 90,0 1,0 1,0 1.5,0 0.75,10.2 range jregion 41
;jset 90,0 0.5,0 0.5,0 1,0 0,10.7 range jregion 41
;57到73.8m(0.5*0.25)
jregion id 42 57,10.2 57,11.2 73.8,11.2 73.8,10.2 delete
jset 0,0 16.8,0 0,0 0.25,0 57,10.2 range jregion 42
jset 90,0 0.25,0 0.25,0 0.5,0 57.25,10.2 range jregion 42
jset 90,0 0.25,0 0.25,0 0.5,0 57,10.45 range jregion 42
;后73.8到180m(1.5*1)
jregion id 43 73.8,10.2 73.8,11.2 180,11.2 180,10.2 delete
;jset 0,0 106.2,0 0,0 0.5,0 73.8,10.2 range jregion 43
;jset 90,0 0.5,0 0.5,0 1,0 73.8,10.2 range jregion 43
jset 90,0 1,0 1,0 1.5,0 73.8,10.2 range jregion 43

;基本顶10m(12*5)
crack 0,21.2 180,21.2
jregion id 5 0,11.2 0,21.2 180,21.2 180,11.2 delete
jset 0,0 180,0 0,0 5,0 0,11.2 range jregion 5
jset 90,0 5,0 5,0 12,0 0,11.2 range jregion 5
jset 90,0 5,0 5,0 12,0 6,16.2 range jregion 5

;上覆岩层24m(6*4)
crack 0,45.2 180,45.2
jregion id 6 0,21.2 0,45.2 180,45.2 180,21.2 delete
jset 0,0 180,0 0,0 4,0 0,21.2 range jregion 6
jset 90,0 4,0 4,0 5,0 3,21.2 range jregion 6
jset 90,0 4,0 4,0 5,0 0,25.2 range jregion 6
pa ;ini要结束了

save ini.save
call yuanyan.txt

相关文档
最新文档