12 lines
273 B
ObjectPascal
12 lines
273 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// Ëèíåéíàÿ àëãåáðà (ìàòðèöû)
|
|
begin
|
|
// M = det ((A-BxC)^T)xA
|
|
var A:=new Matrix(2,4,-3,0,4,-1,2,-7,5,6);
|
|
var B:=new Matrix(2,3,8,1,-5,6,7,2);
|
|
var C:=new Matrix(3,4,1,-1,7,0,3,2,9,4,5,0,-2,-4);
|
|
var M:=(((A-B*C).Transpose)*A).Det;
|
|
Writeln(M)
|
|
end.
|