function x=commentaire(n)
%COMMENTAIRE(N) consiste à commenter un nombre N fois.
% On part de 1, on le décrit, cela donne "un 1", c'est-à-dire "11".
% On décrit 11, cela donne "deux 1", c'est-à-dire "21", ce qui se décrit
% "un 2, un 1", c'est-à-dire 1211, etc. N indique le nombre de boucles
% désirées. Conseil: utilisez num2str(commentaire(n)) pour un affichage
% compact. Les premières valeurs: 1, 11, 21, 1211, 111221, 312211...

% jbr, 26-2-97.

x=[1];				% le nombre de départ
for i=1:n
	m=length(x);	% la taille du nombre
	j=1;
	y=[];
	while j<=m
		k=0;
		a=x(j);		% pivot
		while (a==x(j))&(j<m)	% calcul du nbre de val. identiques
			k=k+1;
			j=j+1;
		end
		if j==m					% cas particulier en fin de chaîne
			if a==x(j)
				k=k+1;			
			else
			    y=[y k a];
				a=x(j);
				k=1;
			end
			j=j+1;
		end
		y=[y k a];				% création de la 2ème chaîne
	end
	x=y;						% on recommence
end

	
