|
clear
fs=1000
tspan=2
t=1/fs:1/fs:tspan;
N=length(t);
x=sin(2*pi*20*t);
y=sin(2*pi*60*t+140);
z=x+y;
plot(t,z)
imf=emd(z);
emd_visu(z,1:length(z),imf)
[A,f,tt]=hhspectrum(imf);
[im,tt]=toimage(A,f);
disp_hhs(im,tt);
colormap(flipud(gray))
[A,fa,tt]=hhspectrum(imf);
[E,tt1]=toimage(A,fa,tt,length(tt));
E=flipud(E);
for k=1:size(E,1)
bjp(k)=sum(E(k,:))*1/tspan*1/fs;
end
f=(0:N-3)/N*(fs/2);
figure (6)
plot(f,bjp);
xlabel('频率 / Hz');
ylabel('幅值');
这个效果实在太差了,大家看看为什么?邪门了,为什么分解不出来
[ 本帖最后由 zhangnan3509 于 2007-9-14 10:08 编辑 ] |
|