Casio fx-5800P and TI-84 Plus CE: Simplify Radicals and August TI-95 ProCalc Month
Introduction
The program SIMPRAD simplifies radicals of any positive integer and power.
Casio fx-5800P Program: SIMPRAD
"2021-05-16 EWS"
"x√(N)->A x√(B)"
"INTEGERS"
"X"?->X
"N"?->N
Xx√(N)->R
If Frac(R)=0
Then R
Stop
IfEnd
Int(R)->Q
N->B
1->A
While Q≠1
B÷(Q^(X))->S
If Frac(S)=0
Then Q×A->A
S->B
IfEnd
Q-1->Q
WhileEnd
"A x√(B):"⊿
A⊿
B
"x√(N)->A x√(B)"
"INTEGERS"
"X"?->X
"N"?->N
Xx√(N)->R
If Frac(R)=0
Then R
Stop
IfEnd
Int(R)->Q
N->B
1->A
While Q≠1
B÷(Q^(X))->S
If Frac(S)=0
Then Q×A->A
S->B
IfEnd
Q-1->Q
WhileEnd
"A x√(B):"⊿
A⊿
B
TI-84 Plus CE Program: SIMPRAD
Or type:
"2021-05-16 EWS"
ClrHome
Disp "√(N)->A*x√(B)","ENTER INTEGERS"
Input "X? ",X
Input "N? ",N
Xx√N→R
If fPart(R)=0
Then
Disp R
Stop
End
iPart(R)→Q
N→B
1→A
While Q≠1
B/(Q^X)→S
If fPart(S)=0
Then
Q*A→A
S→B
End
Q-1→Q
End
Disp toString(X)+"x√("+toString(N)+")="
Disp toString(A)+"*"+toString(X)+"x√("+toString(B)+")"
Examples
TI-95 ProCalc Month: August 2021
Every Saturday in August 2021 (8/7/21, 8/14/21, 8/21/21, 8/28/21) will feature the Texas Instruments TI-95 ProCalc from the late 1980s.
Eddie
All original content copyright, © 2011-2021. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.
