Parent Directory | Revision Log | Patch
revision 1.1.2.6 by bjg, Tue Jul 15 15:52:55 2003 UTC | revision 1.1.2.7 by bjg, Tue Jul 15 17:56:47 2003 UTC | |
---|---|---|
# | Line 229 gsl_cdf_tdist_Q (const double x, const d | Line 229 gsl_cdf_tdist_Q (const double x, const d |
229 | ||
230 | double x2 = x * x; | double x2 = x * x; |
231 | ||
232 | if (nu > 30 && x2 < 10 * nu) | |
233 | { | |
234 | double u = cornish_fisher (x, nu); | |
235 | Q = gsl_cdf_ugaussian_Q (u); | |
236 | ||
237 | return Q; | |
238 | } | |
239 | ||
240 | if (x2 < nu) | if (x2 < nu) |
241 | { | { |
242 | double u = x2 / nu; | double u = x2 / nu; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |