def make_sphere xsJXf @
p_gp=gp_head 6vE#$(n#a&
loop while p_gp#null h4|}BGO
;获取节点点坐标值:P=(px,py,pz) tp7$t#
px=gp_xpos(p_gp) (PGw{_
py=gp_ypos(p_gp) at@tS>Dv
pz=gp_zpos(p_gp) R2-F@_
dist=sqrt(px*px+py*py+pz*pz) R#;xBBt8
if dist>0 then 3e1-w$z&S
;节点位置调整 Y:,C_^$w;
maxp=max(px,max(py,pz)) _80L/92
k=(maxp/rad)*(rad/dist) #Pf<2S
gp_xpos(p_gp)=k*px bEQ- ?X%7
gp_ypos(p_gp)=k*py x< 2]UB`
gp_zpos(p_gp)=k*pz 7g+T
end_if R<6y7?]bZ
p_gp=gp_next(p_gp) 42"nbJ
end_loop w?|qKO
end DgW@v[#BK=
make_sphere ;
YQB
输入上述程序后出现“trying to divide by zero"是怎么回事?rad为10.0