55 lines
2.2 KiB
Mathematica
55 lines
2.2 KiB
Mathematica
|
clear;
|
||
|
|
close all;
|
||
|
|
|
||
|
|
% Definition d'un alphabet ASCII avec les lettres A..Z, a..z, les chiffres 1..9 et la ponctuation :
|
||
|
|
taille_alphabet = 128;
|
||
|
|
codes_ASCII = transpose(0:taille_alphabet-1); % Vecteur (colonne) de codes ASCII
|
||
|
|
alphabet = char(codes_ASCII); % Vecteur de caracteres ASCII
|
||
|
|
|
||
|
|
% Texte a encoder :
|
||
|
|
texte = 'Taratatatsointsoin';
|
||
|
|
|
||
|
|
% Affichage du texte :
|
||
|
|
fprintf('Texte : %s\n',texte);
|
||
|
|
|
||
|
|
% Frequences d'apparition des lettres dans le texte :
|
||
|
|
frequences = calcul_frequences(texte,alphabet);
|
||
|
|
|
||
|
|
% Selection des caracteres de frequences non nulles :
|
||
|
|
[selection_frequences,selection_alphabet] = selection(frequences,alphabet);
|
||
|
|
|
||
|
|
% Partitionnement de l'intervalle [0,1] :
|
||
|
|
bornes = partitionnement(selection_frequences);
|
||
|
|
|
||
|
|
% Codage arithmetique :
|
||
|
|
[borne_inf,borne_sup] = codage_arithmetique(texte,selection_alphabet,bornes);
|
||
|
|
|
||
|
|
% Choix (arbitraire) d'un nombre compris dans l'intervalle [borne_inf,borne_sup] pour encoder le texte :
|
||
|
|
k = 1;
|
||
|
|
while (floor(k*borne_inf)==floor(k*borne_sup))
|
||
|
|
k = 10*k;
|
||
|
|
end
|
||
|
|
texte_encode = floor(k*borne_sup)/k;
|
||
|
|
fprintf('Texte encode : %.15f\n',texte_encode);
|
||
|
|
|
||
|
|
% Decodage du texte encode :
|
||
|
|
texte_decode = '';
|
||
|
|
texte_encode_courant = texte_encode;
|
||
|
|
for i = 1:length(texte)
|
||
|
|
c = find((texte_encode_courant>bornes(1,:))&(texte_encode_courant<bornes(2,:))); % Identification du caractere
|
||
|
|
texte_decode = [texte_decode selection_alphabet(c)]; % Concatenation du caractere
|
||
|
|
texte_encode_courant = (texte_encode_courant-bornes(1,c))/selection_frequences(c); % Soustraction de la borne inferieure et division par la probabilite pour obtenir le caractere suivant
|
||
|
|
end
|
||
|
|
fprintf('Texte decode : %s\n',texte_decode);
|
||
|
|
|
||
|
|
% Calcul du nombre de bits necessaires pour encoder la partie decimale :
|
||
|
|
dec_texte_encode = texte_encode*k; % Partie decimale
|
||
|
|
nb_bits_codage_arithmetique = length(dec2bin(dec_texte_encode)); % Conversion de la partie decimale en binaire (dec2bin)
|
||
|
|
fprintf('Nombre de bits du codage arithmetique : %d\n',nb_bits_codage_arithmetique);
|
||
|
|
|
||
|
|
% Comparaison avec le codage de Huffman :
|
||
|
|
dico = huffmandict(num2cell(selection_alphabet),selection_frequences);
|
||
|
|
texte_encode = huffmanenco(texte,dico);
|
||
|
|
nb_bits_codage_Huffman = length(texte_encode);
|
||
|
|
fprintf('Nombre de bits du codage de Huffman : %d\n',nb_bits_codage_Huffman);
|