Script Pengenalan Perseptron Di Matlab

Perseptron adalah salah satu metode pengenalan atau recognation lapis tunggal (single layer). Berikut contohnya :
clear all;
clc;

X=[0 0;
   0 1;
   1 0;
   1 1];

T=[0;
   0;
   0;
   1];

W=[0;
   0];

[m, n]=size(X);

alfa=0.2;
maxiterasi=100;
iterasi=0;
E=1;

while ((E>0.000001) & (iterasi<=maxiterasi))
iterasi=iterasi+1;
E=0;
    for i=1:m,
           Y_in(i)=0;
        for j=1:n,
            Y_in(i)=Y_in(i)+X(i,j)*W(j);
        end,
        if(Y_in(i)>=0.5)
            Y_in(i)=1;
        else
            Y_in(i)=0;
        end
        kesalahan(i)=T(i)-Y_in(i);
        E=E+abs(kesalahan(i));
        if(T(i)~=Y_in(i))
            W(:)=W(:)+alfa*T(i)*X(i);
        end,
    end,
     disp(strcat('Iterasi= ',int2str(iterasi),'  Kesalahan = ',num2str(E)));
end,
W

P=[0 0;
   0 1;
   1 0;
   1 1]

[m1, n1]=size(P);

for i=1:m1,
    Y(i)=0;
    for j=1:n1,
        Y(i)=Y(i)+P(i,j)*W(j);
    end,
    if (Y(i)>0.5)
    Y(i)=1;
    else
    Y(i)=0;
    end,
end,
Y'