Прошу помощи. Снова Матрицы

[Diez]

Столкнулся с проблемой перемножения матриц. Матрицы не квадратные, размерность может варьироваться.

На данный момент есть матрицы: 3(colum)*2(rows) и 3*3

Данные матрицы нужно программно умножить в среде Delphi. Искал на форумах, в частности и здесь по критерию: "Умножение матриц", но из найденного ничего не понял.

Если Вас не затруднит, то не могли бы Вы помочь мне кодом и комментариями к нему.

Заранее благодарен, Артем.

[puporev]

но из найденного ничего не понял.

Так зачем Вам еще один код?

[Diez]

Возможно он будет прокомментирован...

Допустим есть:

mat1:array[1..10, 1..10] of real; //первая матрица

mat2:array[1..10, 1..10] of real; //вторая матрица

mat3:array[1..10, 1..10] of real; //результирующая матрица

stolb1,strok1: integer // кол-во столбцов и строк для первой матрицы

Вторая матрица квадратная.

Вот как умножить эти матрицы?

[Sazary]

Выкладывать полный код не буду.. Остальное сами напишите.

var
mat1:array[1..10, 1..10] of real; {первая матрица}
mat2:array[1..10, 1..10] of real; {вторая матрица  }
mat3:array[1..10, 1..10] of real; {результирующая матрица       }
stolb1,strok1,strok2,stolb2: integer;
i,j,k : integer;

.........................
ввод матриц
.........................

for i:=1 to strok1 do
 begin
 for j:=1 to stolb2 do
  begin
  mat3[i,j] := 0;
  for k:=1 to strok2 do
   mat3[i,j] := mat3[i,j] + mat1[i,k]*mat2[k,j];
  end;
 end;

...............
вывод. Размерность конечной матрицы - mat3[strok1,stolb2]
...............

[puporev]

const k=3;
      l=2;
var a:array[1..k,1..l]of integer;//первая матрица 3*2
    b,c:array[1..k,1..k]of integer;//вторая и результирующая матрицы 3*3
    i,j,p:integer;
begin
randomize;
writeln('Matrica A:'); //создаем первую
for i:=1 to k do
   begin
     for j:=1 to l do
       begin
         a[i,j]:=random(9)+1;
         write(a[i,j]:3);
       end;
     writeln;
   end;
readln;
writeln('Matrica B:');//создаем вторую
for i:=1 to l do
   begin
     for j:=1 to k do
       begin
         b[i,j]:=random(9)+1;
         write(b[i,j]:3);
       end;
     writeln;
   end;
readln;
for p:=1 to k do//процесс умножения прочитай в учебнике математики, или в Википедии
for j:=1 to k do
   begin
     c[k,j]:=0;
     for i:=1 to k do
       begin
         c[p,j]:=c[p,j]+a[p,i]*b[i,j];
       end;
   end;
writeln('Matrica C=A*B:');//вывод итога
for i:=1 to k do
    begin
      for j:=1 to k do
      write(c[i,j]:5);
      writeln;
    end;
readln;
end.
Ну и чего тут сложного?

[Diez]

var a:array[1..k,1..l]of integer;//первая матрица 3*2
    b,c:array[1..k,1..k]of integer;//вторая и результирующая матрицы 3*3

Получается, что у результирующей матрицы размерность 3*3, хотя должно быть 3*2. Или я что-то не понимаю? =)

[alex_fcsm]

Посмотри тут

[Diez]

Что-то у меня теперь все нули выводит в результирующей матрице..

[spamer]

Diez вот на мой исходник. Думаю разберешся, там нечего сложного нету.

[spamer]

Хотя бы отписался - разобрался или нет?