%例題4－2－2malablab源碼
close all
clear
clf reset
figure(gcf);
echo on
clc
%newp-創建感知器神經網絡
%adapt-
%sim-
%p-為輸入矢量
p = [-1 1 -1 1 -1 1 -1 1;-1 -1 1 1 -1 -1 1 1;-1 -1 -1 -1 1 1 1 1];
%t-為目標矢量
t = [0 1 0 0 1 1 0 1];
%繪出待分類的數據點圖
plotpv(p,t);
pause
clc
%創建感知器神經網絡
net=newp([-1 1;-1 1;-1 1],1);
%繪制當前決策曲線
linehandle=plotpc(net.IW{1},net.b{1});
pause
clc
echo off
e=1;n=0;
echo on
clc
%訓練感知器神經網絡
while(sse(e))
    [net,y,e]=adapt(net,p,t);
    n=n+1;
    perf(n)=sse(e);
    linehandle=plotpc(net.IW{1},net.b{1},linehandle);
    drawnow;
end
pause
clc
%繪制誤差曲線
plot(perf);%繪制誤差變化曲線
pause
clc
%利用訓練好的感知器網絡進行分類
p=[0 1;-0.7 0.8;1 0];
a=sim(net,p);
plotpv(p,a);%繪制新的數據點
pause
clc
%繪制新的分類結果
hold on;
plotpv(p,t);
plotpc(net.IW{1},net.b{1});
echo off