% 當前延拓模式是補零
% 裝載原始信號
load sumlichr; x = sumlichr;
subplot(211), plot(x);
title('原始信號')
% 使用wpdencmp函數進行信號分解
% 尋找默認值（參見ddencmp函數）
[thr,sorh,keepapp,crit] = ddencmp('cmp','wp',x)
% 使用全局閾值進行壓縮
[xc,treed,perf0,perfl2] =wpdencmp(x,sorh,3,'db2',crit,thr,keepapp);
subplot(212),plot(xc);
title('壓縮后信號');