04-18-2019, 06:46 AM
ALG Mode program for Poisson Distribution
For more information follow this previous post at
https://www.hpmuseum.org/forum/thread-9720.html
--------------------------------------------------------------
Procedure: k≤69
Case 1: For each new single calculation initialize with f [PRGM] or [GTO] 000
λ [R/S] display λ
k [R/S] display Answer
--------------------------------------------------------------
Case 2: For same Average with more than one test value
f [PRGM] or [GTO] 000
λ [R/S] display λ
K0 [R/S] display Answer [R/S] display λ
K1 [R/S] display Answer [R/S] display λ
K2 [R/S] display Answer [R/S] display λ
K3 [R/S] display Answer [R/S] display λ
.
.
.
--------------------------------------------------------------
Example: FIX 4
Case 1: λ=2.8 and k=7
f [PRGM] or [GTO] 000
2.8 [R/S] display 2.8000
7 [R/S] display 0.0163
Case 2: λ=2.5 and k= 0, 1, 2, 3, 4, 5, 6, 7
f [PRGM] or [GTO] 000
2.5 [R/S] display 2.5000
0 [R/S] display 0.0821 [R/S] display 2.5000
1 [R/S] display 0.2052 [R/S] display 2.5000
2 [R/S] display 0.2565 [R/S] display 2.5000
.
.
.
7 [R/S] display 0.0099
---------------------------------------------------------
Program: ALG Mode
Gamo
For more information follow this previous post at
https://www.hpmuseum.org/forum/thread-9720.html
--------------------------------------------------------------
Procedure: k≤69
Case 1: For each new single calculation initialize with f [PRGM] or [GTO] 000
λ [R/S] display λ
k [R/S] display Answer
--------------------------------------------------------------
Case 2: For same Average with more than one test value
f [PRGM] or [GTO] 000
λ [R/S] display λ
K0 [R/S] display Answer [R/S] display λ
K1 [R/S] display Answer [R/S] display λ
K2 [R/S] display Answer [R/S] display λ
K3 [R/S] display Answer [R/S] display λ
.
.
.
--------------------------------------------------------------
Example: FIX 4
Case 1: λ=2.8 and k=7
f [PRGM] or [GTO] 000
2.8 [R/S] display 2.8000
7 [R/S] display 0.0163
Case 2: λ=2.5 and k= 0, 1, 2, 3, 4, 5, 6, 7
f [PRGM] or [GTO] 000
2.5 [R/S] display 2.5000
0 [R/S] display 0.0821 [R/S] display 2.5000
1 [R/S] display 0.2052 [R/S] display 2.5000
2 [R/S] display 0.2565 [R/S] display 2.5000
.
.
.
7 [R/S] display 0.0099
---------------------------------------------------------
Program: ALG Mode
Code:
007// 1 [CHS] [x] [X<>Y] [=] [e^x] [STO] 0 // Setup λ value to reuse by [LSTx] and store e^(- λ)
015// [RCL] 0 [x] [(] [LSTx] [Y^X] [R/S] [STO] 1 [)] // Input and Store K then calculate e^(- λ) * (λ^k)
021// [÷] [RCL] 1 [n!] [=] [R/S] [GTO] 008 // Recall K to calculate K! then divide and done.
Gamo