RadicalsFactors.txt

ClrHome
Disp "--FACTOR RADICALS--"

Input "Select your mode",E

If E=1
Then
Disp "√A"
Prompt A
Prompt N
0→M
0→P

For(X,1,16,1)
X^P→L
remainder(A,L)→F

If F=0 and M<L
Then
L→M
A/L→N
End

End

Disp toString(√(M))+"√"+toString(N)
End

If E=2
Then

Disp "√A*b..."
Prompt A
Input "How many variables?",N

For(X,0,N-1,1)

Input "Enter Var #"+toString(X+1)+": ",V
Input "Enter Exponent #"+toString(X+1)+": ",E

End

End

If E=3
Then
For(X,1,16,1)
X*X→L
Disp L
End

End