A mellékelt példaprogram megnyitása előtt a MatrixAction.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A mátrix műveleteknél két fontos szabály:
Két mátrixon az összeadás és a kivonás művelete csak akkor végezhető el, ha azok azonos méretűek.
A és B mátrixok között a szorzás művelete csak akkor értelmezhető, ha A-nak ugyanannyi oszlopa van, mint ahány sora B-nek.
A komponens tetszőleges méretű mátrixok használatát teszi lehetővé. A mátrixok használatához egy új típust kell használnunk, ez a TMatrix.
type TMatrix = array of array of Double;
A TMatrix típus egy kétdimenziós, dinamikus tömböt implementál.
Egy kétdimenziós, dinamikus tömböt az alábbi módon tölthetünk fel értékekkel.
SetLength(Matrix1,MaxCol);
for i:=0 to MaxCol-1 do begin
SetLength(Matrix1[i],MaxRow);
for j:=0 to MaxRow-1 do
Matrix1[i,j]:=StrToFloat(m1[i,j].Text);
end;
A mátrixok használata során, az oszlopok és a sorok indexelése egyaránt 0-val kezdődik. A kétdimenziós tömbben az első koordináta az oszlopot, a második az oszlopon belüli sort azonosítja.
A komponens négy függvényt tartalmaz, a 4 műveletnek megfelelően.
Add
function Add(
Matrix1,
Matrix2:TMatrix
): TMatrix;
Két mátrix összeadása.
Paraméterek
Matrix1
Az összeadás első tagja.
Matrix2:TMatrix
Az összeadás második tagja.
Visszatérési érték
Az eredménymátrix.
Multiply
function Multiply(
Matrix1,
Matrix2:TMatrix
): TMatrix;
Mátrix szorzása mátrixxal.
Paraméterek
Matrix1
A szorzandó mátrix.
Matrix2:TMatrix
A szorzó mátrix.
Visszatérési érték
Az eredménymátrix.
MultiplyX
function MultiplyX(
Matrix1: TMatrix;
X: Double
): TMatrix;
Mátrix szorzása valós számmal.
Paraméterek
Matrix1: TMatrix
A szorzandó mátrix.
X: Double
A szorzó, valós szám.
Visszatérési érték
Az eredménymátrix.
Subtract
function Subtract(
Matrix1,
Matrix2:TMatrix
): TMatrix;
Két mátrix különbsége.
Paraméterek
Matrix1
A kisebbítendő mátrix.
Matrix2:TMatrix
A kivonandó mátrix.
Visszatérési érték
Az eredménymátrix.