Bonjour je suis nouveau sur le forum

Voilà j'essaye de tracer la fractale de mandelbrot avec vbscript ( interface gfx) et je n'ai pas un bon résultat je n'arrive pas a bien la tracer j'essaye de changer les valeurs mais toujours rien ... Voilà mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Init gfx, 0.01 ' Nombre entier de millisecondes entre chaque tracé
 
' Insérez ici votre code
 
' on définit la zone que l'on dessine. Ici, la fractale en entière
 x1 = -2.1
 x2 = 0.6
 y1 = -1.2
 y2 = 1.2
 zoom = 150 ' pour une distance de 1 sur le plan, on a 100 pixel sur l'image
 iteration_max = 100
 
' on calcule la taille de l'image :
px = (x2 - x1) * zoom
py = (y2 - y1) * zoom
 
For x0 = -2 to 2 step 0.006
    For y0 = -2  to 2 step 0.006
	x = 0 
	y = 0 
 
	iteration = 0
 
	 while (x*x+y*y) < 4 and iteration < iteration_max
           tmp = x*x -y*y + x0
          y = 2*x*y +y0
 
		  x= tmp
		  iteration = iteration +1
		  wend
 
	if iteration <> iteration_max then
	 c = iteration
	 else
	 c = 0
	 end if 
 
	 plot x*50, y*50, 60
 
 
 
 
Next
Next
Voilà le rendu http://img837.imageshack.us/img837/5026/o71m.png c'est loin d'être jolie J'aimerais de l'aide et peut être des explications si je suis complètement à l'ouest... Voilà ce que je devrai avoir http://t0.gstatic.com/images?q=tbn:A...TYvUgHzDt0qRkQ
La fenêtre de l'interface et de x: [-319 ; 320]& y:[-239; 240]

Merci d'avance