|
回复 #12 zhlong 的帖子
算了 我还是再贴一次吧!省得怨声载道了 哈哈!
事先说好了,这效果不是对每一组数据都好,但是能画出来,希望大家能把rilling的程序作出来,给大家瞅瞅。
imf=emd(s1);
[m,n]=size(imf);
for i=1:m
subplot(m,1,i);
plot(imf(i,:));
end
figure(3)
dt=1/f;
h = nspab(imf',500,0,500,dt);
subplot(211)
surf(h(1:200,50:end-20))
shading interp
xlabel('时间(点数)','FontSize',12);
Ylabel('频率(Hz)','FontSize',12);
zlabel('幅值','FontSize',12);
title('a','FontSize',12)
view([-75,25])
yt=subplot(223)
imagesc(h(1:200,:))
Ylabel('频率(Hz)','FontSize',12);
xlabel('时间(点数)','FontSize',12);
set(yt,'ydir','nor')
title('b','FontSize',12)
ms=mspc(h)
subplot(224)
plot((1:length(ms)),ms)
xlabel('频率(Hz)','FontSize',12);
ylabel('幅值','FontSize',12);
title('c','FontSize',12) |
|