function W=corr0(X)

%
% Armazenamento por correlação auto-associativo com diagonal nula;
%
% Comando: W=corr0(X)
%
% Entrada: X - Matriz com as memorias fundamentais,
% Saida:   W - Matriz dos pesos sinapticos.
%

% N - Numero de neuronios,
% k - Numero de memorias fundamentais.
[N k]=size(X);

% Matriz dos pesos sinapticos.
W=X*X'-k*eye(N);