cv05 hopfield

N=7;
M=3;

Vs_priklady=[1 -1 1 1 -1 1 1;
             1 1 1 1 1 -1 -1;
             -1 -1 1 1 1 1 1];
vzdialenosti=zeros(M,M);
for i=1:M
  for j=1:M
    vzdialenosti(i,j)=hammingova_vzdialenost(Vs_priklady(i,:), Vs_priklady(j,:));
  end;
end;

vzdialenosti

vahy=zeros(N,N);

for i=1:N
  for j=1:N
    if i~=j
      for k=1:M
        vahy(i,j)=vahy(i,j)+Vs_priklady(k,i)*Vs_priklady(k,j);
      end;
    end;
  end;
end;

Vstupny_vektor=[1 1 1 1 1 1 1];
Stary_vektor = zeros(1,N);
Novy_vektor = zeros(1,N);

for i=1:N
  Novy_vektor(i)=sign(vahy(i,:)*Vstupny_vektor');
end;

while Stary_vektor ~= Novy_vektor
   Stary_vektor = Novy_vektor;
   for i=1:N
    Novy_vektor(i)=sign(vahy(i,:)*Vstupny_vektor');
   end;
   Novy_vektor
end;

function [z] = hammingova_vzdialenost (x, y)
  pom=0;
  for i=1:size(x)
    if x(i)~=y(i)
      pom = pom+1;
    end;
  end;
  z=pom;
endfunction