A82: Basic Conversion
[Prev][Next][Index][Thread]
A82: Basic Conversion
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
:Ans/2-->Z
:Text(1,1,"<Theta>=",Z
:Acos Zcos Z+Bcos Zsin Z+Csin Zsin Z
:Ans-->G //it errors here
:Text(8,1,"A'=",G
:Asin Zsin Z-Bsin Zcos Z+Ccos Zcos Z
:Ans-->H
:Text(15,1,"C'=",H
:Text(22,1,round(G,2),"X'(^2)+",round(H,2),"Y'(^2)=",-round(F,2)
:Pause
:RecallGDB GDB1
:ClrDraw
:AxesOn
:ClrHome
Follow-Ups: