TransposeMatrix – Rotate a bi-dimensional array

TransposeMatrix – Rotate a bi-dimensional array

' evaluate the transposed matrix'' a transposed matrix is the array you get when' you "rotate" a bi-dimensional arrayFunction 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 = resEnd Function

See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist