belongs(x, to_y)

function val = belongs(x, to_y)
% BELONGS   appartenance ou inclusion
%       function val = belongs(x,to_y)

to_y = to_y(:)';
val = 0;
for i = x(:)'
  if (find(to_y==i)) == []  % voir find 
    return;          % section suivante
  end;
end;
val = 1;