feat: completed nn post.

Panadestein · Jan 7, 2025 · ff5c926 · ff5c926
1 parent 4d15d75
commit ff5c926
Show file tree

Hide file tree

Showing 2 changed files with 7,913 additions and 27 deletions.
diff --git a/src/bqn/nn.bqn b/src/bqn/nn.bqn
@@ -4,19 +4,20 @@ M ← +˝∘×⎉1‿∞
 
 Minn ← {rt‿ly𝕊dat:
   A‿DA ← ⟨1÷1+⋆∘-, ⊢×1⊸-⟩
-  BP ← {fs‿ts‿we𝕊𝕩: 
-    do ← <(-⟜ts×DA)⊑hx‿tx ← 1(↑⋈↓)⌽𝕩
-    (fs<⊸∾tx)×⌜˜¨⌽do∾do{d𝕊w‿z: z DA⊸×d M˜⍉w}`⋈¨´tx⋈˜1↓we
+  BP ← {fs‿ts‿we𝕊𝕩:
+    do ← <(-⟜ts×DA)⊑⊑hx‿tx ← ¯1(↑⋈↓)𝕩
+    (fs<⊸∾tx)×⌜˜¨do∾˜do⊸({d𝕊w‿z: z DA⊸×d M˜⍉w}`)⌾⌽tx⋈¨˜1↓we
   }
-  FP ← {z𝕊b‿we: we‿z⋄A¨b+we M z}`⟜(⋈¨´)
-  E ⇐ FP{⊢´𝕩𝔽 dat{𝕨𝕊bi‿we: fs‿ts ← 𝕨(↑⋈↓)˜⊑ly
-    bi⋈we-rt× fs‿ts‿we BP fs<⊸FP𝕩}˝˜(U⚇1-⟜1∘≠⋈·<∘⌽˘2⊸↕)ly}
+  FP ← {z𝕊b‿we: A¨b+we M z}`⟜(⋈¨´)
+  nn ← dat{𝕨𝕊bi‿we: fs‿ts ← 𝕨(↑⋈↓)˜⊑ly
+    bi⋈we-rt× fs‿ts‿we BP fs<⊸FP𝕩}˝˜(U⚇1-⟜1∘≠⋈·<∘⌽˘2⊸↕)ly
+  E ⇐ ⊢´<⊸FP⟜nn
 }
 
-n‿ri‿rf‿dr ← 10‿2.8‿4‿0.1
-≠td ← ∾{𝕩∾˘2↕𝕩(⊣×1⊸-×⊢)⍟(↕n)•rand.Range 0}¨↕∘⌈⌾((ri+dr×⊢)⁼)rf
+n‿e‿ri‿rf‿dr ← 200‿300‿2.8‿4‿0.1
+pd ← ∾{𝕩∾˘⊏⍉2↕𝕩(⊣×1⊸-×⊢)⍟(↕⌊3÷˜n)•rand.Range 0}¨↕∘⌈⌾((ri+0.01×⊢)⁼)rf
+@⊣td ← ∾⍟(e-1)˜∾{𝕩∾˘2↕𝕩(⊣×1⊸-×⊢)⍟(↕n)•rand.Range 0}¨↕∘⌈⌾((ri+dr×⊢)⁼)rf
 
-lm ← 0.01‿⟨2, 5, 1⟩ Minn td
-≡lm.E 2.85
+lm ← 0.001‿⟨2, 300, 1⟩ Minn td
 
-)r Setplot "scatter" ⋄ •Out¨ Plot´  m {ns←≠⊑𝕨 ⋄ (>𝕨)⋈˜∘‿ns⥊ns/𝕩} r
+)r Setplot "scatter" ⋄ •Out¨ Plot˝⍉(⊑∾lm.E)˘pd