reduire_colonnes.m: Reduce the image size and reduce noise

function colonnes_reduites=reduire_colonnes(matrice, facteur)
% REDUIRE_COLONNES reduit la taille d'une matrice
% le nombre des colonnes est reduit en prenant la moyenne
% de facteur colonnes

if nargin<2
	facteur = 10;
end;

[m,n] = size( matrice );
cr = zeros( m, ceil(n/10));

if ( n == 1 )
	colonnes_reduites = matrice;
else
	i = 1;
	while ( i < n )
		j = min( i + facteur - 1, n );
%		cr = [ cr mean(matrice(:,i:j)')' ];
		cr(:,ceil(i/facteur)) = median(matrice(:,i:j)')';
		i = i + facteur;
	end;
	colonnes_reduites = cr;
end;

end