def make_sphere 6pSi-FH
p_gp=gp_head N+h05`
loop while p_gp#null ;AE-=/<
;获取节点点坐标值:P=(px,py,pz) :aK?Dt Z
px=gp_xpos(p_gp) Z &Ciy n
py=gp_ypos(p_gp) ICvV}%d
pz=gp_zpos(p_gp) -^5467
dist=sqrt(px*px+py*py+pz*pz) :nQlS
if dist>0 then i'7+
?YL
;节点位置调整 u '7h(1@
maxp=max(px,max(py,pz)) kQ lU.J>^
k=(maxp/rad)*(rad/dist) 6,aH[>W
gp_xpos(p_gp)=k*px xC,x_:R`
gp_ypos(p_gp)=k*py @phVfP"M
gp_zpos(p_gp)=k*pz fEX=csZ86
end_if X!p`|i
p_gp=gp_next(p_gp) W3:Fw6v
end_loop C+llA
end 3f] ;y<Km
make_sphere #3QPcoxa
输入上述程序后出现“trying to divide by zero"是怎么回事?rad为10.0