function sigma=flim(x,y)

%
% Fuzzy Lattice Inclusion Measure: sigma(x <= y)
%

sigma=fh(y)/fh(join(x,y));

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function r=fh(y)

n=size(y,1)/2;
p1=[1:n]; p2=[n+1:2*n];

r=sum([1-y(p1);y(p2)]);
