Умножение матриц пакетным запросом

Разместите в теле модуля нижеприведенные функции.

Предварительно подготовьте две числовые мартрицы с типом значения ТаблицаЗначений  (условно А и В). Либо программно, либо на форме с помощью элементов управления ТабличноеПоле.  Имена колонок могут быть любыми. Размерности таблиц должны удовлетворять условию  А(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, "б"));

Возврат Запрос.Выполнить().Выгрузить();

КонецФункции // ()

На данный момент вопрос быстродействия не исследовался.