% 加載信號 
load leleccum; 
x = leleccum;
% 用db2小波包分解信號到第三次層 
% 使用Shannon熵 
wpt = wpdec(x,3,'db2','shannon');
% 對信號進行重構
rex = wprec(wpt)
subplot(211);
plot(x)
title('原始信號');
subplot(212);
plot(rex)
title('重構后的信號');