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;