Delphi. Умножение матриц.

[DeKot]

Вот код из Delphi Russian Knowledge Base from Vit (сборник примеров с различных Дельфийских форумов). Может поможет.

function MultipleMatrixOnMatrix(MPtr1,MPtr2 : MatrixPtr) : MatrixPtr;

var

TempPtr : MatrixPtr;

i,j,k   : byte;

begin

if (MPtr1 <>  nil) and (MPtr2 <> nil) then begin

   TempPtr:= CreateMatrix(MPtr1^.MatrixRow,MPtr2^.MatrixCol);

   if TempPtr = nil then begin

     MultipleMatrixOnMatrix:= nil;

     Exit;

   end;

   for i:= 1 to TempPtr^.MatrixRow do

     for j:= 1 to TempPtr^.MatrixCol do

       for k:= 1 to MPtr1^.MatrixCol do

         SetMatrixElement(TempPtr,i,j,GetMatrixElement(TempPtr,i,j)+

           GetMatrixElement(MPtr1,i,k)*GetMatrixElement(MPtr2,k,j));

   MultipleMatrixOnMatrix:= TempPtr;

end else MultipleMatrixOnMatrix:= nil;

end;

[Manik]

реализовала сложение, вычитание, умножение и сравнение....

прошу ответа, оно похоже на то, чем должно бы было быть?

*с выводом в Grid через процедуру пока путаюсь, поэтому так.
**кнопочки, проверки и прочие радости будут, но позже.)

[s.Creator]

Все компактно, но ужасно ( с размерами матриц вообще крах )
Сильно головой об стенку не бейся - лови мой вариант - сравнивай но самое главное, присоедини к форме и попробуй протестировать, а то я проверял пока только на компиляцию.
А я чуть попозже гляну что с формой можно с меньшими усилиями сделать, так что бы Тебе возьни осталось побольше

[Manik]

посмотрела твой вариант.
бьюсь головой о стену

спасибо)

[Manik]

примонтировала частично.
определитель пока считать не хочет...

[s.Creator]

Что-то с этом определителем - уже третий раз правлю - теперь вроде считает - замени

function MatrixMinor(matrix: TIntMatrix; col: Integer): TIntMatrix;
var
  len, c, r: Integer;
begin
  len := Length(matrix) - 1;
  SetLength(Result, len, len);
  for r := 0 to len - 1 do
  begin
    for c := 0 to col - 1 do
      Result[r, c] := matrix[r + 1, c];
    for c := col to len - 1 do
      Result[r, c] := matrix[r + 1, c + 1];
  end;
end;

[Manik]

заррработало!!)

[Serebro]

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

заррработало!!)

Заработало правильно или просто заработало?

[Manik]

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

Заработало правильно или просто заработало?

правильно заработало)))

[Manik]

Спасибо всем вам огромное!
С вашей помощью мы идём дальше)