Матричный калькулятор на Delphi

[Ivan3000]

Надо,чтобы программа работала с двумя матрицами и выполняла следующие действия:
1.Определитель
2.Обратная матрица
3.Сложение,вычитание
4.Умножение,деление
5.Транспонирование матриц
Ввод матриц осуществить в StringGrid!Вывод можно в Memo,можно в StringGrid!Размерность матриц бесконечна!
Срочно надо!
Заранее благодарю за помощь!!!

[IT-man]

function DetMatrix(MPtr : MatrixPtr) : MatrixElement;

var

TempPtr : MatrixPtr;

i,j     : byte;

Sum     : MatrixElement;

begin

if IsSquareMatrix(MPtr) then begin

   if not IsSingleMatrix(MPtr) then begin

     TempPtr:= nil;

     Sum:= 0;

     for j:= 1 to GetMatrixCol(MPtr) do begin

       AssignMatrix(TempPtr,ExcludeVectorFromMatrix(MPtr,1,j));

       Sum:= Sum+IntPower(-1,j+1)*GetMatrixElement(MPtr,1,j)*DetMatrix(TempPtr);

     end;

     DeleteMatrix(TempPtr);

     DetMatrix:= Sum;

   end else DetMatrix:= GetMatrixElement(MPtr,1,1);

end else DetMatrix:= 0;

end;

- определитель

function TransponeMatrix(MPtr : MatrixPtr) : MatrixPtr;

var

TempPtr : MatrixPtr;

i,j     : byte;

begin

if (MPtr <> nil) or (MPtr^.MatrixArray <> nil) then with MPtr^ do begin

   TempPtr:= CreateMatrix(MatrixCol,MatrixRow);

   for i:= 1 to MatrixRow do

     for j:= 1 to MatrixCol do

       SetMatrixElement(TempPtr,j,i,GetMatrixElement(MPtr,i,j));

   TransponeMatrix:= TempPtr;

end else TransponeMatrix:= nil;

end;

-транспонирование

function ReverseMatrix(MPtr : MatrixPtr) : MatrixPtr;

var

TempPtr     : MatrixPtr;

Determinant : MatrixElement;

begin

if MPtr <> nil then begin

   TempPtr:= nil;

   AssignMatrix(TempPtr,CreateAppendixMatrix(MPtr));

   AssignMatrix(TempPtr,TransponeMatrix(TempPtr));

   Determinant:= DetMatrix(MPtr);

   if (TempPtr = nil) or (Determinant = 0) then begin

     DeleteMatrix(TempPtr);

     ReverseMatrix:= nil;

     Exit;

   end;

   AssignMatrix(TempPtr,MultipleMatrixOnNumber(TempPtr,1/Determinant));

   ReverseMatrix:= TempPtr;

end else ReverseMatrix:= nil;

end;

 

 

 

function MultipleMatrixOnNumber(MPtr : MatrixPtr;Number : MatrixElement) : MatrixPtr;

var

TempPtr : MatrixPtr;

i,j     : byte;

begin

if MPtr <> nil then with MPtr^ do begin

   TempPtr:= CreateMatrix(MatrixRow,MatrixCol);

   if TempPtr = nil then begin

     MultipleMatrixOnNumber:= nil;

     Exit;

   end;

   for i:= 1 to MatrixRow do

     for j:= 1 to MatrixCol do

       SetMatrixElement(TempPtr,i,j,GetMatrixElement(MPtr,i,j)*Number);

   MultipleMatrixOnNumber:= TempPtr;

end else MultipleMatrixOnNumber:= nil;

end;

 

 

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;

 

 

 

function AddMatrixOnMatrix(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

     AddMatrixOnMatrix:= nil;

     Exit;

   end;

   for i:= 1 to TempPtr^.MatrixRow do

     for j:= 1 to TempPtr^.MatrixCol do

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

         GetMatrixElement(MPtr2,i,j));

   AddMatrixOnMatrix:= TempPtr;

end else AddMatrixOnMatrix:= nil;

end;

 

 

function SubMatrixOnMatrix(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

     SubMatrixOnMatrix:= nil;

     Exit;

   end;

   for i:= 1 to TempPtr^.MatrixRow do

     for j:= 1 to TempPtr^.MatrixCol do

       SetMatrixElement(TempPtr,i,j,GetMatrixElement(MPtr1,i,j)-

         GetMatrixElement(MPtr2,i,j));

   SubMatrixOnMatrix:= TempPtr;

end else SubMatrixOnMatrix:= nil;

end;

обратная ;умножение на число; умножение на матрицу ;сложение ;вычитание DRKB-рулит

[Ivan3000]

Большое спасибо,но мне надо без MatrixElement!Одними процедурами!

[Stilet]

мне надо без MatrixElement!Одними процедурами!

Most Unknow фраза...
Так что ли:

Procedure DetMatrix(MPtr : MatrixPtr,var m:MatrixElement);
...
     m:= Sum;

   end else m:= GetMatrixElement(MPtr,1,1);

end else m:= 0;
...

[Ivan3000]

Без использования компонента Matrix в Delphi!Помогите,пожалуйста!

[Ivan3000]

Помогите,пожалуйста!

[Tweety7]

ооо=) мне тоже надо такое...
ток мне вообще тупо только + - и *
ввод данных в стрингрид=)
пожалуйстааа напишите в асю, я тупая как пробка в програмирование=))

559 - 334 -559

спасибо всем заранее

[Tweety7]

а скажите я никак не могу ивану на почту написать хотя бы?

[Вавел из ГМТУ]

Все эти ваши матрицы шматрицы просто нереально жёсткий бойан.
Юзайте поиск. За всю историю форума таких задач было перелопачена целая куча.

Весь кодинг будет заключаться в copy/paste и даже если ты прогулял все лекции в универе и дерево умнее тебя, то ты всё равно это напишешь.

[hhe]

Код матричного калькулятора в Delphi 7.
1. Вычисление определителя
2. Транспонирование матрицы
3. Обратная матрица
4. Произведение матриц
5. Ввод вектора b из 4-х елементов
6.Решение матричного уравнения Ax=B с проверкой

Предусмотреть вывод результатов на рабочий лист Excel.



Заранее большое спасибо!