cv02

X = [
     2 6 -1;
     -1 -4 -1;
     2 2 -1;
     1 -3 -1;
     -3 -1 -1;
     -1 1 -1;
     6 1 -1;
     ];
D = [ 1 -1 1 -1 1 1 -1];
E = 0;
k = 1;

function y = sign(hodnota)
  if (hodnota >= 0)
    y = 1;
  else
    y = -1;
  endif
 endfunction

 function w = uciacePravidloPerc(X, D, pocetEpoch = 1)
   w = [-1 -2 10];
   ro = 0.5;
   for index = 1:pocetEpoch
     for k = 1:rows(X)
       x = X(k,:)
       vystupPerceptronuY = sign(dot(w,x))
       ocakavanaHodnotaD = D(k)
       chyba = ocakavanaHodnotaD - vystupPerceptronuY
       w= w + (ro*chyba*x)
       endfor
    endfor
 endfunction
 w = uciacePravidloPerc(X, D);
 disp('Aktualizovane vahy: ');
 disp(w);