Сеть Кохоненна. Кластеризация цепочек
> | 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); |