X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Ftukey%2Fqtukey.c;h=54c174be2074be0378ffaed41c6903106d47e92f;hb=7e5488beb1b0bc2dcaf598a765294c6d5db0e151;hp=08f8c855d34c65ef50dabefb9f1c914490c3637b;hpb=3dd0f6ae0d5eb73a2270a243e443c4ae03c2c16e;p=pspp diff --git a/lib/tukey/qtukey.c b/lib/tukey/qtukey.c index 08f8c855d3..54c174be20 100644 --- a/lib/tukey/qtukey.c +++ b/lib/tukey/qtukey.c @@ -143,8 +143,8 @@ static double qinv(double p, double c, double v) ps = 0.5 - 0.5 * p; yi = sqrt (log (1.0 / (ps * ps))); - t = yi + (((( yi * p4 + p3) * yi + p2) * yi + p1) * yi + p0) - / (((( yi * q4 + q3) * yi + q2) * yi + q1) * yi + q0); + t = yi + ((((yi * p4 + p3) * yi + p2) * yi + p1) * yi + p0) + / ((((yi * q4 + q3) * yi + q2) * yi + q1) * yi + q0); if (v < vmax) t += (t * t * t + t) / v / 4.0; q = c1 - c2 * t; if (v < vmax) q += -c3 / v + c4 * t / v;