Vetores

[leandrolinauer]

Bom dia,

Estou precisando inverter dados de uma matriz

Exemplo: A[n,3] para B[3,n]

Existe algum comando que faça isto automaticamente ou tem que passar por um processo FOR.

Grato

[leandrolinauer]

Bom dia
Consegui no CHAT GPT, caso alguém precise segue abaixo o código

Código: Selecionar todos

Static FUNCTION TransporMatriz( aMatriz )
    LOCAL nLinhas := Len( aMatriz )
    LOCAL nColunas := Len( aMatriz[1] )
    LOCAL aTransposta := Array( nColunas )

    LOCAL i, j

    FOR i := 1 TO nColunas
        aTransposta[i] := Array( nLinhas )
        FOR j := 1 TO nLinhas
            aTransposta[i][j] := aMatriz[j][i]
        NEXT
    NEXT

RETURN aTransposta

Grato