Re: A89: Re: functions in demo display
[Prev][Next][Index][Thread]
Re: A89: Re: functions in demo display
the equation for the 3d graph is
z(x,y)=cos(sqrt(x^2+y^2))/sqrt(x^2+y^2)
this is in 3d graph mode obviously! =)
a cool program to try is this one.
i didn't make it, so don't ask me. i got it off of the ti-89/92+
discussion group TI has.
:Grphcycl(play,speed,rot)
:Prgm
:If play=1 Then
:setMode("graph","3d")
:0->eye (W type thing,'diamond ( alpha w')
:45->eye (o type thing,'diamond ( alpha o')
:-3pi->xmin
:3pi->xmax
:17->xgrid
:-3pi->ymin
:3pi->ymax
:17->ygrid
:-.5->zmin
:1->zmax
:
:Try
:NewFold z_stopic
: Else
:ClrErr
:EndTry
:setFold(z_stopic)
:
:For i,1,50,1
: i*0.04->g
: Define
:z2(x,y)=cos(sqrt(x^2+y^2)-g*pi)/(sqrt(x^2+y^2))
: DispG
: StoPic #("drop"&string(i))
:EndFor
:EndIf
:
:setFold(z_stopic)
:FnOff
:CyclePic "drop",50,speed,rot,1
:setFold(main)
:EndPrgm
to run it type
Grphcycl(1,0.05,20)
it took me about 45min to get it to draw all the pics, but after that
type
Grphcycl(0,.05,20)
to run it. it looks cool.
{-kimo-}
References: