Table des Matières
Publicité
288
Chapitre 19 : Applications
Programme : Le triangle de Sierpinski
Ce programme crée un dessin à base d'une fractale très connue, le triangle de Sierpinski et
stocke le résultat dans la variable graphique
dans le menu PRGM, saisissez
Sélectionnez
EDIT
suivant.
PROGRAM:SIERP
:FnOff :ClDrw
:PlOff
:AxesOff
Définit la
:0¶xMin:1¶xMax
:0¶yMin:1¶yMax
fenêtre de
visualisation
:rand¶X:rand¶Y
Début de la
:For(K,1,3000)
For
:rand¶N
boucle
:If N(1 à 3 )
:Then
Test If
Then
/
:.5X¶X
:.5Y¶Y
:End
Sur l'écran principal, sélectionnez
NAMES puis appuyez sur b pour exécuter le programme, ce qui
prend une dizaine de minutes.
Dès le programme terminé, vous pouvez rappeler et afficher le
dessin grâce à la commande RcPic TRI.
.
TRI
SIERP
à l'invite
If
Then
Test
/
Test If
/
Then
Dessine le
point
Fin de la
For
boucle
Stocke
l'image
dans le menu PRGM
SIERP
Name=
puis saisissez le programme
:If N>(1 à 3 ) and N(2 à 3 )
:Then
:.5(.5+X)¶X
:.5(1+Y)¶Y
:End
:If N>(2 à 3 )
:Then
:.5(1+X)¶X
:.5Y¶Y
:End
:PtOn(X,Y)
:End
:StPic TRI
Publicité
Chapitres
Table des Matières
