Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |