Huffman Encoding

clear all;

clc;

n=5; % no. of inputs

disp(Probabilities of messages:);

p=[0.4 0.2 0.1 0.2 0.1];disp(p);

s=1:n;

[dict,avglen]=huffmandict(s,p);

disp('Huffman Dicitionary :');disp(dict);

disp('Huffman bit length :');disp(avglen);

temp = dict;

for i=1:length(temp)

temp{i,2}=num2str(temp{i,2});

end

disp(temp);

sig=[1 3 4 2];

disp('String of message:');disp(sig);

disp('Huffman codes for given messages:');

sc=huffmanenco(sig,dict);disp(sc);

disp('Received bit string:');

mr=[1 0 0 1 1 0 1 0 0 0];

mo=huffmandeco(mr,dict);

disp(mo);

err=isequal(sig,mo);

if err==1

disp(Message recovered correctly);

else

disp(Error in decoding);

end