数据压缩代码(有注释)(共5页).doc

精选优质文档-倾情为你奉上霍夫曼二元编码% function h,l=huffman(p)clear;clc;p=0.1 0.3 0.05 0.09 0.21 0.25;%p=0.2 0.19 0.18 0.17 0.15 0.10 0.01;%测试用数据%检测概率有无数值小于0，小于0时报错if (length(find(p10e-10) error(Not a prob vector,component do not add to 1)endn=length(p);%检测有几个概率事件q=p;m=zeros(n-1,n); %生成0矩阵for i=1:n-1; q,l=sort(q);%对q进行升序排序，排序结果存放在q中，元素位置存放在l中。