perceptron1.m

来自「人工神经网络资料」· M 代码 · 共 26 行

 clear
P=[-0.5 -0.5 0.3 -0.1;
    -0.5 0.5 -0.5 1.0];
T=[1 1 0 0 ];
plotpv(P,T)
net=newp(minmax(P),1);
E=1
n=0
linehandle=plotpc(net.IW{1},net.b{1})
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
figure
plot(perf)

% add point 
%p=[-1,0.7;-1,1.2]
%a=sim(net,p)
% plotpv(P,T)
% hold
% plotpv(p,a)
% plotpc(net.IW{1},net.b{1})