108 |
/* |
/* |
109 |
* Use Peizer and Pratt's normal approximation above. |
* Use Peizer and Pratt's normal approximation above. |
110 |
*/ |
*/ |
111 |
z = norm_arg ( y, shape ); |
z = gsl_cdf_norm_arg ( y, shape ); |
112 |
val = gsl_cdf_gauss_P ( z ); |
val = gsl_cdf_gauss_P ( z ); |
113 |
return val; |
return val; |
114 |
} |
} |
141 |
/* |
/* |
142 |
* Peizer and Pratt's approximation mentioned above. |
* Peizer and Pratt's approximation mentioned above. |
143 |
*/ |
*/ |
144 |
z = norm_arg ( y, shape ); |
z = gsl_cdf_norm_arg ( y, shape ); |
145 |
val = gsl_cdf_gauss_Q ( z ); |
val = gsl_cdf_gauss_Q ( z ); |
146 |
return val; |
return val; |
147 |
} |
} |