(12C Platinum) Poisson Distribution - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: General Software Library (/forum-13.html) +--- Thread: (12C Platinum) Poisson Distribution (/thread-12825.html) (12C Platinum) Poisson Distribution - Gamo - 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 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