inaitkenmainmodule.bas

用vb写的有关科学计算方面的

Attribute VB_Name = "MainModule"
Sub Main()
    Dim t As Double, z As Double, eps As Double, x(11) As Double, y(11) As Double
    Dim s As String
    
    eps = 0.000001
        
    ' 给定结点
    x(1) = -1#
    x(2) = -0.8
    x(3) = -0.65
    x(4) = -0.4
    x(5) = -0.3
    x(6) = 0#
    x(7) = 0.2
    x(8) = 0.4
    x(9) = 0.6
    x(10) = 0.8
    x(11) = 1#
    
    y(1) = 0.0384615
    y(2) = 0.0588236
    y(3) = 0.0864865
    y(4) = 0.2
    y(5) = 0.307692
    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.75
    ' 插值
    z = INAitken(10, x, y, t, eps)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    ' 插值位置
    t = 0.05
    ' 插值
    z = INAitken(10, x, y, t, eps)
    s = s & "f(" & t & ") = " & z & Chr(13)
    
    MsgBox s
    
End Sub