کار با کتابخانه fft

[solmos36 69]

با سلام خدمت دوستان کسی بلده یا قطعه کدی داره که کتابخانه fft چطور کار میکنه ...ممنون میشم راهنمایی کنید

[مهدی ایزدی 9,203]

درود

یک Sample داشتم که براتون پیوست کردم

 

Fast Fourier Transforms1.0.rar

[Elyas Erfani 3,582]

سلام دوست خوبم

 

http://www.b4x.com/android/help/fft.html

 

http://www.b4x.com/android/forum/threads/fft-fast-fourier-transform-library.6989/page-2

Dim N As Int

N = 16384

Dim sound (N) As Byte
Dim SoundD (N) As Double

DataSize = 0
Log ("Sample ...")
Do While True
As Int Dim Sum
AR.ReadBytes sound = (0, BufferSize)
DataSize = DataSize + Sound.length

If Record.IsInterrupted Then Exit

If DateTime.Now> StartTime + "1000" Then Exit
Loop

For cont = 0 To Sound.length - 1
SoundD (cont) = sound (cont)
Next

As Dim FFT FFT
Dim FFTReal (N / 2) As Double
Dim FFTImg (N / 2) As Double
Dim FFTAmp (N / 2) As Double
FFT.Transform2 (Soundd, FFTReal, FFTImg)
FFTAmp = FFT.ToAmplitude (FFTReal, FFTImg)


As Int Dim Freq
For cont = 0 To Sound.length - 1


Freq = f = 1 / T) ¿¿¿ T ??? 
Log ("FREQ:" & Freq)

Next

End Sub

[solmos36 69]

درود

یک Sample داشتم که براتون پیوست کردم

سلام ممنون دوست من

[solmos36 69]

 

سلام دوست خوبم

 

http://www.b4x.com/android/help/fft.html

 

http://www.b4x.com/android/forum/threads/fft-fast-fourier-transform-library.6989/page-2

Dim N As Int

N = 16384

Dim sound (N) As Byte
Dim SoundD (N) As Double

DataSize = 0
Log ("Sample ...")
Do While True
As Int Dim Sum
AR.ReadBytes sound = (0, BufferSize)
DataSize = DataSize + Sound.length

If Record.IsInterrupted Then Exit

If DateTime.Now> StartTime + "1000" Then Exit
Loop

For cont = 0 To Sound.length - 1
SoundD (cont) = sound (cont)
Next

As Dim FFT FFT
Dim FFTReal (N / 2) As Double
Dim FFTImg (N / 2) As Double
Dim FFTAmp (N / 2) As Double
FFT.Transform2 (Soundd, FFTReal, FFTImg)
FFTAmp = FFT.ToAmplitude (FFTReal, FFTImg)


As Int Dim Freq
For cont = 0 To Sound.length - 1


Freq = f = 1 / T) ¿¿¿ T ??? 
Log ("FREQ:" & Freq)

Next

End Sub

 

 

سلام دوست خوبم

 

http://www.b4x.com/android/help/fft.html

 

http://www.b4x.com/android/forum/threads/fft-fast-fourier-transform-library.6989/page-2

Dim N As Int

N = 16384

Dim sound (N) As Byte
Dim SoundD (N) As Double

DataSize = 0
Log ("Sample ...")
Do While True
As Int Dim Sum
AR.ReadBytes sound = (0, BufferSize)
DataSize = DataSize + Sound.length

If Record.IsInterrupted Then Exit

If DateTime.Now> StartTime + "1000" Then Exit
Loop

For cont = 0 To Sound.length - 1
SoundD (cont) = sound (cont)
Next

As Dim FFT FFT
Dim FFTReal (N / 2) As Double
Dim FFTImg (N / 2) As Double
Dim FFTAmp (N / 2) As Double
FFT.Transform2 (Soundd, FFTReal, FFTImg)
FFTAmp = FFT.ToAmplitude (FFTReal, FFTImg)


As Int Dim Freq
For cont = 0 To Sound.length - 1


Freq = f = 1 / T) ¿¿¿ T ??? 
Log ("FREQ:" & Freq)

Next

End Sub

like