inlagrnmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim t As Double, z As Double, x(10) As Double, y(10) As Double
    
    x(1) = 0.1
    x(2) = 0.15
    x(3) = 0.25
    x(4) = 0.4
    x(5) = 0.5
    x(6) = 0.57
    x(7) = 0.7
    x(8) = 0.85
    x(9) = 0.93
    x(10) = 1#
    
    y(1) = 0.904837
    y(2) = 0.860708
    y(3) = 0.778801
    y(4) = 0.67032
    y(5) = 0.606531
    y(6) = 0.565525
    y(7) = 0.496585
    y(8) = 0.427415
    y(9) = 0.394554
    y(10) = 0.367879
    
    ' 插值位置
    t = 0.63
    
    ' 插值
    z = INLagrn(10, x, y, t)
    
    MsgBox "f(0.63) = " & z
    
End Sub