 |
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
Kingkungfu
Inscrit le: 06 Mai 2006 Messages: 7
|
Posté le: 06 Mai 2006 14:40 Sujet du message: Thème d'activité "Codage de huffman" |
|
|
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 |
|
 |
Kingkungfu
Inscrit le: 06 Mai 2006 Messages: 7
|
Posté le: 06 Mai 2006 18:37 Sujet du message: |
|
|
Ok merci du conseil  |
|
Revenir en haut de page |
|
 |
Kingkungfu
Inscrit le: 06 Mai 2006 Messages: 7
|
Posté le: 14 Mai 2006 21:09 Sujet du message: |
|
|
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 |
|
 |
Kingkungfu
Inscrit le: 06 Mai 2006 Messages: 7
|
Posté le: 15 Mai 2006 18:36 Sujet du message: |
|
|
Oui effectivement c'est plus simple
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 |
|
 |
|
|
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
|

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.
|