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 ~ ~
programme
SIERPINS
programme s'affiche.
PROGRAM:SIERPINS
:FnOff :ClrDraw
:PlotsOff
:AxesOff
:0!Xmin:1!Xmax
:0!Ymin:1!Ymax
:rand!X:rand!Y
:For(K,1,3000)
:rand!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
:StorePic 6
Après avoir exécuté ce programme, vous pouvez rappeler
et afficher le dessin à l'aide de l'instruction
1
. Nommez le
et appuyez sur Í. L'éditeur de
Choix des paramètres
WINDOW
Début du groupe
Groupe
/
If
Groupe
If
/
Groupe
If
/
Dessin d'un point
Fin du groupe
Enregistrement de l'image
Applications 17-11
For
Then
Then
Then
For
.
RecallPic 6