countlet变换，可以运行的，高手交流

counterlet变换，小波的多尺度变换的一种，可运行，不错

function y = backsamp（y）
% BACKSAMP    Backsampling the subband images of the directional filter bank
%
%   y = backsamp（y）
%
% Input and output are cell vector of dyadic length
%
% This function is called at the end of the DFBDEC to obtain subband images 
% with overall sampling as diagonal matrices
%
% See also: DFBDEC

% Number of decomposition tree levels
n = log2（length（y））;

if （n ~= round（n）） | （n < 1）
    error（‘Input must be a cell vector of dyadic length‘）;
end

if n == 1
    % One level the decomposition filterbank shoud be Q1r
    % Undo the last resampling （Q1r = R2 * D1 * R3）
    for k = 1:2
	y{k} = resamp（y{k} 4）;
	y{k}（: 1:2:end） = resamp（y{k}（: 1:2:end） 1）;
	y{k}（: 2:2:end） = resamp（y{k}（: 2:2:end） 1）;	
    end    
    
elseif n > 2    
    N = 2^（n-1）;
    
    for k = 1:2^（n-2）
	shift = 2*k - （2^（n-2） + 1）;
	
	% The first half channels
	y{2*k-1} = resamp（y{2*k-1} 3 shift）;
	y{2*k} = resamp（y{2*k} 3 shift）;
	
	% The second half channels
	y{2*k-1+N} = resamp（y{2*k-1+N} 1 shift）;
	y{2*k+N} = resamp（y{2*k+N} 1 shift）;	
    end
end

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

    .......      2390  2008-03-14 21:21  Contourlet\ChangeLog

    .......      5127  2008-03-14 21:21  Contourlet\computescale.m

    .......      3537  2008-03-14 21:21  Contourlet\Contents.m

    .......       706  2008-03-14 21:21  Contourlet\COPYING

     文件       2547  2008-07-13 22:17  Contourlet\denoisedemo.m

    .......      2223  2008-03-14 21:21  Contourlet\dfbdec.m

     文件       1785  2008-07-13 22:29  Contourlet\dfbdec_l.m

    .......      1748  2008-03-14 21:21  Contourlet\dfbimage.m

    .......      2012  2008-03-14 21:21  Contourlet\dfbrec.m

    .......      1736  2008-03-14 21:21  Contourlet\dfbrec_l.m

    .......      2729  2008-03-14 21:21  Contourlet\dfilters.m

    .......       755  2008-03-14 21:21  Contourlet\dup.m

    .......      1103  2008-03-14 21:21  Contourlet\efilter2.m

     文件       1862  2008-07-13 22:41  Contourlet\extend2.m

    .......      2098  2008-03-14 21:21  Contourlet\fbdec.m

    .......      1507  2008-03-14 21:21  Contourlet\fbdec_l.m

    .......      2360  2008-03-14 21:21  Contourlet\fbrec.m

    .......      1426  2008-03-14 21:21  Contourlet\fbrec_l.m

    .......       485  2008-03-14 21:21  Contourlet\ffilters.m

    .......       856  2008-03-14 21:21  Contourlet\ld2quin.m

    .......       662  2008-03-14 21:21  Contourlet\ldfilter.m

    .......       722  2008-03-14 21:21  Contourlet\lpdec.m

    .......       935  2008-03-14 21:21  Contourlet\lprec.m

    .......       882  2008-03-14 21:21  Contourlet\mctrans.m

    .......       775  2008-03-14 21:21  Contourlet\modulate2.m

    .......      1254  2008-03-14 21:21  Contourlet\pdfb2vec.m

    .......       931  2008-03-14 21:21  Contourlet\pdfb_nest.m

    .......      1254  2008-03-14 21:21  Contourlet\pdfb_tr.m

     文件       2692  2008-07-13 22:27  Contourlet\pdfbdec.m

    .......      1486  2008-03-14 21:21  Contourlet\pdfbrec.m

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