Operation Manual

290
Kapitel 19: Anwendungen
19APPS.DOC Texas Instruments Inc Revised: 24/06/97 9:22 Printed: 25/06/97 8:39 Page 290 of 20
Programm: Sierpinski-Dreieck
Dieses Programm erstellt eine Zeichnung eines sehr bekannten Fraktals, des Sierpinski-
Dreiecks, und speichert die Zeichnung in der Bildvariablen
TRI
.
1
Wählen Sie
EDIT
aus dem Menü
PRGM
aus, geben Sie
SIERP
an der Eingabeaufforderung
Name=
ein, und
geben Sie dann dieses Programm ein.
PROGRAM:SIERP
:FnOff :ClDrw
:PlOff
:AxesOff
Stellt das
Anzeigefenster
ein.
:0¶xMin:1¶xMax
:0¶yMin:1¶yMax
:rand¶X:rand¶Y
Beginnt
For
-
Gruppe.
:For(K,1,3000)
:rand
¶
N
If
/
Then
-
Gruppe
:If N(1 à 3)
:Then
:.5X¶X
:.5Y¶Y
:End
If
/
Then
-
Gruppe
:If N>(1 à 3 ) und N(2 à 3)
:Then
:.5(.5+X)¶X
:.5(1+Y)¶Y
:End
If
/
Then
-
Gruppe
:If N>(2 à 3)
:Then
:.5(1+X)¶X
:.5Y¶Y
:End
Zeichnet
Punkt.
:PtOn(X,Y)
Ende von
For
:End
Speichert
Bild.
:StPic TRI
2
Wählen Sie auf dem Hauptbildschirm
SIERP
aus dem Menü
PRGM
NAMES
, und drücken Sie
b
, um das Programm auszuführen. Es
benötigt bis zur Beendigung möglicherweise einige Minuten.
3
Nachdem Sie das Programm ausgeführt haben, können Sie das Bild
abrufen und anzeigen, indem Sie
RcPic TRI
ausführen.