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