# TITLE:  Inverse Normal Distribution
# AUTHOR: Roy F.A. Maclean
#		adapted from program at http://homepages.tesco.net/~michael.kaye/calc/side.htm
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro
# DATE:   28jun2007
# MAKE:   CASIO
# MODEL:  7700 or greater
# NOTES:  Enter the Area/Percent/Probability and the mean and standard deviation
#         The value that gives rise to that area will be returned.
#

@@ Program "INVNORMD"

0->R
"AREA"?->A
"SD"?->S
"MEAN"?->M
M-4S->B
M+4S->C
Lbl 2
R+1->R
(B+C)/2->Y
A>\P((Y-M)/S=>Y->B 		; \P( is the prob function on the Prob menu.
A<=\P((Y-M)/S=>Y->C
R>=30=>Goto 1
Goto 2
Lbl 1
Int (10000Y)/10000 		; 4 zeroes