exam10_14.m

小波变换的例子

clc;
clear;
% 载入一维原始信号
load noisbloc; s = noisbloc;
% 画出原始信号
subplot(4,1,1);plot(s);title('原始信号');
% 使用db1进行在第3层SWT分解.
[swa,swd] = swt(s,3,'db1');
% 画出从1～3层离散小波变换的低频系数和高频系数
subplot(4,2,3);plot(swa(3,:));title('第3层低频系数');
subplot(4,2,5);plot(swa(2,:));title('第2层低频系数');
subplot(4,2,7);plot(swa(1,:));title('第1层低频系数');
subplot(4,2,4);plot(swd(3,:));title('第3层高频系数');
subplot(4,2,6);plot(swd(2,:));title('第2层高频系数');
subplot(4,2,8);plot(swd(1,:));title('第1层高频系数');