130 |
/* |
/* |
131 |
* Normal cdf for 0.66291 < fabs(x) < sqrt(32). |
* Normal cdf for 0.66291 < fabs(x) < sqrt(32). |
132 |
*/ |
*/ |
133 |
static double gauss_mediumx_Q ( const double x, gsl_cdf_tail_t tail ) |
static double gauss_mediumx_Q ( const double x) |
134 |
{ |
{ |
135 |
int n; |
int n; |
136 |
double temp = 0.0; |
double temp = 0.0; |
346 |
} |
} |
347 |
else if ( absx < sqrt(32)) |
else if ( absx < sqrt(32)) |
348 |
{ |
{ |
349 |
result = gauss_mediumx(x); |
result = gauss_mediumx_Q(x); |
350 |
} |
} |
351 |
else if ( x < GAUSS_XUPPER || x < GAUSS_XLOWER ) |
else if ( x < GAUSS_XUPPER || x < GAUSS_XLOWER ) |
352 |
{ |
{ |