10
REM Sierpinski Triangle by Texas Instruments.
20
REM Taken from the TI-83 Plus Guidebook.
30
CLG
40
X=
RND
(1):Y=
RND
(1)
50
FOR
K=1
TO
3000
60
N=
RND
(1)
70
IF
N<=1/3
THEN
X=.5*X : Y=.5*Y
80
IF
1/3<N
AND
N<=2/3
THEN
X=.5*(.5+X) : Y=.5*(1+Y)
90
IF
2/3<N
THEN
X=.5*(1+X) : Y=.5*Y
100
PLOT
69,X*96,64-Y*64
110
NEXT
K
Download SIERPINS.bbc
Load SIERPINS as tape image