Texas Instruments TITANIUM TI-89 - Manual (Page 502)

Additional Graphing Topics 502
Technical Reference module. For information about using the Program Editor, refer to
Programming.
Program Listing Every Other Graph from
Program
:cyc()
:Prgm
:local I
:
¦
Set mode and Window variables
:setMode(“graph”,”3d”)
:70
!
eye
f
: M 10
!
xmin
:10
!
xmax
:14
!
xgrid
:
M
10
!
ymin
:10
!
ymax
:14
!
ygrid
: M 10
!
zmin
:10
!
zmax
:1
!
zscl
:
¦
Define the function
:(x^3
ù
y–y^3
ù
x)/390
!
z1(x,y)
:
¦
Generate pics and rotate
:For i,1,10,1
: i
ù
10
!
eye
q
: DispG
: StoPic #("pic" & string(i))
:EndFor
:
¦
Display animation
:CyclePic "pic",10,.5,5, M 1
:EndPrgm