%% p=[light meat]'

clear
clc

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

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

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

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=w+r*a*p'-r*a*w;
    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=w+r*a*p'-r*a*w;
    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=w+r*a*p'-r*a*w;
    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=w+r*a*p'-r*a*w;
    disp(a);
end