www.pudn.com > coal-excavate.zip > 后处理循环开挖.txt, change:2013-05-31,size:3207b


rest 1-2模型平衡.sav 
plo bl st 
 
;上下两条顺槽 
model nu ran x 20 25 y 20 90 group 2;下顺槽   
model nu ran x 75 80 y 20 90 group 2;上顺槽 
solve 
save 1-3顺槽开挖.sav 
 
 
;开切眼 
model nu ran x 25 75 y 20 30 group 2 
solve 
save 1-4开切眼.sav 
 
;hist nstep 500 
;hist fltime 
 
 
rest 1-4开切眼.sav 
 
;下顺槽顶板监测 
hist gp zdis  22 30 46;hist 2 
hist zon szz  22 30 46;hist 3 
 
;上顺槽顶板监测 
hist gp zdis  78 30 76;hist 4 
hist zon szz  78 30 76;hist 5 
 
 
;工作面下部顶煤运动监测 
hist gp zdis 27 25 50;hist 6 
hist zon szz 27 25 50;hist 7 
 
hist gp zdis 33 25 53;hist 8 
hist zon szz 33 25 53;hist 9 
 
 
;工作面顶板运动监测 
;工作面下部 
hist gp zdis 27 54 54;hist 10 
hist zon szz 27 54 54;hist 11 
 
hist gp zdis 33 54 57;hist 12 
hist zon szz 33 54 57;hist 13 
 
hist gp zdis 27 54 65;hist 14 
hist zon szz 27 54 65;hist 15 
 
hist gp zdis 33 54 68;hist 16 
hist zon szz 33 54 68;hist 17 
 
 
 
;工作面中部 
hist gp zdis 47 54 64;hist 18 
hist zon szz 47 54 64;hist 19 
 
hist gp zdis 53 54 68;hist 20 
hist zon szz 53 54 68;hist 21 
 
hist gp zdis 47 54 76;hist 22 
hist zon szz 47 54 76;hist 23 
 
hist gp zdis 53 54 80;hist 24 
hist zon szz 53 54 80;hist 25 
 
 
;工作面上部 
hist gp zdis 67 54 75;hist 26 
hist zon szz 67 54 75;hist 27 
 
hist gp zdis 73 54 80;hist 28 
hist zon szz 73 54 80;hist 29 
 
hist gp zdis 67 54 88;hist 30 
hist zon szz 67 54 88;hist 31 
 
hist gp zdis 73 54 91;hist 32 
hist zon szz 73 54 91;hist 33 
 
 
;y方向设定监测点10m一个,矿压监测 
;下部 
hist gp zdis 27 30 65;hist 34 
hist zon szz 27 30 65;hist 35 
 
hist gp zdis 27 40 65;hist 36 
hist zon szz 27 40 65;hist 37 
 
hist gp zdis 27 50 65;hist 38 
hist zon szz 27 50 65;hist 39 
 
hist gp zdis 27 60 65;hist 40 
hist zon szz 27 60 65;hist 41 
 
hist gp zdis 27 70 65;hist 42 
hist zon szz 27 70 65;hist 43 
 
hist gp zdis 27 80 65;hist 44 
hist zon szz 27 80 65;hist 45 
 
;中部 
hist gp zdis 47 30 76;hist 46 
hist zon szz 47 30 76;hist 47 
 
hist gp zdis 47 40 76;hist 48 
hist zon szz 47 40 76;hist 49 
 
hist gp zdis 47 50 76;hist 50 
hist zon szz 47 50 76;hist 51 
 
hist gp zdis 47 60 76;hist 52 
hist zon szz 47 60 76;hist 53 
 
hist gp zdis 47 70 76;hist 54 
hist zon szz 47 70 76;hist 55 
 
hist gp zdis 47 80 76;hist 56 
hist zon szz 47 80 76;hist 57 
 
 
;上部 
hist gp zdis 67 30 88;hist 58 
hist zon szz 67 30 88;hist 59 
 
hist gp zdis 67 40 88;hist 60 
hist zon szz 67 40 88;hist 61 
 
hist gp zdis 67 50 88;hist 62 
hist zon szz 67 50 88;hist 63 
 
hist gp zdis 67 60 88;hist 64 
hist zon szz 67 60 88;hist 65 
 
hist gp zdis 67 70 88;hist 66 
hist zon szz 67 70 88;hist 67 
 
hist gp zdis 67 80 88;hist 68 
hist zon szz 67 80 88;hist 69 
 
 
;工作面开挖 
def excavate 
   cut=30   
   loop while cut<=84       
     cut1=cut+1 
     command 
     model null range  y cut cut1 x 25 75 group 2 
     model null range  y cut cut1 x 25 75 group 3 
     end_command 
     cut=cut+1 
   end_loop 
end 
  excavate  
 
step 500 
save kw.sav 
 
pause  
 
;查看切面 
;纵剖面 
plo set plane ori 0 30 0 norm 0 1 0  
plo con zd plane  
plo con szz plane 
 
;斜切面 
plo set plane ori 0 0 37 norm 1 0 -3.21 
 
plo set plane ori 0 0 48 norm 1 0 -3.21 
 
plo set plane ori 0 0 63 norm 1 0 -3.21