frero/mandelbrot
0
0
Fork 0
Code Issues Pull Requests Releases Activity

make it faster (thanks jan makoso)

Browse Source
This commit is contained in:
Fredrik Robertsen
2025-09-21 13:25:39 +02:00
parent d42a05af40
commit a8dbafa7bc
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
main.ua
View File

@@ -1,15 +1,14 @@
# how many iterations before divergence
# ? z0=c
Iter ← ◌⍢(
⊃(+ⁿ2⊙⋅∘|⋅+₁)
| ↧⊙<₁₀₀₀≤2⌵
)⊙0.
# ? iteration_number
Color ← °hsv [¯η 0.75 ˜-1↧1÷12]
# iteration_number ? z0=c
Iter ← /+<2↧∞⌵⍥⟜⊸(+⊙°√)32 .
# [r g b] ? iteration_number
Color ← °hsv ⍉ ⊂¯η⊂0.75 ¤ ¬↧1÷12
# create [a, b) with n values
# ? a b n
Linspace ← +⟜(×⌵-⊙⊙(÷⟜⇡))
Linspace ← ⍜-×⊙⊙(÷⟜⇡)
X ← Linspace ¯2 0.85 200
Y ← Linspace ¯1.2 1.2 200
&ims ≡₀Color ≡₀Iter ⊞ℂ Y X
X ← Linspace ¯2 0.85 400
Y ← Linspace ¯1.2 1.2 400
&ims Color Iter ⊞ℂ Y X