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

Diff of /gsl/cdf/fdist.c

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

revision 1.1.2.1 by bjg, Mon Jun 23 17:22:24 2003 UTC revision 1.1.2.2 by bjg, Tue Jun 24 22:28:43 2003 UTC
# Line 63  gsl_cdf_Fdist_Q (double x, double nu1, d Line 63  gsl_cdf_Fdist_Q (double x, double nu1, d
63      {      {
64        double u = x / (r + x);        double u = x / (r + x);
65    
66        P = 1 - gsl_sf_beta_inc (nu1 / 2.0, nu2 / 2.0, u);        P = beta_inc_AXPY (-1.0, 1.0, nu1 / 2.0, nu2 / 2.0, u);
67      }      }
68    else    else
69      {      {
70        double u = r / (r + x);        double u = r / (r + x);
71    
72        P = gsl_sf_beta_inc (nu2 / 2.0, nu1 / 2.0, u);        P = beta_inc_AXPY (1.0, 0.0, nu2 / 2.0, nu1 / 2.0, u);
73      }      }
74    
75    return P;    return P;

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

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