% 使用Haar小波，得到相應的提升方案
lshaar = liftwave('haar');
% 添加ELS 到提升方案
els = {'p',[-0.125 0.125],0};
lsnew = addlift(lshaar,els);
% 對于簡單信號，尺度為1進行LWT
x = 1:8;
[cA,cD] = lwt(x,lsnew);
% 對上面的信號，進行整數LWT
lshaarInt = liftwave('haar','int2int');
lsnewInt = addlift(lshaarInt,els);
[cAint,cDint] = lwt(x,lsnewInt);
% 進行逆變換
xRec = ilwt(cA,cD,lsnew);
err = max(max(abs(x-xRec)))
xRecInt = ilwt(cAint,cDint,lsnewInt);
errInt = max(max(abs(x-xRecInt)))