def make_sphere _h 6c[*
p_gp=gp_head
qt6@]Y
loop while p_gp#null K &%8w
;获取节点点坐标值:P=(px,py,pz) )i_:[ l6
px=gp_xpos(p_gp) =MvB9gx@r
py=gp_ypos(p_gp) zZP/C
pz=gp_zpos(p_gp) g+7j?vC{'
dist=sqrt(px*px+py*py+pz*pz) Ug384RzHN
if dist>0 then `2]TPaWGh
;节点位置调整 cc8Q}
maxp=max(px,max(py,pz)) /,~g"y.;,
k=(maxp/rad)*(rad/dist) :^-\KE`3
gp_xpos(p_gp)=k*px Q3Y(K\
gp_ypos(p_gp)=k*py bkz/V/ Y
gp_zpos(p_gp)=k*pz V(g5Gn?
end_if 3E0C$vKM
p_gp=gp_next(p_gp) 'ka$@,s :
end_loop HKIr?
end jfVw{\l
make_sphere ZAn9A>5_
输入上述程序后出现“trying to divide by zero"是怎么回事?rad为10.0