partie 1 :Compression :
Traitement RLE pour une image en grayscale
function coderle=testrle_gris(file,qualite)
%Générer le code RLE à partir d'une image en couleurs (RVB)
%Découpage en blocs 8X8
decoupage (file);
load fichiers_mat/matrices;
%Codage RLE pour chaque bloc de pixels
x=1;
while x<=t/64
[codeG]=traitement_rle_gris(eval(['G',num2str(x)]),qualite);
eval(['P' num2str(x) '=codeG;']);
x=x+1;
end % end while
save fichiers_mat/mat_y;
%Concaténer les codes pour former un seul code
code_comp=obt_chaine (t/64,'P',1,0);
load fichiers_mat/mat_y;
G=eval(['[' code_comp ']']);
coderle=[G 'g' qualite];
save fichiers_mat/coderle;