Programme : Le triangle de Sierpinski
Description du
programme
Ce programme dessine un fractal célèbre, le triangle
de Sierpinski, et le mémorise sous forme d'image.
Pour commencer, appuyez sur
le programme
SIERPINS
L'éditeur de programme s'affiche.
PROGRAM:SIERPINS
:FonctOff:EffDessin
:GraphNAff
:AxesNAff
:0!Xmin:1!Xmax
:0!Ymin:1!Ymax
:NbrAléat!X:NbrAléat!
Y
:For(K,1,3000)
:NbrAléat!N
:If N1 à 3
:Then
:.5X!X
:.5Y!Y
:End
:If 1 à 3 <N and N2 à 3
:Then
:.5(.5+X)!X
:.5(1+Y)!Y
:End
:If 2 à 3 <N
:Then
:.5(1+X)!X
:.5Y!Y
:End
:Pt-On(X,Y)
:End
:SauveImage 6
Après avoir exécuté ce programme, vous pouvez
rappeler et afficher le dessin à l'aide de l'instruction
.
RappelImage 6
1
~ ~
et appuyez sur Í.
Choix des paramètres
FENETRE
Début du groupe
Groupe
/
If
Then
Groupe
/
If
Then
Groupe
/
If
Then
Dessin d'un point
Fin du groupe
Enregistrement de
l'image
Applications 17-11
. Nommez
For
For