求（短时傅立叶变换的程序）

xiaozuov · 发表于 2006-6-16 10:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

多谢！！！！！！！！！！！！！！！

特殊符号 · 发表于 2006-6-16 13:08

本帖最后由 wdhd 于 2016-9-14 10:22 编辑

　　我也需要，那位大哥有，小弟多谢了。

　　我的邮箱是：zhouql_0991@163.com

zhao197642 · 发表于 2006-6-16 20:03

论坛里有

zhao197642 · 发表于 2006-6-16 20:08

本帖最后由 wdhd 于 2016-9-14 10:22 编辑

　　x=exp(j*pi*k*t.^2)

　　clear,clc,close all

　　figure(1)

　　k=4;T=5;

　　fc=k*T;

　　fs=3*fc;

　　Ts=1/fs;

　　N=T/Ts;

　　x=zeros(1,N);

　　t=0:N-1;

　　x=exp(j*k*pi*(t*Ts).^2);

　　% x=awgn(x,-3,'measured');

　　subplot(221)

　　plot(t*Ts,real(x))

　　X=fft(x);

　　X=fftshift(X);

　　subplot(222)

　　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(223)

　　fnew=((1:nfft)-nfft/2)*fs/nfft;

　　tnew=(1:Tn)*L*Ts;

　　[F,T]=meshgrid(fnew,tnew);

　　mesh(F,T,abs(TF))

　　subplot(224)

　　contour(F,T,abs(TF))

xiaozuov · 发表于 2006-6-17 14:07

本帖最后由 wdhd 于 2016-9-14 10:23 编辑

　　多谢zhao19764

　　我的毕业设计还差这个程序了

simon21 · 发表于 2006-6-17 20:26

时频分析工具箱中就有

xiaozuov · 发表于 2006-6-17 22:46

本帖最后由 wdhd 于 2016-9-14 10:23 编辑

　　多谢哈

huanying8426 · 发表于 2007-6-11 13:44

多谢，找了好长时间了。

mlh_2002 · 发表于 2009-3-1 22:09

我就是需要这个来研究

账号		自动登录	找回密码
密码			我要加入

[其他] 求（短时傅立叶变换的程序）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

回复：（xiaozuov）求（短时傅立叶变换的程序）

回复：（simon21）回复：（xiaozuov）求（短时傅立叶变...