% 使用Haar小波，得到相應的提升方案
lshaar = liftwave('haar');
% 添加ELS 到提升方案
els = {'p',[-0.125 0.125],0};
lsnew = addlift(lshaar,els);
% 對于簡單信號，進行2層LWT
x = 1:8;
xDec = lwt(x,lsnew,2)
% 提取尺度為1時的低頻系數
ca1 = lwtcoef('ca',xDec,lsnew,2,1)
% 重構低頻和高頻
a1 = lwtcoef('a',xDec,lsnew,2,1)
a2 = lwtcoef('a',xDec,lsnew,2,2)
d1 = lwtcoef('d',xDec,lsnew,2,1)
d2 = lwtcoef('d',xDec,lsnew,2,2)
% 檢查重構效果
err = max(abs(x-a2-d2-d1))