www.pudn.com > coal-excavate.zip > 巷道未支护.txt, change:2013-05-31,size:2359b


New 
 
;园柱体外环绕放射状网格 
Generate zone radcylinder size 5 15 10 5 ratio 1 1 1 1.1 p0=(0,0,0) p1=(5,0,0) p2=(0,30,0) p3=(0,0,5) dimension 2.7,2.7,2.7 group 1 
 
;平行六面体外环绕放射状网格 
Generate zone radtunnel size 5 15 5 5 ratio 1 1 1 1.1 p0=(0,0,0) p1=(0,0,-5) p2=(0,30,0) p3=(5,0,0) dimension 2.7,2.7,2.7 group 2 
 
;两侧岩体 
gen zone b p0 5 0 -5 p1 15 0 -5 p2 5 30 -5 p3 5 0 5 size 10 15 10 group 3 
 
;上部岩体 
gen zone b p0 0 0 5 p1 15 0 5 p2 0 30 5 p3 0 0 15 size 15 15 5 group 4 
 
;下部岩体 
gen zone b p0 0 0 -15 p1 15 0 -15 p2 0 30 -15 p3 0 0 -5 size 15 15 5 group 5 
 
;镜像网格 
Generate zone reflect normal (-1,0,0) origin=(0,0,0) 
 
;设定摩尔库伦材料参数 
model mohr 
 
;材料参数赋值 
pro bulk 2.29e9 she 1.65e9 fric 28 coh 3.3e6 ten 0.93e6 range z -15 -13.16 ;3煤 
pro bulk 11.5e9 she 9.84e9 fric 24.4 coh 5e6 ten 2.79e6 range z -13.16 -9.76 ;细砂岩 
pro bulk 6.25e9 she 3.5e9 fric 27 coh 5.4e6 ten 3.0e6 range z -9.76 -5 ;泥岩 
pro bulk 12.1e9 she 10.86e9 fric 32 coh 10.27e6 ten 25.7e6 range z -5 5.51 ;中砂岩(巷道所在层) 
pro bulk 6.12e9 she 3.54e9 fric 27 coh 5.12e6 ten 2.4e6 range z 5.51 6.87 ;泥岩 
pro bulk 2.29e9 she 1.65e9 fric 28 coh 3.4e6 ten 0.94e6 range z 6.87 7.32 ;2煤 
pro bulk 3.3e9 she 3.14e9 fric 27 coh 5.1e6 ten 2.2e6 range z 7.32 10.94 ;泥岩 
pro bulk 11.5e9 she 9.84e9 fric 25 coh 4.7e6 ten 2.79e6 range z 10.94 15 ;细砂岩 
 
;给定边界条件 
fix z range z -15.1 -15 
fix x range x -15.1 -15 
fix x range x 14.9 15.1 
fix y range y -0.1 0.1 
fix y range y 29.9 30.1 
 
;监控变量 
his nstep=10 
hist unbal ;最大不平衡力 his 1 
his gp zdis 0 15 2.7 ; 顶板节点z轴方向位移 his 2 
his zone szz 0 15 2.7 ; 顶板单元体zz方向应力 his 3 
his gp zdis 0 15 -2.7 ; 底板节点z轴方向位移 his 4 
his zone szz 0 15 -2.7 ; 底板单元体zz方向应力 his 5 
his gp xdis -2.7 15 -1.3 ; 左帮节点x轴方向位移 his 6 
his zone sxx -2.7 15 -1.3 ; 左帮单元体xx方向应力 his 7 
his gp xdis 2.7 15 -1.3 ; 右帮节点x轴方向位移 his 8 
his zone sxx 2.7 15 -1.3 ; 右帮单元体xx方向应力 his 9 
 
;施加重力场 
set gravity 0 0 -9.81;设置初始重力加速度 
 
;设定密度 
ini density 2580 range z -13.16 15 ;岩体的密度 
ini density 1480 range z -15 -13.16 ;3#煤的密度 
 
;施加等效载荷 
app nstress -17e6 range x -15 15 y 0 30 z 15 
 
;设定边界位移速度 
ini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0  
ini state 0 
 
 
plot bl st 
set large 
solve 
 
save weizhihu.sav