// Etant donne un couple "valeur" et un matrice "vect" de taille m*2
// cette fonction evalue si la matrice "vect" contient des occurences (des lignes)
// egales à "valeur" en renvoie l'indice de la derniere telle occurence

function res=testegalite(valeur,vect)
	m=length(vect(:,1)); // vect est une matrice m*2
	aux=zeros(m,1);
	for k=1:m
		aux(k,1)=sum(prod(bool2s(vect(k,:)==valeur),2)); // on compte les occurences
	end
	res=sum(bool2s(cumsum(aux)<sum(aux)))+1; // on renvoie l'indice de la derniere occurence
endfunction