# TITLE:  Complex Nth Roots
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   11Dec1994, 18Feb2007, 30Mar2007
# MAKE:   CASIO
# MODEL:  fx9700GE or greater
# SIZE:   85
# 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

@@ Program 1

Rad
Lbl 0
"N"?->N:"Z"?->Z:N->K
Lbl 1
Rec(N \nrt (Abs Z),(Arg Z+2K*\pi)/N)->G 
Abs G<10^-10=>0->G                  
Abs J<10^-10=>0->J                  
G+iJ_                                  
","
Dsz K:Goto 1
Goto 0