Ce programme créé sur fx-8930 GT va dessiner pour vous, au choix:
    - une fractale de Mandelbrot
    - une fractale de Julia
    - les deux

    Les fractales sont dessinées en blanc sur fond noir, si toute fois vous préférez l'inverse, lancez alpha-tracer, faites GO!!, appuyez sur F6, entrez 6, appuyez sur N. Ceci, bien sûr, après avoir calculé l'image.

    L'image, une fois calculée, est sauvegardée dans Pic 6, faites attention ! Le calcul d'une fractale de Mandelbrot prend 1h20, et les deux ensembles a peu près 2h50. J'espère que vous êtes patients (résultats donnés par une fx-8930 GT, je souhaiterais qu'une personne disposant d'un modèle supérieur me communique ses temps, merci !). Ca en fait un bon benchmark, non ?
Note: Je viens d'optimiser le code, les temps de calcul devraient êtres un peu plus bas.

//FRACTALIZER
//Taille: 800
//Date: 12/07/98
//Auteur: Gfx, alias Romain GUY

0->A~Z:ViewWindow 0,126,0,0,62,0:AxesOff:Cls:ClrText
1->L
2->U
Locate 5,1,"**FRACTALIZER**"
Locate 7,2,"(C)1998 GFX"
Locate 1,5,"> TYPE: M"
Locate 3,6,"GO !!"
Locate 6,7,"EXIT TO QUIT"
Lbl 0
Getkey=37=>Goto Y
Getkey=28=>Goto Z
Getkey=31=>Goto W
Getkey=47=>Goto V
Goto 0
Lbl Y
L=2=>Goto Z
Locate 1,5," "
Locate 1,6,">"
2->L
Goto 0
Lbl Z
L=1=>Goto Y
Locate 1,5,">"
Locate 1,6," "
1->L
Goto 0
Lbl W
L=2=>Goto S
If L=1:Then Isz U:U>3=>1->U:U=1=>Locate 9,5,"M":U=2=>Locate 9,5,"J":Locate 9,5,"2":IfEnd
Goto 0
Lbl S
Plot -1, -1
U=2=>Goto P
32->M
For 0->I To 61
-1+I*2/61->S // * multiplié et / divisé
For 0->J To 62
-1.5+J*2/62->T
0->A~G
Do
C-D+T->E
2*A*B+S->B
E->A
A²->C
B²->D
Isz F
LpWhile F
F<>M=>PxlOn I+1,J+1 // <> est différent de
Next
Next
U=1=>Goto X
Lbl P
0->A~Z
64->M
For 0->I To 61
-1.61301+I*3/61->S // * multiplié et / divisé
For 0->J To 62
-.75457+J*3/62->T
0->A~G
T-.75457->A
S+.11301->B
Do
A²-B²-.75457->D
2*A*B+.11301->E
D->A
E->B
Isz C
LpWhile C
C<>M=>PxlOn I+1,J+1 // <> est différent de
Next
Next
Lbl X
StoPict 6
Lbl V
ClrText
"**FRACTALIZER**"
"MANDELBROT + JULIA"
" "
"(C)ROMAIN GUY"
" "
AxesOn:ViewWindow -6.3,6.3,1,-3.1,3.1,1
Stop

<< Sommaire >>