Voilà un petit programme ( mais très long ) pour dessiner une fractale!
Comptez 1/4 d'heure sur une 84+SE émulée à 400% de sa vitesse pour la tracer !
Voilà un bel aperçu (la fenêtre n'est pas super bien réglée ):
Comptez 1/4 d'heure sur une 84+SE émulée à 400% de sa vitesse pour la tracer !
- Code:
:Func:a+ib
:FnOff
:-2->Xmin
:.5->Xmax
:1->Ymax:-1->Ymin
:ClrDraw
:For(A,-2,.5,ΔX)
:For(B,-1,1,ΔY)
:DelVar ZDelvar NA+iB->C
:Repeat N=49 or 2<=abs(Z
:N+1->N
:Z²+C->Z
:End
:If N=49
:Pt-On(A,B
:End
:End
Voilà un bel aperçu (la fenêtre n'est pas super bien réglée ):