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