Программа 12.5

2000 'ПОДПРОГРАММА ОБРАТНОГО БЫСТРОГО ПРЕОБРАЗОВАНИЯ ФУРЬЕ

2010 'Порядок обратного ДПФ – N% и массивы действительных и мнимых компонент

2020 'REX[ ] и IMX[ ] заполняются до входа в подпрограмму. Выходные данные

2030 'размещаются в тех же массивах REX[ ] и IMX[ ], что и исходные данные.

2040 'Номера элементов всех массивов: 0…(N%-1).

2050 '

2060 FOR K% = 0 TO N%-1   'Изменение арифметического знака элементов IMX[ ]

2070 IMX[K%] = -IMX[K%]

2080 NEXT K%

2090 '

2100 GOSUB 1000           'Вычисление прямого БПФ (Программа 12.3)

2110 '

2120 FOR I% = 0 TO N%-1              'Деление на N% во временной области

2130 REX[I%] = REX[I%]/N%            'со сменой арифметического знака IMX[ ]

2140 IMX[I%] = -IMX[I%]/N%

2150 NEXT I%

2160 '

2170 RETURN