5,388
社区成员
发帖
与我相关
我的任务
分享Delphi语言中实现离散傅立叶变换，请给点提示，多谢！
想实现离散傅立叶变换，看了一些资料，都是VB C C++的，
delphi中如何实现，请给点提示！！！！！！
delphi中如何实现，请给点提示！！！！！！
...全文
请发表友善的回复…
发表回复
MichealLee 2004-07-07
- 打赏
- 举报
本贴已经结贴。多谢aiirii(ari-爱的眼睛) ： phy(被爱捶死) ： wintergoes(要马尼有什么用?)
aiirii 2004-07-07
- 打赏
- 举报
Complex mathematics for borland delphi v1.2
Complex mathematics for Delphi, including new complex datatype, arithmetic operators and mathematical functions like cExp, cLn, cSin etc. New features include the Discrete Fourier Transform and its inverse.
http://www.programmersheaven.com/zone2/cat265/16778.htm
Complex mathematics for Delphi, including new complex datatype, arithmetic operators and mathematical functions like cExp, cLn, cSin etc. New features include the Discrete Fourier Transform and its inverse.
http://www.programmersheaven.com/zone2/cat265/16778.htm
brallow 2004-07-07
- 打赏
- 举报
来迟了。。。来迟了。。。
aiirii 2004-07-07
- 打赏
- 举报
http://docs.dewresearch.com/MtxVecHelp/Base/IDH_TVec_Goertz.htm
Goertz Example
Amplt.Size(10);
a.InitGoertz(0.25);
for i := 0 to AMplt.Lenght-1 do
begin
a.SetIt(false,[i,i+1,i+2,i+3,i+4]);
Amplt[i] := CAbs(a.Goertz);
// returns the amplitude at the normalized frequency of 0.25
// Note that a is not power of two in length
end;
Goertz Example
Amplt.Size(10);
a.InitGoertz(0.25);
for i := 0 to AMplt.Lenght-1 do
begin
a.SetIt(false,[i,i+1,i+2,i+3,i+4]);
Amplt[i] := CAbs(a.Goertz);
// returns the amplitude at the normalized frequency of 0.25
// Note that a is not power of two in length
end;
wintergoes 2004-07-07
- 打赏
- 举报
大学的时候学过傅立叶变换,不过早就忘记了!
顶一顶吧还是.
顶一顶吧还是.
