Class TMatrix (unit Matrix) |
Inherits from
TComponent
TMatrix - the table Lines x Columns
constructor Create(AOwner: TComponent);
- -- TMatrix --
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
property Columns : Longint
property Lines : Longint
property Viewer : TMatrixViewer
property Cells : Extended
FColumns : Longint;
FLines : Longint;
FRows : TPtrArray;
FViewer : TMatrixViewer;
constructor Create(AOwner: TComponent);
-- TMatrix --
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
property Columns : Longint
property Lines : Longint
property Viewer : TMatrixViewer
property Cells : Extended
FColumns : Longint;
FLines : Longint;
FRows : TPtrArray;
FViewer : TMatrixViewer;