clc;
clear;
% 裝載一維信號
load noisbloc; s = noisbloc;
% 畫出原始信號
subplot(311);
plot(s);
title('原始信號.');    
% 使用db1在第3層進行SWT分解
swc = swt(s,3,'db1');
% 第2種實現方法.
[swa,swd] = swt(s,3,'db1');
% 從平穩小波分解結構swc中，重構s
a0 = iswt(swc,'db1');
% 畫出原始信號
subplot(312);
plot(a0);
title('重構信號1.'); 
% 第2種實現方法
a0bis = iswt(swa,swd,'db1');
% 畫出原始信號
subplot(313);
plot(a0bis);
title('重構信號2.'); 
% 檢查重構的效果
err = norm(s-a0)
errbis = norm(s-a0bis)