Программа 12.1

6000 'ФОРМИРОВАНИЕ ОТРИЦАТЕЛЬНЫХ ЧАСТОТ

6010 'Подпрограмма дополняет массив отсчётов спектра отрицательными частотами.

6020 'Перед входом в подпрограмму необходимо указать длину массива – N% и

6030 'заполнить элементы 0…N%/2 в массивах отсчётов REX[ ] и IMX[ ].

6040 'Подпрограмма записывает в REX[ ] и IMX[ ] элементы с номерами 0…N%-1.

6050 '

6060 FOR K% = (N%/2+1) TO (N%-1)

6070 REX[K%] = REX[N%-K%]

6080 IMX[K%] = -IMX[N%-K%]

6090 NEXT K%

6100 '

6110 RETURN