flac3D中轴力的提取函数说明？

chevy_lai

谁知道flac中轴力提取函数怎么解释？谢谢？每一句是什么意思？
def ax_str
str=0
pnt=gp_head
loop while pnt # null
if gp_ypos(pnt) < 0.1 then
str=str+gp_yfunbal(pnt)
endif
pnt=gp_next(pnt)
endloop
ax_str=str/pi;cylinder radius=1
end