Programm zur Erstellung eines Sierpinski-Dreiecks
Programm
Dieses Programm erzeugt die Zeichnung eines berühmten Fraktals, dem
Sierpinski-Dreieck und speichert die Zeichnung in einer Abbildung.
Beginnen Sie mit ~ ~
und drücken Sie dann Í. Der Programmeditor erscheint.
Programm
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
78
. Benennen Sie das Programm
1
Legt das Anzeigefenster fest.
BBeginn der
If/Then
If/Then
If/Then
Zeichnen eines Punktes.
Ende der
Abbildung speichern.
SIERPINS
-Gruppe.
For
Gruppe.
Gruppe.
Gruppe.
Gruppe.
For
Anwendungsbeispiele