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

Автор DragoN1111, 25 сентября 2017, 14:10

0 Пользователи и 1 гость просматривают эту тему.

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-ой строке - это что?

Промежуточные выкладки не нужны? Только финальная матрица с суммами?
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

DragoN1111

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

JohnSUN

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

DragoN1111


JohnSUN

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

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

DragoN1111