/[gsl]/gsl/cdf/f.c
ViewVC logotype

Diff of /gsl/cdf/f.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.2 by jstover, Thu Feb 13 03:37:58 2003 UTC revision 1.1.2.3 by jstover, Fri Feb 14 02:55:10 2003 UTC
# Line 80  int gsl_cdf_F_e ( double x, double nu1, Line 80  int gsl_cdf_F_e ( double x, double nu1,
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          }          }
# Line 95  int gsl_cdf_F_e ( double x, double nu1, Line 94  int gsl_cdf_F_e ( double x, double nu1,
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          {          {

Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26