请教单桩静荷实验模拟-速度加载法中两fish函数的解释

pzw1234d

例子：
;速度加载法
rest pile1.sav
ini state 0
ini xdis 0 ydis 0 zdis 0
def zs_top       ;检测桩顶竖向荷载
   ad = top_head
   zftot = 0.0
   loop while ad # null
      gp_pnt = mem(ad+1)
      zf = gp_zfunbal(gp_pnt)
      zftot = zftot + zf
      ad = mem(ad)
   endloop
   zs_top = zftot / 0.1414
end
fix z  range z 0.05 .15 group pile        ;固定桩顶速度，用速度来确定位移
def ramp
   while_stepping
   if step < ncut then
      udapp = float(step) * udmax / float(ncut)
   else
      udapp = udmax
   endif
   ad = top_head
   loop while ad # null
     gp_pnt = mem(ad+1)
     gp_zvel(gp_pnt) = udapp
     ad = mem(ad)
   endloop
end
hist gp zdis 0,0,0
hist gp zvel 0,0,0
hist zs_top
hist zone szz 0,0,-.1
set mech damp comb
set udmax = -1e-8  ncut 30000      
step 225000
save pile2.sav
;
请教：命令中显红色的函数，具体怎么解释？

dangwg

新手上路~~等待高人指点

pzw1234d

希望热心人能在每条语句后面加上注释，企盼！

Mortreds

感谢