rhino script 莫比乌斯嵌套曲面

同行

        n = 60
        m = 15
        Dim pts()
        ReDim pts(n*m-1)
       
        For i=0 To n-1
                u = 2*Rhino.pi*i/(n-1)
               
                For j = 0 To m-1
                        v =2*Rhino.pi*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=(2 + cos(v/2)*sin(u)-sin(v/2)*sin(2*u))*cos(v)
        y=sin(v/2)*sin(u)+cos(v/2)*sin(2*u)
        z=(2+cos(v/2)*sin(U)-sin(v/2)*sin(2*u))*sin(v)

        surface=Array(x,y,z)
End Function
我输入之后，运行时出现（没定义变量n),怎么回事？王老师这本书真心看不懂