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: