24小时热门版块排行榜    

查看: 421  |  回复: 3
当前主题已经存档。

loulou85

铜虫 (正式写手)

[交流] 【求助】傅里叶变换

我们用的是采集卡采集连续信号,采样率25MHZ,采集数据10000个,采集完后保存到文本文档,这10000个点只有100个点是信号,其余的都是幅值0左右的噪声,我想做这个信号的傅里叶变换,请教这个程序哪里有问题
数据已经读取到h1,上面的程序不再写了

for i=1:dtnum
x2=h1(i,[1000:2000]);
   k=10000;
   x2k=fft(x2,20000);
   y=abs(x2k);
   f=(0:length(x2k)-1)'*2.5*10^8/length(x2k);
subplot(2,1,2)
plot(f,y);
title('频谱')
axis([0, 1*10^7, 0, 2*10^4])
xlabel('Hz')
  i=i+1;
   
end
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qianbh

至尊木虫 (著名写手)

★ ★ ★ ★ ★ ★ ★ ★
loulou85(金币+2,VIP+0):没用过vb呀 最好是matlab的 3-29 09:55
loulou85(金币+6,VIP+0):333333 4-7 20:36
提供一个本人用过的VB程序
'☆供分析调用的程序——FOUR1的过程☆
Public Sub FOUR1(DATA() As Double, NN As Integer, ISIGN As Integer)
      N = 2 * NN
      j = 1
      For I = 1 To N Step 2
          If j > I Then
              TempR = DATA(j)
              TempI = DATA(j + 1)
              DATA(j) = DATA(I)
              DATA(j + 1) = DATA(I + 1)
              DATA(I) = TempR
              DATA(I + 1) = TempI
          End If
          M = N / 2
          While M >= 2 And j > M
              j = j - M
              M = M / 2
          Wend
          j = j + M
      Next I
      Mmax = 2
      While N > Mmax
          Istep = 2 * Mmax
          Theta = 6.28318530717959 / (ISIGN * Mmax)
          Wpr = -2# * Sin(0.5 * Theta) ^ 2
          Wpi = Sin(Theta)
          Wr = 1#
          Wi = 0#
          For M = 1 To Mmax Step 2
              For I = M To N Step Istep
                  j = I + Mmax
                  TempR = CSng(Wr) * DATA(j) - CSng(Wi) * DATA(j + 1)
                  TempI = CSng(Wr) * DATA(j + 1) + CSng(Wi) * DATA(j)
                  DATA(j) = DATA(I) - TempR
                  DATA(j + 1) = DATA(I + 1) - TempI
                  DATA(I) = DATA(I) + TempR
                  DATA(I + 1) = DATA(I + 1) + TempI
              Next I
              Wtemp = Wr
              Wr = Wr * Wpr - Wi * Wpi + Wr
              Wi = Wi * Wpr + Wtemp * Wpi + Wi
          Next M
          Mmax = Istep
      Wend
End Sub
2楼2009-03-29 08:59:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

loulou85

铜虫 (正式写手)

要matlab 不要vb
3楼2009-03-29 10:04:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guoyuanlg

银虫 (小有名气)

★ ★
loulou85(金币+2,VIP+0):3Q3Q 4-7 20:36
fft就可以吧!
4楼2009-04-03 15:59:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 loulou85 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 wsYGJnURYvm6 2026-08-31 4/200 2026-09-01 06:38 by o3EMxHUAQDtS
[考博] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 5/250 2026-09-01 05:45 by o3EMxHUAQDtS
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +6 gdd2018 2026-08-28 11/550 2026-08-30 08:58 by 超级无敌华子
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见