%裝載leleccum信號
load leleccum;  
s = leleccum(1:3920); 
%用小波函數db1對信號進行單尺度小波分解
[cA1,cD1]=dwt(s,'db1');   
subplot(3,1,1);
plot(s);
title('leleccum原始信號');
%單尺度低頻系數cA1向上一步的重構信號
A1 = upcoef('a',cA1,'db1');   
%單尺度高頻系數cD1向上一步的重構信號
D1 = upcoef('a',cD1,'db1');   
subplot(3,1,2);
plot(A1);
title('單尺度低頻系數cA1向上一步的重構信號');
subplot(3,1,3);
plot(D1);
title('單尺度高頻系數cD1向上一步的重構信號');