12 lines
239 B
ObjectPascal
12 lines
239 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
var A:=new real[3,3] ((2,3,-1),(1,-2,1),(1,0,2));
|
|||
|
|
var B:=new real[3] (9,3,2);
|
|||
|
|
var oL:=new Decomp(A);
|
|||
|
|
oL.Solve(B);
|
|||
|
|
B.Println;
|
|||
|
|
Writeln('cond=',oL.cond)
|
|||
|
|
end.
|