It took nearly two months for BID.COM to deliver my order, but finally I have an HP-32SII in my hands. This interesting (and, I should add, very good) calculator is an improved version of the HP-32S. To the already impressive capabilities of the HP-32S, this machine adds fractions support, and support for algebraic expressions. It also has two shift keys, simplifying menus at the expense of a more cluttered keyboard.

Like the HP-32S, the HP-32SII has a built-in extended factorial function that calculates the factorial for any real argument. So writing a Gamma function program, my favorite programming example, makes little sense. I've written an implementation of the complex Gamma function for the HP-32S, but rather than repeating it here, here's something new. Just today, I received an e-mail from a fellow calculator enthusiast, who forwarded me some remarkable algorithms from one of the numerous Russian books dedicated to the most successful Russian programmable calculator, the B3-34. Since the B3-34 is an RPN calculator that works much like a typical HP machine, adapting the algorithm to the HP-32SII was a fairly trivial exercise. So here it is, a program that actually calculates the complex logarithm of the Gamma function for any complex argument. To use the program, just enter the imaginary part, hit ENTER, enter the real part, and hit XEQ I. Make sure the calculator is in radians mode, otherwise the result will not be correct.

This program is not as accurate as the one I wrote for the HP-32S, but it sure requires a lot less program space, even though I haven't even optimized it yet, making use of capabilities in the HP-32SII not present in the Russian models, such as register recall arithmetic.

I01     LBL I    CK=92AE  010.5
I02     STO B
I03     x<>y
I04     STO A
I05     0
I06     STO C
I07     STO D
H01     LBL H    CK=DC88  079.5
H02     XEQ K
H03     XEQ J
H04     RCL B
H05     1
H06     +
H07     STO B
H08     12
H09     -
H10     x<0?
H11     GTO H
H12     XEQ K
H13     2
H14     1/x
H15     RCL B
H16     -
H17     STO H
H18     RCL E
H19     ×
H20     RCL F
H21     RCL A
H22     ×
H23     +
H24     RCL F
H25     RCL H
H26     ×
H27     RCL E
H28     RCL A
H29     ×
H30     -
H31     XEQ J
H32     RCL B
H33     RCL G
H34     12
H35     ×
H36     STO G
H37     ÷
H38     RCL B
H39     -
H40     RCL A
H41     +/-
H42     RCL G
H43     ÷
H44     RCL A
H45     -
H46     XEQ J
H47     π
H48     2
H49     ×
H50     SQRT
H51     LN
H52     +
H53     RTN
J01     LBL J    CK=F14A  013.5
J02     RCL D
J03     +
J04     STO D
J05     x<>y
J06     RCL C
J07     +
J08     STO C
J09     RTN
K01     LBL K    CK=A6EE  030.0
K02     RCL B
K03     ENTER
K04     x2
K05     RCL A
K06     x2
K07     +
K08     STO G
K09     SQRT
K10     STO H
K11     ÷
K12     ACOS
K13     +/-
K14     STO F
K15     RCL H
K16     LN
K17     +/-
K18     STO E
K19     x<>y
K20     RTN