Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_FFT
Erstellt die schnelle Fourier-Transformation aus den übergebenen Realteil- und Imaginärteil-Arrays.
Die Realteil- und Imaginärteil-Array müssen als Länge eine 2er-Potenz haben.
Rückgabewert ist ein Array dessen erste Hälfte den Realteil und die zweite Hälfte den Imaginärteil beinhaltet.
Dim rt(0 To 255) As Double
Dim it(0 To 255) As Double
Dim fft As Variant
Dim i As Integer
For i = 0 To 255
it(i) = 0
rt(i) = Sin(i)
Next
fft = CNCL_FFT(rt,it)
For i = 0 To 127
Print CNCL_Round(sqr(fft(i)^2+fft(i+256)^2)/128, 3)
Next
Ausgabe:
.011
.011
.011
.011
.011
.012
.012
.012
.012
.012
.012
.012
.012
.013
.013
.013
.013
.014
.014
.014
.015
.015
.016
.017
.017
.018
.019
.02
.021
.023
.025
.027
.029
.033
.037
.043
.051
.064
.087
.135
.312
.892
.18
.099
.068
.051
.041
.034
.029
.025
.022
.02
.018
.016
.015
.014
.013
.012
.011
.01
.01
.009
.009
.
.
.
.
.002
.002
.002
.002
.002
.002
.002
.002
.002