Программа 19

Программа 19.1

100 'РЕКУРСИВНЫЙ ФИЛЬТР
110 '
120 DIM X[499] 'X[ ] – массив отсчётов входного сигнала
130 DIM Y[499] 'Y[ ] – массив отсчётов выходного сигнала
140 '
150 GOSUB XXXX 'Некоторая подпрограмма вычисления весовых
160 ' 'коэффициентов: A0, A1, A2, B1, B2
170 '
180 GOSUB XXXX 'Некоторая подпрограмма загрузки входных данных в X[ ]
190 '
200 FOR I% = 2 TO 499
210 Y[I%] = A0*X[I%] + A1*X[I%-1] + A2*X[I%-2] + B1*Y[I%-1] + B2*Y[I%-2]
220 NEXT I%
230 '
240 END