导航
  • 主页
  • VC综合技术
  • MFC新技术
  • 互联网技术
  • .NET 技术
  • VC/MFC界面
  • VC/MFC 进程
  • VC/MFC 数据库
  • VC++技术资源

关于反傅立叶变换

tigersky2000 2002-07-31 12:56:20
哪位老兄有反傅立叶变换的程序呀,贴出来看看好吗,或者发到我人信箱里面

tigersky2000@163.com

先谢了
...全文
9 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwglucky 2002-07-31
Sub FFT(n, xr(), xi(), inv)
Dim m, nv2, nm1, tr, TI
Dim i, j, k, l, le, le1, ip As Integer
Dim ur, ui, wr, wi, ur1, ui1



m = Log(n) / Log(2#) + 0.1
nv2 = n / 2: nm1 = n - 1
j = 1
For i = 1 To nm1
If i < j Then
tr = xr(j): TI = xi(j)
xr(j) = xr(i): xi(j) = xi(i)
xr(i) = tr: xi(i) = TI
End If
k = nv2
Do While k < j
j = j - k: k = k / 2
Loop
j = j + k
Next i
For l = 1 To m
le = 2 ^ l: le1 = le / 2
ur = 1#: ui = 0#
wr = Cos(PI / le1): wi = -Sin(PI / le1)
If inv <> 0 Then wi = Sin(PI / le1)
For j = 1 To le1
For i = j To n Step le
ip = i + le1
tr = xr(ip) * ur - xi(ip) * ui
TI = xr(ip) * ui + xi(ip) * ur
xr(ip) = xr(i) - tr
xi(ip) = xi(i) - TI
xr(i) = xr(i) + tr
xi(i) = xi(i) + TI
Next i
ur1 = ur * wr - ui * wi
ui1 = ur * wi + ui * wr
ur = ur1
ui = ui1
Next j
Next l
If inv <> 0 Then
For i = 1 To n
xr(i) = xr(i) / n: xi(i) = xi(i) / n
Next i
End If
End Sub
---------------------------------
UNFFT---没有
回复
发动态
发帖子
VC/MFC
创建于2007-09-28

1.5w+

社区成员

VC/MFC相关问题讨论
申请成为版主
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……