inedakimamainmodule.bas

几种常用的内插数值计算方法

Attribute VB_Name = "MainModule"
Sub Main()
    Dim k As Integer, n As Integer
    Dim t As Double, x0 As Double, h As Double, y(11) As Double, s(5) As Double
    Dim str As String
        
    ' 第一个结点
    x0 = -1#
    
    ' 步长
    h = 0.2
    
    ' 计算插值的控制参数
    k = -1
    
    ' 结点数
    n = 11
    
    ' 结点的函数值
    y(1) = 0.0384615
    y(2) = 0.0588236
    y(3) = 0.1
    y(4) = 0.2
    y(5) = 0.5
    y(6) = 1#
    y(7) = 0.5
    y(8) = 0.2
    y(9) = 0.1
    y(10) = 0.0588236
    y(11) = 0.0384615
    
    ' 插值位置
    t = -0.65
    ' 插值
    Call INEdAkima(n, h, x0, y, k, t, s)
    str = str & "f(" & t & ") = " & s(5) & Chr(13)
    For i = 1 To 4
        str = str & "s" & (i - 1) & " = " & s(i) & "    "
    Next i
    
    str = str & Chr(13) & Chr(13)
    
    ' 插值位置
    t = 0.25
    ' 插值
    Call INEdAkima(n, h, x0, y, k, t, s)
    str = str & "f(" & t & ") = " & s(5) & Chr(13)
    For i = 1 To 4
        str = str & "s" & (i - 1) & " = " & s(i) & "    "
    Next i
    
    MsgBox str
    
End Sub