Texas Instruments TI-83 Using a Program to Create the Sierpinski Triangle

Applications 17-7

8317APPS.DOC TI-83 international English Bob Fedorisko Revised: 02/19/01 1:00 PM Printed: 02/19/01 1:39 PM

Page 7 of 20

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: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 N1à3

:Then

:.5X!X

:.5Y!Y

:End

If/Then group

:If 1à3<N and N2à3

:Then

:.5(.5+X)!X

:.5(1+Y)!Y

:End

If/Then group.

:If 2à3<N

:Then

:.5(1+X)!X

:.5Y!Y

:End

If/Then group.

:Pt-On(X,Y) Draw point.

:End End of For group.

:StorePic 6 Store picture.

After you execute the program above, you can recall and

display the picture with the instruction RecallPic 6.

Using a Program to Create the Sierpinski Triangle

Setting up the

Program