积分 0
注册时间 2019-10-11
仿真币
最后登录 1970-1-1
悬赏1 仿真币未解决
本帖最后由 ccve 于 2021-3-29 15:55 编辑
锚杆支护,但是锚杆却没有作用,请问呢这是为什么?是真的想不明白,请各位大佬讲解下。[code]model restore 'initial4.f3sav'fish define mg7
global y=2
loop while y<=13
command
structure cable create by-line -9.92 @y 17.8 -11.253 @y 17.8 segments 5 id 1
structure cable create by-line -11.253 @y 17.8 -11.92 @y 17.8 segments 10 id 1
;
structure cable create by-line -9.92 @y 19.358 -11.253 @y 19.358 segments 5 id 2
structure cable create by-line -11.253 @y 19.358 -11.92 @y 19.358 segments 10 id 2
;
structure cable create by-line -9.5 @y 20.8 -10.247 @y 21.9 segments 5 id 3
structure cable create by-line -10.247 @y 21.9 -10.62 @y 22.45 segments 10 id 3
;
structure cable create by-line -8 @y 21.22 -8 @y 22.533 segments 5 id 4
structure cable create by-line -8 @y 22.533 -8 @y 23.22 segments 10 id 4
;
structure cable create by-line -6.5 @y 20.8 -5.753 @y 21.9 segments 5 id 5
structure cable create by-line -5.753 @y 21.9 -5.38 @y 22.45 segments 10 id 5
;
structure cable create by-line -6.08 @y 19.358 -4.747 @y 19.358 segments 5 id 6
structure cable create by-line -4.747 @y 19.358 -4.08 @y 19.358 segments 10 id 6
;
structure cable create by-line -6.08 @y 17.8 -4.747 @y 17.8 segments 5 id 7
structure cable create by-line -4.747 @y 17.8 -4.08 @y 17.8 segments 10 id 7
endcommand
y=y+1.1
endloop
global m= 1
global n1 =1 ;閿氬ご
global n2 = 2 ;鑷敱绔捣鐐
global n3 =5 ;鑷敱绔粓鐐
global n4 =6;閿氬浐娈佃捣鐐
global n5 =16 ;閿氬浐娈电粓鐐
loop while m<=77
command
structure cable property cross-section-area=3.8e-4 young=2.1e11 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=5e10 grout-cohesion=2e10 grout-perimeter 0.7854 grout-friction 30 range component-id @n1,@n1
;mt
structure cable property cross-section-area=3.8e-4 young=2.1e11 yield-tension=2.35e8 yield-compression 2.35e8...
grout-stiffness=1 grout-cohesion=1 grout-perimeter 0.07854 range component-id @n2,@n3 ;zyd
structure cable property cross-section-area=3.8e-4 young=2.1e11 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=5e7 grout-cohesion=10e5 grout-perimeter 0.7854 grout-friction 30 range component-id @n4,@n5
;mgd
structure cable apply tension value 60e3 range component-id @n1,@n3 ;yyl
endcommand
m=m+1
n1=n1+15
n2=n2+15
n3=n3+15
n4=n4+15
n5=n5+15
endloop
command
model solve convergence 1
zone delete range group 'hd'
zone cmodel assign elastic range group 'supen'
zone property bulk 16.67e9 shear 12.5e9 range group 'supen'
model solve
model save 'mg7gg'
endcommand
end
@mg7
return
我来回答