Half-precision Γ(x+1) [HP-12C]

[Gamo]

This version used two Registers: R0 and R1

Store Pi to R0

Γ(x) for 1 ≤ x ≤ 64

---------------------

Example: [FIX] 2

Γ(5.25)
5.25 [R/S] 35.21

7! = Γ(8)
8 [R/S] 5040.00

2.34! = Γ(3.34)
3.34 [R/S] 2.80
--------------------
Program:

Code:


01  5
02  +
03 ENTER
04 1/x
05 ENTER
06  x
07 ENTER
08 ENTER
09  3
10  0
11  ÷
12  1
13  -
14  x
15  1
16  2
17  ÷
18 X<>Y
19 LN
20  -
21  x
22  +
23 CHS
24 e^x
25 X<>Y
26 ENTER
27  +
28 RCL 0
29  x
30 √x
31  x
32 STO 1
33 CLx
34  5
35  -
36 STO÷1
37  1
38  +
39 X≤Y
40 GTO 36
41 RCL 1
42 GTO 00

Remark: This routine is adapted from HP-55 Statistic Programs P.14

Gamo