Программа 24

Программа 24.1

100 ОБЫЧНАЯ СВЁРТКА ИЗОБРАЖЕНИЙ
110 '
120 DIM X[99,99] 'хранит входное изображение, 100´100 пикселей
130 DIM H[28,28] 'хранит ядро фильтра, 29´29 пикселей
140 DIM Y[127,127] 'хранит выходное изображение, 128´128 пикселей
150 '
160 FOR R% = 0 TO 127 'цикл по каждой строке и столбцу в выходном
170 FOR C% = 0 TO 127 'изображении, вычисляющий значение пикселей по уравнению (24.3)
180
190 Y[R%,C%] = 0 'используется как аккумулятор
200 '
210 FOR J% = 0 TO 28 'умножает каждый пиксель ядра на соответствующий
220 FOR K% = 0 TO 28 'пиксель входного изображения и прибавляет к аккумулятору
230 Y[R%,C%] = Y[R%,C%] + H[J%,K%] * X[R%-J%,C%-J%]
240 NEXT K%
250 NEXT J%
260 '
270 NEXT C%
280 NEXT R%
290 '
300 END