Matlab小波工具箱Wavelet toolbox

本资源是Matlab中小波分析工具箱，包含了Modwt（极大重叠离散小波变换等），来自2016版本的matlab，函数较为丰富

function  [HC_CellHC_StrAll_CellMean_Len] = built_huffcode（COUNT）
%BUILT_HUFFCODE Huffman coding.
%    [HC_CELLHC_STRALL_CELLMEAN_LEN] = BUILT_HUFFCODE（COUNT）
%
%    COUNT is an array such that COUNT（I） gives the count for 
%    the Ith symbol to be coded.
%
%    HC_CELL is a cell array such that HC_CELL{I} is a
%    binary string which represants the code of the Ith symbol
%    to be coded.
%
%    HC_STR is a string which contains all the Huffman codes.
%    The binary strings are separated by the symbol ‘2‘.
%
%    ALL_CELL is a cell array such that:
%      ALL_CELL{K1} contains a symbol number.
%      ALL_CELL{K2} contains the corresponding binary string code.
%      ALL_CELL{K3} contains the corresponding count.
%
%    MEAN_LEN gives the mean value of length of the binary
%    strings code. 
%
%    Examples:
%      COUNT = round（100*rand（115））
%      [HC_CellHC_StrAll_CellMean_Len] = built_huffcode（COUNT）
%
%      COUNT = round（abs（25*randn（130）））
%      [HC_CellHC_StrAll_CellMean_Len] = built_huffcode（COUNT）

%   M. Misiti Y. Misiti G. Oppenheim J.M. Poggi 23-Jul-2001.
%   Last Revision: 05-Apr-2008.
%   Copyright 1995-2008 The MathWorks Inc.

nb_SYMB = length（COUNT）;
B = [ （1:nb_SYMB）‘ COUNT（:）];
B（COUNT==0:） = [];
NB_True_CODE = size（B1）;
All_Cell = num2cell（B）;
while size（All_Cell1）>1
    [dumidx] = sort（cat（1All_Cell{:2}））; %#ok
    All_Cell = All_Cell（idx:）;
    All_Cell{21} = {All_Cell{11}  All_Cell{21}};
    All_Cell{22} = All_Cell{12} + All_Cell{22};
    All_Cell（1:） = [];
end
All_Cell{12} = ‘‘;
IH = 1;
while IH    if iscell（All_Cell{IH1}）
        C = All_Cell{IH2};
        All_Cell（end+1:） = {All_Cell{IH1}{1}  [C‘1‘]}; %#ok
        All_Cell（end+1:） = {All_Cell{IH1}{2}  [C‘0‘]}; %#ok
        All_Cell（IH:） = [];
    else
        IH = IH+1;
    end
end
[dumidx] = sortrows（cat（1All_Cell{:1}）1）; %#ok
All_Cell_SORTED_C1 = All_Cell（idx:）;
%---------------------------------------------
% Code sorted by length
% All_Cell_SORTED_C2 = sortrows（All_Cell2）;
%---------------------------------------------
I = cat（1All_Cell_SORTED_C1{:1}）;
HC_Cell = cell（nb_SYMB1）;
HC_Cell（I） = All_Cell_SORTED_C1（:2）;
HC_Str = HC_Cell;
for k = 1:length（HC_Str）  HC_Str{k} = [HC_Str{k}  ‘2‘]; end
HC_Str = cat（2HC_Str{:}）;

if nargout>2
    idx = cat（2All_Cell{:1}）;
    B =  num2cell（COUNT（idx））‘;
    All_Cell（:3） = B;
    if nargout>3
        N = 0;
        S = 0;
        for k = 1:size（All_Cell1）
            N = N + All_Cell{k3};
            S = S + length（All_Cell{k2}）*All_Cell{k3};
        end
        Mean_Len = S/N;
    end
end

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

     文件       2668  2013-05-23 17:02  wavelet\compression\built_huffcode.m

     文件       7108  2013-05-23 17:02  wavelet\compression\bwc_algo.m

     文件        430  2013-05-23 17:03  wavelet\compression\def_tmpfile.m

     文件        540  2008-05-09 17:05  wavelet\compression\exp_compRat_aswdr_BW.mat

     文件        569  2008-05-09 17:05  wavelet\compression\exp_compRat_aswdr_COL.mat

     文件        524  2008-05-09 17:05  wavelet\compression\exp_compRat_ezw_BW.mat

     文件        568  2008-05-09 17:05  wavelet\compression\exp_compRat_ezw_COL.mat

     文件       6371  2008-05-09 17:05  wavelet\compression\exp_compRat_gbl_f.mat

     文件       8355  2008-05-09 17:05  wavelet\compression\exp_compRat_gbl_h.mat

     文件       6501  2008-05-09 17:05  wavelet\compression\exp_compRat_lvl.mat

     文件      31421  2008-05-09 17:05  wavelet\compression\exp_compRat_lvl_BIS.mat

     文件        523  2008-05-09 17:05  wavelet\compression\exp_compRat_spiht_3d_BW.mat

     文件        548  2008-05-09 17:05  wavelet\compression\exp_compRat_spiht_3d_COL.mat

     文件        520  2008-05-09 17:05  wavelet\compression\exp_compRat_spiht_BW.mat

     文件        567  2008-05-09 17:05  wavelet\compression\exp_compRat_spiht_COL.mat

     文件        534  2008-05-09 17:05  wavelet\compression\exp_compRat_stw_BW.mat

     文件        572  2008-05-09 17:05  wavelet\compression\exp_compRat_stw_COL.mat

     文件        534  2008-05-09 17:05  wavelet\compression\exp_compRat_wdr_BW.mat

     文件        583  2008-05-09 17:05  wavelet\compression\exp_compRat_wdr_COL.mat

     文件       4792  2013-05-23 17:03  wavelet\compression\getcompresspar.m

     文件        594  2013-05-23 17:03  wavelet\compression\getsizes.m

     文件       3263  2013-05-23 17:03  wavelet\compression\modify_wtcfile.m

     文件        598  2013-10-04 09:26  wavelet\compression\psnr_mse_maxerr.m

     文件       2782  2013-05-23 17:03  wavelet\compression\significant_map.m

     文件       1702  2013-05-23 17:03  wavelet\compression\test_step_by_step.m

     文件      51850  2013-08-21 17:01  wavelet\compression\wc2dtool.fig

     文件      89762  2013-06-30 11:13  wavelet\compression\wc2dtool.m

     文件        916  2013-05-23 17:03  wavelet\compression\wcfs2mat.m

     文件      19556  2013-05-23 17:03  wavelet\compression\wcompress.m

     文件       1963  2013-05-23 17:03  wavelet\compression\wconvimg.m

............此处省略1147个文件信息