svbksb.txt

VB常用数值算法集1 VB常用数值算法集1

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