eulsum.txt

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

Sub EULSUM(SUM, TERM, JTERM, WKSP())
    Static NTERM As Integer
    If JTERM = 1 Then
        NTERM = 1
        WKSP(1) = TERM
        SUM = 0.5 * TERM
    Else
        TMP = WKSP(1)
        WKSP(1) = TERM
        For J = 1 To NTERM
            DUM = WKSP(J + 1)
            WKSP(J + 1) = 0.5 * (WKSP(J) + TMP)
            TMP = DUM
        Next J
        If Abs(WKSP(NTERM + 1)) <= Abs(WKSP(NTERM)) Then
            SUM = SUM + 0.5 * WKSP(NTERM + 1)
            NTERM = NTERM + 1
        Else
            SUM = SUM + WKSP(NTERM + 1)
        End If
    End If
End Sub