
添加支护和没加支护的位移云图一样,太讽刺了,锚杆锚索去哪了?这是打锚杆的语句:
def bolt_cable
y0 = 0.0
spm = 1 ;锚杆/索排距
;顶锚杆
loop while m<=50
m = y0 + float(i*spm)
command
sel cable id 1 begin m 19.63 29.32 end m 20.25 27.01 nseg 12
sel cable id 1 begin m 21.15 29.4 end m 21.15 27 nseg 12
sel cable id 1 begin m 22.05 29.4 end m 22.05 27 nseg 12
sel cable id 1 begin m 22.95 29.4 end m 22.95 27 nseg 12
sel cable id 1 begin m 23.85 29.4 end m 23.85 27 nseg 12
sel cable id 1 begin m 25.37 29.32 end m 24.75 27.01 nseg 12
sel cable id 1 prop emod 180e9 xcarea 0.00037994 &
gr_per 0.069 yten 245e3 gr_k 2e7 gr_c 10e5 range z 28 29.4 ;2-5号锚杆锚固端
sel cable id 1 prop emod 180e9 xcarea 0.00037994 &
yten 245e3 gr_k 1 gr_c 1 range z 27.01 28 ;自由端
sel cable id 1 pretension 80e3
;帮锚杆
sel cable id 2 begin m 17.1 22.32 end m 20 23.1 nseg 10
sel cable id 2 begin m 17 24 end m 20 24 nseg 10
sel cable id 2 begin m 17 24.9 end m 20 24.9 nseg 10
sel cable id 2 begin m 17 25.8 end m 20 25.8 nseg 10
sel cable id 2 begin m 17.1 27.48 end m 20 26.7 nseg 10
sel cable id 2 prop emod 180e9 xcarea 0.00037994 &
gr_per 0.069 yten 245e3 gr_k 2e7 gr_c 10e5 range x 17 18.4 ;2-4号锚杆锚固端
sel cable id 2 prop emod 180e9 xcarea 0.00037994 &
yten 245e3 gr_k 1 gr_c 1 range x 18.4 19.99 ;自由端
sel cable id 2 pretension 80e3
;右帮锚杆
sel cable id 3 begin m 27.9 27.48 end m 25 26.7 nseg 10
sel cable id 3 begin m 28 25.8 end m 25 25.8 nseg 10
sel cable id 3 begin m 28 24.9 end m 25 24.9 nseg 10
sel cable id 3 begin m 28 24 end m 25 24 nseg 10
sel cable id 3 begin m 27.9 22.32 end m 25 23.1 nseg 10
sel cable id 3 prop emod 180e9 xcarea 0.00037994 &
gr_per 0.069 yten 245e3 gr_k 2e7 gr_c 10e5 range x 17 18.4 ;2-4号锚杆锚固端
sel cable id 3 prop emod 180e9 xcarea 0.00037994 &
yten 245e3 gr_k 1 gr_c 1 range x 18.4 19.99 ;自由端
sel cable id 3 pretension 80e3
endcommand
i=i+1
endloop
loop while l<=50
l = y0 + 0.5 + float(j*spm)
command
;顶锚索
sel cable id 4 begin l 18.63 33.95 end l 20.5 27 nseg 12
sel cable id 4 begin l 21.5 34.2 end l 21.5 27 nseg 12
sel cable id 4 begin l 22.5 34.2 end l 22.5 27 nseg 12
sel cable id 4 begin l 23.5 34.2 end l 23.5 27 nseg 12
sel cable id 4 begin l 26.36 33.95 end l 24.76 27 nseg 12
sel cable id 4 prop emod 200e9 xcarea 0.00037994 &
gr_per 0.069 yten 300e3 gr_k 2e7 gr_c 10e5 range z 32.2 34.2 ;2-4号锚索锚固端
sel cable id 4 prop emod 200e9 xcarea 0.00037994 &
yten 300e3 gr_k 1 gr_c 1 range z 27.01 32.2 ;自由端
sel cable prop emod 2e10 ytension 310e3 xcarea 0.000496 & ;托盘
gr_coh 10e8 gr_k 2e10 range z 27 27.01
sel cable id 4 pretension 120e3
endcommand
j=j+1
endloop
end
bolt_cable
试了很多种方法,经常帮锚杆显示不出来,就这种语句顶帮都打上锚杆了,看样子也受力了,怎么没有影响位移呢?
请各位大神不吝赐教。
看过用节点指定锚固范围的方法,试了很多循环语句也没有成功,不知道这种用坐标指定锚固范围的方法对不对。

从图上看锚杆索还是有作用的对不对?