p21percep11.m

竞争网络的matlab程序

% percep11
P=[-0.5 -0.5 0.3 0;-0.5 0.5 -0.5 1];
T=[1 1 0 0];
[R,Q]=size(P);[S,Q]=size(T);[W0,B0]=rands(S,R);
disp_freq=1               % 每训练一次，显示一次
max_epoch=20;              % 设置最大循环次数
TP=[disp_freq max_epoch];  % 给TP赋值
% 训练网络、修正权值
[W,B,epochs]=trainp(W0,B0,P,T,TP)
% 绘制训练后的分类结果
V=[-2 2 -2 2];
plotpv(P,T,V);
axis('equal'),
title('Input Vector Graph'),
xlabel('p1'),
ylabel('p2')
plotpc(W0,B0,'-');
plotpc(W,B);
hold off
end