</> APL Run Loading interactive WebAssembly workspace…

🌀 Mandelbrot Fractal Set

Computes the Mandelbrot set iteration counts on a 2D matrix grid and renders it with a True High-Resolution Bitmap Canvas.

⍝ Grid dimensions and iteration limit
H ← 40 ⋄ W ← 60 ⋄ Iters ← 30
H, W
⍝ Real and Imaginary coordinate grid matrices
re ← ¯2.0 + 3.0 × (¯1 + ⍳W) ÷ W - 1
im ← 1.25 + ¯2.5 × (¯1 + ⍳H) ÷ H - 1
CR ← (H⍴1)∘.×re ⋄ CI ← im∘.×W⍴1
ZR ← (H,W)⍴0 ⋄ ZI ← (H,W)⍴0 ⋄ N ← (H,W)⍴0
:For i :In ⍳Iters
    MASK ← 4 ≥ (ZR×ZR) + ZI×ZI
    T1 ← (ZR×ZR) - ZI×ZI ⋄ T2 ← 2 × ZR × ZI
    ZR ← MASK × CR + T1 ⋄ ZI ← MASK × CI + T2
    N ← N + MASK
:EndFor
N