曲面_网状立体图m2.bas

<VB数理统计实用算法>书中的算法源程序

Attribute VB_Name = "modCalculate"
'线性插值
Option Explicit
'从给定的N个数据点中选取最靠近插值点的两个数据点按比例插值
'N：数据点个数
'X：数组，存放数据点的横坐标
'Y：数组，存放数据点的纵坐标
'M：插值点个数
'T：数组，存放插值点的横坐标
'F：数组，存放插值的结果
Public Sub LIP(N As Integer, X() As Double, Y() As Double, _
        M As Integer, T() As Double, F() As Double)
    Dim I As Integer, J As Integer
    For J = 1 To M
        For I = 1 To N - 2
            If T(J) <= X(I + 1) Then GoTo L
        Next I
        I = N - 1
L:
        F(J) = Y(I) + ((T(J) - X(I)) / (X(I + 1) - X(I))) * (Y(I + 1) - Y(I))
    Next J
End Sub