Перемножение матриц

@Laughing man · Регистрация: 31.12.2010

Студворк — интернет-сервис помощи студентам

Не знаю как написать код с циклом так, чтобы 2 матрицы перемножались. Кто нибудь знает как это сделать? Я написал банальный код как по формуле, но не знаю как бы сократить число строк при помощи циклов.

@tipo4ek · 30.03.2011, 21:16

Перемножение матрицы саму на себя :

Delphi

for i:=0 to stringgrid1.colcount-1 do
 for j:=0 to stringgrid1.colcount-1 do begin
 s:=0;
 for k:=0 to stringgrid1.colcount-1 do
s:=(s+ a[k,i]*b[j,k]);
stringgrid1.Cells[j,i]:=inttostr(s);

Только подкорректируй для своего решения .

@julia77 · 30.03.2011, 21:43

Ну можно так попробовать, если a имеет размерность m*k, b имеет размерность k*n то элементы матрицы с. равной их произведению, можно определить так

Delphi

for i:=0 to m-1 do
  for j:=0 to n-1 do
   begin
     c[i,j]:=0;
     for l:=0 to k-1 do
       c[i,j]:=c[i,j]+a[i,l]*b[l,j];
   end;

@Laughing man · 31.03.2011, 18:02 **[ТС]**

Добавлено через 17 секунд

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
var i,j,l:integer;
c,a,b:array [0..4,0..4] of integer;
begin
//with stringgrid4 do
  for i:=0 to StringGrid4.ColCount-1 do
  for j:=0 to StringGrid5.RowCount-1 do
    begin
       for l:=0 to StringGrid5.ColCount-1 do
        a[i,l]:=strtoint(StringGrid4.cells[i,j]);
        b[l,j]:=strtoint(StringGrid5.cells[i,j]);
        c[i,j]:=c[i,j] + a[i,l] * b[l,j];
       c[i,j]:=inttostr(StringGrid6.cells[i,j]);
end;
end;
procedu

Почему не перемножает матрицы, я наверное что-то не то написал...

@julia77 · 31.03.2011, 18:44

Да, есть ошибка. Разведите отдельно чтение матриц из грида и перемножение. Просто при перемножении процедура запрашивает те переменные, значение которых еще не получено из Стрингрид. Ну если желаете, что можно так.

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
var i,j,l:integer;
c,a,b:array [0..4,0..4] of integer;
begin
 
  for i:=0 to StringGrid4.ColCount-1 do
    for j:=0 to StringGrid4.RowCount-1 do
      a[j,i]:=strtoint(StringGrid4.cells[i,j]);
  for i:=0 to StringGrid5.ColCount-1 do
    for j:=0 to StringGrid5.RowCount-1 do
      b[j,i]:=strtoint(StringGrid5.cells[i,j]);
  for i:=0 to 4 do
    for j:=0 to 4 do
    begin
       c[i,j]:=0;
      for l:=0 to 4 do        
        c[i,j]:=c[i,j] + a[i,l] * b[l,j];    
      StringGrid6.cells[j,i]:=inttostr(c[i,j]);//возможно ошибку выдавало именно строчка, соответствующая в вашей программе этой?
    end;
end;

Еще, количество строк и столбцов в гриде соответствует размерности массивов?

Можно еще и так

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
var i,j,l:integer;
c,a,b:array [0..4,0..4] of integer;
begin
 
  for i:=0 to 4 do
    for j:=0 to 4 do
     begin
      a[i,j]:=strtoint(StringGrid4.cells[j,i]);
      b[i,j]:=strtoint(StringGrid5.cells[j,i]);
     end;      
  for i:=0 to 4 do
    for j:=0 to 4 do
    begin
       c[i,j]:=0;
      for l:=0 to 4 do        
        c[i,j]:=c[i,j] + a[i,l] * b[l,j];    
      StringGrid6.cells[j,i]:=inttostr(c[i,j]);
    end;
end;

@Laughing man · 01.04.2011, 06:04 **[ТС]**

Сижу думаю...Первый вариант верен, он хотя бы вводит ответ в матрицу, а вот второй пример, не вводит в матрицу и выдаёт ошибку - "Project Project1.exe raised exception class EConvert Error with message ''' is not a valid integer value'. Process stopped. Use step or run to continue"(такая ошибка у меня тоже в моём примере).

@julia77 · 01.04.2011, 06:21

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

@Laughing man · 01.04.2011, 08:31 **[ТС]**

размер таблиц к моём примере: a[3,3] and b[2,3];
Я вписал в array от 0 до 4, а надо было до 2. Теперь показывает то что надо, но иногда в таблце со столбцом c[3] выдаёт числа 4-х значные, но после нажатия 2-3-х раз, всё приходит в норму, потом итерация идёт.

@Puporev · 01.04.2011, 08:48

