Operation Manual

Anwendungsbeispiele 17–11
Dieses Programm erzeugt die Zeichnung eines berühmten
Fraktals, dem Sierpinski-Dreieck und speichert die
Zeichnung in einer Abbildung. Beginnen Sie mit  ~
~
1. Benennen Sie das Programm SIERPINS und
drücken Sie dann Í. Der Programmeditor erscheint.
PROGRAM:SIERPINS
:FnOff :ClrDraw
:PlotsOff
:AxesOff
:0!!Xmin:1!!Xmax
:0!!Ymin:1!!Ymax
Legt das Anzeigefenster
fest
:rand!!X:rand!!Y
:For(K,1,3000)
:rand!!N
Beginn der For-Gruppe
:If N1à 3
:Then
:.5X!!X
:.5Y!!Y
:End
If/Then-Gruppe
:If 1à 3<N and N2à 3
:Then
:.5(.5+X)!!X
:.5(1+Y)!!Y
:End
If/Then-Gruppe
:If 2à 3<N
:Then
:.5(1+X)!!X
:.5Y!!Y
:End
If/Then-Gruppe
:Pt-On(X,Y)
Zeichnen eines Punktes
:End
Ende der For-Gruppe
:StorePic 6
Abbildung speichern
Nach der Ausführung des Programms können Sie die
Abbildung mit dem Befehl
RecallPic 6 abrufen und
anzeigen.
Programm zur Erstellung eines Sierpinski-Dreiecks
Programm