def make_sphere uYC^&siS<s
p_gp=gp_head Q2fxsa[
loop while p_gp#null ?$pNduE
;获取节点点坐标值：P=（px,py,pz） %`Ce#b()'
px=gp_xpos(p_gp) pMU\f
py=gp_ypos(p_gp) htB2?%S=T
pz=gp_zpos(p_gp) Dl!0Hl
dist=sqrt(px*px+py*py+pz*pz) E~y8X9HZ)
if dist>0 then PMQTcQ^
;节点位置调整 ]}`t~#Irz
maxp=max(px,max(py,pz)) MTYV~S4/
k=（maxp/rad）*（rad/dist） 9SC1A-nF
gp_xpos(p_gp)=k*px b:(+d"S
gp_ypos(p_gp)=k*py ;D'm=uOl
gp_zpos(p_gp)=k*pz <:-4GJH=
end_if DgEdV4@p
p_gp=gp_next(p_gp) yzEyOz@Q
end_loop Uz;^R@
end %DuPM66r
make_sphere nOC\ =<Nsg
输入上述程序后出现“trying to divide by zero"是怎么回事？rad为10.0
