p122_64competive_network1.m

竞争网络的matlab程序

% competive network
P=[.7071 .6402 .000  -.1961 .1961 -.9285 -.8762 -.8192;
    .7071 .7682 -1.0 -.9806 -.9806 .3714 .4819 .5735];
[R,Q]=size(P);S=4;
[W]=randnr(S,R)
pause
max_cycle=320;              % 设置最大循环次数
disp_freq=100;
lr=0.05;
%plot(P(:
% 训练网络、修正权值
forcycle=1:max_cycle
A=compet(W*P);
i=find(A==1);
dW=learnk(W,P,i,lr);
W=W+dW;
TP=[disp_freq max_cycle lr];
W=trainc(W,P,TP)
end