svbksb.txt

来自「Visual Basic 常用数学算法集书中收录了所有代码」· 文本 代码 · 共 20 行

Sub SVBKSB(U(), W(), V(), M, N, B(), X())
    Dim TMP(100)
    For J = 1 To N
        S = 0#
        If W(J) <> 0# Then
            For I = 1 To M
                S = S + U(I, J) * B(I)
            Next I
            S = S / W(J)
        End If
        TMP(J) = S
    Next J
    For J = 1 To N
        S = 0#
        For JJ = 1 To N
            S = S + V(J, JJ) * TMP(JJ)
        Next JJ
        X(J) = S
    Next J
End Sub