Сеть Хопфилда

>

restart;

>	with(LinearAlgebra):

>

n:=9:

>	W1:=Matrix(n):W2:=Matrix(n):

Образцы  

>	U1:=Matrix([-1,-1,1,-1,-1,1,-1,-1,1]): U2:=Matrix([1,1,1, 1,-1,1, 1,-1,1]):

Испорченный U1

>	U3:=Matrix([-1,-1,1,1,1,1,-1,-1,1]):

Веса

>	W1:=Transpose(U1).U1: W2:=Transpose(U2).U2:

>	for i to n do W1[i,i]:=0;W2[i,i]:=0;od:

Суммарный вес

>	WW:=W1+W2:

>	U:=Transpose(U3):

Распознавание

>	U:=map(sign,WW.U):