Creare il frattale di Mandelbrot in QBasic

Il frattale di Mandelbrot è uno dei più famosi e affascinanti frattali che esistono. Se sei un programmatore appassionato e vuoi imparare come crearlo con il codice QBasic, sei nel posto giusto.

Prima di tutto, cos’è un frattale? In poche parole, un frattale è un oggetto geometrico che si ripete all’infinito, mantenendo le stesse proprietà a diverse scale. Il frattale di Mandelbrot in particolare è un insieme di numeri complessi che presenta un’infinità di dettagli e sfumature.

Prova il seguente codice QBasic e crea il tuo frattale di Mandelbrot! Sperimenta con i parametri e scopri nuove forme e dettagli. Buon divertimento!

Screen 13

Const x1 = -2.1
Const x2 = 0.7
Const y1 = -1.2
Const y2 = 1.2
Const iter = 100

Dim Shared As Integer col(15)

col(0) = 0: col(1) = 1: col(2) = 2: col(3) = 3: col(4) = 4
col(5) = 5: col(6) = 6: col(7) = 7: col(8) = 8: col(9) = 9
col(10) = 10: col(11) = 11: col(12) = 12: col(13) = 13: col(14) = 14
col(15) = 15

For i = 1 To 15
    col(i) = col(i) * 16
Next i

For x = 1 To 320
    For y = 1 To 240
        cx = x1 + (x2 - x1) * x / 320#
        cy = y1 + (y2 - y1) * y / 240#
        zx = 0
        zy = 0
        i = 0
        Do While (zx * zx + zy * zy < 4) And (i < iter)
            xt = zx * zx - zy * zy + cx
            zy = 2 * zx * zy + cy
            zx = xt
            i = i + 1
        Loop
        If i = iter Then
            PSet (x, y), col(0)
        Else
            PSet (x, y), col(i Mod 15)
        End If
    Next y
Next x

Do While InKey$ = ""
Loop