{COMPLEX |IF(S(Swap):
0*(L(R:ReX)+L(I:ImX))
-L(ReX:ReY)+0*(L(ImX:ImY)
+L(ReY:G(R))+L(ImY:G(I)))
+Swap: 

IF(S(Mul) OR S(Div):
    IF(S(Div):
        0*(L(ReX:ReX/SQ(RADIUS(ReY:ImY)))
        +L(ImX:ImX/SQ(RADIUS(ReY:ImY)))
        +L(R:ReX*ReY+ImX*ImY)
        +L(ImX:ImX*ReY-ReX*ImY))
        -L(ReX:G(R))
        +Div:
        0*(L(R:ReX*ReY-ImX*ImY)
        +L(ImX:ImX*ReY+ReX*ImY))
        -L(ReX:G(R))
        +Mul):

    IF(S(Add):
        Add-L(ReX:ReX+ReY)
        +0*L(ImX:ImX+ImY):

    IF(S(Sub):
        Sub-L(ReX:ReX-ReY)
        +0*L(ImX:ImX-ImY):
 
    IF(S(Inv):
        L(ReX:ReX/L(R:SQ(RADIUS(ReX:ImX))))
        +0*L(ImX:-ImX/G(R))
        -Inv:0*(L(LnX:LN(RADIUS(ReX:ImX)))
        +L(ImX:ANGLE(ReX:ImX)))
        -L(ReX:G(LnX))

    +IF(S(LnX):
        LnX:LnX+0*L(R:ReX*ReY-ImX*ImY)
        +0*(L(ImX:ImX*ReY+ReX*ImY)
        +L(ReX:G(R)))-L(ReX:Exp(G(R))
        *COS(ImX))+0*L(ImX:SIN(ImX)
        *Exp(G(R)))
    +X2Y))))))
}
{}
{Enter the Real and Imaginary parts of two complex numbers|}
{Use the function keys to perform *, /, +. Use More to access|}
{-, 1/X, Ln(X),and X raised to the Y power. The Swap key|}
{exchanges complex X and Y. Complex results appear in X|}
{Real part of the result appears in the function field.|}
{EXAMPLE: (3,-5i)(19,89i) * gives (502,172i) [RPN style]|}