Attribute VB_Name = "modCall"
'曲線_插值
'檢驗插值結果的備用模塊，使用時需要設定為啟動模塊
Option Explicit
Sub Main()
    Dim X(1 To 10) As Double, Y(1 To 10) As Double
    Dim F As Double, T As Double, C As Double
    C = 3.141592653 / 180
'X表示角度
    X(1) = 0: X(2) = 5: X(3) = 10: X(4) = 15: X(5) = 20
    X(6) = 25: X(7) = 30: X(8) = 35: X(9) = 40: X(10) = 45
'Y表示角度所對應正弦函數值
    Y(1) = 0: Y(2) = Sin(5 * C): Y(3) = Sin(10 * C)
    Y(4) = Sin(15 * C): Y(5) = Sin(20 * C)
    Y(6) = Sin(25 * C): Y(7) = Sin(30 * C): Y(8) = Sin(35 * C)
    Y(9) = Sin(40 * C): Y(10) = Sin(45 * C)
    T = 28
    LIP X, Y, T, F
    Debug.Print "線性插值", F
    QIP X, Y, T, F
    Debug.Print "一元三點插值", F
    LAGRAN X, Y, T, F
    Debug.Print "拉格朗日插值", F
    NEWTON X, Y, T, F
    Debug.Print "牛頓插值", F
    AITKEN X, Y, T, F
    Debug.Print "埃特金插值", F
    SPLINE X, Y, T, F
    Debug.Print "三次樣條插值", F
    Debug.Print "Sin(28度)=", Sin(28 * C)
End Sub