NORMAL APPROXIMATION OF A BINOMIAL
By Daniel Wedge

for Casio fx9700
This program will probably work on other calculators, but I haven't tried it.

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
******** http://www.student.uwa.edu.au/~wedgey *********

The program will ask you for a number of trials, n, the probability
of the trial being true, P, and the type of probability (less than,
equal to, between, etc etc.) From there it will calculate the mean,
variance, standard deviation, new A and B values, the standardised
A and B values and the probability.

You will need to put your calculator into standard deviation mode
before entering any of this program (otherwise you can't access
the P( and R( functions).  To do this,go into programs, then go into
setup (shift menu) and press F3 (SD).

SYMBOLS USED:
!=  not equal to
<=  less than or equal to
>=  greater than or equal to
=>  and/then conditional
->  assign key (arrow)
@   display (the little triangle)
/   divide
P(  probability of (under PQR menu)
R(  1-probability of (under PQR menu)
sqrt square root sign

SIZE:581 bytes

THE CODE:

'BIN-NORM
0 -> A~Z
Lbl A
"n"? -> N
N<=0 => Goto A
Lbl B
"P(X)"? -> P
P<0 => Goto B
P>1 => Goto B
Lbl C
"1.P(X>=A) 6.P(A<=X<=B)"          use P( sign instead of a P and (
"2.P(X>A) 7.P(A<X<B)"             it saves bytes!
"3.P(X<=B) 8.P(A<=X<B)"
"4.P(X<B) 9.P(A<X<=B)"            don't worry, they will all line up
"5.P(X=A)"?->X                    when entered in the calc.
X>9 => Goto C
X<1 => Goto C
X!=Int X => Goto C
X!=3=>X!=4 => Goto D
Goto F
Lbl D
"A"? -> A
A!=Int A => Goto D
A+.5 -> A
A -> C
X!=2 => X!=7 => X!=9 => Dsz C
X=5 => C+1 -> D
X<=5 => Goto H
Lbl F
"B"? -> B
B!=Int B => Goto F
B-.5 -> B
B -> D
X!=4 => X!=7 => X!=8 => Isz D
Lbl H
"MEAN:":NP -> M@
"VAR:":M-MP -> V@
"ST DEV (2DP):"
Fix 2
sqrt V
Rnd
Ans -> S@
Fix 1
C!=0 => "CORRECTED A:"
C!=0 => C@
D!=0 => "CORRECTED B:"
D!=0 => D@
Fix 2
C!=0 => "STANDARDISED A:"
(C-M)/S
Rnd
C!=0 => Ans -> A@
D!=0 => "STANDARDISED B:"
(D-M)/S
Rnd
D!=0 => Ans -> B@
X>=1 => X<=2 => Goto I
X>=3 => X<=4 => Goto J
P(B)-P(A) -> Z              P( is probability sign in PQR
Goto Z
Lbl I
R(A) -> Z                   R( is sign in PQR = 1-P(
Goto Z
Lbl J
P(B) -> Z
Goto Z
Lbl Z
Fix 4
Z
Rnd
Norm                        This is to get back to the original
Norm                        Norm mode (Norm1 or Norm2)
"PROBABILITY:"
Ans