TI-83 Plus Activities 570
Using a Program to Create the SierpinskiTriangle
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!NBeginning of For group.
:If N1à3
:Then
:.5X!X
:.5Y!Y
:End
If/Then group