%perc4
%%===============
%%===============
figure('name','訓練過程圖示','numbertitle','off');
P=[-0.5 -0.5 0.3 0 -0.8;-0.5 0.5 -0.5 1 0]; 
T=[1 1 0 0 0];
%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);
%expressions
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);                   %在輸入矢量空間繪制輸入矢量和目標矢量的位置
axis([-2 2 -2 2])             %定義橫坐標和縱坐標長度
title('Input Vector Graph');    %寫圖標題
xlabel('p1');                   %寫橫軸標題
ylabel('p2');                   %寫縱軸標題
hold on                         %當前圖形模式打開
plotpc(W,B);                   %繪制分類線

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

pause

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

hold off                        %關閉