VBA-Math-Objects Errors in Matrix.cls and Vector.cls

[gcng54]

Hi, Thanks for your efforts and sharing's

When I compile your codes

in Matrix.cls file:

Public Function ReplaceRow(iNum, inRow As Vector) As Matrix
    If Me.N <> inRow.N Then

Should be corrected. Vector does not have N

If Me.N <> inRow.M Then

in Vector.cls file

Public Function Magnitude()
    Sum = 0

Should be corrected. Vector has a Sum function also

Public Function Magnitude()
    dsum = 0
    For i = 1 To Me.M
        dsum = dsum + dA(i, 1) ^ 2
    Next i
    Magnitude = Math.sqr(dsum)
End Function

Good days