小波分析.信号重构去噪matlab源程序

clear;

load noissin;%装载原始noissin信号

s=noissin;

figure;

subplot(6,1,1);plot(s);

ylabel('s');

%使用db5小波对信号进行5层分解

[C,L]=wavedec(s,5,'db5');%实现多尺度一维离散小波变换函数for i=1:6

%对分解的第5层到第一层的低频系数进行重构

a=wrcoef('a',C,L,'db5',6-i);

subplot(6,1,i+1);plot(a);

ylabel(['a',num2str(6-i)]);

end

figure;

subplot(6,1,1);plot(s);

ylabel('s');

for i=1:6

%对分解的第5层到第一层的高频系数进行重构

d=wrcoef('d',C,L,'db5',6-i);

subplot(6,1,i+1);plot(d);

ylabel(['d',num2str(6-i)]);

end