Variazioni




Quest'immagine č stata ottenuta modificando, nel sorgente, il calcolo del valore della successione di Mandelbrot, Zi+1 = Zi2 + C (v. la riga in rosso nella funzione sottostante) 


Function fnx(X, Y)
tx = X
ty = Y
i = 1
While i < 200 And Sqr(tx * tx + ty * ty) < 2
  Call zn1(tx, ty, X, Y)
  i = i + 1
Wend
fnx = Sqr(tx * tx + ty * ty)
' normal: fnx = i

End Function
cioč assegnando come valore della funzione il modulo di Z invece che il numero di cicli, come si fa di solito;

la procedura Zn1 chiamata all'interno del ciclo While č quella che calcola il punto successivo Zi+1 dato Zi (quindi esegue un singolo passo della successione): 
Sub zn1(ByRef X, ByRef Y, cx, cy)  ' calcola la successione
a = X * X - Y * Y + cx
b = 2 * X * Y + cy
X = a
Y = b
End Sub



Altre immagine inconsuete..
con b = (2 * (Sin(X * Y))) * X * Y + cy
(nella procedura Zn1)
con b = 2 * X * Y + cy + X / Y