(12C Platinum) Poisson Distribution

[Gamo]

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

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