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



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


