``slikken kreng''

[lilypond.git] / flower / polynomial.cc

diff --git a/flower/polynomial.cc b/flower/polynomial.cc
index df8847fe04ebb52f599d2f689d705de19a1e04cd..f5d4b38fe3c07bb14fccbabcbf3a3bb6b09e7e24 100644 (file)
--- a/flower/polynomial.cc
+++ b/flower/polynomial.cc
@@ -237,8 +237,8 @@ Polynomial::solve_cubic ()const
 
   /* use Cardano's formula */
 
-  Real cb_p = p * p * p;
-  Real D = q * q + cb_p;
+  Real cb = p * p * p;
+  Real D = q * q + cb;
 
   if (iszero (D)) {
     if (iszero (q)) {  /* one triple solution */
@@ -252,7 +252,7 @@ Polynomial::solve_cubic ()const
       sol.push (-u);
     }
   } else if (D < 0) {          /* Casus irreducibilis: three real solutions */
-    Real phi = 1.0 / 3 * acos (-q / sqrt (-cb_p));
+    Real phi = 1.0 / 3 * acos (-q / sqrt (-cb));
     Real t = 2 * sqrt (-p);
 
     sol.push (t * cos (phi));