| Class TMatrix (unit Matrix) |
TComponent
TMatrix - the table Lines x Columns
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AddLines(i, j: integer; Factor: Extended);
procedure AddMatrix(AMatrix: TMatrix);
procedure Assign(Source: TPersistent);
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;
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);
procedure SetColumns(Value: Longint);
procedure SetLines (Value: Longint);
procedure SetViewer (Value: TMatrixViewer);| 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;