function  net=ucz_koh(net,D)
eta=0.5;
for i=1:length(net)
   Y(i)=sum(net(i).w.*D);
end
[m,ind]=max(Y);
% zmieniamy wage dla zwycieskiego  neuronu
net(ind).w=net(ind).w+eta*(D-net(ind).w);
%normalizujemy wage dla zwycieskiego neuronu
net(ind).w=net(ind).w/norm(net(ind).w);