1 !TYPED BY ED BAKER 25-MAR-73
100 PRINT'THIS PROGRAM WILL RAISE A COMPLEX NUMBER'
110 PRINT'TO ANY REAL OR COMPLEX POWER.':PRINT
130 PRINT'WHEN ASKED "POWER?" TYPE R FOR REAL EXPONENTS'
140 PRINT'                    TYPE C FOR COMPLEX EXPONENTS'
150 PRINT'WHEN ASKED "AGAIN?" TYPE YES OR NO.':PRINT
180 INPUT'POWER';A$:IFLEFT(A$,1%)='R'THEN240ELSEIFLEFT(A$,1%)='C'
	THEN330ELSEPRINT'YOU GOOFED!  TRY AGAIN!':GOTO180
240 INPUT'REAL PART';A,'IMAGINARY PART';B,'EXPONENT';C:D=0:GOSUB520:
	GOTO420
330 INPUT'REAL PART';A,'IMAGINARY PART';B,'EXPONENT REAL PART';C:
	INPUT'EXPONENT IMAGINARY PART';D:GOSUB520
420 PRINT:PRINT'RESULTANT REAL PART =';E:PRINT'RESULTANT IMAGIN';
	'ARY PART =';F:PRINT
460 INPUT'AGAIN';Z$:Z$=LEFT(Z$,1%):IFZ$='Y'THEN180ELSEIFZ$='N'THEN680
	ELSEPRINT'YOU GOOFED!  TRY AGAIN!':GOTO460
520 X=SQR(A^2+B^2):IFA=0THEN610ELSEY=ATN(B/A):IFA>0THEN650ELSEIFB>0
	THEN590ELSEY=Y-PI:GOTO650
590 Y=Y+PI:GOTO650
610 IFB>=0THEN640ELSEY=-PI/2:GOTO650
640 Y=PI/2
650 E=X^C/EXP(D*Y)*COS(C*Y+D*LOG(X)):F=X^C/EXP(D*Y)*SIN(C*Y+D*LOG(X)):
	RETURN
680 END