function [Ok,indice] = ConjuntoOK(vetor)

for n = 1:length (vetor)
   if vetor(n) > 1 || vetor(n) < -1
       disp 'Indice Invalido';
       Ok = 0; 
       indice = n;
       return
   end
end

disp 'Conjunto OK!!';
Ok = 1; 
indice = 0;
   return