Programming the Casio FX-7700GB for Poisson CDF calculations

by CDR D. C. Pyle, Math Dept USNA 

Modified by J. C. Turner, 2/24/97

Step 1: Enter the Program

COMMANDS	WHAT YOU SEE
MODE 2 {WRT} Ú {SELECT P4} EXE	{blank screen}
ALPHA ' SHIFT ALPHA P C D F ' SHIFT ¿	'PCDF'
ALPHA " SHIFT ALPHA P O I S S O N SPACE C D F " SHIFT ¿	"POISSON CDF"
ALPHA " SHIFT ALPHA L SHIFT PRGM REL = ALPHA " SHIFT PRGM ? à ALPHA L SHIFT ¿	"L="?à L
ALPHA " SHIFT ALPHA T SHIFT PRGM REL = ALPHA " SHIFT PRGM ? à ALPHA T SHIFT ¿	"T="?à T
ALPHA "ALPHA X REL = ALPHA " SHIFT PRGM ? à ALPHA X SHIFT ¿	"X="?à X
ALPHA L x ALPHA T à ALPHA M SHIFT ¿	L x Tà M
0 à ALPHA K SHIFT ¿	0à K
0 à ALPHA A SHIFT ¿	0à A
SHIFT PRGM JMP Lbl 1 SHIFT PRGM : ALPHA K REL > ALPHA X SHIFT PRGM JMP Þ Gto 3 SHIFT ¿	Lbl 1: K>X Þ Goto 3
Lbl 2 SHIFT PRGM : ( ALPHA M xy ALPHA K ) x ( SHIFT ex - ALPHA M ) ¸ ( ALPHA K SHIFT MATH PRB x!) + ALPHA A à ALPHA A SHIFT ¿	Lbl 2:(M xy K) x (e-M) ¸ (K!)+Aà A
( ALPHA K + 1 ) à ALPHA K SHIFT ¿	(K+1) à K
SHIFT PRGM JMP Gto 1 SHIFT ¿	Goto 1
Lbl 3 SHIFT PRGM : ALPHA A SHIFT ¿	Lbl 3: A
MODE

Step 2: Test the Program

COMMANDS	WHAT YOU SEE
MODE 1 {Run} SHIFT PRGM Prg 4 EXE	Prog 4
	POISSON CDF
	L=?
2 EXE	T=?
1 EXE	X=?
5 EXE	0.9834363915