求一个隧道开挖锚杆支护的案例,我自己做的有问题
flac3d吧
全部回复
仅看楼主
level 3
我自己的代码如下:
model restore 'ini.f3sav'
fish define mg7
global x= 11
loop while x<40
command
structure cable create by-line (@璐村惂鐢ㄦ埛_00000EM馃惥 2 24) (@x 2 30) id 1 segments 8
structure cable create by-line (@x 3 24) (@x 3 30) id 1 segments 8
structure cable create by-line (@x 4 24) (@x 4 30) id 1 segments 8
endcommand
x=x+2
endloop
global m= 1
global n1 =1 ; mt
global n2 = 1 ;;start_component
global n3 =4 ; free-end
global n4 =5; grout-start
global n5 =8 ; grout-end
loop while m<=45 ;number_mg
command
structure link delete range component-id @N1 ;link_jd
structure link create on-nodeid @n1 target zone ;link_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=0 grout-cohesion=0 grout-perimeter 0.0875 grout-friction 0 range component-id @n2,@n3 ;zyd component_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=1.75e7 grout-cohesion=2e7 grout-perimeter 0.0785 grout-friction 30 range component-id @n4,@n5
structure cable apply tension value 60e3 range component-id @n2 @n3;yy
endcommand
m=m+1
n1=n1+9
n2=n2+8
n3=n3+8
n4=n4+8
n5=n5+8
endloop
command
model solve convergence 1
struct cable apply tension active off
zone delete range group 'hd'
model solve
model save 'mg7'
endcommand
end
@mg7
哪位老哥可以解决问题,费用好商量。麻烦各位了
2021年04月28日 09点04分 1
level 3
能够帮助的老哥,麻烦给个联系方式 或者麻烦加Q1787614258 谢谢了
2021年04月28日 09点04分 2
level 1
楼主,你解决了吗?
2022年09月21日 14点09分 3
level 2
锚杆截面积 太大了吧 少一个小数点?
2023年12月04日 17点12分 4
level 2
锚杆截面积 太大了吧 少一个小数点?
2023年12月04日 17点12分 5
1