vb.net 三次样条曲线代码

Imports System.Math

Module Program
    Sub Main(args As String())
        Const n As Integer = 5
        Const m As Integer = 100
        Dim x(n), y(n), Sx(m), Sy(m) As Single
        Dim DX As Single
        For i = 0 To n
            x(i) = i - 2
            y(i) = Sin(x(i))
        Next

        DX = (x(n) - x(0)) / UBound(Sx)
        For I = 0 To m
            Sx(I) = x(0) + I * DX
        Next

        Call spline(x, y, Sx, Sy)

        FileOpen(2, "xy.csv", OpenMode.Output)
        For i = 0 To n
            PrintLine(2, x(i), ",", y(i))
        Next
        FileClose(2)

        FileOpen(3, "Sxy.csv", OpenMode.Output)
        For i = 0 To m
            PrintLine(3, Sx(i), ",", Sy(i))
        Next
        FileClose(3)
    End Sub
    Sub spline(x As Single(), y As Single(), Sx As Single（）, sy As Single（）)
        Dim n As Integer = UBound