Page 1 sur 1

Ensembles de Julia

MessagePublié: 18 Déc 2010 15:02
par P.Fradin
De l'ancien forum (fichier source):

Code: Tout sélectionner
TeXgraph#
{version 1.95-beta-10}
Cmd   [Fenetre(-1.5+1.2*i,1.5-1.2*i,3+3*i), Marges(0,0,0,0), Border(0)];
   [OriginalCoord(1),IdMatrix()];

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


julia.png
julia.png (34.12 Kio) Consulté 4542 fois