Ensembles de Julia

Ensembles de Julia

Messagepar P.Fradin » 18 Déc 2010 15:02

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é 6771 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Revenir vers Objets fractals

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 14 invités

cron