partie 1 :Compression :

 

Ecriture en Huffman 1 pour une image en grasycale

function [nb_bits]=ecriture_fichier_huffman_gris(image_brute,qualite,option)

%Création du fichier compressé pour HUFFMAN

save fichiers_mat/option

[code,Y_dico]=compression_jpeg (image_brute,qualite,option);

tab_code=cell_to_tab (code,'_');

dico_ligne1=Y_dico(1,:);

dico_ligne2=Y_dico(2,:);

tab_dico1=cell_to_tab(dico_ligne1,'(');

tab_dico2=cell_to_tab(dico_ligne2,')');

tab=[tab_code,tab_dico1,tab_dico2,'"'];

fichier_compresse=['data_' option 'g' '.hzs'];

dlmwrite(fichier_compresse,tab,'delimiter','')

% calcul nombre de bits du fichier stocké

nb_bits=calcul_nb_bits (tab);