Option Explicit
run
Sub run()
Dim i,j,x,y,z,d1,d2,p() :ReDim p(201*201-1)
For i=0 To 200
For j=0 To 200
x=-100+i
y=-100+j
d1=Sqr((x-50)^2+(y-50)^2)
d2=Sqr((x+50)^2+(y+50)^2)
z=Sin(0.5*d1)+Sin(1.0*d2)
p(i*201+j)=Array(x,y,z)
Next
next
Rhino.AddSrfControlPtGrid Array(201,201), p, Array(2,2)
End Sub