Перемножение матриц (Delphi)

[ekzobyte]

Пожалуйста, подскажите, как перемножить две матрицы разного размера?

[Chudo4258]

http://devels.ru/index.php?what=art&p=106
http://www.cyberforum.ru/pascal/thread33569.html

[ekzobyte]

Уже писал. Работает только с матрицами одного размера. Иначе выдаёт ошибку.

matr = array of array of real;
mm1, nn1, mm2, nn2 - размеры матриц первой и второй

function mult_matr(aa, ab : matr) : matr;
 var
   i, j, k : integer;
begin
 SetLength(Result, mm1, nn2);
   for i := 0 to mm1 - 1 do
   for j := 0 to nn2 - 1  do
     begin
        Result[i,j] := 0;
         for k := 0 to nn1 - 1 do
           Result[i,j] := Result[i,j] + aa[i,k] * ab[k,j];
     end;
end;

[_Dmitry]

Мы не можем перемножать любые матрицы. Количество столбцов первой матрицы и количество строк второй матрицы должно совпадать!

выполняем: a*b=c
размер первой матрицы: a[m,n]
размер второй матрицы: b[n,r]
размер результата: c[m,r]

[ekzobyte]

Мы не можем перемножать любые матрицы. Количество столбцов первой матрицы и количество строк второй матрицы должно совпадать!

выполняем: a*b=c
размер первой матрицы: a[m,n]
размер второй матрицы: b[n,r]
размер результата: c[m,r]

Знаю, я это учёл при задании размерностей матриц. Но перемножает нормально только матрицы 3x3

[_Dmitry]

Алгоритм перемножения правильный. Ищите ошибку в другом месте программы.