%裝載源信號
load noisbump;
s=noisbump(1:1000);
subplot(2,1,1);
plot(s);
title('原始信號');
%==============================
%采用默認(rèn)閾值，以小波包函數(shù)wpdencmp對s進行壓縮處理
[thr,sorh,keepapp,crit]=ddencmp('cmp','wp',s);
[sc,treed,perf0,perfl2]=...
    wpdencmp(s,sorh,3,'db2',crit,thr,keepapp);
subplot(2,1,2);
plot(sc);
title('壓縮后的信號');