partie 1 :Compression :

Codage Huffman 2

 

function [code,dico]=huffman_2(coderle)

%Effectuer le codage HUFFMAN2

 mat_occ=ocur (coderle);

mat_occ=tri_cell_final (mat_occ); %matrice triée contient les éléments et leurs occurrences

[s1 taille]=size(mat_occ);

mat_occ_inverse=inverser (mat_occ);

 for i=1:taille

     dico{1,i}=mat_occ_inverse{1,i};

     dico{2,i}=dec2bin(i-1);  

end % end for

 coderle=normaliser_type (coderle);

k=1;

for i=1:length(coderle)   

  for j=1:length(dico)

     if strcmp(dico{1,j},coderle{i})

      code{k}=dico{2,j} ;

      k=k+1;

     end % end if

  end % end for

end % end for