Paul G. Mathews
217 Third Street
Fairport Harbor, OH 44077
440-350-0911
e-mail: pmathews@apk.net
11/11/1998 Rev. 1.0

Copyright Paul G. Mathews, November 11, 1998, All Rights Reserved

		
	Hypergeometric, Binomial, and Poisson Programs
	for the Hewlett-Packard 32S-II Calculator
		
After entering these code lines hit the XEQ key and then:		
	H to run the hypergeometric distribution h(x;a,b,n)
	B to run the binomial distribution b(x;n,p)
	C to run the cumulative binomial distribution b(c;n,p)
	P to run the Poisson distribution Poisson(x;lambda)
	Q to run the cumulative Poisson distribution Poisson(c;lambda)

Note: The cumulative functions C and Q still display x rather than c
in the user prompt to conserve memory.

Hit the Run/Stop key (R/S) after you respond to each prompt.								
								

Line	Command		Memory	ChkSum	Notes
H01	LBL H		28.5	CB1F	Hypergeometric D'n
H02	INPUT A
H03	INPUT B
H04	INPUT N
H05	INPUT X
H06	RCL A
H07	RCLX
H08	Cn,r
H09	RCL B
H10	RCL N
H11	RCL- X
H12	Cn,r
H13	*
H14	RCL A
H15	RCL+ B
H16	RCL N
H17	Cn,r
H18	/
H19	STOP				hit the R/S key to enter STOP
B01	LBL B		6	AF5E	Binomial D'n
B02	INPUT N
B03	INPUT X
B04	INPUT P
U01	LBL U		22.5	7A35	Reentry point for cum binomial loop
U02	RCL N
H03	RCL X
U04	Cn,r
U05	RCL P
U06	RCL X
U07	y^x				y to the x power
U08	*
U09	1
U10	RCL- P
U11	RCL N
U12	RCL- X
U13	y^x				y to the x power
U14	*						
U15	RTN						
P01	LBL P		4.5	54AA	Poisson D'n
P02	INPUT L
P03	INPUT X
R01	LBL R		18	1AEA	Reentry point for cum Poisson loop
R02	RCL L
R03	RCL X
R04	y^x				y to the x power
R05	RCL L
R06	+/-
R07	e^x				e to the x power
R08	*
R09	RCL X
R10	X!
R11	/
R12	RTN
C01	LBL C		4.5	258D	Cumulative binomial d'n
C02	XEQ B
C03	STO S
V01	LBL V		24.5	251E	Loop for cum binomial d'n
V02	-1
V03	RCL+ X
V04	STO X
V05	XEQ U
V06	STO+ S
V07	RCL X
V08	x NE 0?				NE is not equal sign, use x?0
V09	GOTO V
V10	RCL S
V11	STOP				hit the R/S key to enter STOP
Q01	LBL Q		4.5	0FBE	Cum Poisson D'n
Q02	XEQ P
Q03	STO S
W01	LBL W		24.5	DCFF	Loop for cum Poisson d'n
W02	-1
W03	RCL+ X
W04	STO X
W05	XEQ R
W06	STO+ S
W07	RCL X
W08	x NE 0?				NE is the not equal sign, use x?0
W09	GOTO W
W10	RCL S
W11	STOP				hit the R/S key to enter STOP