Ensemble de Mandelbrot

[P.Fradin]

Suite à une suggestion d'Alphonse (fichier source):

Code: Tout sélectionner

TeXgraph#
{version 1.95-beta-10}
Cmd [Fenetre(-2+1.2*i,0.5-1.2*i,3.6+3.6*i), Marges(0,0,0,0), Border(0)];
    [OriginalCoord(1),IdMatrix()];

Graph objet1 = [
   NewBitmap(), T:=100,
   colors:= for N from 1 to T do  MixColor(darkblue,(1-(N-1)/(T-1)),yellow,(N-1)/(T-1))   od,
   Marges(0,0,0,0), size(9,1),
   nb:=MaxPixels(),
          for x from 0 to Re(nb) do
              for y from 0 to Im(nb) do
                  z:=0, N:=0, c:=Pixel2Scr(x+i*y),
                  repeat
                        z:=z^2+c, Inc(N,1)
                  until (N=T) Or (abs(z)>2) od,
                  Pixel([Scr2Pixel(c), colors[N]])
              od
          od
   ];


mandelbrot.png (33.03 Kio) Consulté 10644 fois

[Alphonse Capriani]

Parfait!

C'est limite si dans la rubrique contribution il faudrait pas rajouté une catégorie "Fractales". T'avais ouvert deux sujets la dessus sur l'ancien forum (voir ici et ici) auquel s'ajoute le sujet sur l'ensemble de Mandelbrot ici. On peut rajouter des L-systèmes et encore plein de trucs si on veut...

[P.Fradin]

J'y penserai demain, c'est une bonne idée. C'est vrai que c'est un vaste domaine! Mais là je suis sur mon portable.

[Alphonse Capriani]

Ok : super!

Mais t'inquète pas : ca presse pas...