Page 1 sur 1

Ensemble de Mandelbrot

MessagePublié: 15 Déc 2010 15:37
par 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
mandelbrot.png (33.03 Kio) Consulté 6055 fois

Re: Mandelbrot & Co

MessagePublié: 15 Déc 2010 23:11
par 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...

Re: Mandelbrot & Co

MessagePublié: 15 Déc 2010 23:14
par 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.

Re: Mandelbrot & Co

MessagePublié: 16 Déc 2010 08:18
par Alphonse Capriani
Ok : super!

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