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

Diff of /gsl/cdf/tdist.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.1.2.6  
changed lines
  Added in v.1.1.2.7

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