inlagrn3mainmodule.bas

来自「几种常用的内插数值计算方法」· BAS 代码 · 共 36 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim t As Double, z As Double, x(5) As Double, y(5) As Double
    Dim s As String
        
    ' 给定结点
    x(1) = 1.615
    x(2) = 1.634
    x(3) = 1.702
    x(4) = 1.828
    x(5) = 1.921
    
    y(1) = 2.4145
    y(2) = 2.46459
    y(3) = 2.65271
    y(4) = 3.03035
    y(5) = 3.34066
    
    ' 插值位置
    t = 1.682
    ' 插值
    z = INLagrn3(5, x, y, t)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    ' 插值位置
    t = 1.813
    ' 插值
    z = INLagrn3(5, x, y, t)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    MsgBox s
    
End Sub