Apprendre Maple Index du Forum Apprendre Maple
Site dédié au logiciel de calcul formel Maple
 
  Page d'accueilPage d'accueil   FAQFAQ    RechercherRechercher    Liste des MembresListe des Membres    Groupes d'utilisateursGroupes d'utilisateurs 
S'enregistrerS'enregistrer    ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Thème d'activité "Codage de huffman"

 
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Autres questions
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
Kingkungfu



Inscrit le: 06 Mai 2006
Messages: 7

MessagePosté le: 06 Mai 2006 14:40    Sujet du message: Thème d'activité "Codage de huffman" Répondre en citant

Bonjour,
j'ai regardé cette section sur le codage d'huffman, en particulier pour voir comment je pouvais ecrire dans un fichier vierge le fichier compressé.

Le programme marche parfaitement pour des fichiers textes, et c'est tres bien expliqué.
Seulement, j'aimerais pouvoir appliqué ce programme non pas a un fichier texte, mais a un fichier où l'on rencontre surtout des nombres.

Or dans la procédure entete
ALS a écrit:
entete:=proc(TD::list)
local c,d,j,k,n,s;
s:=nops(TD);
for k to nops(TD) do
d:=0: c:=TD[k][1]: n:=length(c):
for j from 0 to n-1 do d:=d+parse(c[n-j])*2^j od:
s:=s,iquo(d,256),irem(d,256),n,StringTools[Ord](TD[k][2])
end do:
[s]
end proc:

On utilise la fonction Ord, qui ne me permet pas de coder des nombres a plus d'un chiffre, comme 234, ou des nombres negatifs.
Donc comment pourrais je adapter simplement cette procédure a des fichiers pas seulement textes?

merci par avance
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
Kingkungfu



Inscrit le: 06 Mai 2006
Messages: 7

MessagePosté le: 06 Mai 2006 18:37    Sujet du message: Répondre en citant

Ok merci du conseil Wink
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
Kingkungfu



Inscrit le: 06 Mai 2006
Messages: 7

MessagePosté le: 14 Mai 2006 21:09    Sujet du message: Répondre en citant

bonjour,
je crois avoir reperé une tout petite erreur dans la derniere procédure, "decoder" :
ALS a écrit:
decoder:=proc(t::string)
local d,k,m,n,s,fin;
global codes,cars;
construire_listes();
n:=length(t): k:=1: d:="": s:=t[1]:
while k<n do
m:=membre(s,codes):
if m>0 then d:=cat(d,cars[m]): k:=k+1: s:=t[k]: else k:=k+1: s:=cat(s,t[k]) end if:
end do:
d
end proc:


en effet telle qu'elle est ecrite, la procédure ne décode pas le dernier code de la liste t, à cause du "while k<n" qui arrete la boucle juste apres que k=n-1, donc la dernier element na pas eu le temps d'etre décodé.

Ce probleme ne se voit presque pas sur l'exemple utilisé dans le theme, car le dernier caractere est un saut de ligne (ou espace) donc sa perte est presque invisible.

J'ai donc un peu modifié la procédure, en :

decoder:=proc(t::string)
local d,k,m,n,s,fin;
global codes,cars;
construire_listes();
n:=length(t): k:=1: d:="": s:=t[1]:
while k<n do
m:=membre(s,codes):
if m>0 then d:=cat(d,cars[m]): k:=k+1: s:=t[k]:
else k:=k+1: s:=cat(s,t[k]): if k=n-1 then d:=cat(d,cars(membre(cat(s,t[n]),codes))):fi:
end if:
end do:
d
end proc:

Voila j'espere que j'ai été assez compréhensible!
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
Kingkungfu



Inscrit le: 06 Mai 2006
Messages: 7

MessagePosté le: 15 Mai 2006 18:36    Sujet du message: Répondre en citant

Oui effectivement c'est plus simple Wink

ps :
En fait j'ai legerement modifié vos procédures pour travailler avec des listes, et non pas des chaines de caracteres, car mon algoritme huffman est un peu different du votre et renvoi des codes sous la forme [0,1,1,0] et non pas "0110"

Du coup dans ma version de la procédure "decoder" j'ai un petit probleme d'invalid subscript selector si je met
>while k<=n do
à cause du s:=t[k] (car chez moi t est une liste).

Donc voila, c'est pour ca que je suis obligé de rajouter une boucle if dans ma procédure.
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé  
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre Maple Index du Forum -> Autres questions Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum


phpBB

Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com


Apprendre Maple - © 20/06/2025 - Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.