Программа 15.2

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