Сеть Кохоненна. Кластеризация цепочек

>

restart;

Образцы

>	X:=<<2,2,1,3>|<1,2,2,3>|<2,3,2,3>|<1,1,2,2>|<2,2,2,2>>:

Три кластера

>	W:=<<3,2,2,1>|<2,2,1,2>|<1,3,1,3>>:

Три кластера

>	eta:=0.5:#Коэффициент обучения (0<eta<1)

>	delta:=0.1:s:=Vector(4,1):

Цикл по образцам

>	for k to 5 do

>

Rmax:=0:

>	for j to 3 do

>	R[j]:=add(W[i,j]*X[i,k],i=1..4)*s[j];

>	if R[j]>Rmax then Rmax:=R[j]:j0:=j:fi:

>

od;

>	Z[k]:=j0;s[j0]:=s[j0]-delta;

>	for i to 4 do

>	W[i,j0]:=W[i,j0]+eta*(X[i,k]-W[i,j0]);

>

od;

>

od:

>

W:

Номера победителей

>	seq(Z[i],i=1..5);