Поблема с матрицами

[Ilius]

Не могу сделать в своей программе умножение одной процедурой. Погите пожалуста!
И проверте пожалуста остальные операции и скажите что не так очень надо!

Помогите хотябы с умножением, очень надо!

[metamfetamin]

Что на что надо умножить????
Есть только на паскале!!!!

[Ilius]

Мне надо на Делфи перемножить две матрицы которые вводятся в StringGrid1 и 2 и вывести результат в StringGrid3.

[AlDelta]

http://programmersforum.ru/showthrea...E0%F2%F0%E8%F6 пост №2.

[Ilius]

Спосибо тебе AlDelta за алгоритм, но я не пойму вот что:
дана функция:

function TMatrix.Mult(Matrix: TMatrix): TMatrix;
var
  i, j, k: Word;
  TempData: TMatrixData;
begin
  if ColCount <> Matrix.RowCount then
    Error(SMultError, 1);
  SetLength(TempData, RowCount, Matrix.ColCount);
  for i := 0 to RowCount - 1 do
    for j := 0 to Matrix.ColCount - 1 do
    begin
      TempData[i, j] := 0;
      for k := 0 to ColCount - 1 do
        TempData[i, j] := TempData[i, j] + FData[i, k] * Matrix.FData[k, j]
    end;
  ChangeAndFree(TempData);
  Result := Self
end;

Как мне с помощью этой функции при нажатии кнопки результат выводился в StringGrid. Какая процедура нужна?

[AlDelta]

Просто перебираешь в циклах ячейки StringGrid'a и присваиваешь им соответствующие элементы массива.

Обратится к ячейке: StringGrid1.Cells[i,j]

[Ilius]

Зделал, но посмотрите что то мне кажется не то с умножением.

[Ilius]

procedure TForm1.MultClick(Sender: TObject);
type
  TVector = array [1..100] of double;
  TMatrix = array [1..100] of TVector;
var
  i, j, k: integer;
  s: double;
  A, B, C: TMatrix;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
  for j := 0 to StringGrid1.RowCount - 1 do
  begin
      a[i, j] := StrToInt(StringGrid1.Cells[i, j]);
      b[i, j] := StrToInt(StringGrid2.Cells[i, j]);
  end;
  FillChar( C, sizeof(C), 0);
  for i:= 0 to StringGrid1.ColCount - 1 do
  begin
    for j:= 0 to StringGrid1.ColCount - 1 do
    begin
      s:= 0;
      for k:= 0 to StringGrid1.ColCount - 1 do
      begin
       s:= s + A[i, k] * B[k, j];
      C[i, j] := s;
      end;
    end;
  end;
  for i := 0 to form2.StringGrid1.ColCount - 1 do
  for j := 0 to form2.StringGrid1.RowCount - 1 do
  begin
      form2.StringGrid1.Cells[i,j]:=floattostr(C[i, j]);
  end;
  with form2.StringGrid1 do
  begin
    colcount:=stringGrid1.ColCount;
    rowcount:=StringGrid2.RowCount;
  end;
  form2.Show;
  form1.Hide;
end;

Почему в этой функции в результате в StringGrid в первой строке всегда получается 0, а в других вообще левые числа?

[puporev]

a[i, j] := StrToInt(StringGrid1.Cells[i, j]);
b[i, j] := StrToInt(StringGrid2.Cells[i, j]);

В весь код не вникал, но если создаете нормальную (не транспорированную) матрицу из таблицы, то нужно писать
a[i, j] := StrToInt(StringGrid1.Cells[j, i]);
b[i, j] := StrToInt(StringGrid2.Cells[j, i]);
потому что если в матрице сначала указывается строка, а потом столбец , то в таблице наоборот.

[Ilius]

Всем спосибо! Очень помогли!
И последний вопрос есть ли такие процедуры(без дополнит. процедур и функций) для нахождения определителя и ранга матриц любого размера?
Заранее спасибо.