# TITLE:  Complex Nth Roots   
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro                  
# DATE:   11Dec1994, non9700version:4Feb1997, 7400version:16Feb2007, 18Feb2007        
# MAKE:   CASIO
# MODEL:  7400G
#
# Enter root (2 for squareroot,3 for cuberoot,4 for fourth,etc.)
# and the real and imaginary parts of number to take root of. 
#         
# example - find the cube roots of 1+i
# soln - enter 3 at the N prompt and 1 at RE prompt and 1 at IM prompt.

# The resultant display [1.0842]
#                       [0.2905]  means 1.0842+0.2905i

# \nrt is the nth root symbol
# \pi is the Pi symbol
# _ is the triangle display symbol

@@ Program "NTHROOTS"

Rad
Lbl 0
"N"?->N:"RE"?->X:"IM"?->Y
N->K
Pol(X,Y)->List 1
Lbl 1
Rec(N \nrt List 1[1],(List 1[2]+2K*\pi)/N)      
List Ans(Abs List Ans>10^-10)_
Dsz K:Goto 1
Goto 0