You've already forked lazarus-ccr
21484fc4bd
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7925 8e941d3f-bd1b-0410-a28a-d453659cc2b4
52 lines
1.0 KiB
ObjectPascal
52 lines
1.0 KiB
ObjectPascal
program MatrixTest;
|
|
|
|
uses
|
|
MatrixUnit;
|
|
|
|
var
|
|
A: TDblMatrix;
|
|
B: TDblMatrix;
|
|
|
|
procedure WriteMatrix(A: TDblMatrix; AName: String);
|
|
var
|
|
n, m, i, j: Integer;
|
|
begin
|
|
WriteLn(AName, ' = ');
|
|
MatSize(A, n,m);
|
|
for i := 0 to n-1 do
|
|
begin
|
|
for j := 0 to m-1 do
|
|
Write(A[i, j]:10:3);
|
|
WriteLn;
|
|
end;
|
|
WriteLn;
|
|
end;
|
|
|
|
begin
|
|
SetLength(A, 3, 3);
|
|
A[0, 0] := 1.0; A[0, 1] := 3.0; A[0, 2] := 4.0;
|
|
A[1, 0] := -1.0; A[1, 1] := 2.0; A[1, 2] := -3.0;
|
|
A[2, 0] := 0.0; A[2, 1] := -1.0; A[2, 2] := 1.0;
|
|
WriteMatrix(A, 'A');
|
|
|
|
SetLength(B, 3, 3);
|
|
B[0, 0] := -1.0; B[0, 1] := -3.0; B[0, 2] := 1.0;
|
|
B[1, 0] := +1.0; B[1, 1] := 2.0; B[1, 2] := -3.0;
|
|
B[2, 0] := 0.0; B[2, 1] := -2.0; B[2, 2] := 2.0;
|
|
WriteMatrix(B, 'B');
|
|
|
|
WriteMatrix(A*B, 'A*B');
|
|
|
|
WriteMatrix(MatInverse(A), 'inv(A)');
|
|
|
|
WriteMatrix(A*MatInverse(A), 'A*inv(A)');
|
|
|
|
WriteLn('det(A) = ');
|
|
WriteLn(MatDeterminant(A):10:3);
|
|
|
|
WriteLn;
|
|
WriteLn('Press ENTER to quit...');
|
|
ReadLn;
|
|
end.
|
|
|