TeXgraph - Forum

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é 12252 fois

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...

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.

Ok : super!

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