%-----------------------------------------------------------------
%   exa120504.m;    例12.5.4, 說明一維小波包的剪切、分割和組合     
%-----------------------------------------------------------------
clear;

load noisdopp;
x=noisdopp;

% 用db1小波包分解信號x到第3層
% 采用shannon熵的標準
wpTree=wpdec(x,3,'db1','shannon');
plot(wpTree);

%小波包的剪切,j=2
wTreeCut=wpcutree(wpTree,2);
plot(wTreeCut);

%重新分解小波包節點(3,0)
wTreeSplit=wpsplt(wpTree,[3,0]);
plot(wTreeSplit);

%重新組合小波包
wTreeJoin=wpjoin(wpTree,[2,3]);
plot(wTreeJoin);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%       一維小波包的分解和重建             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%