huffman.m

包含完整的程序代码

function CODE=huffman(p)
%检查输入参数
global CODE
error(nargchk(1,1,nargin));
if (ndims(p)~=2)|(min(size(p))>1|~isreal(p)|~isnumeric(p))
error('P 必须是实向量');
end
CODE=cell(length(p),1);
if length(p)>1
p=p/sum(p);
s=reduce(p);
makecode(s,[]);
else
CODE={'1'};
end;

% celldisp(s);
% cellplot(s);