A
simple CFFT/CIFFT example:
Private Sub Perform_FFT()
Redim dataX(1024) as double
Redim datareal(1024) as double, Redim dataimaginaray(1024)
as double
Redim datarealp (1024) as double, Redim dataimaginarayp(1024)
as double
Dim i as long, N as long
' example data
N=1024
For i = 0 To N - 1
dataX(i)=CDBL(i)
datareal(i)
= 15.0 * Sin(2# * PI * dataX(i) * 12/N) _
+12.0 * Sin(2# * PI * dataX(i) * 20/N) _
+15.0 * Sin(2# * PI * dataX(i) * 30/N) _
+50.0*rnd-25
dataimaginary(i)
= 0.0
Next i
' take FFT of data
call FFTX1.CFFT(datareal(0), dataimaginary(0), number_of_data)
' take IFFT which will equal original dataset
call FFTX1.ICFFT(datareal(0), dataimaginary(0),
number_of_data)
end sub |