www.pudn.com > 1.rar > myhilbert.m, change:2010-05-03,size:583b


function myhilbert(x) 
N=24680; 
fs=20000; 
%hilbert解调后画频域波形 
h=abs(hilbert(x)); 
H=h-mean(h); 
% y1=fft(H,N)/N; 
% y=2*abs(y1(1:N/2)); 
% B=20*log10((3600000*98*y)/(3.1415926*(500^2)*(0.05^0.6))*200/2000); 
% fx=(1:N/2)/N*fs; 
% figure('name','hilbert解调频域波形'); 
% plot(fx,B); 
% xlabel('频率'); 
% ylabel('分贝'); 
% axis([-inf,inf,0,100]); 
[Fx,Fy] = ZOOMFFT(H,fs,150,350); 
B=20*log10((3600000*98*Fy)/(3.1415926*(500^2)*(0.05^0.6))*200/2000); 
figure('name','hilbert解后zoomFFT频域波形分贝值'); 
plot(Fx,B); 
xlabel('频率'); 
ylabel('分贝'); 
axis([-inf,inf,0,100]);