День добрый! Скачал с Интернета модуль для быстрой корреляции двух массивов с использованием FFT. Не работает! Подскажите, в чём проблема?

Я заменил (это и подобное)

на

А иначе - совсем не работало. Завтра весь проект(мой) принесу, сейчас с собой нет.

Присоединённый файл ( Кол-во скачиваний: 8 )
 corr_1_.vb6.zip 18,05 Kb

Привет! Приаттачиваю весь проект, смотрите. Смысл такой: я в качестве массива (входного) использую картинку. А в качестве массива для корреляции (т.е. подмассива, которого нужно найти в картинке) использую первый пиксель картинки. Но картина получается далеко не правильная: всплески корреляции должны быть на участках, одинаковых с первым по цвету. А получается лажа какая-то..  Красным рисуется цвет картинки (RGB=LONG), а зелёным - результат корреляции.

PS: Не могу сейчас проверить на работоспособность проект, т.к. пишу не со своего компа.

Присоединённый файл ( Кол-во скачиваний: 17 )
 ProgrammerForever___Corr.zip 26,78 Kb

Корректна ли в vb запись ByRef a() As Double  ?