chder.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 13 行

Sub CHDER(A, B, C(), CDER(), N)
    CDER(N) = 0#
    CDER(N - 1) = 2 * (N - 1) * C(N)
    If N >= 3 Then
        For J = N - 2 To 1 Step -1
            CDER(J) = CDER(J + 2) + 2 * J * C(J + 1)
        Next J
    End If
    CON = 2# / (B - A)
    For J = 1 To N
        CDER(J) = CDER(J) * CON
    Next J
End Sub