n=80
m=80
Dim pts()
ReDim pts(n*m-1)
For i=0 To n-1
u=i/(n-1)
For j=0 To m-1
v=j/(m-1)
pts(i*m+j)=surface(u,v)
Next
Next
Rhino.addsrfptgrid Array(n,m),pts
End Sub
Function surface(u,v)
x=20*(2*u-0)*Rhino.pi
y=20*(2*u-0)*Rhino.pi
z=5*Sin((y*Cos(3*(x/60))-z*Sin(3*(x/60))))
surface=Array(x,y,z)
End Function
照着书写的啊!难道是写错了!作者: uuuf8 时间: 2011-8-22 02:45
你的这里只有u没有v~~~
y=20*(2*v-0)*Rhino.pi作者: mumu7 时间: 2011-8-22 07:44
upupupupup作者: 指剑苍穹 时间: 2011-8-22 11:16 7#uuuf8 太感谢了,大意了!作者: jasonroc 时间: 2011-10-29 00:01
回去赶紧下载去