25 lines
507 B
Plaintext
25 lines
507 B
Plaintext
# Experimental!
|
||
~ "git: github.com/Omnikar/uiua-math" ~ MInv Mvp
|
||
|
||
# ? y x
|
||
F ← ⊃(
|
||
-⊃(ⁿ3|×3×⊙ⁿ₂)
|
||
| -1-⊃(×3×ⁿ2|ⁿ3⋅∘))
|
||
# ? a x
|
||
Φ ← +∩ⁿ₂F
|
||
# ? y x
|
||
J ← ⊃[
|
||
⊃[×3-∩ⁿ₂|×6×]
|
||
| ⊃[ׯ6×|×3-∩ⁿ₂]]
|
||
|
||
# ? f f' x0
|
||
Newton‼ ← -⊸(÷⊃^1^0)
|
||
# ? x+yi
|
||
VectorNewton ← -⊸(/ℂ˜Mvp ⊟F°ℂ ⟜(MInv J°ℂ))
|
||
|
||
⍜⇌(⊂2)-2÷÷4⟜⇡100
|
||
≡₀(◌⍢(⊙VectorNewton+1|<50)0)˙⊞ℂ
|
||
<1e-3⌵-⊙¤[1 ℂ÷2√3 ¯1/2 ℂ¯÷2√3 ¯1/2]
|
||
⤸1_2
|
||
▽₂ 2
|