Data commit

Task/LU-decomposition/J/lu-decomposition-1.j

@@ -0,0 +1,23 @@
+mp=: +/ .*
+
+LU=: 3 : 0
+  'm n'=. $ A=. y
+  if. 1=m do.
+    p ; (=1) ; p{"1 A [ p=. C. (n-1);~.0,(0~:,A)i.1
+  else.
+    m2=. >.m%2
+    'p1 L1 U1'=. LU m2{.A
+    D=. (/:p1) {"1 m2}.A
+    F=. m2 {."1 D
+    E=. m2 {."1 U1
+    FE1=. F mp %. E
+    G=. m2}."1 D - FE1 mp U1
+    'p2 L2 U2'=. LU G
+    p3=. (i.m2),m2+p2
+    H=. (/:p3) {"1 U1
+    (p1{p3) ; (L1,FE1,.L2) ; H,(-n){."1 U2
+  end.
+)
+
+permtomat=: 1 {.~"0 -@>:@:/:
+LUdecompose=: (permtomat&.>@{. , }.)@:LU

Task/LU-decomposition/J/lu-decomposition-2.j

@@ -0,0 +1,25 @@
+   A=:3 3$1 3 5 2 4 7 1 1 0
+   LUdecompose A
+┌─────┬─────┬───────┐
+│1 0 0│1 0 0│1  3  5│
+│0 1 0│2 1 0│0 _2 _3│
+│0 0 1│1 1 1│0  0 _2│
+└─────┴─────┴───────┘
+   mp/> LUdecompose A
+1 3 5
+2 4 7
+1 1 0
+
+   A=:4 4$11 9 24 2  1 5 2 6  3 17 18 1  2 5 7 1
+   LUdecompose A
+┌───────┬─────────────────────────────┬─────────────────────────────┐
+│1 0 0 0│        1        0        0 0│11       9        24        2│
+│0 1 0 0│0.0909091        1        0 0│ 0 4.18182 _0.181818  5.81818│
+│0 0 1 0│ 0.272727  3.47826        1 0│ 0       0    12.087 _19.7826│
+│0 0 0 1│ 0.181818 0.804348 0.230216 1│ 0       0         0 0.510791│
+└───────┴─────────────────────────────┴─────────────────────────────┘
+   mp/> LUdecompose A
+11  9 24 2
+ 1  5  2 6
+ 3 17 18 1
+ 2  5  7 1