(11C) Complex Arithmetic

[Gamo]

HP-11C doesn't have complex number calculation function and here is the program to calculate real with complex number in the form of (a+bi) + (a+bi) on basic arithmetic operation.

Answer as (a+bi)
LBL A for (+) Plus
LBL B for (-) Minus
LBL C for (x) Multiply
LBL D for (/) Divide

Example 1: (15.5 + 6.5i) x (18.7 - 7.5i) = 338.6 + 5.3i

6.5 ENTER 15.5 ENTER
7.5 CHS ENTER 18.7 > [C] > 338.6 [X<>Y] 5.3

Example 2: (5 + 6i) + (6 + 7i) = 11 + 13i

6 ENTER 5 ENTER
7 ENTER 6 > [A] > 11 [X<>Y] 13

Program:

Code:


LBL A 
x<>Y
Rv
+
Rv
+
R^
RTN
LBL B
X<>Y
Rv
-
Rv
X<>Y
-
R^
RTN
LBL C
>P
Rv
Rv
>P
X<>Y
Rv
x
Rv
+
R^
>R
RTN
LBL D
>P
Rv
Rv
>P
X<>Y
Rv
X<>Y
/
Rv
-
R^
>R
RTN