%perc3
%%===============
%%===============
figure('name','訓(xùn)練過(guò)程圖示','numbertitle','off');
%初始化、賦值
P=[0.1 0.7 0.8 0.8 1.0 0.3 0.0 -0.3 -0.5 -1.5;1.2 1.8 1.6 0.6 0.8 0.5 0.2 0.8 -1.5 -1.3];
T=[1 1 1 0 0 1 1 1 0 0;0 0 0 0 0 1 1 1 1 1];
[R,Q]=size(P);[S,Q]=size(T);[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é)果
%V=[-2 2 -3 3];                  %取一數(shù)組限制坐標(biāo)數(shù)值大小
plotpv(P,T);                   %在輸入矢量空間繪制輸入矢量和目標(biāo)矢量的位置
axis('equal');                  %令橫坐標(biāo)和縱坐標(biāo)等距離長(zhǎng)度
title('Input Vector Graph');    %寫(xiě)圖標(biāo)題
xlabel('p1');                   %寫(xiě)橫軸標(biāo)題
ylabel('p2');                   %寫(xiě)縱軸標(biāo)題
hold on                         %當(dāng)前圖形模式打開(kāi)
plotpc(W0,B0,'-');              %繪制初始分類線

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

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