# TITLE:  Normal Distribution Enhancement
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro   
# DATE:   5Dec1994, 7000Gversion:25Mar1996
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   247
# NOTES:  It asks for the  mean and standard deviation (M & S)
#         It then gives you a menu of three types of events
#         that it can work out the probability of. Type 1,2 or 3.
#         If 3 then it will ask you for A & B.
#         Finally it will display the requested probability.
#         It uses Hasting's Best Approximation as used in the fx6300g
#         manual. It is only accurate to 5 sig places hence the 'fix 5'.
#         
#         It is split over two program areas
# __________________________________________

@@ Program 0

Fix 5
Lbl 0:"M"?->M:"S"?->S
"1: X<=x"
"2: X>=x"
"3: A<=X<=B"?->C
C=3=>Goto 1
"X"?->X:(X-M)/S->X
Prog 1
C=1=>E_
C=2=>1-E_
Goto 0
Lbl 1
"A"?->A:"B"?->B
(A-M)/S->X:Prog 1
E->A
(B-M)/S->X:Prog 1
E-A

# __________________________________________
# __________________________________________

@@ Program 1

(1+.2316419X)\^-1->T          ; \^-1 is the reciprocal symbol
:1-sqrt(2\pi)\^-1e^(-(X^2)/2) ; \pi is the Pi symbol
*(
  .31938153T
  -.356563782T^2              ; Do not leave all these spaces
 +1.78147937T^3               ; they are just here for readability
 -1.821255978T^4
 +1.330274429T^5
 ) ->E

#  __________________________________________