01.m

来自「BAM是一种两层的异联想」· M 代码 · 共 28 行

A1=[1 0 0 1 1 1 0 0 0];
A2=[0 1 1 1 0 0 1 1 1];
A3=[1 0 1 0 1 1 0 1 1];
B1=[1 1 1 0 0 0 0 1 0];
B2=[1 0 0 0 0 0 0 0 1];
B3=[0 1 0 1 0 0 1 0 1];

%转换极性
x1=shuang(A1);
x2=shuang(A2);
x3=shuang(A3);
y1=shuang(B1);
y2=shuang(B2);
y3=shuang(B3);
x=[x1;x2;x3];
y=[y1;y2;y3];

%求权矩阵
W=x'*y;%用公式求

%联想
beta=sign(x2*W);
alfa=sign(beta*W');

%验证是否相等
a=beta-y2;
b=alfa-x2;
c=[a;b]