巷道支护优化 架棚支护该采用梁结构还是桩结构，求救
巷道支护优化 架棚支护该采用梁结构还是桩结构，向高手求救。前面的建模，包括锚杆参数赋值已搞定，架棚支护不会弄。
附程序
new
restor 1.sav
ini xdis 0 ydis 0 zdis 0
model mohr
prop bu 2.45e10 sh 1.76e10 coh 15.4e6 fric 45 ten 7.8e6 range z -22.5 -13.7
prop bu 8.71e9 sh 4.49e9 coh 6.8e6 fric 46 ten 4.1e6 range z -13.7 -1.6
prop bu 5.53e9 sh 2.85e9 coh 5.8e6 fric 41 ten 3.1e6 range z -1.6 -0.5
prop bu 3.94e9 sh 2.03e9 coh 2.8e6 fric 36 ten 2.1e6 range z -0.5 3.9
prop bu 8.71e9 sh 4.49e9 coh 6.8e6 fric 46 ten 4.1e6 range z 3.9 10.4
prop bu 8.68e9 sh 4.96e9 coh 11.8e6 fric 42 ten 6.1e6 range z 10.4 13.8
prop bu 8.71e9 sh 4.49e9 coh 6.8e6 fric 46 ten 4.1e6 rangez 13.8 22.5
model null range x -3 4 y 0 11z 0.6 3.9
set large
so
save 切眼开挖.sav
define dingmaogan
a=0.6 ;锚杆排距
i=1
loop while i<=11
command
;顶板锚杆 间隔0.7 长度2.4
sel cable beg -3 i 3.9 end -4.6499 i 5.5944 nseg 5
sel cable beg -2.3 i 3.9 end -2.3 i 6.3 nseg 5
sel cable beg -1.6 i 3.9 end -1.6 i 6.3 nseg 5
sel cable beg -0.9 i 3.9 end -0.9 i 6.3 nseg 5
sel cable beg -0.2 i 3.9 end -0.2 i 6.3 nseg 5
sel cable beg 0.4 i 3.9 end -0.8 i 5.5944 nseg 5
sel cable beg 0.5 i 3.9 end 0.5 i 6.3 nseg 5
sel cable beg 1.2 i 3.9 end 1.2 i 6.3 nseg 5
sel cable beg 1.9 i 3.9 end 1.9 i 6.3 nseg 5
sel cable beg 2.6 i 3.9 end 2.6 i 6.3 nseg 5
sel cable beg 3.3 i 3.9 end 3.3 i 6.3 nseg 5
sel cable beg 4.0 i 3.9 end 5.6944 i 5.5944 nseg 5
;顶锚杆参数
sel cable pro emod 45e9 xcarea 0.000452 gr_per 0.13 &
yten 25e4 gr_k 17.5e6 gr_c 5e5
;xcrea
;r
endcommand
i=i+a
endloop
end
dingmaogan
define bangmaogan
a=0.6 ;帮锚杆排距
i=1
loop while i<=11
command
;两帮 间距1.0 长2.4
sel cable beg 4 i 3.7 end 5.2 i 5.7784 nseg 5
sel cable beg 4 i 2.7 end 6.4 i 2.7 nseg 5
sel cable beg 4 i 1.7 end 6.4 i 1.7 nseg 5
sel cable beg 4 i 0.7 end 6.4 i 0.7 nseg 5
sel cable beg -3 i 3.7 end -4.2 i 5.7784 nseg 5
sel cable beg -3 i 2.7 end -5.4 i 2.7 nseg 5
sel cable beg -3 i 1.7 end -5.4 i 1.7 nseg 5
sel cable beg -3 i 0.7 end -5.4 i 0.7 nseg 5
sel cable pro emod 45e9 xcarea 0.000452376 gr_per 0.13 &
yten 25e4 gr_k 17.5e6 gr_c 5e5
;xcrea
;r
endcommand
i=i+a
endloop
end
bangmaogan
define dingmaosuo
b=2 ;锚索排距
j=1
loop while j<=11
command
;顶板锚索 4根6米
sel cable beg -1.9 j 3.9 end -6.136 j 8.136 nseg 10
sel cable beg -0.4 j 3.9 end -0.4 j 9.9 nseg 10
sel cable beg 1.4 j 3.9 end 1.4 j 9.9 nseg 10
sel cable beg 2.9 j 3.9 end 7.136 j 8.136 nseg 10
sel cable pro emod 45e9 xcarea 0.000346350375 gr_per 0.13 &
yten 35e4 gr_k 17.5e6 gr_c 5e5
;xcrea
;r
endcommand
j=j+b
endloop
end
dingmaosuo
;顶底板位移
hist gp zdisp 0 5 3.9
hist gp zdisp 0 5 0.6
;两帮位移
hist gp xdisp -3 5 2.25
hist gp xdisp 4 5 2.25
solve
save 支护1.sav 你好，你架棚支护怎么模拟的啊，呵呵，向你请教了！！！！！！！！！！！！ 我QQ502975065
特向你请教！！！！！！ 架棚是U型的还是工字钢的呢
页:
[1]