% Metodos Numericos - Eng. Civil, Quimica e Gestao Industrial
% Carlos Balsa - 2007/2008
% 
% Programa para o trabalho pratico nº1
% Gerar uma matriz simetrica que pode ser positiva definida 
% ou nao em funçao do paramentro tol

format short e;

n=500;

tol=0.01;

B=randn(n,n);

for i=1:n
    for j=1:n
        if(abs(B(i,j))>tol),
            B(i,j)=0;
        end
    end
end

B=triu(B,1);

A = B' + eye(n) + B;