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

n=length(T);

if diag(T)~=diag(eye(n)), s=0; 
else
      s=1; 
end


