partie 1 : Compression :
Ecriture en RLE
function [nb_bits]=ecriture_fichier_rle(image_brute,qualite)
option='rle';
save fichiers_mat/option;
[coderle]=compression_jpeg (image_brute,qualite,option);
tab_code=cell_to_tab(coderle,'_');
tab=[tab_code,'"'];
fichier_compresse=['data_' option '.hzs'];
dlmwrite(fichier_compresse,tab,'delimiter','')
% calcul nombre de bits du fichier stocké
nb_bits=0;
for i=1:length(tab)
if strcmp(tab(i),' ')
nb_bits=nb_bits+1;
end %end if
end %end for
nb_bits=(nb_bits+1)*8;