等值线的生成（平滑）（MAPX+VB.net）

 Private Sub spline(ByVal LD As Integer, ByVal DwX() As Double, ByVal DwY() As Double)
        Dim style11 As New MapXLib.Style
        Dim newpt As New MapXLib.Point
        Dim newpts As New MapXLib.Points
        Dim ftr1 As New MapXLib.Feature
        'Dim lyr111 As MapXLib.Layer
        Dim n, I As Integer
        For n = 1 To LD
         
            '样条函数试验()
            x11(n) = DwX(n)
            y11(n) = DwY(n)

        Next
        tspLine(LD, 2, 0, 0, 0, 0)
        newpt.Set(u1(0), v1(0))
        newpts.Add(newpt)
        For I = 1 To num - 2
            newpt.Set(u1(I), v1(I))
            newpts.Add(newpt)
            'newpt.Set(u1(I + 1), v1(I + 1))
            'newpts.Add(newpt)
            ftr1 = AxMap1.FeatureFactory.CreateLine(newpts, style11)
            AxMap1.Layers("temp").AddFeature(ftr1)

        Next I
    End Sub

    '样条函数
    Sub tspLine(ByVal n As Integer, ByVal ch As Integer, ByVal tx1 As Single, ByVal tx2 As Single, ByVal ty1 As Single, ByVal ty2 As Single)
        Dim a(100) A