chint.txt

用VB实现函数逼近的数值方法算法集。包括级数求和

Sub CHINT(A, B, C(), CINT1(), N)
    CON = 0.25 * (B - A)
    Sum = 0#
    FAC = 1#
    For J = 2 To N - 1
        CINT1(J) = CON * (C(J - 1) - C(J + 1)) / (J - 1)
        Sum = Sum + FAC * CINT1(J)
        FAC = -FAC
    Next J
    CINT1(N) = CON * C(N - 1) / (N - 1)
    Sum = Sum + FAC * CINT1(N)
    CINT1(1) = 2# * Sum
End Sub