Re: Program:Simplifying radicals


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

Re: Program:Simplifying radicals



>   jk@westnet.com (Jeff Kalikstein) writes:
>  Here is a nice, small, fast program to simplify a radical.
    [snip]
>  That's it!  I would love to hear any feedback.
>
>  Jeff
>
>>>>
Your program seems to work beautifully on the TI-83.


The program itself can be simplified a bit by eliminating
Goto statements. Here's the TI-83 version in standard
ASCII form, where symbols between backslashes
represent single keystrokes:


Ans\->\Q
int(round(Q\^2\,5))\->\R
1\->\N
For(B,int(Q),2,\(-)\1)
B\^2\\->\S
If R/S=int(R/S)
Then
NB\->\N
R/S\->\R
End
End
Disp N,R


\->\ is STO->, \(-)\ is negate (-), and \^2\ is square.


                                Harry


References: