C-FOCAL,1969 01.01 C-TO RAISE A+B*I TO THE N POWER 01.02 E 01.05 S PI=3.14159 01.07 A ?A B N?,! 01.14 I (A) 1.2,1.3,1.2 01.20 S TH=FATN[FABS] 01.30 I (A) 1.4,1.6,1.5 01.40 I (B) 1.41,1.41,1.43 01.41 S TH=PI+TH; G 2.1 01.43 S TH=PI-TH; G 2.1 01.50 I (B) 1.51,2.1,2.1 01.51 S TH=2*PI-TH; G 2.1 01.60 I (B) 1.63,7.1 01.61 S TH=PI/2; G 2.1 01.63 S TH=3*PI/2 02.10 S Z=FEXP[FLOG*N] 02.20 S A=Z*FCOS(TH*N) 02.30 S B=Z*FSIN(TH*N) 02.40 T "(A+B*I)^N=",A," +",B,"*I",!!; G 1.02 07.10 T "THAT IS THE ORIGIN, 0+0*I!",! 07.20 G 1.02 *