Programm: Sierpinski-Dreieck - Texas Instruments Ti-86 Handbuch

290
Kapitel 19: Anwendungen

Programm: Sierpinski-Dreieck

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