运行时出现：
bad type conversion
程序如下：
ini xdis 0 ydis 0 zdis 0
def ys_top
ad=top_head
yftot=0.0
loop while ad # null
gp_pnt=mem(ad+1)
yf=gp_yfunbal(gp_pnt)
yftot=yftot+yf
ad=mem(ad)
endloop
ys_top=yftot
end
def ramp
while_stepping
if step<ncut then
udapp=step*udmax/ncut
else
udapp=udmax
endif
ad=top_head
loop while ad # null
gp_pnt=mem(ad+1)
gp_yvel(gp_pnt)=udapp
ad=mem(ad)
endloop
end
hist gp ydis 0 0 0
hist gp yvel 0 0 0
hist ys_top
hist zone syy 0 0 1
set mech damp comb
set udmax=-1e8 ncut 30000
step 225000
请教各位大侠，请问各位谁有用flac做锚杆拉拔试验的程序，能给一个不，不胜感激。
