aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Gaussian-elimination/PascalABC.NET/gaussian-elimination.pas Normal file
View file

@ -0,0 +1,16 @@
uses NumLibABC;
begin
var A := new real[6, 6] ((1.00, 0.00, 0.00, 0.00, 0.00, 0.00),
(1.00, 0.63, 0.39, 0.25, 0.16, 0.10),
(1.00, 1.26, 1.58, 1.98, 2.49, 3.13),
(1.00, 1.88, 3.55, 6.70, 12.62, 23.80),
(1.00, 2.51, 6.32, 15.88, 39.90, 100.28),
(1.00, 3.14, 9.87, 31.01, 97.41, 306.02));
var b := new real[6] (-0.01, 0.61, 0.91, 0.99, 0.60, 0.02);
var oL := new Decomp(A);
oL.Solve(b);
b.Println;
end.