level 11
q1q234567
楼主
计算隧道最佳支护时间,一般是等效于在围岩释放不同比例的荷载后施作支护,如下面这个网页所做。
http://www.doc88.com/p-0418017102072.html
step 1
def relax
relax_coef=0.0 ;应力释放系数,取值0-1之间
relax_m=1.0-relax_coef
p_gp=gp_head
loop while p_gp # null
if inrange('chuzhi',p_gp) = 1 then
if inrange('weiyan',p_gp) = 1 then ;选择需要加反向节点力的节点
xf=-gp_xfunbal(p_gp)*relax_m
yf=-gp_yfunbal(p_gp)*relax_m
zf=-gp_zfunbal(p_gp)*relax_m ;计算所需加的反向节点力
pid=gp_id(p_gp)
command
apply xforce xf rang id pid
apply yforce yf rang id pid
apply zforce zf rang id pid ;加反向节点力
endcommand
endif
endif
p_gp=gp_next(p_gp)
endloop
end
@relax
2017年03月18日 08点03分
1
http://www.doc88.com/p-0418017102072.html
step 1
def relax
relax_coef=0.0 ;应力释放系数,取值0-1之间
relax_m=1.0-relax_coef
p_gp=gp_head
loop while p_gp # null
if inrange('chuzhi',p_gp) = 1 then
if inrange('weiyan',p_gp) = 1 then ;选择需要加反向节点力的节点
xf=-gp_xfunbal(p_gp)*relax_m
yf=-gp_yfunbal(p_gp)*relax_m
zf=-gp_zfunbal(p_gp)*relax_m ;计算所需加的反向节点力
pid=gp_id(p_gp)
command
apply xforce xf rang id pid
apply yforce yf rang id pid
apply zforce zf rang id pid ;加反向节点力
endcommand
endif
endif
p_gp=gp_next(p_gp)
endloop
end
@relax