Delphi语言中实现离散傅立叶变换，请给点提示，多谢！

Question

想实现离散傅立叶变换，看了一些资料，都是VB C C++的，
delphi中如何实现，请给点提示！！！！！！

Answer 1

http://docs.dewresearch.com/MtxVecHelp/Base/IDH_TVec_Goertz.htmGoertz 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;
 

Answer 2

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

Answer 3

本贴已经结贴。多谢aiirii(ari-爱的眼睛) ： phy(被爱捶死) ： wintergoes(要马尼有什么用?)