Re: TIB: Gee, it's quiet here


[Prev][Next][Index][Thread]

Re: TIB: Gee, it's quiet here




> > TGaArdvark, as much as I would LOVE to give ticalc.org programs
> > that  might be too buggy to be useable, I don't think it would be
> > a good idea.   I don't want to post programs that do not work
> > there; it might invite others to do so. Some programmers might
> > already be doing it!  
>
> Sorry. Didn't mean to upset you. :)

I'm not upset; I'll just post the ti-85 progs I can.
(replace ü with the store command (->), ô with the degrees symbol, 
and ò with the square command (^2))
'Fire' is a test program on the '85 that demonstrates projectile motion 
over the function AB=10cos (.1x)+10.

\Program name: Fire\
:DispG
:Lbl A0
:Menu(1,"1",A1,2,"2",A2,3,"3",A3,4,"4",A4,5,"Clr",B0)
:Lbl B0
:ClDrw
:AB=10cos (.1x)+10
:DrawF AB
:Prompt pow,ang
:Goto A0
:Lbl A1
:0üx
:AB+1üD
:0üt
:x=pow*t cos angô
:y=pow*t sin angô-16tò
:While y>AB
:PtOff(x,y)
:t+.1üt
:PtOn(x,y)
:End
:Goto A0
:Lbl A2
:0üx
:AB+1üD
:0üt
:pow*cos angôüH
:pow*sin angôüK
:x=H*t
:y=D+K*t-16tò
:While y>AB
:PtOff(x,y)
:t+.1üt
:PtOn(x,y)
:End
:Goto A0
:Lbl A3
:.1*pow*cos angôüH
:.1*pow*sin angô+.16üK
:0üt:0üx:AB+1üy
:While y>AB
:PtOff(x,y)
:t+1üt
:PtOn(x+H,y+K-.32t)
:x+Hüx
:y+K-.32tüy
:End
:Goto A0
:Lbl A4
:.1*pow*cos angôüH
:.1*pow*sin angô+.16üK
:0üx:AB+1üy
:While y>AB
:PtOff(x,y)
:PtOn(x+H,y+K-.32)
:K-.32üK
:x+Hüx
:y+Küy
:End
:Goto A0

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com