function s=esantisim(T)
% s=esantisim(T) da 1 si T es la matriz booleana de una relacion antisimetrica.
% Da 0 en caso contrario.

n=length(T);

Y=corte(T,T.');
C=(Y<=eye(n));

if all(C)
      s=1;
else
      s=0;
end
