请解释桩基荷载命令

2007632001

请解释下面桩基荷载命令：
ini xdis 0.0 ydis 0.0 zdis 0.0
;
; monitor horizontal loading along pile shaft
def xf_p1
ad = top_head
xftot = 0.0
loop while ad # null
gp_pnt = mem(ad+1)
xf = gp_xfunbal(gp_pnt)
xftot = xftot + xf
ad = mem(ad)
endloop
xf_p1 = xftot
end
call p-y.fis
call servo.fis
set vel_min 5e-8 vel_max 1e-6 unb_min 10 unb_max 50 horapp 5e-8
fix z range z 0.05 0.15 group pile
;
hist gp xdis 0,0,0
hist gp xvel 0,0,0
hist horapp
hist tot_reac
hist xf_p1

皇家属地

不是很清楚

zouzzz

哎 怎么没人给你解答啊 我也很期待答案啊！

luogj18

或许是楼主的赏金少了点吧，
我希望我学习后我能回答。

ca1b000

ad = top_head6 q( `; K# h* j( B. H; g' A
xftot = 0.0
( C* c! p+ x1 Y  c( j( L8 A& Sloop while ad # null
% r/ _/ G) x: Y9 L# Y9 k( Tgp_pnt = mem(ad+1)
4 e1 O! a! ^8 g- H! {7 Oxf = gp_xfunbal(gp_pnt)
8 n; U* }7 ?9 g# `, X7 Z4 axftot = xftot + xf! Q. z$ N. ^# H3 L4 k
ad = mem(ad)$ ]0 y% P& z1 v' i$ k  \( y
endloop
$ |5 k& E3 G/ \' Q6 o  Dxf_p1 = xftot/ w1 g: j" W7 {9 S
end



这是叠加所有节点的不平衡力。。

ca1b000

这个命令流不全。。也不知道call的那两个文件是干嘛的。

杨永垚

; 监测桩身水平荷载
def xf_p1
   ad= top_head
   xftot = 0.0
   loop while ad # null
     gp_pnt = mem(ad+1);
     xf = gp_xfunbal(gp_pnt)  ;计算水平向不平衡力

     xftot = xftot + xf  ;计算水平力

    ad = mem(ad)9 Y3 ；

    endloop
   xf_p1 = xftot ；把xftot最后计算值赋给xf_p1

end
call p-y.fis              ；调用p-y.fis文件,这是一个画p-y曲线用
call servo.fis          ；调用servo.fis
set vel_min 5e-8 vel_max 1e-6 unb_min 10 unb_max 50 horapp 5e-8) _8 P6 ?0 e4 j* S! `) Z( U
fix z range z 0.05 0.15 group pile

hist gp xdis 0,0,0    ；记录节点x向位移
hist gp xvel 0,0,0   ；记录速度
hist hor_app& G1 W: [7 U7 ]6 f9 L3 Q! s, P& M；记录hor_app,在p-y.fis定义过了

hist tot_reac    ；记录tot_reac，在在p-y.fis定义过了
hist xf_p1        ；记录xf_p1，在p-y.fis定义过了

这个程序主要监测桩在水平速度加载作用下的水平荷载，同时画出p-y曲线，p-y曲线部分的程序在p-y.fis里。不知道我的解释够不够清楚，希望你能够理解。