23 |
#include <gsl/gsl_sf_result.h> |
#include <gsl/gsl_sf_result.h> |
24 |
#include <gsl/gsl_errno.h> |
#include <gsl/gsl_errno.h> |
25 |
|
|
|
#include "gamma.h" |
|
|
|
|
26 |
/* |
/* |
27 |
* Lower tail. |
* Lower tail. |
28 |
*/ |
*/ |
29 |
double gsl_F_ratio_cdf_P(double x, double nu1, double nu2) |
double |
30 |
|
gsl_cdf_F_ratio_P(double x, double nu1, double nu2) |
31 |
{ |
{ |
32 |
|
|
33 |
int rc; |
int rc; |
56 |
/* |
/* |
57 |
* Upper tail. |
* Upper tail. |
58 |
*/ |
*/ |
59 |
double gsl_F_ratio_cdf_Q(double x, double nu1, double nu2) |
double |
60 |
|
gsl_cdf_F_ratio_Q(double x, double nu1, double nu2) |
61 |
{ |
{ |
|
|
|
62 |
int rc; |
int rc; |
63 |
double F, nu1_2, nu2_2; |
double F, nu1_2, nu2_2; |
64 |
gsl_sf_result result; |
gsl_sf_result result; |