program_10_15.m

这是基于MATLAB系统上开发的,应用于小波分析方面,很有用的程序模块,书名为"MATLAB在小波分析中的应用"

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