Опредеитель матрицы, найдите ошибку Опции

[Ilius]

Не могу вызвать функцию определителя от переменной. Помогите.Посмотрите в чем ошибка. Очень надо!

Сообщение отредактировано: Ilius - 17.12.2007 23:49

[Ilius]

Почему эта процедура(транспонирование матрицы) работает токо когда в результате получается квадратная матрица:

Код

procedure TForm1.TransClick(Sender: TObject);
var
   A, X  : TMatrix;
   i, j : integer;
begin
    form2.StringGrid1.ColCount:=StringGrid1.ColCount;
    form2.StringGrid1.RowCount:=StringGrid1.RowCount;
   A:= TMatrix.Create( StringGrid1.RowCount, StringGrid1.ColCount);
      for i:=0 to StringGrid1.ColCount-1 do
         for j:=0 to StringGrid1.RowCount-1 do
            A[j, i]:= StrToFloat(StringGrid1.Cells[i,j]);
      X := A.Transposing;
       for i:=0 to form2.StringGrid1.RowCount-1 do
      for j:=0 to form2.StringGrid1.ColCount-1 do
     form2.StringGrid1.Cells[i,j]:= floatTostr(X[j,i]);
     form2.Show;
     form1.Hide;
end;