Matemática (3)

Funções diversas para matrizes

algoritmo()

{

matriz inteiro a[3:3];

matriz inteiro b[3:3];

matriz inteiro c[3:3];

matriz inteiro d[3:3];

matriz inteiro e[2:2];

matriz inteiro f[3:3];

vetor inteiro x[3];

vetor inteiro y[3];

inteiro i,j;

a[] := (1,2,3,4,5,6,7,8,9);

f[] := (1,3,2,5,7,8,-1,0,12);

b[] := Transposta(a[]);

x[] := DiagPrincipal(a[]);

y[] := DiagSecundaria(a[]);

i := NumLinhas(a[]);

j := NumColunas(a[]);

c[] := TriangSup(a[]);

d[] := TriangInf(a[]);

e[] := SubMatriz(a[],2,2);

escreva("a[] = ", a[]);

escreva("b[] = ", b[]);

escreva("c[] = ", c[]);

escreva("d[] = ", d[]);

escreva("e[] = ", e[]);

escreva("x[] = ", x[]);

escreva("y[] = ", y[]);

escreva("Linhas= ", i);

escreva("Colunas= ", j);

escreva("Det(a[])= ", DetMatriz(a[]));

escreva("Det(b[])= ", DetMatriz(b[]));

escreva("Det(f[])= ", DetMatriz(f[]));

}