DEFDBL A-Z
PRINT "Calculate a^(b,c) to polar and rectangular coordinates"
INPUT "a"; a
INPUT "b"; b
INPUT "c"; c
d = LOG(ABS(a))
e = d * c
f = ABS(a) ^ b
PRINT "a="; a; " b="; b; " c="; c
g = f * COS(e)
h = f * SIN(e)
IF a < 0 THEN g = g * -1
IF a < 0 THEN h = h * -1
IF ABS(COS(e)) < .0000000000000005# THEN l = 3.141592653589793# / 2
IF ABS(COS(e)) < .0000000000000005# THEN GOTO re
l = ATN(SIN(e) / COS(e))
re:
IF g < 0 AND h < 0 THEN l = -3.141592653589793# + l
IF l < -3.141592653589793# THEN l = l + 3.141592653589793#
IF g < 0 AND h >= 0 THEN l = 3.141592653589793# + l
IF l > 3.141592653589793# THEN l = l - 3.141592653589793#
IF g >= 0 AND h < 0 THEN l = -3.141592653589793# + l
IF l < -3.141592653589793# THEN l = l + 3.141592653589793#
IF g > 0 AND h > 0 THEN l = 3.141592653589793# + l
IF l > 3.141592653589793# THEN l = l - 3.141592653589793#
PRINT "answer in polar coordinates"
PRINT "("; f; "angle"; l; ")"
PRINT "answer in rectangular coordinates"
PRINT "("; g; ","; h; ")"
FOR ccc = 1 TO 7000000
NEXT ccc
SYSTEM