FRACTALE ESPACE DE MANDELBROT

Un petit programme avec une interface très moyenne, mais on vit de belles courbes. Le moteur de ça et la boucle :

while(compt <=limite) and (module<4) do
   begin
    aux:=x;
    x:=sqr(x) - sqr(y) +p0;
    y:= 2*y*aux + q0;
    module :=sqr(x)+sqr(y);
    inc(compt);
   end;

Le reste sert à l’affichage

Il suffit de cliquer dans la fenêtre a l’endroit que l’on veut visionner. Le champ zone donne la taille de la zone a visionner (en réduisant la valeur on zoome). Le champ limite donne le nombre d’itération avant la sotie de la boucle. Le premier passage donne le même résultat que l’excellant programme de GILMI le deuxième il y a des couleurs en plus et c’est bô.