80 |
gsl_cdf_result * result, gsl_cdf_tail_t tail) |
gsl_cdf_result * result, gsl_cdf_tail_t tail) |
81 |
{ |
{ |
82 |
int rc; |
int rc; |
|
gsl_cdf_result * result; |
|
83 |
|
|
84 |
if( tail == GSL_CDF_UPPER ) |
if( tail == GSL_CDF_LOWER ) |
85 |
{ |
{ |
86 |
if( x <= 0.0 ) |
if( x <= 0.0 ) |
87 |
{ |
{ |
88 |
result->val = 1.0; |
result->val = 0.0; |
89 |
result->err = 0.0; |
result->err = 0.0; |
90 |
return GSL_SUCCESS; |
return GSL_SUCCESS; |
91 |
} |
} |
94 |
rc = gsl_F_ratio_cdf_P( x, nu1, nu2, result); |
rc = gsl_F_ratio_cdf_P( x, nu1, nu2, result); |
95 |
} |
} |
96 |
} |
} |
97 |
else if (tail == GSL_CDF_LOWER ) |
else if (tail == GSL_CDF_UPPER ) |
98 |
{ |
{ |
99 |
if( x <= 0.0 ) |
if( x <= 0.0 ) |
100 |
{ |
{ |
101 |
result->val = 0.0; |
result->val = 1.0; |
102 |
result->err = 0.0; |
result->err = 0.0; |
103 |
return rc; |
return GSL_SUCCESS; |
104 |
} |
} |
105 |
else |
else |
106 |
{ |
{ |