Data commit

Task/Gaussian-elimination/Racket/gaussian-elimination-1.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(require math/matrix)
+(define A
+  (matrix [[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]]))
+
+(define b (col-matrix [-0.01 0.61 0.91 0.99 0.60 0.02]))
+
+(matrix-solve A b)

Task/Gaussian-elimination/Racket/gaussian-elimination-2.rkt

@@ -0,0 +1,8 @@
+#<array
+  '#(6 1)
+  #[-0.01
+   1.602790394502109
+   -1.613203059905556
+   1.2454941213714346
+   -0.4909897195846582
+   0.06576069617523222]>