entity/srf,pt(2)
number/pmt(20),u,v,MiniR
data/u,0,v,0,MiniR,0
mask/71
S1:
ident/'Pick a surface',srf,cursor,x,y,z,rsp
jump/S1:,end:,,,rsp
$$sparf/srf,x,y,z,u,v
pmt=spropf(srf,0,0)
MiniR=pmt(19)
do/Uend:,u,0,1,0.01
do/Vend:,v,0,1,0.01
pmt=spropf(srf,u,v)
if/absf(pmt(19))<miniR,MiniR=absf(pmt(19))
$$print/pmt(19)
Vend:
Uend:
messg/'MiniR='+fstrl(MiniR)
end:
halt |
发表于 2010-9-2 20:50:48
发表于 2010-9-11 10:27:02
