Re: A82: Basic Conversion
[Prev][Next][Index][Thread]
Re: A82: Basic Conversion
GeradS711 wrote:
>
> Yeah, yeah I know this is the wrong place to send this to, but I wrote this
> program for rotating 2nd degree equations for my 82, and it soon became pretty
> popular in my math class, but I couldn't port it to the 85 for some reason
> dealing with the
> 'sto->' command, do you have to define vars in 85 basic? Anyway, could
> somebody port this for me.... Thanx
> I had to use long hand a lot because of the way the font doesn't support the
> signs on email.... also // is a comment.
> Thanks again,
> Gerad
> :ClrDraw
> :Degree
> :Func
> :StoreGDB GDB1
> :""-->Y1 //as in the Y= screen
> :""-->Y2
> :""-->Y3
> :""-->Y4
> :AxesOff
> :LabelOff
> :ZStandard
> :Prompt A,B,C,D,E,F
> :B/(A-C)
:tan(^ -1) Ans // This does not work!!
> :Ans/2-->Z
:Text(1,1,"<Theta>=",Z // There is no Text command on the TI-85
:Acos Zcos Z+Bcos Zsin Z+Csin Zsin Z // This does not work
:Ans-->G //it errors here /// I didn't get this far!!
:Text(8,1,"A'=",G // There is no Text command on the TI-85
:Asin Zsin Z-Bsin Zcos Z+Ccos Zcos Z // This does not work
> :Ans-->H
:Text(15,1,"C'=",H // There is no Text command on the TI-85
:Text(22,1,round(G,2),"X'(^2)+",round(H,2),"Y'(^2)=",-round(F,2) //
There is no Text command on the TI-85
> :Pause
:RecallGDB GDB1 // RcGDB GDB1
:ClrDraw // ClDrw
> :AxesOn
:ClrHome // ClLCD
Why don't you send the TI-82 file! I tried to fix it but I don't know
what parts are soposed to be!!!
I have a solution:
:ClDrw
:Degree
:Func
:StGDB GDB1
:""->Y1
:""->Y2
:""->Y3
:""->Y4
:AxesOff
:LabelOff
:ZStd
:Prompt A,B,C,D,E,F
:B/(A-C)
:Ans/2->Z
:Disp "<Theta>=",Z
:Ans->G
:Disp "A'=",G
:Ans->H
:Disp "C'=",H
:Disp round(G,2),"X'(^2)+",round(H,2),"Y'(^2)=",-round(F,2)
:Pause
:RcGDB GDB1
:ClDrw
:AxesOn
:ClLCD
this does not work properly (I think) so see what you want to change.
--- /------ /\ \ |
/ \ | / \ |\ | Name: Sean Creasy
\ | / \ | \ |
--- |---- / \ | \ | E-Mail: n3yne@usa.net
\ | / CREASY \ | \ |
\ / | | | | \|
--- \------ | | | \
Webpage: http://members.tripod.com/~n3yne
IRC: Chatnet #N3YNE and EFNet #N3YNE
References: