p131_66kohonen_network.m

竞争网络的matlab程序

% Kohonen network
P=rands(2,2000);
P=pnormc(P);
X=5;Y=5;S=X*Y,
[R,Q]=size(P);
W0=randnr(S,R)*0.1
pause
W=W0;
%plotmap(W0,'neighb2d',[X Y]);
max_cycle=4000;              % 设置最大循环次数
disp_freq=100;
lr=0.3;
max_neighb=max([X Y])-1;
% 训练网络、修正权值
hold on 
pause
TF=[disp_freq max_cycle lr max_neighb];
%W=trainsm(W,P,TF);
W=trainsm(W,P,TF);
W0,W
end