# TITLE:  Complex Nth Roots
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   11Dec1994, 9850version:26Feb1997, 25May1999, 30Oct2006, 18Feb2007
# MAKE:   CASIO
# MODEL:  9850
# NOTES:  Enter root(2 for squareroot,3 for cuberoot,4 for fourth,etc.)
#         and the number to take root of. 
#         The roots will be displayed.
#         
#         example - find the cube roots of 1+i
#         soln - enter 3 at the N prompt and 1+i at the Z prompt

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

@@ Program "NTHROOTS"

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