Class TMatrix (unit Matrix)

Inherits from

TComponent

TMatrix - the table Lines x Columns

Constructors


constructor Create(AOwner: TComponent);

-- TMatrix --


Functions

procedure AddLines(i, j: integer; Factor: Extended);


procedure AddMatrix(AMatrix: TMatrix);


procedure Assign(Source: TPersistent);

deallocate memory

procedure AssignToCol (NCol : Byte; Values: Array of Extended);


procedure AssignToLine(NLine: Byte; Values: Array of Extended);


procedure AssignValue(Value: Extended);


procedure ChangeLines(i, j: Integer);


destructor Destroy;

default 3x3 } { elements are created automaticaly when you change Lines and Columns

function Determinant: Extended;


procedure DiagMatrix(Value: Extended);


procedure Inverse;


procedure MultLine(i: Integer; Factor: Extended);


procedure MultMatrix(AMatrix: TMatrix);


procedure MultValue(Value: Extended);


procedure Repaint;


procedure Transpose;


function GetCells(ARow, ACol: Integer): Extended;


procedure SetCells(ARow, ACol: Integer; Value: Extended);

if index is invalid then raise exception

procedure SetColumns(Value: Longint);

if index is invalid then raise exception

procedure SetLines (Value: Longint);

update FColumns

procedure SetViewer (Value: TMatrixViewer);

update FLines

Properties

property Columns : Longint


property Lines : Longint


property Viewer : TMatrixViewer


property Cells : Extended


Events

Variables

FColumns : Longint;


FLines : Longint;


FRows : TPtrArray;


FViewer : TMatrixViewer;



Constructors


constructor Create(AOwner: TComponent);

-- TMatrix --


Functions


procedure AddLines(i, j: integer; Factor: Extended);


procedure AddMatrix(AMatrix: TMatrix);


procedure Assign(Source: TPersistent);

deallocate memory


procedure AssignToCol (NCol : Byte; Values: Array of Extended);


procedure AssignToLine(NLine: Byte; Values: Array of Extended);


procedure AssignValue(Value: Extended);


procedure ChangeLines(i, j: Integer);


destructor Destroy;

default 3x3 } { elements are created automaticaly when you change Lines and Columns


function Determinant: Extended;


procedure DiagMatrix(Value: Extended);


procedure Inverse;


procedure MultLine(i: Integer; Factor: Extended);


procedure MultMatrix(AMatrix: TMatrix);


procedure MultValue(Value: Extended);


procedure Repaint;


procedure Transpose;


function GetCells(ARow, ACol: Integer): Extended;


procedure SetCells(ARow, ACol: Integer; Value: Extended);

if index is invalid then raise exception


procedure SetColumns(Value: Longint);

if index is invalid then raise exception


procedure SetLines (Value: Longint);

update FColumns


procedure SetViewer (Value: TMatrixViewer);

update FLines


Properties


property Columns : Longint


property Lines : Longint


property Viewer : TMatrixViewer


property Cells : Extended


Events


Variables


FColumns : Longint;


FLines : Longint;


FRows : TPtrArray;


FViewer : TMatrixViewer;