Texas Instruments TI-83 PLUS - Manual (Page 573)

TI-83 Plus Activities 570
Using a Program to Create the Sierpinski
Triangle
Setting up the Program
This program creates a drawing of a famous fractal, the Sierpinski
Triangle, and stores the drawing to a picture. To begin, press
 ~ ~
1 . Name the program SIERPINS , and then press Í . The program
editor is displayed.
Program
PROGRAM:SIERPINS
:FnOff :ClrDraw
:PlotsOff
:AxesOff
:0!Xmin:1!Xmax
:0!Ymin:1!Ymax
Set viewing window.
:rand!X:rand!Y
:For(K,1,3000)
:rand!N
Beginning of For group.
:If N 1 à 3
:Then
:.5X!X
:.5Y!Y
:End
If / Then group