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
.