cpsynthesis.m

老外写的小波变换的工具箱

function x = CPSynthesis(basis,cp,bellname)
% CPSynthesis -- Synthesize signal from cosine packet table
%  Usage
%    x = CPSynthesis(btree,cp,bell)
%  Inputs
%    btree    basis tree indicating basis to work in
%    cp       cosine packet table
%    bell     name of orthonormal bell, defaults to 'Sine'
%  Outputs
%    x        signal whose cosine packet coeff's in
%             basis btree come from cp
% Examples
%   [n,D] = dyadlength(signal);
%   cp = CPAnalysis(signal,D);
%   stree = CalcStatTree(cp,'Entropy');
%   [btree,vtree] = BestBasis(stree,D);
%   signal2 = CPSynthesis(btree,cp); % signal == signal2
%   
%  See Also
%      CPAnalysis, CPTour, MakeONBell 
%
	[n,L] = size(cp);
	D = L-1;
%
% Create Bell
%
	if nargin < 3,
	  bellname = 'Sine';
	end
	m = n / 2^D /2;
	[bp,bm] = MakeONBell(bellname,m);
%
	x = zeros(1,n);
%
% initialize tree traversal stack
%
	stack = zeros(2,2^D+1);
	k = 1;
	stack(:,k) = [0 0 ]';
%
	while(k > 0),
		d = stack(1,k); b = stack(2,k);  k=k-1;
		if(basis(node(d,b)) ~= 0) ,  % nonterminal node
			   k = k+1; stack(:,k) = [(d+1) (2*b)  ]';
			   k = k+1; stack(:,k) = [(d+1) (2*b+1)]';
		 else
			   c = cp(packet(d,b,n),d+1)';
			   y = dct_iv(c);
			   [xc,xl,xr] = unfold(y,bp,bm);
			   x(packet(d,b,n)) = x(packet(d,b,n)) + xc;
			   if b>0,
				   x(packet(d,b-1,n)) = x(packet(d,b-1,n)) + xl;
			   else
			       x(packet(d,0,n))   = x(packet(d,0,n)) + edgeunfold('left',xc,bp,bm);
			   end
			   if b < 2^d-1,
				   x(packet(d,b+1,n)) = x(packet(d,b+1,n)) + xr;
			   else         
			       x(packet(d,b,n))   = x(packet(d,b,n)) + edgeunfold('right',xc,bp,bm);
			   end
		 end
	end

%
% Copyright (c) 1993. David L. Donoho
% 
    
    
 
 
%
%  Part of Wavelab Version 850
%  Built Tue Jan  3 13:20:40 EST 2006
%  This is Copyrighted Material
%  For Copying permissions see COPYING.m
%  Comments? e-mail [e-mail]