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



if T==T.', s=1; 
else
      s=0; 
end


