Algoritimo
MOSSORÓ-RN NOVEMBRO – 2012 A= input ("Digite a matriz que deseja calcular no formato [* * *; * * *;]") T = size(A) //MOSTRAR O TAMANHO DA MATRIZ PARA CALCULAR QUALQUER TIPO DE MATRIZ L1= T(1,1)-1 //METODO PARA CALCULAR QUALQUER TIPO DE MATRIZ COL1= T(1,2)-2 //METODO PARA CALCULAR QUALQUER TIPO DE MATRIZ printf ("A matriz digitada é do tipo:\n") //INTERAGIR PEDINDO A MATRIZ disp(T) //MOSTRAR O TIPO DA MATRIZ DIGITADA disp(A) // MOSTRAR A MATRIZ DIGITADA COL=1 //ENTRA COM O NUMERO 1 PARA A PRIMEIRA COLUNA L=1 //ENTRA COM O NUMERO 1 PARA A PRIMEIRA LINHA DD=2 //INÍCIO DA FUNÇÃO PARA VERIFICAR SE O PIVOR DA PRIMEIRA LINHA É ZERO E MUDAR A LINHA, ENQUANTO FOR ZERO VAI SENDO FEITA AS MUDANÇAS DE LINHAS while A(1,1)==0 do AA= A(1,:) BB= A(DD,:) A(1,:)= BB A(DD,:)=AA DD=DD+1 end // FINAL DA FUNÇÃO PARA MUDAR AS LINHAS DA MATRIZ CASO A PRIMEIRA LINHA SEJA ZERO. while COL <= COL1 do //INICIO DA FUNÇÃO PARA CALCULAR A MATRIZ A(L,:) = A(L,:)/A(L,COL) B = A(L,:) while L <= L1 do A(L+1,:) = B * -A(L+1,COL) + A(L+1,:) L = L+1 print(%io(2),A) //ESCREVER MATRIZ end L = COL+1 COL = COL + 1 end while COL >= 2 do A(L,:) = A(L,:)/A(L,COL) B = A(L,:) while L >= 2 do A(L-1,:) = B *-A(L-1,COL) + A(L-1,:) L = L-1 print(%io(2),A) //ESCREVER MATRIZ