© 1999-2048 dssz.net 粤ICP备11031372号
[VB] FFT,快速傅里也变换
说明: fft程序, Dim REX(512) 'REX[ ] holds the real part of the frequency domain Dim IMX(512) 'IMX[ ] holds the imaginary part of the frequency domain Const N = 512 Public Sub fft() pi = 3.14159265 'Set constants 1000 'THE FAST FOURIER TRANSFORM 'copyright ©<carlhours> 上传 | 大小:14kb