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