www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/@wptree/wp2wtree.m

    function [wpt,n2m] = wp2wtree(wpt)
%WP2WTREE Extract wavelet tree from wavelet packet tree.
%   T = WP2WTREE(T) computes the modified tree T
%   corresponding to the wavelet decomposition tree.
%
%   See also WPDEC, WPDEC2.

%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
%   Last Revision: 23-May-2003.
%   Copyright 1995-2004 The MathWorks, Inc.

depth = treedpth(wpt);
if depth==0
    n2m = [];
    return
end
order = treeord(wpt);
nottn = noleaves(wpt,'dp');
K     = 0<nottn(:,2) & nottn(:,2)<order;
n2m   = depo2ind(order,nottn(K,:));
wpt   = nodejoin(wpt,n2m);