Pivoteamento - função auxiliar (Método de Gauss)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

function [a,f] = pivot(a,i,r,c)
% [a,f] = PIVOT(a,i,r,c) realiza o pivoteamento de uma matriz
% Os argumentos a serem passados são:
% a matriz a ser pivoteada
% i linha corrente ou atual, abaixo da qual os elementos serão testados
% r número de linhas (rows) da matriz
% c número de colunas (columns) da matriz
% A função retorna:
% a matriz pivoteada
% f(1 = pivô nulo, 0 = pivô não nulo)
f=0;
p=i-1;
for j=i:r
 if abs(a(i-1,i-1))<abs(a(j,i-1))
 p=j;
 end
end
for j=1:c
 aux=a(i-1,j);
 a(i-1,j)=a(p,j);
 a(p,j)=aux;
end
if a(i-1,i-1)==0
 f=1;
end