• Home
 · 
• Graphics
 · 
• Mandelbrot fractal - 10 lines of code

Mandelbrot fractal - 10 lines of code

Mandelbrot fractal - 10 lines of code

Rate Mandelbrot fractal - 10 lines of code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Form1.Show: Randomize Timer: dn = Int(1 + Rnd * 16)
    For i = 0 To 400: x = i / 100 - 2
    For j = 0 To 300: y = 2 - j / 75
    zr = 0: zi = 0: zr2 = 0: zi2 = 0: cr = x: ci = y: n = 1
    Do While n < 80 And zr2 + zi2 < 4
        zr2 = zr * zr: zi2 = zi * zi
        zi = 2 * zi * zr + ci: zr = zr2 - zi2 + cr: n = n + 1
    Loop: PSet (i, j), QBColor((n + dn) Mod 16): Next j: Next i
End Sub