曲线_插值m3.bas

<VB数理统计实用算法>书中的算法源程序

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