p202.m

来自「在傅立叶变换时加入适当的时间窗」· M 代码 · 共 33 行

clear
k=4;T=5;
fc=k*T;
fs=4*fc;
Ts=1/fs;
N=T/Ts;
x=zeros(1,N);
t=0:N-1;
x=2*cos(k*pi*(t*Ts).^2);%与上例有异
subplot(2,2,1);
plot(t*Ts,real(x));
X=fft(x);
X=fftshift(X);   %比上例增加
subplot(2,2,2);
plot((t-N/2)*fs/N,abs(X));
Nw=20;
L=Nw/2;
Tn=(N-Nw)/L+1;
nfft=32;
TF=zeros(Tn,nfft);
for i=1:Tn
    xw=x((i-1)*10+1:i*10+10);
    temp=fft(xw,nfft);
    temp=fftshift(temp);
    TF(i,:)=temp;
end
subplot(2,2,3);
fnew=((1:nfft)-nfft/2)*fs/nfft;
tnew=(1:Tn)*L*Ts;
[F,T]=meshgrid(fnew,tnew);
mesh(F,T,abs(TF));
subplot(2,2,4);
contour(F,T,abs(TF)) % ok