1 |
/* gsl/cdf_gamma.c |
/* gsl/cdf_gamma.c |
2 |
* |
* |
3 |
* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 Gerard Jungman and Jason Stover. |
* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 Gerard Jungman |
4 |
|
* and Jason Stover. |
5 |
* |
* |
6 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
7 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
15 |
* |
* |
16 |
* You should have received a copy of the GNU General Public License |
* You should have received a copy of the GNU General Public License |
17 |
* along with this program; if not, write to the Free Software |
* along with this program; if not, write to the Free Software |
18 |
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. |
19 |
*/ |
*/ |
20 |
|
|
21 |
/* |
/* |
37 |
/* |
/* |
38 |
* Wrappers for the functions that do the work. |
* Wrappers for the functions that do the work. |
39 |
*/ |
*/ |
40 |
int gsl_cdf_gamma_e ( double x, double alpha, double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result) |
int gsl_cdf_gamma_e ( double x, double alpha, |
41 |
|
double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result) |
42 |
{ |
{ |
43 |
int rc = 0; |
int rc = 0; |
44 |
if ( tail == GSL_CDF_UPPER ) |
if ( tail == GSL_CDF_LOWER ) |
45 |
{ |
{ |
46 |
rc = gamma_inc_P_e ( alpha, (x/beta), result); |
rc = gamma_inc_P_e ( alpha, (x/beta), result); |
47 |
} |
} |
48 |
else if (tail == GSL_CDF_LOWER ) |
else if (tail == GSL_CDF_UPPER ) |
49 |
{ |
{ |
50 |
rc = gamma_inc_Q_e ( alpha, (x/beta), result); |
rc = gamma_inc_Q_e ( alpha, (x/beta), result); |
51 |
} |
} |