program_10_15.m

来自「基于小波分析理论研究的运用matlab R2007实现的程序代码」· M 代码 · 共 32 行

% 装载一维信号
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)