%Perc1
%%===============
%%===============
%and of perceptron
%初始化、賦值
figure('name','訓(xùn)練過程圖示','numbertitle','off');
P=[0 0 1 1;0 1 0 1];   T=[0 0 0 1];
[R,Q]=size(P);[S,Q]=size(T);
%W0=rands(S,R);    B0=rands(S,1);
[W0,B0]=rands(S,R);
disp_freq=1;                    %每訓(xùn)練一次，顯示一次
max_epoch=str2num(max_epoch);                 %設(shè)置最大循環(huán)次數(shù)
TP=[disp_freq  max_epoch];      %給TP 賦值
%訓(xùn)練網(wǎng)絡(luò)、修正權(quán)值
[W,B,epochs]=trainp(W0,B0,P,T,TP)
%繪制訓(xùn)練后的分類結(jié)果
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(W0,B0);                     %繪制初始分類線

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

plotpc(W,B);                    %繪制最終分類線
hold off                        %關(guān)閉 
%end