Re: Program:Simplifying radicals
[Prev][Next][Index][Thread]
> 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: