L-Z编码L-Z解码

对无记忆信源进行LZ编码，并解码。计算信源熵

function [entropy]=Entropy（seq）;
alpha（1）=seq（1）;
prob（1）=1;
L=length（seq）;
k=2;
for i=1:L
    idx=find（alpha==seq（i））;
    if isempty（idx）;
        alpha（k）=seq（i）;
        prob（k）=1;
        k=k+1;
    else
        prob（idx）=prob（idx）+1;
    end
end
prob=prob./L;
entropy=-prob.*log2（prob）;
entropy=sum（entropy（:））;
end
    

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        345  2009-09-28 14:49  Entropy.m

     文件        518  2009-09-28 15:16  lzcode.m

     文件        131  2009-09-28 13:42  lzdecode.m

     文件        136  2009-09-28 16:11  lzencode.m

     文件       1024  2009-09-29 13:35  lzmain.m

     文件       4991  2009-09-21 18:04  seq1.txt

----------- ---------  ---------- -----  ----

                 7145                    6