基本信息
源码名称:时频分布S-method
源码大小:1.16M
文件格式:.zip
开发语言:MATLAB
更新时间:2020-10-04
友情提示:(无需注册或充值,赞助后即可获取资源下载链接)
嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):813200300
本次赞助数额为: 2 元×
微信扫码支付:2 元
×
请留下您的邮箱,我们将在2小时内将文件发到您的邮箱
源码介绍
介于WVD和STFT之间的时频分布:S-method
% This program illustrates Figure 3 in lecture note
% "From the STFT to the Wigner Distributon",
% by L. Stankovic, S. Stankovic, M.Dakovic
% in IEEE Signal Processing Magazine
clear all, close all
N=128; % window width
win=[0 (hanning(N-1))']; Ew=sum(win.^2)/N;
STFT=[];
for n=0:4:256
x=signal_2(n,N);
STFT=[STFT,fftshift(fft(fftshift([zeros(1,N/2), x.*win, zeros(1,N/2)]))).'];
end
STFT=STFT(N 1:2*N,:); %STFT positive frequencies
STFT=STFT/sqrt(Ew)/N; %Normalization for the plot
IG=0;
%Time-frequency varying number of terms
for Q=[100 10 1 0]; %Correction level [%]: spectrogram Q=100, WD Q=0, Q=1, Suggested
SM=SM_calc_TF(STFT,Q);
IG=IG 1;
%Graphics
[N,K]=size(STFT);
subplot(2,2,IG),, waterfall(SM'), view([-5 55]), colormap([0 0 0]),
axis([0 N 0 K -0.5*(15000-Q^2)/15000 1*(15000-Q^2)/15000])
Meas=sum(sum(abs(SM).^0.5))/sum(sum(SM));
title(['Q=',num2str(Q),'[%], \mu[SM]=',num2str(Meas)]),
end
介于WVD和STFT之间的时频分布:S-method
% This program illustrates Figure 3 in lecture note
% "From the STFT to the Wigner Distributon",
% by L. Stankovic, S. Stankovic, M.Dakovic
% in IEEE Signal Processing Magazine
clear all, close all
N=128; % window width
win=[0 (hanning(N-1))']; Ew=sum(win.^2)/N;
STFT=[];
for n=0:4:256
x=signal_2(n,N);
STFT=[STFT,fftshift(fft(fftshift([zeros(1,N/2), x.*win, zeros(1,N/2)]))).'];
end
STFT=STFT(N 1:2*N,:); %STFT positive frequencies
STFT=STFT/sqrt(Ew)/N; %Normalization for the plot
IG=0;
%Time-frequency varying number of terms
for Q=[100 10 1 0]; %Correction level [%]: spectrogram Q=100, WD Q=0, Q=1, Suggested
SM=SM_calc_TF(STFT,Q);
IG=IG 1;
%Graphics
[N,K]=size(STFT);
subplot(2,2,IG),, waterfall(SM'), view([-5 55]), colormap([0 0 0]),
axis([0 N 0 K -0.5*(15000-Q^2)/15000 1*(15000-Q^2)/15000])
Meas=sum(sum(abs(SM).^0.5))/sum(sum(SM));
title(['Q=',num2str(Q),'[%], \mu[SM]=',num2str(Meas)]),
end