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 (34.12 Kio) Consulté 8128 fois