(HP-67/97) Combinatorics - Extended factorial, gamma, permutations, combinations

[Dave Britten]

This program provides implementations of factorial (with support for numbers greater than 69), gamma, combinations (nCr), and permutations (nPr). They run in constant time without any looping (slightly faster for integers no greater than 69 when the built-in factorial can be used). It is 92 steps, and fits comfortably on one side of a card.

The program relies on using Nemes' formula to calculate an approximation of the natural logarithm of gamma without overflowing on large inputs. Large combinations/permutations are generally accurate to around 5 decimal places, but accuracy worsens as the difference between x and y increases (precision is lost when subtracting ln(x!) and ln(y!) when they differ greatly in magnitude).

Keys

A - ln(x!)
B - ln(Γ)
b - Γ(x)
C - ln(yCx)
c - yCx
D - ln(yPx)
d - yPx
E - e^x→x*10^y
e - Round Int

Usage

To use any of these functions, enter arguments in the x and y registers, and press the key for the desired function. The functions that return a natural logarithm will not overflow for large inputs/outputs. The shifted versions of Γ, nCr, and nPr return a decimal result to x, with the natural logarithm in y. Thus if the calculation overflows (9.999999999 99), it's not necessary to repeat the calculation, simply press x><y to get the natural logarithm of the result, and optionally press E to convert the power of e to a decimal mantissa in x, and exponent of 10 in y.

Examples

Calculate the natural log of 144!:

144 A
*** 575.0575 (e^575.0575)


Show a decimal approximation of 144! with the natural log of 144! already in x:
E
*** 5.5503
x><y
*** 249 (5.5503*10^249)


Calculate P(71, 3):

71 ENTER 3 f d
*** 342930.0000 (yCx and yPx are automatically rounded to the nearest integer)


Calculate C(278000, 47000):

278000 ENTER 47000 f c
*** 9.999999999 99 (overflow)
x><y
*** 126317.0360 (e^126317.0360)
E
*** 6.1903
x><y
*** 54858 (6.1903*10^54858)

Code:

LBL b
GSB B
GTO 8
LBL A
7
0
x<=y?
GTO 3
RDown
N!
LN
RTN
LBL 3
RDown
1
+
LBL B
STO 7
1
2
*
.
1
RCL 7
/
-
1/x
RCL 7
+
LN
1
-
RCL 7
*
2
PI
*
RCL 7
/
LN
2
/
+
RTN
LBL c
GSB C
GTO 8
LBL C
x><y
STO 0
GSB A
x><y
STO- 0
GSB A
-
RCL 0
GSB A
-
RTN
LBL d
GSB D
GTO 8
LBL D
x><y
STO 0
x><y
STO- 0
RDown
GSB A
RCL 0
GSB A
-
RTN
LBL E
1
0
LN
/
INT
LASTx
FRAC
10^x
RTN
LBL 8
ENTER
e^x
LBL e
ENTER
FRAC
+
INT
RTN