% TP Codages JPEG et MPEG-2 - 3SN-M - 2022
                                                                                      
%--------------------------------------------------------------------------
% Fonction de calcul d'entropie binaire
%--------------------------------------------------------------------------
% [poids, H] = CodageEntropique(V_coeff)
%
% sorties : poids = poids du vecteur de donnees encode (en ko)
%           H = entropie de la matrice (en bits/pixel)
% 
% entree  : V_coeff = vecteur dont on souhaite calculer l'entropie
%--------------------------------------------------------------------------

function [poids, H] = CodageEntropique(V_coeff)
    
    [count,~] = groupcounts(V_coeff);
    freq = count / length(V_coeff);
    H = - sum( freq .* log2(freq) );
    
    poids = length(V_coeff) * H / 8 / 1024;
    
end