:For(K,1,3000)
:rand!N
:If N1 à3
:Then
:.5X!X
:.5Y!Y
:End
:If 1 à3 <N and N2 à3
:Then
:.5(.5+X)!X
:.5(1+Y)!Y
:End
:If 2 à3 <N
:Then
:.5(1+X)!X
:.5Y!Y
:End
:Pt-On(X,Y)
:End
:StorePic 6
After you execute the program above, you can recall and display the picture with the instruction
.
RecallPic 6
Graphing Cobweb Attractors
Problem
Using
format, you can identify points with attracting and repelling behavior in sequence
Web
graphing.
Procedure
1. Press z. Select
and the default format settings.
2. Press o. Clear all functions and turn off all stat plots. Enter the sequence that corresponds to
the expression Y = K X(1NX).
u(n)=Ku(n
N
1)(1
N
u(n
u(nMin)=.01
Beginning of For group.
If/Then group
If/Then group.
If/Then group.
Draw point.
End of For group.
Store picture.
and the default mode settings. Press y .. Select
Seq
N
1))
format
Web
Chapter 17: Activities
312