# TITLE:  Complex Nth Roots   
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro                  
# DATE:   11Dec1994, non9700version:4Feb1997, 18Feb2007, 30Mar2007        
# MAKE:   CASIO
# MODEL:  fx6300G or greater
#
# Enter root(2 for squareroot,3 for cuberoot,4 for fourth,etc.)
# and the real and imaginary parts of number to take root of. 
# The roots will be displayed.
# Results will be displayed as follows:
# Real part, then "IM" to indicate Imaginary part.
# A comma will appear between successive roots to separate them.
#         
# 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. 

# \nrt is the nth root symbol
# \pi is the Pi symbol

@@ Program 1

Rad
Lbl 0
"N"?->N:"RE"?->X:"IM"?->Y
N->K
Pol(X,Y)->R:J->T
Lbl 1
Rec(N \nrt R,(T+2K*\pi)/N)->G      
Abs G<10^-10=>0->G              
Abs J<10^-10=>0->J
G_
"IM":J_
","_
Dsz K:Goto 1
Goto 0