Программа 15.1

100 'ОДНОРОДНЫЙ НЕРЕКУРСИВНЫЙ ФИЛЬТР (ФИЛЬТР СКОЛЬЗЯЩЕГО СРЕДНЕГО)
110 'Данная программа предназначена для обработки 5000 отсчётов
120 'входного сигнала однородным фильтром 101-го порядка.
130 '
140 DIM X[5000]         'X[ ] – массив отсчётов входного сигнала
150 DIM Y[5000]         'Y[ ] – массив отсчётов выходного сигнала
160 '
170 GOSUB XXXX          'Некоторая подпрограмма загрузки данных в X[ ]
180 '
190 FOR I% = 50 TO 4949 'Цикл по числу отсчётов выходного сигнала
200 Y[I%] = 0           'Предварительное обнуление
210 FOR J% = -50 TO 50  'Цикл для вычисления очередного отсчёта
220 Y[I%] = Y[I%] + X[I%+J%]
230 NEXT J%
240 Y[I%] = Y[I%]/101   'Завершение усреднения – операция деления
250 NEXT I%
260 '
270 END