inedlagrnmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim t As Double, z As Double, x0 As Double, h As Double, y(10) As Double
    Dim s As String
        
    ' 第一个结点
    x0 = 0.1
    
    ' 步长
    h = 0.1
    
    ' 结点的函数值
    y(1) = 0.904837
    y(2) = 0.818731
    y(3) = 0.740818
    y(4) = 0.67032
    y(5) = 0.606531
    y(6) = 0.548812
    y(7) = 0.496585
    y(8) = 0.449329
    y(9) = 0.40657
    y(10) = 0.367879
    
    ' 插值位置
    t = 0.25
    ' 插值
    z = INEdLagrn(10, h, x0, y, t)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    ' 插值位置
    t = 0.63
    ' 插值
    z = INEdLagrn(10, h, x0, y, t)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    ' 插值位置
    t = 0.95
    ' 插值
    z = INEdLagrn(10, h, x0, y, t)
    s = s & "f(" & t & ") = " & z
    
    MsgBox s
    
End Sub