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 |
|
|
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 |
|
|