p129_65kohonen_network.m

竞争网络的matlab程序

% Kohonen network
angles=0:0.5*pi/99:0.5*pi;
P=[sin(angles);cos(angles)];
[R,Q]=size(P),S=20;
W0=rands(S,R)*0.1
pause
W=W0;
max_cycle=400;              % 设置最大循环次数
disp_freq=100;
lr=0.3;
max_neighb=S-1;
% 训练网络、修正权值
%plotmap(W0,'neighb1',S)
hold on 
pause
TF=[disp_freq max_cycle lr max_neighb]
W=trainsm(W,P,TF);
W0,W
end