Reach fr

Author: Omnikar

lib.ua

@@ -4,8 +4,6 @@
 # Extract real
 R ↚ ◌°ℂ
 
-# Reach
-H! ← ^⊙◌
 # Flip
 F ← ˜∘
 
@@ -39,11 +37,11 @@ GaussEliminate‼ ↚ ∧(
 )°⊏
 
 # Matrix Determinant
-MDet ← ◌⍣GaussEliminate‼(⍥¯H!H!/≠)H!H!× ⊙0⊙1
+MDet ← ◌⍣GaussEliminate‼(⍥¯∪∪/≠)∪∪× ⊙0⊙1
 
 # Perform Gauss-Jordan elimination
-Mgje ← ⊏⍏˜⨂1>1e-12⊸⌵ ⍥(
-  ↻₁⍣(⍜⊙⊢÷⟜(-⊞×⊙⊸⊢⊂0÷)°⊂⊸≡⊏⊢)◌⊚>1e-12⌵⊸⊢
+Mgje ← ⊏⍏˜⨂1>1e¯12⊸⌵ ⍥(
+  ↻₁⍣(⍜⊙⊢÷⟜(-⊞×⊙⊸⊢⊂0÷)°⊂⊸≡⊏⊢)◌⊚>1e¯12⌵⊸⊢
 )⊸⧻
 # Mgje ← ⍣GaussEliminate‼(|)(⍤"Elimination cannot be completed"0)
 
@@ -196,10 +194,10 @@ Gamma ← (
       154.53815050252774
       ¯6.253671612368916
       0.034642762454736804
-      ¯7.477617197444297e-7
-      6.304125382185226e-8
-      ¯2.7405717035683877e-8
-      4.048694881756761e-9
+      ¯7.477617197444297e¯7
+      6.304125382185226e¯8
+      ¯2.7405717035683877e¯8
+      4.048694881756761e¯9
     ]
     /+÷⍜⊢⋅1≡+⊙˜¤
   )
@@ -311,8 +309,8 @@ Erf ← (
   ⍤⤙≍ 0 Erf 0
   ⍤⤙≍ 1 Erf 1000
   ⍤⤙≍ ¯1 Erf ¯1000
-  ⍤⤙(<1e-6⌵-) 0.5204998778130465 Erf 0.5
-  ⍤⤙(<1e-6⌵-) ¯0.5204998778130465 Erf ¯0.5
+  ⍤⤙(<1e¯6⌵-) 0.5204998778130465 Erf 0.5
+  ⍤⤙(<1e¯6⌵-) ¯0.5204998778130465 Erf ¯0.5
 └─╴
 
 # Seeded random indices from a distribution array