Сеть Кохонена
Скачать программу: 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