function g=grosgrey(n)
%GROSGREY(N) calcul les codes de Gros-Grey des nbres de 0 à 2^n.

% jbr, janvier 1998
g=zeros(2^n,n);
for i=2:2^n
	g(i,:)=g(i-1,:);
	if ~rem(sum(g(i-1,:)),2)	% le nombre de <<1>> est pair
		g(i,n)=rem(g(i,n)+1,2); % on change le dernier
	else	% on change le chiffre à gauche du <<1>> le plus à dte
		j=find(g(i,:));   % recherche des <<1>>
		k=j(length(j))-1;	% avant le dernier des <<1>>
		g(i,k)=rem(g(i,k)+1,2);
	end
end
