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

[AlDelta]

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

Повторюсь, но:

Сообщение от AlDelta

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

[Ilius]

вот в этом модуле, который ты говоришь, есть функция определителя:

function TMatrix.Det: Extended;
var
  Temp, A: TMatrixData;
  Cols, Rows, Count: Word;
  i, j, k: Integer;
begin
  if not Square then
    Error(SNotSquare, 1);
  Count := Length(FData);
  Result := 1;
  SetLength(A, Count, Count);
  SetLength(Temp, 1, Count);
  for i := 0 to Count - 1 do
    for j := 0 to Count - 1 do
      A[i, j] := FData[i, j];
  for i := 0 to Count - 2 do {Начало преобразования к верхнему треугольному виду}
  begin
    for j := i to Count - 1 do                                 {*  Поиск    }
    begin                                                      {*  нулевых  }
      Rows := 0;                                               {*  строк    }
      Cols := 0;                                               {*  и        }
      for k := i to Count - 1 do                               {*  столбцов }
      begin                                                    {*  в        }
        Rows := Rows + Ord(A[j, k] = 0);                       {*  матрице  }
        Cols := Cols + Ord(A[k, j] = 0);                       {*           }
      end;                                                     {*           }
      if Rows + Cols = 0 then                                  {*           }
        Break;                                                 {*           }
      if (Cols = Count - i) or (Rows = Count - i) then         {*           }
      begin                                                    {*           }
        Result := 0;                                           {*           }
        Exit                                                   {*           }
      end                                                      {*           }
    end;                                                       {*           }
    if A[i, i] = 0 then
      for j := i + 1 to Count - 1 do
        if A[j, i] <> 0 then
        begin
          Result := -Result;                {* меняем строку              }
          Temp[0] := A[i];                  {* на строку с                }
          A[i] := A[j];                     {* первым                     }
          A[j] := Temp[0];                  {* ненулевым                  }
          Break                             {* элементом                  }
        end;
    for j := i + 1 to Count - 1 do
      if A[j, i] <> 0 then
      begin
        for k := i + 1 to Count - 1 do
          A[j, k] := A[j, k] - A[i, k] * A[j, i] / A[i, i];
        A[j, i] := 0
      end
  end; {Конец преобразования}
  for i := 0 to Count - 1 do     { Определитель как произведение }
    Result := Result * A[i, i];  { элементов на главной диагонали}
end;

function TMatrix.Get(RowIndex, ColIndex: Integer): Extended;
begin
  if (RowIndex - Origin + 1 > RowCount) or (RowIndex < Origin) then
    Error(SRowIndexError, RowIndex);
  if (ColIndex - Origin + 1 > ColCount) or (ColIndex < Origin) then
    Error(SColIndexError, ColIndex);
  Result := FData[RowIndex - Origin, ColIndex - Origin];
end;

и у меня есть матрица которую я ввожу в StringGrid1 (mat1:tmatrix). КАК мне вызвать определитель от этой матрице: det(mat1[i,j]) или как, не выходит не чего все время жалуется на эту запись: det(mat1[i,j]).
Напишите пожалуста как правильно вызвать функцию от этой матрице.

[Ilius]

Может мне кто-нибудь подсказать как правилно вызывать функции???

[Ilius]

Вот программа посмотрите что не так я делаю при вызове функции.