создание подобия карты Кохонена в Calc

[DragoN1111]

Суть задачи: есть данные на листе L2 обозначенные 0 и 1 соответственно.
На листе L3 необходимо сделать подобие карты Кохонена т. е. в ячейке V1 идет цикл от 0 до 1990 (в данном случае)
он задает смещение в ячейках A1:T1 и A2:T2, а в ячейках X1:AQ20 идет сравнение всех со всеми т.е. А1 с А2...T2, B1 с A2...T2 и тд, если А1=А2 то 1 иначе 0. В ячейках AS1:BL20 нужно просуммировать после каждого шага цикла значения ячеек X1:AQ20 например AS1=X1(0)+X1(1)+X1(2)++++X1(1990). Сейчас в ячейках  AS1:BL20 результат после 48 шагов( включая 0). Прошу помощи в написании скрипта.

[JohnSUN]

А этот перетасованный алфавит в 34-ой строке - это что?

Промежуточные выкладки не нужны? Только финальная матрица с суммами?

[DragoN1111]

перетасованный это случайно осталось. Да нужна только финальная матрица.

[JohnSUN]

Ну, это было не сложно

[DragoN1111]

а как его "Влетать"?

[JohnSUN]

Ну, пока проверишь да отладишь - при активном листе L2 жмешь Alt+F11, выбираешь в левом поле эту книгу - библиотеку Standard - модуль Module1, в правом поле выбираешь процедуру calcPseudoKohonen и жмешь кнопку "Выполнить"

А когда убедишься, что всё работает как надо, перенесёшь текст макроса в "Мои макросы" и создашь на панели инструментов кнопку для его запуска (Сервис-Настройка-Панели инструментов)

[DragoN1111]

Огромное спасиииибо