Mandelbrot set: Difference between revisions
Content added Content deleted
| Line 13,571: | Line 13,571: | ||
<syntaxhighlight lang="uiua"> |
<syntaxhighlight lang="uiua"> |
||
Size ← |
Size ← 800 |
||
Cs ← ÷ 5[5_5_5 4_5_5 |
Cs ← ÷ 5[5_5_5 4_5_5 4_5_5 3_5_5 5_3_5 3_3_5 2_5_0 5_2_2 2_2_5 0_0_0] |
||
# Initialise complex co-ordinates. |
# Initialise complex co-ordinates. |
||
×2.5 ⊞ℂ:-1/4. ÷:-÷2,⇡.⟜(↯:0⊟.)Size |
×2.5 ⊞ℂ:-1/4. ÷:-÷2,⇡.⟜(↯:0⊟.)Size |
||
| Line 13,579: | Line 13,579: | ||
⍥⊃(+×.|⋅∘|+<2⌵⊙◌)50 0 |
⍥⊃(+×.|⋅∘|+<2⌵⊙◌)50 0 |
||
# Scale the results down and display |
# Scale the results down and display |
||
⊏:Cs⌈×9÷:⟜(/↥/↥) |
⊏:Cs⌈×9÷:⟜(/↥/↥)ₙ2◌◌ |
||
# +1¯÷:⟜(/↥/↥)◌◌ |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||