Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB6
Expertise: Intermediate
Nov 25, 2000

TransposeMatrix - Rotate a bi-dimensional array

' evaluate the transposed matrix
'
' a transposed matrix is the array you get when
' you "rotate" a bi-dimensional array

Function TransposeMatrix(arr() As Double) As Double()
    Dim startRow As Long, startCol As Long
    Dim endRow As Long, endCol As Long
    Dim r As Long, c As Long
    Dim tmp As Double
    
    ' get size of original matrix
    startRow = LBound(arr)
    endRow = UBound(arr)
    startCol = LBound(arr, 2)
    endCol = UBound(arr, 2)
    ' prepare the result matrix
    ReDim res(startCol To endCol, startRow To endRow) As Double
    
    ' transpose the matrix
    For r = startRow To endRow
        For c = startCol To endCol
            res(c, r) = arr(r, c)
        Next
    Next
    
    ' return the transposed result
    TransposeMatrix = res

End Function

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date