%讀正弦信號 
load sinper8; 
x = sinper8;
figure(1);
plot(1:length(x),x);
% 7層harr小波包
% Shannon熵
wpt = wpdec(x,7,'haar','shannon');
%最優(yōu)基
T=besttree(wpt);
% 小波包結(jié)構(gòu)
plot(wpt);
%Harr小波基下的相平面
wpviewcf(wpt,1);
%最優(yōu)基下的相平面
wpviewcf(T,1);