Operation Manual

290
Hoofdstuk 19: Toepassingen
19APPS.DOC 19 Benoît Van Hove Revised: 08/27/97 8:19 PM Printed: 08/27/97 8:39 PM Page 290 of 20
Het programma: de Sierpinski-driehoek
Dit programma maakt een tekening van een algemeen bekende fractal, de Sierpinski-driehoek
en slaat de tekening op in de afbeeldingsvariable
TRI
.
1
Selecteer
EDIT
uit het
PRGM
-menu. Voer
SIERP
bij de
Name=
-prompt
in en voer het volgende programma
in:
PROGRAM:SIERP
:FnOff :ClDrw
:PlOff
:AxesOff
Stelt venster in
:0
¶
xMin:1
¶
xMax
:0
¶
yMin:1
¶
yMax
:rand
¶
X:rand
¶
Y
Begin
For
-geselect.
:For(K,1,3000)
:rand
¶
N
If
/
then
-
geselect
:If N

(1
à
3)
:Then
:.5X
¶
X
:.5Y
¶
Y
:End
If
/
t
hen
-
geselect
:If N>(1
à
3 ) and N

(2
à
3)
:Then
:.5(.5+X)
¶
X
:.5(1+Y)
¶
Y
:End
If
/
then
-
geselect
:If N>(2
à
3)
:Then
:.5(1+X)
¶
X
:.5Y
¶
Y
:End
Tekent punt
:PtOn(X,Y)
Eind van
For
-
geselect
:End
Slaat afb. op
:StPic TRI
2
Ga naar het beginscherm, selecteer
SIERP
uit het
PRGM
NAMES
-menu en druk op
b
om het programma uit te
voeren. Dit kan enkele minuten in beslag nemen.
3
Na uitvoering van het programma kunt u de afbeelding met
behulp van
RcPic TRI
opnieuw ophalen en weergeven.