用希尔伯特黄变换HHT求时频谱和边际谱Word格式文档下载.docx
- 文档编号:6478550
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:15
- 大小:453.37KB
用希尔伯特黄变换HHT求时频谱和边际谱Word格式文档下载.docx
《用希尔伯特黄变换HHT求时频谱和边际谱Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《用希尔伯特黄变换HHT求时频谱和边际谱Word格式文档下载.docx(15页珍藏版)》请在冰点文库上搜索。
=-200&
t<
=-200+N1*deta).*sin(w1*t)+(t>
-200+N1*deta&
=-200+N2*deta).*sin(w2*t)+(t>
-200+N2*deta&
=200).*sin(w3*t);
y=x;
m=0:
N-1;
f=1./(N*deta)*m;
%可以查看课本就是这样定义横坐标频率范围的
%下面计算的Y就是x(t)的傅里叶变换数值
%Y=exp(i*4*pi*f).*fft(y)%将计算出来的频谱乘以exp(i*4*pi*f)得到频移后[-2,2]之间的频谱值
Y=fft(y);
z=sqrt(Y.*conj(Y));
plot(f(1:
100),z(1:
100));
title('
幅频曲线'
)
xiangwei=angle(Y);
figure
(2)
plot(f,xiangwei)
相频曲线'
figure(3)
plot(t,y,'
r'
%axis([-2,2,0,1.2])
原始信号'
(2)用Hilbert变换直接求该信号的瞬时频率
clf;
%假设待分析的函数是z=t^3
fs=1/deta;
z=x;
hx=hilbert(z);
xr=real(hx);
xi=imag(hx);
%计算瞬时振幅
sz=sqrt(xr.^2+xi.^2);
%计算瞬时相位
sx=angle(hx);
%计算瞬时频率
dt=diff(t);
dx=diff(sx);
sp=dx./dt;
plot(t(1:
N-1),sp)
瞬时频率'
小结:
傅里叶变换不能得到瞬时频率,即不能得到某个时刻的频率值。
Hilbert变换是求取瞬时频率的方法,但如果只用Hilbert变换求出来的瞬时频率也不准确。
(出现负频,实际上负频没有意义!
(3)用HHT求取信号的时频谱与边际谱
functionHHT
c=emd(z);
%计算每个IMF分量及最后一个剩余分量residual与原始信号的相关性
[m,n]=size(c);
fori=1:
m;
a=corrcoef(c(i,:
),z);
xg(i)=a(1,2);
end
xg;
m-1
%--------------------------------------------------------------------
%计算各IMF的方差贡献率
%定义:
方差为平方的均值减去均值的平方
%均值的平方
%imfp2=mean(c(i,:
),2).^2
%平方的均值
%imf2p=mean(c(i,:
).^2,2)
%各个IMF的方差
mse(i)=mean(c(i,:
).^2,2)-mean(c(i,:
),2).^2;
end;
mmse=sum(mse);
%方差百分比,也就是方差贡献率
mseb(i)=mse(i)/mmse*100;
%显示各个IMF的方差和贡献率
%画出每个IMF分量及最后一个剩余分量residual的图形
figure
(1)
disp(['
imf'
int2str(i)]);
disp([mse(i)mseb(i)]);
subplot(m+1,1,1)
plot(t,z)
set(gca,'
fontname'
'
timesNewRoman'
fontsize'
14.0)
ylabel(['
signal'
Amplitude'
])
subplot(m+1,1,i+1);
set(gcf,'
color'
w'
plot(t,c(i,:
),'
k'
int2str(i)])
subplot(m+1,1,m+1);
plot(t,c(m,:
int2str(m-1)])
%画出每个IMF分量及剩余分量residual的幅频曲线
[f,z]=fftfenxi(t,z);
plot(f,z,'
initialsignal'
int2str(m-1),'
[f,z]=fftfenxi(t,c(i,:
));
int2str(i),'
[f,z]=fftfenxi(t,c(m,:
figure(6)
%计算HHT时频谱和边际谱
[A,fa,tt]=hhspectrum(c);
[E,tt1]=toimage(A,fa,tt,length(tt));
disp_hhs(E,tt1)%二维图显示HHT时频谱,E是求得的HHT谱
pause
figure(4)
size(c,1)
faa=fa(i,:
);
[FA,TT1]=meshgrid(faa,tt1);
%三维图显示HHT时频图
surf(FA,TT1,E)
HHT时频谱三维显示'
holdon
holdoff
E=flipud(E);
fork=1:
size(E,1)
bjp(k)=sum(E(k,:
))*1/fs;
f=(1:
N-2)/N*(fs/2);
figure(5)
plot(f,bjp);
xlabel('
频率/Hz'
ylabel('
信号幅值'
信号边际谱'
)%要求边际谱必须先对信号进行EMD分解
function[A,f,tt]=hhspectrum(x,t,l,aff)
error(nargchk(1,4,nargin));
ifnargin<
2
t=1:
size(x,2);
3
l=1;
4
aff=0;
ifmin(size(x))==1
ifsize(x,2)==1
x=x'
;
t=1:
Nmodes=1;
else
Nmodes=size(x,1);
lt=length(t);
tt=t((l+1):
(lt-l));
Nmodes
an(i,:
)=hilbert(x(i,:
)'
f(i,:
)=instfreq(an(i,:
tt,l)'
A=abs(an(:
l+1:
end-l));
ifaff
disprog(i,Nmodes,max(Nmodes,100))
functiondisp_hhs(im,t,inf)
%DISP_HHS(im,t,inf)
%displaysinanewfigurethespectrumcontainedinmatrix"
im"
%(amplitudesinlog).
%
%inputs:
-im:
imagematrix(e.g.,outputof"
toimage"
%-t(optional):
timeinstants(e.g.,outputof"
)
%-inf(optional):
-dynamicrangeindB(wrtmax)
%default:
inf=-20
%utilisation:
disp_hhs(im);
disp_hhs(im,t);
disp_hhs(im,inf)
%disp_hhs(im,t,inf)
figure
colormap(bone)
colormap(1-colormap);
ifnargin==1
inf=-20;
size(im,2);
ifnargin==2
iflength(t)==1
inf=t;
inf=-20;
ifinf>
=0
error('
infdoitetre<
0'
M=max(max(im));
im=log10(im/M+1e-300);
inf=inf/10;
imagesc(t,fliplr((1:
size(im,1))/(2*size(im,1))),im,[inf,0]);
YDir'
normal'
xlabel(['
time'
normalizedfrequency'
Hilbert-Huangspectrum'
function[f,z]=fftfenxi(t,y)
L=length(t);
N=2^nextpow2(L);
t=linspace(t
(1),t(L),N);
4.总结。
(1)边际谱与傅里叶谱的比较:
意义不同:
边际谱从统计意义上表征了整组数据每个频率点的累积幅值分布,而傅里叶频谱的某一点频率上的幅值表示在整个信号里有一个含有此频率的三角函数组分。
作用不同:
边际谱可以处理非平稳信号,如果信号中存在某一频率的能量出现,就表示一定有该频率的振动波出现,也就是说,边际谱能比较准确地反映信号的实际频率成分。
而傅里叶变换只能处理平稳信号。
(2)HHT与Hilbert变换的比较:
Hilbert变换只是单纯地求信号的瞬时振幅,频率和相位,有可能出现没有意义的负频率;
HHT变换先将信号进行EMD分解,得到的是各个不同尺度的分量,对每一个分量进行Hilbert变换后得到的是有实际意义的瞬时频率。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 希尔伯特 变换 HHT 频谱 边际
![提示](https://static.bingdoc.com/images/bang_tan.gif)