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

Diff of /gsl/cdf/testgen.c

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

revision 1.1.2.2 by bjg, Mon Jul 21 16:51:21 2003 UTC revision 1.1.2.3 by bjg, Mon Jul 21 17:13:56 2003 UTC
# Line 184  test (gsl_function * f, double x[], int Line 184  test (gsl_function * f, double x[], int
184    
185        printf (fmt, "_P", x[i], sum);        printf (fmt, "_P", x[i], sum);
186    
187        if (inverse && sum * 1e-5 < GSL_FN_EVAL(f,x[i]) * fabs(x[i]))        if (inverse && (sum != 0 && sum != 1) && (x[i] == 0 || sum * 1e-4 < GSL_FN_EVAL(f,x[i]) * fabs(x[i])))
188          printf (fmt, "_Pinv", sum, x[i]);          printf (fmt, "_Pinv", sum, x[i]);
189      }      }
190    
# Line 221  test (gsl_function * f, double x[], int Line 221  test (gsl_function * f, double x[], int
221    
222        printf (fmt, "_Q", x[i], sum);        printf (fmt, "_Q", x[i], sum);
223    
224        if (inverse && sum < GSL_FN_EVAL(f,x[i]) * fabs(x[i]))        if (inverse && (sum != 0 && sum != 1) && (x[i] == 0 || sum * 1e-4 < GSL_FN_EVAL(f,x[i]) * fabs(x[i])))
225          printf (fmt, "_Qinv", sum, x[i]);          printf (fmt, "_Qinv", sum, x[i]);
226      }      }
227        

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