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