%% p=[light meat]'
%  帶記憶衰退的聯想學習
%  通過雙層網絡可構造刺激達到一定積累后才形成的聯想 
%       f=hardlim(w2*purelin(w1*p)-b)
%       w1在第一層有響應時改變，w2只做一個閾值處理

clear
clc

p1=[0 1]';
p2=[1 1]';
p3=[1 0]';
p4=[0 0]';

w=[0 1];  %!
r=0.1;

% f=hardlim(wp)
% w=(1-r)*w+r*a*p';

km=20;
k=0;
disp('no light,only meat');
while ~isequal(k,km)
    k=k+1;
    p=p1;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
    disp(a);
end

k=0;
disp('only light,no meat');
while ~isequal(k,km)
    k=k+1;
    p=p3;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
    disp(a);
end

k=0;
disp('meat with light');
while ~isequal(k,km)
    k=k+1;
    p=p2;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
    disp(a);
end

k=0;
disp('only light,no meat');
while ~isequal(k,km)
    k=k+1;
    p=p3;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
    disp(a);
end

k=0;
disp('--------------- no light no meat ---------------- 200 times');
while ~isequal(k,200)
    k=k+1;
    p=p4;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
end
disp(a);

% 長時間無任何刺激，記憶消退，聯想消失
% 先天的 meat->1 也消退了！ 通過改變規則定義出不可衰退的先天規則

k=0;
disp('meat with light');
while ~isequal(k,km)
    k=k+1;
    p=p2;
    a=hardlim(w*p-0.000001);
    w=(1-r)*w+r*a*p';
    disp(a);
end