Parent Directory | Revision Log | Patch
revision 1.1.2.3 by jstover, Fri Jan 3 04:08:52 2003 UTC | revision 1.1.2.4 by jstover, Fri Jan 3 04:29:41 2003 UTC | |
---|---|---|
# | Line 41 int gsl_cdf_gamma_e ( double x, double a | Line 41 int gsl_cdf_gamma_e ( double x, double a |
41 | double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result) | double beta, gsl_cdf_tail_t tail, gsl_cdf_result *result) |
42 | { | { |
43 | int rc = 0; | int rc = 0; |
44 | if ( tail == GSL_CDF_LOWER ) | if( beta <= 0.0 ) |
45 | { | |
46 | DOMAIN_ERROR(result); | |
47 | } | |
48 | else if ( tail == GSL_CDF_LOWER ) | |
49 | { | { |
50 | rc = gamma_inc_P_e ( alpha, (x/beta), result); | rc = gamma_inc_P_e ( alpha, (x/beta), result); |
51 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |