| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | + | { RCSid $Id$ } |
| 2 | { | |
| 3 | Normal Distribution Functions | |
| 4 | ||
| # | Line 23 | Line 24 | Q2(t) = t*(.31938153+t*(-.356563782+t*(1.781477937+ | |
| 24 | ||
| 25 | u(p) = if( .5-p, u1(p), -u1(1-p) ) ; | |
| 26 | ||
| 27 | < | u1(p) = u2(sqrt(log(1/p/p))) ; |
| 27 | > | u1(p) = u2(sqrt(-2*log(p))) ; |
| 28 | ||
| 29 | u2(t) = t - (2.515517+t*(.802853+t*.010328))/ | |
| 30 | (1+t*(1.432788+t*(.189269+t*.001308))) ; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |