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



P=potboole(T,2);
if all(P<=T)
      s=1;
else
      s=0;
end
