Texas Instruments TI-89 用户手册

Additional Graphing Topics

 502

Technical Reference module. For information about using the Program Editor, refer to 
Programming.

: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