Разместите в теле модуля нижеприведенные функции.
Предварительно подготовьте две числовые мартрицы с типом значения ТаблицаЗначений (условно А и В). Либо программно, либо на форме с помощью элементов управления ТабличноеПоле. Имена колонок могут быть любыми. Размерности таблиц должны удовлетворять условию А(n x m) , В(m x k).
Осуществите вызов функции ПроизведениеМатриц(А, Б).
В результате будет получена таблица произведения двух матриц С(n x k). Результат можно загрузить в ТабличноеПоле, как и показано на рисунке.
Область практического применения может быть различной:
начиная от вспомогательного инструмента для обучения студентов, и кончая наглядными экономическими расчетами.
Функция ПодготовитьИсходнуюТаблицу(ТЗ, Литера)
ИсходнаяТ = ТЗ.Скопировать();
ш = 1;
Для каждого Колонка Из ИсходнаяТ.Колонки Цикл Колонка.Имя = "elem" + ш; ш = ш + 1; КонецЦикла;
ИсходнаяТ.Колонки.Добавить("i", Новый ОписаниеТипов("Число", , ,Новый КвалификаторыЧисла(12,0)));
ш = 1;
Для каждого Стр Из ИсходнаяТ Цикл Стр.i = ш; ш = ш + 1; КонецЦикла;
Возврат ИсходнаяТ
КонецФункции
Функция ПолучитьЗапросДекомпозиция(м, Литера)
ЗапросДекомпозиция = "//";
Для ш = 1 По м Цикл
ЗапросДекомпозиция = ЗапросДекомпозиция + " Объединить все
|ВЫБРАТЬ Таб.i как i, "+ш+" как j, Таб.elem"+ш+" как elem
|"+?(ш=1, "Поместить Таб", "")+"
| ИЗ Исходная"+Литера+" КАК Таб
|";
КонецЦикла;
ЗапросДекомпозиция = СтрЗаменить(ЗапросДекомпозиция, "Таб", "Таб"+Литера);
ЗапросДекомпозиция = СтрЗаменить(ЗапросДекомпозиция, "// Объединить все", "") +";";
Возврат ЗапросДекомпозиция
КонецФункции // ()
Функция ПолучитьЗапросКомпозиция(м)
ЗапросКомпозицияСоединения = ""; ЗапросКомпозицияПоля = ""; ЗапросКомпозиция = "";
ЗапросНумерацияСтрок = "Выбрать ИсходнаяА.i Поместить НумерацияСтрок Из ИсходнаяА как ИсходнаяА;";
Для ш = 1 По м Цикл
ЗапросКомпозицияПоля = ЗапросКомпозицияПоля + ", РезультатТаблица"+ш+".c как c" +ш;
ЗапросКомпозицияСоединения = ЗапросКомпозицияСоединения + "
|Левое Соединение РезультатТаблица как РезультатТаблица"+ш+" По РезультатТаблица"+ш+".j = "+ш+" И РезультатТаблица"+ш+".i = НумерацияСтрок.i";
КонецЦикла;
ЗапросКомпозиция = " Выбрать " + ЗапросКомпозицияПоля+ " Из НумерацияСтрок Как НумерацияСтрок " + ЗапросКомпозицияСоединения;
Возврат ЗапросНумерацияСтрок + СтрЗаменить(ЗапросКомпозиция,"Выбрать ,", "Выбрать ")
КонецФункции // ()
Функция ПроизведениеМатриц(ТабА, ТабБ)
мА = ТабА.Колонки.Количество(); мБ = ТабБ.Колонки.Количество();
Если Не мА = ТабБ.Количество() Тогда
Сообщить("Неверные размерности матриц!", СтатусСообщения.Важное); Возврат Неопределено;
КонецЕсли;
Запрос = Новый Запрос;
ЗапросТекст = //Исходные матрицы с колонкой с нумерацией строк
"ВЫБРАТЬ * ПОМЕСТИТЬ ИсходнаяА ИЗ &ТабА КАК ТабА; ВЫБРАТЬ * ПОМЕСТИТЬ ИсходнаяБ ИЗ &ТабБ КАК ТабБ;";
//Разбор матрицы
ЗапросТекст = ЗапросТекст + ПолучитьЗапросДекомпозиция(мА, "А") + ПолучитьЗапросДекомпозиция(мБ, "Б");
//Умножение
ЗапросТекст = ЗапросТекст +
"ВЫБРАТЬ ТабА.i КАК i, ТабБ.j КАК j, СУММА(ТабА.elem * ТабБ.elem) КАК c
|Поместить РезультатТаблица
|ИЗ ТабА КАК ТабА ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТабБ КАК ТабБ ПО ТабА.j = ТабБ.i
|СГРУППИРОВАТЬ ПО ТабА.i, ТабБ.j; ";
//Сбор матрицы
Запрос.Текст = ЗапросТекст + ПолучитьЗапросКомпозиция(мБ);
Запрос.УстановитьПараметр("ТабА", ПодготовитьИсходнуюТаблицу(T1, "а"));
Запрос.УстановитьПараметр("ТабБ", ПодготовитьИсходнуюТаблицу(T2, "б"));
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции // ()
На данный момент вопрос быстродействия не исследовался.
