Сеть Кохонена
Скачать программу: rar
> | restart; with(LinearAlgebra): |
Кластеры
> | W[1]:=Vector([0.,1.,1.,1.]): |
> | W[2]:=Vector([1.,0.,0.,0.]): |
Образцы
> | X[1]:=Vector([1,1,0,0]): |
> | X[2]:=Vector([0,0,1,1]): |
> | X[3]:=Vector([0,1,1,1]): |
> | X[4]:=Vector([1,1,0,0]): |
Коэффициент обучения
> | eta:=0.4: |
> | for j to 10 do |
> | for i to 4 do |
> | DV1:=X[i]-W[1]: DV2:=X[i]-W[2]: |
> | if Norm(DV1,2)<Norm(DV2,2) then |
> | W[1]:=W[1]+eta*(X[i]-W[1]): NX[i]:=1: |
> | else W[2]:=W[2]+eta*(X[i]-W[2]):NX[i]:=2: |
> | fi: |
> | od:od: |
> | NX[1],NX[2],NX[3],NX[4]; |
2, 1, 1, 2