%Perc1a
%%===============
%%===============
%%%and of pecerptron
figure('name','訓(xùn)練過程圖示','numbertitle','off');

P=[0 0 1 1;0 1 0 1];   T=[0 0 0 1];
%initialization
[R,Q]=size(P);   [S,Q]=size(T);
W0=rands(S,R);    B0=rands(S,1);
W=W0;B=B0;
max_epoch=str2num(max_epoch);                 %設(shè)置最大循環(huán)次數(shù)
%expressions
plotpc(W,B); 
A=hardlim(W*P,B);
for epoch=1:max_epoch
   if all(A==T)
      epoch=epoch-1;
      break
   end
%learning
[dW,dB]=learnp(P,A,T);
W=W+dW;
B=B+dB;
%output after learning
A=hardlim(W*P,B);
plotpv(P,T);                   %在輸入矢量空間繪制輸入矢量和目標(biāo)矢量的位置
axis([-1 2 -1 2])              %定義橫坐標(biāo)和縱坐標(biāo)長度
title('Input&Output  Graph');    %寫圖標(biāo)題
xlabel('p1');                   %寫橫軸標(biāo)題
ylabel('p2');                   %寫縱軸標(biāo)題
hold on                         %當(dāng)前圖形模式打開
plotpc(W,B);                    %繪制分類線

linehandle=findobj(gca,'type','line');
set(linehandle,'LineStyle','--','Color','r');   %設(shè)定分類線的線型和顏色

pause

clc
hold on
end 
plotpc(W,B);                    %繪制最終分類線

hold off                        %關(guān)閉