%-----------------------------------------------------------------------
%             -----------                             ----------
%             script file                             tstescal.m
%             -----------                             ----------
%-----------------------------------------------------------------------
%              ----------------------------------------
%              Metodos Numericos para Sistemas Lineares
%              ----------------------------------------
%
%
%
%       --------------       ----------------------
%	Programa Teste   -   Procedimento  escalona
%---------------------       ----------------------
%
%
%       --------------------
%	Variaveis de Entrada
%---------------------------
%	B  = [A , b]   :  Matriz Ampliada Associada ao Sistema Linear
%
%
%       ------------------
%	Variaveis de Saida
%-------------------------
%
%	           U   :  Matriz Ampliada Triangular Superior Equivalente
% 
%                  x   :  Solucao do Sistema Linear
%
%
%       ----------------
%	Dados de Entrada
%-----------------------
%
%	Gera uma Matriz Aleatoria
%--------------------------------
	A = rand(5,5);
%
%	Cria o Vetor do Lado Direito do Sistema
%----------------------------------------------
	b = sum(A');    b = b';     %  Define b como vetor coluna
%
%	Cria a Matriz Ampliada
%-----------------------------
	B = [A,b];
%
%
%       ---------------------------------
%	Chamada do Procedimento  escalona
%----------------------------------------
	[U,x] = escalona(B);
%
%
	disp('      ')
	disp('      ')
	disp('      ')
	disp('     Sistemas Lineares - Escalonamento')
	disp('     ---------------------------------')
	disp('          ----------------------')
	disp('          Procedimento  escalona')
        disp('          ----------------------')
	disp('      ')
%
	format long
	disp('    Solucao do Sistema Linear')
	disp('      ')
	disp(x)      
	format short
%
%
%-----------------------------------------------------------------------
%-----------------------------------------------------------------------
%
%	Petronio Pulino
%	Departamento de Matemática Aplicada - D.M.A
%	IMECC - UNICAMP
%	e-mail: pulino@ime.unicamp.br
%	http://www.ime.unicamp.br/~pulino/MS211
%
%-----------------------------------------------------------------------

