///////////////////////////script.m///////////////////////////
x=[0 0 1 1;0 1 0 1]
w0 = -1;
w = [2;1]
U = w'*x+w0;
F=a = 1 ./ (1 + exp(-U))
[z]=sxediasi_eutheias(x,w,w0)
b=1;%ρυθμος μαθησης
while (U(1,1)>=0 || U(1,2)>=0 || U(1,3)>=0 || U(1,4)<=0)
    [w,w0]=kyklos_ekpaideusis(U,w,w0,x,b)
    U=w'*x+w0
    %[z]=sxediasi_eutheias(x,w,w0)
end
[z]=sxediasi_eutheias(x,w,w0)
/////////////////////sxediasi_eutheias.m////////////////////////
function [z]=sxediasi_eutheias(x,w,w0)%Κυκλος εκπαιδευσης
  for k=-1:3
    c=k+2
    y(c)=-(w(1,1)/w(2,1))*k-(w0/w(2,1));
    x1(c)=k;
   endfor
   plot(x1,y,'b')
   axis([-2 2 -2 2])
   hold on
   plot(x(1,:),x(2,:),'*')
  endfunction
/////////////////////kyklos_ekpaideusis.m///////////////////////////
function [w,w0]=kyklos_ekpaideusis(U,w,w0,x,b)%Κυκλος εκπαιδευσης
    for i=1:3
      U = w'*x+w0;
        if(U(1,i)>=0)
          w0=w0-b
          w(1,1)=w(1,1)-b*x(1,i);
          w(2,1)=w(2,1)-b*x(2,i);
        end
     end
i=4;
        if(U(1,4)<=0)
          w0=w0+b
          w(1,1)=w(1,1)+b*x(1,4);
          w(2,1)=w(2,1)+b*x(2,4);
        endif
 endfunction