描述：
在PictureBox绘图，mousedown记录下点坐标（x0，y0），（x1，y1），（x2，y2）。。。（xn+1，yn+1）。
三次样条插值对散点进行拟合。
查得求解样条插值函数的三弯矩方法如下：
问题！！定义了single，但是数组输出1
Dim a(10) As Single, b(10) As Single, h(10) As Single, lan(10) As Single, v(10) As Single, d(10) As Single
Dim i As Integer
Private Sub Form_Load()
a(0) = 4: a(1) = 4.35: a(2) = 4.57: a(3) = 4.76: a(4) = 5.26: a(5) = 5.88
b(0) = 4.18: b(1) = 5.77: b(2) = 6.58: b(3) = 6.24: b(4) = 4.9: b(5) = 4.76
For i = 1 To 5
h(i - 1) = a(i) - a(i - 1)
v(i) = h(i - 1) * (h(i - 1) + h(i)) ^ (-1)
lan(i) = 1 - v(i)
On Error Resume Next
d(i) = 6 * ((b(i + 1) - b(i)) / h(i) - (b(i) - b(i - 1)) / h(i - 1)) / (h(i - 1) + h(i))
On Error Resume Next
Next i
End Sub
Private Sub Form_Click()
For i = 1 To 4
Print a(i); b(i); h(i); h(i - 1) / ((h(i - 1) + h(i))); v(i); lan(i); d(i)
Print
Next i
End Sub
放了5个定点想要试一下，但不会用excel解方程。
附