Сообщение от Laughing man

размер таблиц к моём примере: a[3,3] and b[2,3];

Вам разве не говорили что число столбцов первой матрицы должно быть равно числу строк второй матрицы? Т.е. умножать можно только матрицы типа a[mxn]*b[nxk],
получится матрица размера c[mxk].

@julia77 · 01.04.2011, 09:04

Можно сделать так, чтоб размерность массивов определялась по размерности гридов. Для этого массивы нужно задать как динамические. Ну например так.

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
var i,j,l:integer;
n,k,m:integer;//n- количество строк первой матрицы,k- количество столбцов первой матрицы, должно совпадать с количеством строк второй, иначе произведение их невозможно,m-количество столбцов второй матрицы
c,a,b:array of array of integer;
begin
// Проверим, что произведение матриц возможно
 if  StringGrid4.ColCount<>StringGrid5.RowCount then
  begin
    ShowMessage('невозможно вычислить произведение матриц, так количество столбцов первого множителя не равно количеству строк второго');
    exit;//выходим из программы, раз вычисление невозможно
  end;
n:=StringGrid4.RowCount;
k:=StringGrid4.ColCount;
m:=StringGrid5.ColCount;
SetLength(a,n,k);
SetLength(b,k,m);
SetLength(c,n,m);
//Раз гриды имеют разные размерности и не квадратные то каждый массив определяется в своем цикле!!!
  for i:=0 to k-1 do
    for j:=0 to n-1 do
      a[j,i]:=strtoint(StringGrid4.cells[i,j]);
  for i:=0 to m-1 do
    for j:=0 to k-1 do
      b[j,i]:=strtoint(StringGrid5.cells[i,j]);
  for i:=0 to n-1 do
    for j:=0 to m-1 do
    begin
       c[i,j]:=0;
      for l:=0 to k-1 do        
        c[i,j]:=c[i,j] + a[i,l] * b[l,j];    
      StringGrid6.cells[j,i]:=inttostr(c[i,j]);
    end;
end;

Проверку на возможность перемножения матриц ввела для того, чтоб вы видели, что для гридов с вашими размерностями такое произведение невозможно

@Laughing man · 01.04.2011, 18:46 **[ТС]**

Спасибо. Получилось тоже, но вашу ошибку(чтобы выдало мне) так и не увидел.

@julia77 · 01.04.2011, 20:16

я рада

@Laughing man 0 / 0 / 0 Регистрация: 31.12.2010 Сообщений: 21
		1
	Перемножение матриц 30.03.2011, 21:02. Показов 10940. Ответов 11 Метки нет (Все метки) Не знаю как написать код с циклом так, чтобы 2 матрицы перемножались. Кто нибудь знает как это сделать? Я написал банальный код как по формуле, но не знаю как бы сократить число строк при помощи циклов. 0

@Laughing man 0 / 0 / 0 Регистрация: 31.12.2010 Сообщений: 21
	01.04.2011, 06:04 [ТС]	6
	Сижу думаю...Первый вариант верен, он хотя бы вводит ответ в матрицу, а вот второй пример, не вводит в матрицу и выдаёт ошибку - "Project Project1.exe raised exception class EConvert Error with message ''' is not a valid integer value'. Process stopped. Use step or run to continue"(такая ошибка у меня тоже в моём примере). 0

@julia77 85 / 69 / 12 Регистрация: 17.02.2011 Сообщений: 138
	01.04.2011, 06:21	7
	Расскажите какова размерность таблиц в вашем примере, выложите весь код и укажите в какой строке кода компилятор указывает на ошибку. 0

@Laughing man 0 / 0 / 0 Регистрация: 31.12.2010 Сообщений: 21
	01.04.2011, 08:31 [ТС]	8
	размер таблиц к моём примере: a[3,3] and b[2,3]; Я вписал в array от 0 до 4, а надо было до 2. Теперь показывает то что надо, но иногда в таблце со столбцом c[3] выдаёт числа 4-х значные, но после нажатия 2-3-х раз, всё приходит в норму, потом итерация идёт. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.04.2011, 08:48	9
	Сообщение от Laughing man размер таблиц к моём примере: a[3,3] and b[2,3]; Вам разве не говорили что число столбцов первой матрицы должно быть равно числу строк второй матрицы? Т.е. умножать можно только матрицы типа a[mxn]*b[nxk], получится матрица размера c[mxk]. 0

@Laughing man 0 / 0 / 0 Регистрация: 31.12.2010 Сообщений: 21
	01.04.2011, 18:46 [ТС]	11
	Спасибо. Получилось тоже, но вашу ошибку(чтобы выдало мне) так и не увидел. 0

@julia77 85 / 69 / 12 Регистрация: 17.02.2011 Сообщений: 138
	01.04.2011, 20:16	12
	я рада 0

Опции темы