# TITLE:  Binomial Distribution
# AUTHOR: Roy F.A. Maclean 
#         correction by Andrew Rapp
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   17Oct1996
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   131
# NOTES:  
#         Enter 'N' the number of independent trials
#         Enter 'P' the probability that a trial is success
#         Enter 'X' the number of desired successes
#         Let X = random variable denoting number of successes
#         Let x = the number of successes
#         
#         Then this program returns the following:
#         P(X=x), P(X<=x), P(X<x), P(X>x), P(X>=x)
#         
#         When typing the program in, the multiplication 
#         symbol can be used as a small x.
# __________________________________________

Mcl
"N"?->N:"P"?->P:"X"?->X
X+1->X:X->A
Lbl 1
X-A->C
(N!/C!(N-C)!)P^C(1-P)^(N-C)->D
D+B->B
Dsz A:Goto 1
"P(X=x)":D_
"P(X<=x)":B_
"P(X<x)":B-D_
"P(X>x)":1-B_
"P(X>=x)":1-B+D

# __________________________________________