请教:我是用VB编fft变的,可是输出是虚部为零,是我的输入格式不对吗?输入时,虚部是不是应该为零呀!
看你的贴子知道你很热心,我就指望你将我从困境中走出了。多谢!
Dim l As Integer           '采样点数
Dim xr(1024) As Double     '存放输入输出的实部
Dim xi(1024)  As Double    '存放输入输出的虚部l = 1024                   '采样点数为1024
Dim rd As Integer
For rd = 0 To 1023         '输入随机实数给实部
xr(rd) = rd * Rnd() 
xi(rd) = 0                 '虚部为0
Next rd