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



if  esreflexi(T)==1 & esantisim(T)==1 & estransi(T)==1,
      s=1; 
else
      s=0; 
end


