10 PRINT "Calculate complex log; log(a,b)"
15 DEFDBL A-Z
20 INPUT ; "Input a"; a
30 INPUT "Input b"; b
40 c = LOG(((a ^ 2) + (b ^ 2)) ^ (1 / 2))
41 IF a = 0 AND b > 0 THEN
42 f = 3.141592653589793# / 2
43 GOTO 100
44 END IF
45 IF a = 0 AND b < 0 THEN
46 f = -3.141592653589793# / 2
47 GOTO 100
48 END IF
90 f = ATN(b / a)
91 IF a < 0 AND b < 0 THEN
92 f = -3.141592653589793# + f
93 GOTO 100
94 END IF
95 IF a < 0 THEN f = 3.141592653589793# + f
100 PRINT "Log("; a; ","; b; ") = ("; c; ","; f; ")"
110 SYSTEM