Cubic critical

Percentage Accurate: 51.6% → 85.4%
Time: 8.0s
Alternatives: 12
Speedup: 2.2×

Specification

?
\[\begin{array}{l} \\ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))
double code(double a, double b, double c) {
	return (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
real(8) function code(a, b, c)
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    code = (-b + sqrt(((b * b) - ((3.0d0 * a) * c)))) / (3.0d0 * a)
end function
public static double code(double a, double b, double c) {
	return (-b + Math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
def code(a, b, c):
	return (-b + math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a)
function code(a, b, c)
	return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(3.0 * a) * c)))) / Float64(3.0 * a))
end
function tmp = code(a, b, c)
	tmp = (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(3.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(3.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\end{array}

Sampling outcomes in binary64 precision:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 12 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 51.6% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))
double code(double a, double b, double c) {
	return (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
real(8) function code(a, b, c)
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    code = (-b + sqrt(((b * b) - ((3.0d0 * a) * c)))) / (3.0d0 * a)
end function
public static double code(double a, double b, double c) {
	return (-b + Math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
def code(a, b, c):
	return (-b + math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a)
function code(a, b, c)
	return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(3.0 * a) * c)))) / Float64(3.0 * a))
end
function tmp = code(a, b, c)
	tmp = (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(3.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(3.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\end{array}

Alternative 1: 85.4% accurate, 0.8× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\frac{\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b}{a}}{3}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -5.6e+159)
   (/ (* -2.0 b) (* a 3.0))
   (if (<= b 2.3e-60)
     (/ (/ (- (sqrt (fma (* -3.0 c) a (* b b))) b) a) 3.0)
     (* -0.5 (/ c b)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -5.6e+159) {
		tmp = (-2.0 * b) / (a * 3.0);
	} else if (b <= 2.3e-60) {
		tmp = ((sqrt(fma((-3.0 * c), a, (b * b))) - b) / a) / 3.0;
	} else {
		tmp = -0.5 * (c / b);
	}
	return tmp;
}
function code(a, b, c)
	tmp = 0.0
	if (b <= -5.6e+159)
		tmp = Float64(Float64(-2.0 * b) / Float64(a * 3.0));
	elseif (b <= 2.3e-60)
		tmp = Float64(Float64(Float64(sqrt(fma(Float64(-3.0 * c), a, Float64(b * b))) - b) / a) / 3.0);
	else
		tmp = Float64(-0.5 * Float64(c / b));
	end
	return tmp
end
code[a_, b_, c_] := If[LessEqual[b, -5.6e+159], N[(N[(-2.0 * b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.3e-60], N[(N[(N[(N[Sqrt[N[(N[(-3.0 * c), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / a), $MachinePrecision] / 3.0), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\
\;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\

\mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\
\;\;\;\;\frac{\frac{\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b}{a}}{3}\\

\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if b < -5.6000000000000002e159

    1. Initial program 40.5%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in b around -inf

      \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
    4. Step-by-step derivation
      1. lower-*.f6497.6

        \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
    5. Applied rewrites97.6%

      \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]

    if -5.6000000000000002e159 < b < 2.3000000000000001e-60

    1. Initial program 83.9%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-/.f64N/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}} \]
      2. lift-*.f64N/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\color{blue}{3 \cdot a}} \]
      3. associate-/l/N/A

        \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{a}}{3}} \]
      4. lower-/.f64N/A

        \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{a}}{3}} \]
    4. Applied rewrites84.6%

      \[\leadsto \color{blue}{\frac{\frac{\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b}{a}}{3}} \]

    if 2.3000000000000001e-60 < b

    1. Initial program 14.5%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in c around 0

      \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
    4. Step-by-step derivation
      1. *-commutativeN/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      2. lower-*.f64N/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      3. lower-/.f6491.6

        \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
    5. Applied rewrites91.6%

      \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
  3. Recombined 3 regimes into one program.
  4. Final simplification89.3%

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\frac{\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b}{a}}{3}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
  5. Add Preprocessing

Alternative 2: 85.4% accurate, 0.9× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -5.6e+159)
   (/ (* -2.0 b) (* a 3.0))
   (if (<= b 2.3e-60)
     (* (/ 0.3333333333333333 a) (- (sqrt (fma (* -3.0 c) a (* b b))) b))
     (* -0.5 (/ c b)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -5.6e+159) {
		tmp = (-2.0 * b) / (a * 3.0);
	} else if (b <= 2.3e-60) {
		tmp = (0.3333333333333333 / a) * (sqrt(fma((-3.0 * c), a, (b * b))) - b);
	} else {
		tmp = -0.5 * (c / b);
	}
	return tmp;
}
function code(a, b, c)
	tmp = 0.0
	if (b <= -5.6e+159)
		tmp = Float64(Float64(-2.0 * b) / Float64(a * 3.0));
	elseif (b <= 2.3e-60)
		tmp = Float64(Float64(0.3333333333333333 / a) * Float64(sqrt(fma(Float64(-3.0 * c), a, Float64(b * b))) - b));
	else
		tmp = Float64(-0.5 * Float64(c / b));
	end
	return tmp
end
code[a_, b_, c_] := If[LessEqual[b, -5.6e+159], N[(N[(-2.0 * b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.3e-60], N[(N[(0.3333333333333333 / a), $MachinePrecision] * N[(N[Sqrt[N[(N[(-3.0 * c), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\
\;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\

\mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\
\;\;\;\;\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b\right)\\

\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if b < -5.6000000000000002e159

    1. Initial program 40.5%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in b around -inf

      \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
    4. Step-by-step derivation
      1. lower-*.f6497.6

        \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
    5. Applied rewrites97.6%

      \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]

    if -5.6000000000000002e159 < b < 2.3000000000000001e-60

    1. Initial program 83.9%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-/.f64N/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}} \]
      2. clear-numN/A

        \[\leadsto \color{blue}{\frac{1}{\frac{3 \cdot a}{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}} \]
      3. associate-/r/N/A

        \[\leadsto \color{blue}{\frac{1}{3 \cdot a} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right)} \]
      4. lower-*.f64N/A

        \[\leadsto \color{blue}{\frac{1}{3 \cdot a} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right)} \]
      5. lift-*.f64N/A

        \[\leadsto \frac{1}{\color{blue}{3 \cdot a}} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \]
      6. associate-/r*N/A

        \[\leadsto \color{blue}{\frac{\frac{1}{3}}{a}} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \]
      7. lower-/.f64N/A

        \[\leadsto \color{blue}{\frac{\frac{1}{3}}{a}} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \]
      8. metadata-eval83.7

        \[\leadsto \frac{\color{blue}{0.3333333333333333}}{a} \cdot \left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \]
      9. lift-+.f64N/A

        \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right)} \]
      10. +-commutativeN/A

        \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} + \left(-b\right)\right)} \]
      11. lift-neg.f64N/A

        \[\leadsto \frac{\frac{1}{3}}{a} \cdot \left(\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} + \color{blue}{\left(\mathsf{neg}\left(b\right)\right)}\right) \]
      12. unsub-negN/A

        \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} - b\right)} \]
      13. lower--.f6483.7

        \[\leadsto \frac{0.3333333333333333}{a} \cdot \color{blue}{\left(\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} - b\right)} \]
    4. Applied rewrites84.5%

      \[\leadsto \color{blue}{\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b\right)} \]

    if 2.3000000000000001e-60 < b

    1. Initial program 14.5%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in c around 0

      \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
    4. Step-by-step derivation
      1. *-commutativeN/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      2. lower-*.f64N/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      3. lower-/.f6491.6

        \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
    5. Applied rewrites91.6%

      \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
  3. Recombined 3 regimes into one program.
  4. Final simplification89.3%

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -5.6 \cdot 10^{+159}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
  5. Add Preprocessing

Alternative 3: 80.2% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{c}{b \cdot b}, -0.5, \frac{0.6666666666666666}{a}\right) \cdot \left(-b\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -4e-16)
   (* (fma (/ c (* b b)) -0.5 (/ 0.6666666666666666 a)) (- b))
   (if (<= b 2.3e-60)
     (* (/ (- (sqrt (* (* c a) -3.0)) b) a) 0.3333333333333333)
     (* -0.5 (/ c b)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -4e-16) {
		tmp = fma((c / (b * b)), -0.5, (0.6666666666666666 / a)) * -b;
	} else if (b <= 2.3e-60) {
		tmp = ((sqrt(((c * a) * -3.0)) - b) / a) * 0.3333333333333333;
	} else {
		tmp = -0.5 * (c / b);
	}
	return tmp;
}
function code(a, b, c)
	tmp = 0.0
	if (b <= -4e-16)
		tmp = Float64(fma(Float64(c / Float64(b * b)), -0.5, Float64(0.6666666666666666 / a)) * Float64(-b));
	elseif (b <= 2.3e-60)
		tmp = Float64(Float64(Float64(sqrt(Float64(Float64(c * a) * -3.0)) - b) / a) * 0.3333333333333333);
	else
		tmp = Float64(-0.5 * Float64(c / b));
	end
	return tmp
end
code[a_, b_, c_] := If[LessEqual[b, -4e-16], N[(N[(N[(c / N[(b * b), $MachinePrecision]), $MachinePrecision] * -0.5 + N[(0.6666666666666666 / a), $MachinePrecision]), $MachinePrecision] * (-b)), $MachinePrecision], If[LessEqual[b, 2.3e-60], N[(N[(N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -3.0), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / a), $MachinePrecision] * 0.3333333333333333), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\
\;\;\;\;\mathsf{fma}\left(\frac{c}{b \cdot b}, -0.5, \frac{0.6666666666666666}{a}\right) \cdot \left(-b\right)\\

\mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\
\;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\

\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if b < -3.9999999999999999e-16

    1. Initial program 66.8%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-/.f64N/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}} \]
      2. lift-*.f64N/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\color{blue}{3 \cdot a}} \]
      3. associate-/l/N/A

        \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{a}}{3}} \]
      4. lower-/.f64N/A

        \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{a}}{3}} \]
    4. Applied rewrites66.9%

      \[\leadsto \color{blue}{\frac{\frac{\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b}{a}}{3}} \]
    5. Taylor expanded in b around -inf

      \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
    6. Step-by-step derivation
      1. associate-*r*N/A

        \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      2. mul-1-negN/A

        \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      3. lower-*.f64N/A

        \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      4. lower-neg.f64N/A

        \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      5. *-commutativeN/A

        \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      6. lower-fma.f64N/A

        \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      7. lower-/.f64N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{c}{{b}^{2}}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      8. unpow2N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      9. lower-*.f64N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      10. associate-*r/N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{b \cdot b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
      11. metadata-evalN/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{b \cdot b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
      12. lower-/.f6491.2

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{b \cdot b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
    7. Applied rewrites91.2%

      \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{b \cdot b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]

    if -3.9999999999999999e-16 < b < 2.3000000000000001e-60

    1. Initial program 78.3%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in c around inf

      \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
    4. Step-by-step derivation
      1. lower-*.f64N/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
      2. *-commutativeN/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
      3. lower-*.f6474.2

        \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
    5. Applied rewrites74.2%

      \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(c \cdot a\right)}}}{3 \cdot a} \]
    6. Step-by-step derivation
      1. lift-*.f64N/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{\color{blue}{3 \cdot a}} \]
      2. lift-/.f64N/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{3 \cdot a}} \]
      3. *-commutativeN/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{\color{blue}{a \cdot 3}} \]
      4. associate-/r*N/A

        \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a}}{3}} \]
      5. div-invN/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \frac{1}{3}} \]
      6. metadata-evalN/A

        \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \color{blue}{\frac{1}{3}} \]
      7. lower-*.f64N/A

        \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \frac{1}{3}} \]
    7. Applied rewrites75.3%

      \[\leadsto \color{blue}{\frac{\sqrt{\left(a \cdot c\right) \cdot -3} - b}{a} \cdot 0.3333333333333333} \]

    if 2.3000000000000001e-60 < b

    1. Initial program 14.5%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in c around 0

      \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
    4. Step-by-step derivation
      1. *-commutativeN/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      2. lower-*.f64N/A

        \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
      3. lower-/.f6491.6

        \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
    5. Applied rewrites91.6%

      \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
  3. Recombined 3 regimes into one program.
  4. Final simplification86.2%

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{c}{b \cdot b}, -0.5, \frac{0.6666666666666666}{a}\right) \cdot \left(-b\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
  5. Add Preprocessing

Alternative 4: 80.2% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -4e-16)
   (fma (/ b a) -0.6666666666666666 (* 0.5 (/ c b)))
   (if (<= b 2.3e-60)
     (* (/ (- (sqrt (* (* c a) -3.0)) b) a) 0.3333333333333333)
     (* -0.5 (/ c b)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -4e-16) {
		tmp = fma((b / a), -0.6666666666666666, (0.5 * (c / b)));
	} else if (b <= 2.3e-60) {
		tmp = ((sqrt(((c * a) * -3.0)) - b) / a) * 0.3333333333333333;
	} else {
		tmp = -0.5 * (c / b);
	}
	return tmp;
}
function code(a, b, c)
	tmp = 0.0
	if (b <= -4e-16)
		tmp = fma(Float64(b / a), -0.6666666666666666, Float64(0.5 * Float64(c / b)));
	elseif (b <= 2.3e-60)
		tmp = Float64(Float64(Float64(sqrt(Float64(Float64(c * a) * -3.0)) - b) / a) * 0.3333333333333333);
	else
		tmp = Float64(-0.5 * Float64(c / b));
	end
	return tmp
end
code[a_, b_, c_] := If[LessEqual[b, -4e-16], N[(N[(b / a), $MachinePrecision] * -0.6666666666666666 + N[(0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.3e-60], N[(N[(N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -3.0), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / a), $MachinePrecision] * 0.3333333333333333), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\
\;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\

\mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\
\;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\

\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if b < -3.9999999999999999e-16

    1. Initial program 66.8%

      \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
    2. Add Preprocessing
    3. Taylor expanded in b around -inf

      \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
    4. Step-by-step derivation
      1. associate-*r*N/A

        \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      2. mul-1-negN/A

        \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      3. lower-*.f64N/A

        \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      4. lower-neg.f64N/A

        \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      5. *-commutativeN/A

        \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
      6. lower-fma.f64N/A

        \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
      7. unpow2N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      8. associate-/r*N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      9. lower-/.f64N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      10. lower-/.f64N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
      11. associate-*r/N/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
      12. metadata-evalN/A

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
      13. lower-/.f6491.2

        \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
    5. Applied rewrites91.2%

      \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
    6. Taylor expanded in c around 0

      \[\leadsto \frac{-2}{3} \cdot \frac{b}{a} + \color{blue}{\frac{1}{2} \cdot \frac{c}{b}} \]
    7. Step-by-step derivation
      1. Applied rewrites91.1%

        \[\leadsto \mathsf{fma}\left(\frac{b}{a}, \color{blue}{-0.6666666666666666}, 0.5 \cdot \frac{c}{b}\right) \]

      if -3.9999999999999999e-16 < b < 2.3000000000000001e-60

      1. Initial program 78.3%

        \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
      2. Add Preprocessing
      3. Taylor expanded in c around inf

        \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
      4. Step-by-step derivation
        1. lower-*.f64N/A

          \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
        2. *-commutativeN/A

          \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
        3. lower-*.f6474.2

          \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
      5. Applied rewrites74.2%

        \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(c \cdot a\right)}}}{3 \cdot a} \]
      6. Step-by-step derivation
        1. lift-*.f64N/A

          \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{\color{blue}{3 \cdot a}} \]
        2. lift-/.f64N/A

          \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{3 \cdot a}} \]
        3. *-commutativeN/A

          \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{\color{blue}{a \cdot 3}} \]
        4. associate-/r*N/A

          \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a}}{3}} \]
        5. div-invN/A

          \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \frac{1}{3}} \]
        6. metadata-evalN/A

          \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \color{blue}{\frac{1}{3}} \]
        7. lower-*.f64N/A

          \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{a} \cdot \frac{1}{3}} \]
      7. Applied rewrites75.3%

        \[\leadsto \color{blue}{\frac{\sqrt{\left(a \cdot c\right) \cdot -3} - b}{a} \cdot 0.3333333333333333} \]

      if 2.3000000000000001e-60 < b

      1. Initial program 14.5%

        \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
      2. Add Preprocessing
      3. Taylor expanded in c around 0

        \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
      4. Step-by-step derivation
        1. *-commutativeN/A

          \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
        2. lower-*.f64N/A

          \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
        3. lower-/.f6491.6

          \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
      5. Applied rewrites91.6%

        \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
    8. Recombined 3 regimes into one program.
    9. Final simplification86.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\frac{\sqrt{\left(c \cdot a\right) \cdot -3} - b}{a} \cdot 0.3333333333333333\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
    10. Add Preprocessing

    Alternative 5: 80.2% accurate, 1.0× speedup?

    \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\left(\sqrt{\left(c \cdot a\right) \cdot -3} - b\right) \cdot \frac{0.3333333333333333}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
    (FPCore (a b c)
     :precision binary64
     (if (<= b -4e-16)
       (fma (/ b a) -0.6666666666666666 (* 0.5 (/ c b)))
       (if (<= b 2.3e-60)
         (* (- (sqrt (* (* c a) -3.0)) b) (/ 0.3333333333333333 a))
         (* -0.5 (/ c b)))))
    double code(double a, double b, double c) {
    	double tmp;
    	if (b <= -4e-16) {
    		tmp = fma((b / a), -0.6666666666666666, (0.5 * (c / b)));
    	} else if (b <= 2.3e-60) {
    		tmp = (sqrt(((c * a) * -3.0)) - b) * (0.3333333333333333 / a);
    	} else {
    		tmp = -0.5 * (c / b);
    	}
    	return tmp;
    }
    
    function code(a, b, c)
    	tmp = 0.0
    	if (b <= -4e-16)
    		tmp = fma(Float64(b / a), -0.6666666666666666, Float64(0.5 * Float64(c / b)));
    	elseif (b <= 2.3e-60)
    		tmp = Float64(Float64(sqrt(Float64(Float64(c * a) * -3.0)) - b) * Float64(0.3333333333333333 / a));
    	else
    		tmp = Float64(-0.5 * Float64(c / b));
    	end
    	return tmp
    end
    
    code[a_, b_, c_] := If[LessEqual[b, -4e-16], N[(N[(b / a), $MachinePrecision] * -0.6666666666666666 + N[(0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.3e-60], N[(N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -3.0), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] * N[(0.3333333333333333 / a), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]]
    
    \begin{array}{l}
    
    \\
    \begin{array}{l}
    \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\
    \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\
    
    \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\
    \;\;\;\;\left(\sqrt{\left(c \cdot a\right) \cdot -3} - b\right) \cdot \frac{0.3333333333333333}{a}\\
    
    \mathbf{else}:\\
    \;\;\;\;-0.5 \cdot \frac{c}{b}\\
    
    
    \end{array}
    \end{array}
    
    Derivation
    1. Split input into 3 regimes
    2. if b < -3.9999999999999999e-16

      1. Initial program 66.8%

        \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
      2. Add Preprocessing
      3. Taylor expanded in b around -inf

        \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
      4. Step-by-step derivation
        1. associate-*r*N/A

          \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
        2. mul-1-negN/A

          \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
        3. lower-*.f64N/A

          \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
        4. lower-neg.f64N/A

          \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
        5. *-commutativeN/A

          \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
        6. lower-fma.f64N/A

          \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
        7. unpow2N/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
        8. associate-/r*N/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
        9. lower-/.f64N/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
        10. lower-/.f64N/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
        11. associate-*r/N/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
        12. metadata-evalN/A

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
        13. lower-/.f6491.2

          \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
      5. Applied rewrites91.2%

        \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
      6. Taylor expanded in c around 0

        \[\leadsto \frac{-2}{3} \cdot \frac{b}{a} + \color{blue}{\frac{1}{2} \cdot \frac{c}{b}} \]
      7. Step-by-step derivation
        1. Applied rewrites91.1%

          \[\leadsto \mathsf{fma}\left(\frac{b}{a}, \color{blue}{-0.6666666666666666}, 0.5 \cdot \frac{c}{b}\right) \]

        if -3.9999999999999999e-16 < b < 2.3000000000000001e-60

        1. Initial program 78.3%

          \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
        2. Add Preprocessing
        3. Taylor expanded in c around inf

          \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
        4. Step-by-step derivation
          1. lower-*.f64N/A

            \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(a \cdot c\right)}}}{3 \cdot a} \]
          2. *-commutativeN/A

            \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
          3. lower-*.f6474.2

            \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \color{blue}{\left(c \cdot a\right)}}}{3 \cdot a} \]
        5. Applied rewrites74.2%

          \[\leadsto \frac{\left(-b\right) + \sqrt{\color{blue}{-3 \cdot \left(c \cdot a\right)}}}{3 \cdot a} \]
        6. Step-by-step derivation
          1. lift-*.f64N/A

            \[\leadsto \frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{\color{blue}{3 \cdot a}} \]
          2. lift-/.f64N/A

            \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}{3 \cdot a}} \]
          3. clear-numN/A

            \[\leadsto \color{blue}{\frac{1}{\frac{3 \cdot a}{\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}}}} \]
          4. associate-/r/N/A

            \[\leadsto \color{blue}{\frac{1}{3 \cdot a} \cdot \left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right)} \]
          5. lower-*.f64N/A

            \[\leadsto \color{blue}{\frac{1}{3 \cdot a} \cdot \left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right)} \]
          6. associate-/r*N/A

            \[\leadsto \color{blue}{\frac{\frac{1}{3}}{a}} \cdot \left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right) \]
          7. metadata-evalN/A

            \[\leadsto \frac{\color{blue}{\frac{1}{3}}}{a} \cdot \left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right) \]
          8. lower-/.f6475.2

            \[\leadsto \color{blue}{\frac{0.3333333333333333}{a}} \cdot \left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right) \]
          9. lift-+.f64N/A

            \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\left(-b\right) + \sqrt{-3 \cdot \left(c \cdot a\right)}\right)} \]
          10. +-commutativeN/A

            \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\sqrt{-3 \cdot \left(c \cdot a\right)} + \left(-b\right)\right)} \]
          11. lift-neg.f64N/A

            \[\leadsto \frac{\frac{1}{3}}{a} \cdot \left(\sqrt{-3 \cdot \left(c \cdot a\right)} + \color{blue}{\left(\mathsf{neg}\left(b\right)\right)}\right) \]
          12. unsub-negN/A

            \[\leadsto \frac{\frac{1}{3}}{a} \cdot \color{blue}{\left(\sqrt{-3 \cdot \left(c \cdot a\right)} - b\right)} \]
          13. lower--.f6475.2

            \[\leadsto \frac{0.3333333333333333}{a} \cdot \color{blue}{\left(\sqrt{-3 \cdot \left(c \cdot a\right)} - b\right)} \]
        7. Applied rewrites75.2%

          \[\leadsto \color{blue}{\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\left(a \cdot c\right) \cdot -3} - b\right)} \]

        if 2.3000000000000001e-60 < b

        1. Initial program 14.5%

          \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
        2. Add Preprocessing
        3. Taylor expanded in c around 0

          \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
        4. Step-by-step derivation
          1. *-commutativeN/A

            \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
          2. lower-*.f64N/A

            \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
          3. lower-/.f6491.6

            \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
        5. Applied rewrites91.6%

          \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
      8. Recombined 3 regimes into one program.
      9. Final simplification86.2%

        \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-16}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{elif}\;b \leq 2.3 \cdot 10^{-60}:\\ \;\;\;\;\left(\sqrt{\left(c \cdot a\right) \cdot -3} - b\right) \cdot \frac{0.3333333333333333}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
      10. Add Preprocessing

      Alternative 6: 67.6% accurate, 1.2× speedup?

      \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
      (FPCore (a b c)
       :precision binary64
       (if (<= b -5e-310)
         (fma (/ b a) -0.6666666666666666 (* 0.5 (/ c b)))
         (* -0.5 (/ c b))))
      double code(double a, double b, double c) {
      	double tmp;
      	if (b <= -5e-310) {
      		tmp = fma((b / a), -0.6666666666666666, (0.5 * (c / b)));
      	} else {
      		tmp = -0.5 * (c / b);
      	}
      	return tmp;
      }
      
      function code(a, b, c)
      	tmp = 0.0
      	if (b <= -5e-310)
      		tmp = fma(Float64(b / a), -0.6666666666666666, Float64(0.5 * Float64(c / b)));
      	else
      		tmp = Float64(-0.5 * Float64(c / b));
      	end
      	return tmp
      end
      
      code[a_, b_, c_] := If[LessEqual[b, -5e-310], N[(N[(b / a), $MachinePrecision] * -0.6666666666666666 + N[(0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
      
      \begin{array}{l}
      
      \\
      \begin{array}{l}
      \mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\
      \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\
      
      \mathbf{else}:\\
      \;\;\;\;-0.5 \cdot \frac{c}{b}\\
      
      
      \end{array}
      \end{array}
      
      Derivation
      1. Split input into 2 regimes
      2. if b < -4.999999999999985e-310

        1. Initial program 72.5%

          \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
        2. Add Preprocessing
        3. Taylor expanded in b around -inf

          \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
        4. Step-by-step derivation
          1. associate-*r*N/A

            \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
          2. mul-1-negN/A

            \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
          3. lower-*.f64N/A

            \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
          4. lower-neg.f64N/A

            \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
          5. *-commutativeN/A

            \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
          6. lower-fma.f64N/A

            \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
          7. unpow2N/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
          8. associate-/r*N/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
          9. lower-/.f64N/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
          10. lower-/.f64N/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
          11. associate-*r/N/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
          12. metadata-evalN/A

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
          13. lower-/.f6464.1

            \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
        5. Applied rewrites64.1%

          \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
        6. Taylor expanded in c around 0

          \[\leadsto \frac{-2}{3} \cdot \frac{b}{a} + \color{blue}{\frac{1}{2} \cdot \frac{c}{b}} \]
        7. Step-by-step derivation
          1. Applied rewrites64.2%

            \[\leadsto \mathsf{fma}\left(\frac{b}{a}, \color{blue}{-0.6666666666666666}, 0.5 \cdot \frac{c}{b}\right) \]

          if -4.999999999999985e-310 < b

          1. Initial program 31.9%

            \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
          2. Add Preprocessing
          3. Taylor expanded in c around 0

            \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
          4. Step-by-step derivation
            1. *-commutativeN/A

              \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
            2. lower-*.f64N/A

              \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
            3. lower-/.f6468.7

              \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
          5. Applied rewrites68.7%

            \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
        8. Recombined 2 regimes into one program.
        9. Final simplification66.7%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\ \;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -0.6666666666666666, 0.5 \cdot \frac{c}{b}\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
        10. Add Preprocessing

        Alternative 7: 67.5% accurate, 1.8× speedup?

        \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
        (FPCore (a b c)
         :precision binary64
         (if (<= b 5e-310) (/ (* -2.0 b) (* a 3.0)) (* -0.5 (/ c b))))
        double code(double a, double b, double c) {
        	double tmp;
        	if (b <= 5e-310) {
        		tmp = (-2.0 * b) / (a * 3.0);
        	} else {
        		tmp = -0.5 * (c / b);
        	}
        	return tmp;
        }
        
        real(8) function code(a, b, c)
            real(8), intent (in) :: a
            real(8), intent (in) :: b
            real(8), intent (in) :: c
            real(8) :: tmp
            if (b <= 5d-310) then
                tmp = ((-2.0d0) * b) / (a * 3.0d0)
            else
                tmp = (-0.5d0) * (c / b)
            end if
            code = tmp
        end function
        
        public static double code(double a, double b, double c) {
        	double tmp;
        	if (b <= 5e-310) {
        		tmp = (-2.0 * b) / (a * 3.0);
        	} else {
        		tmp = -0.5 * (c / b);
        	}
        	return tmp;
        }
        
        def code(a, b, c):
        	tmp = 0
        	if b <= 5e-310:
        		tmp = (-2.0 * b) / (a * 3.0)
        	else:
        		tmp = -0.5 * (c / b)
        	return tmp
        
        function code(a, b, c)
        	tmp = 0.0
        	if (b <= 5e-310)
        		tmp = Float64(Float64(-2.0 * b) / Float64(a * 3.0));
        	else
        		tmp = Float64(-0.5 * Float64(c / b));
        	end
        	return tmp
        end
        
        function tmp_2 = code(a, b, c)
        	tmp = 0.0;
        	if (b <= 5e-310)
        		tmp = (-2.0 * b) / (a * 3.0);
        	else
        		tmp = -0.5 * (c / b);
        	end
        	tmp_2 = tmp;
        end
        
        code[a_, b_, c_] := If[LessEqual[b, 5e-310], N[(N[(-2.0 * b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
        
        \begin{array}{l}
        
        \\
        \begin{array}{l}
        \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\
        \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\
        
        \mathbf{else}:\\
        \;\;\;\;-0.5 \cdot \frac{c}{b}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 2 regimes
        2. if b < 4.999999999999985e-310

          1. Initial program 72.5%

            \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
          2. Add Preprocessing
          3. Taylor expanded in b around -inf

            \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
          4. Step-by-step derivation
            1. lower-*.f6464.0

              \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]
          5. Applied rewrites64.0%

            \[\leadsto \frac{\color{blue}{-2 \cdot b}}{3 \cdot a} \]

          if 4.999999999999985e-310 < b

          1. Initial program 31.9%

            \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
          2. Add Preprocessing
          3. Taylor expanded in c around 0

            \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
          4. Step-by-step derivation
            1. *-commutativeN/A

              \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
            2. lower-*.f64N/A

              \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
            3. lower-/.f6468.7

              \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
          5. Applied rewrites68.7%

            \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
        3. Recombined 2 regimes into one program.
        4. Final simplification66.6%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{-2 \cdot b}{a \cdot 3}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
        5. Add Preprocessing

        Alternative 8: 67.5% accurate, 2.0× speedup?

        \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{0.6666666666666666}{a} \cdot \left(-b\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
        (FPCore (a b c)
         :precision binary64
         (if (<= b 5e-310) (* (/ 0.6666666666666666 a) (- b)) (* -0.5 (/ c b))))
        double code(double a, double b, double c) {
        	double tmp;
        	if (b <= 5e-310) {
        		tmp = (0.6666666666666666 / a) * -b;
        	} else {
        		tmp = -0.5 * (c / b);
        	}
        	return tmp;
        }
        
        real(8) function code(a, b, c)
            real(8), intent (in) :: a
            real(8), intent (in) :: b
            real(8), intent (in) :: c
            real(8) :: tmp
            if (b <= 5d-310) then
                tmp = (0.6666666666666666d0 / a) * -b
            else
                tmp = (-0.5d0) * (c / b)
            end if
            code = tmp
        end function
        
        public static double code(double a, double b, double c) {
        	double tmp;
        	if (b <= 5e-310) {
        		tmp = (0.6666666666666666 / a) * -b;
        	} else {
        		tmp = -0.5 * (c / b);
        	}
        	return tmp;
        }
        
        def code(a, b, c):
        	tmp = 0
        	if b <= 5e-310:
        		tmp = (0.6666666666666666 / a) * -b
        	else:
        		tmp = -0.5 * (c / b)
        	return tmp
        
        function code(a, b, c)
        	tmp = 0.0
        	if (b <= 5e-310)
        		tmp = Float64(Float64(0.6666666666666666 / a) * Float64(-b));
        	else
        		tmp = Float64(-0.5 * Float64(c / b));
        	end
        	return tmp
        end
        
        function tmp_2 = code(a, b, c)
        	tmp = 0.0;
        	if (b <= 5e-310)
        		tmp = (0.6666666666666666 / a) * -b;
        	else
        		tmp = -0.5 * (c / b);
        	end
        	tmp_2 = tmp;
        end
        
        code[a_, b_, c_] := If[LessEqual[b, 5e-310], N[(N[(0.6666666666666666 / a), $MachinePrecision] * (-b)), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
        
        \begin{array}{l}
        
        \\
        \begin{array}{l}
        \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\
        \;\;\;\;\frac{0.6666666666666666}{a} \cdot \left(-b\right)\\
        
        \mathbf{else}:\\
        \;\;\;\;-0.5 \cdot \frac{c}{b}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 2 regimes
        2. if b < 4.999999999999985e-310

          1. Initial program 72.5%

            \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
          2. Add Preprocessing
          3. Taylor expanded in b around -inf

            \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
          4. Step-by-step derivation
            1. associate-*r*N/A

              \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
            2. mul-1-negN/A

              \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
            3. lower-*.f64N/A

              \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
            4. lower-neg.f64N/A

              \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
            5. *-commutativeN/A

              \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
            6. lower-fma.f64N/A

              \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
            7. unpow2N/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
            8. associate-/r*N/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
            9. lower-/.f64N/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
            10. lower-/.f64N/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
            11. associate-*r/N/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
            12. metadata-evalN/A

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
            13. lower-/.f6464.1

              \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
          5. Applied rewrites64.1%

            \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
          6. Taylor expanded in c around 0

            \[\leadsto \left(-b\right) \cdot \frac{\frac{2}{3}}{\color{blue}{a}} \]
          7. Step-by-step derivation
            1. Applied rewrites63.8%

              \[\leadsto \left(-b\right) \cdot \frac{0.6666666666666666}{\color{blue}{a}} \]

            if 4.999999999999985e-310 < b

            1. Initial program 31.9%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in c around 0

              \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
            4. Step-by-step derivation
              1. *-commutativeN/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              2. lower-*.f64N/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              3. lower-/.f6468.7

                \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
            5. Applied rewrites68.7%

              \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
          8. Recombined 2 regimes into one program.
          9. Final simplification66.5%

            \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{0.6666666666666666}{a} \cdot \left(-b\right)\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
          10. Add Preprocessing

          Alternative 9: 67.5% accurate, 2.2× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{-0.6666666666666666 \cdot b}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
          (FPCore (a b c)
           :precision binary64
           (if (<= b 5e-310) (/ (* -0.6666666666666666 b) a) (* -0.5 (/ c b))))
          double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 5e-310) {
          		tmp = (-0.6666666666666666 * b) / a;
          	} else {
          		tmp = -0.5 * (c / b);
          	}
          	return tmp;
          }
          
          real(8) function code(a, b, c)
              real(8), intent (in) :: a
              real(8), intent (in) :: b
              real(8), intent (in) :: c
              real(8) :: tmp
              if (b <= 5d-310) then
                  tmp = ((-0.6666666666666666d0) * b) / a
              else
                  tmp = (-0.5d0) * (c / b)
              end if
              code = tmp
          end function
          
          public static double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 5e-310) {
          		tmp = (-0.6666666666666666 * b) / a;
          	} else {
          		tmp = -0.5 * (c / b);
          	}
          	return tmp;
          }
          
          def code(a, b, c):
          	tmp = 0
          	if b <= 5e-310:
          		tmp = (-0.6666666666666666 * b) / a
          	else:
          		tmp = -0.5 * (c / b)
          	return tmp
          
          function code(a, b, c)
          	tmp = 0.0
          	if (b <= 5e-310)
          		tmp = Float64(Float64(-0.6666666666666666 * b) / a);
          	else
          		tmp = Float64(-0.5 * Float64(c / b));
          	end
          	return tmp
          end
          
          function tmp_2 = code(a, b, c)
          	tmp = 0.0;
          	if (b <= 5e-310)
          		tmp = (-0.6666666666666666 * b) / a;
          	else
          		tmp = -0.5 * (c / b);
          	end
          	tmp_2 = tmp;
          end
          
          code[a_, b_, c_] := If[LessEqual[b, 5e-310], N[(N[(-0.6666666666666666 * b), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\
          \;\;\;\;\frac{-0.6666666666666666 \cdot b}{a}\\
          
          \mathbf{else}:\\
          \;\;\;\;-0.5 \cdot \frac{c}{b}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if b < 4.999999999999985e-310

            1. Initial program 72.5%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Step-by-step derivation
              1. lift-/.f64N/A

                \[\leadsto \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}} \]
              2. lift-*.f64N/A

                \[\leadsto \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\color{blue}{3 \cdot a}} \]
              3. associate-/r*N/A

                \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3}}{a}} \]
              4. lower-/.f64N/A

                \[\leadsto \color{blue}{\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3}}{a}} \]
            4. Applied rewrites73.1%

              \[\leadsto \color{blue}{\frac{0.3333333333333333 \cdot \left(\sqrt{\mathsf{fma}\left(-3 \cdot c, a, b \cdot b\right)} - b\right)}{a}} \]
            5. Taylor expanded in b around -inf

              \[\leadsto \frac{\color{blue}{\frac{-2}{3} \cdot b}}{a} \]
            6. Step-by-step derivation
              1. lower-*.f6463.8

                \[\leadsto \frac{\color{blue}{-0.6666666666666666 \cdot b}}{a} \]
            7. Applied rewrites63.8%

              \[\leadsto \frac{\color{blue}{-0.6666666666666666 \cdot b}}{a} \]

            if 4.999999999999985e-310 < b

            1. Initial program 31.9%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in c around 0

              \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
            4. Step-by-step derivation
              1. *-commutativeN/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              2. lower-*.f64N/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              3. lower-/.f6468.7

                \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
            5. Applied rewrites68.7%

              \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
          3. Recombined 2 regimes into one program.
          4. Final simplification66.5%

            \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;\frac{-0.6666666666666666 \cdot b}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
          5. Add Preprocessing

          Alternative 10: 67.5% accurate, 2.2× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;-0.6666666666666666 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
          (FPCore (a b c)
           :precision binary64
           (if (<= b 5e-310) (* -0.6666666666666666 (/ b a)) (* -0.5 (/ c b))))
          double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 5e-310) {
          		tmp = -0.6666666666666666 * (b / a);
          	} else {
          		tmp = -0.5 * (c / b);
          	}
          	return tmp;
          }
          
          real(8) function code(a, b, c)
              real(8), intent (in) :: a
              real(8), intent (in) :: b
              real(8), intent (in) :: c
              real(8) :: tmp
              if (b <= 5d-310) then
                  tmp = (-0.6666666666666666d0) * (b / a)
              else
                  tmp = (-0.5d0) * (c / b)
              end if
              code = tmp
          end function
          
          public static double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 5e-310) {
          		tmp = -0.6666666666666666 * (b / a);
          	} else {
          		tmp = -0.5 * (c / b);
          	}
          	return tmp;
          }
          
          def code(a, b, c):
          	tmp = 0
          	if b <= 5e-310:
          		tmp = -0.6666666666666666 * (b / a)
          	else:
          		tmp = -0.5 * (c / b)
          	return tmp
          
          function code(a, b, c)
          	tmp = 0.0
          	if (b <= 5e-310)
          		tmp = Float64(-0.6666666666666666 * Float64(b / a));
          	else
          		tmp = Float64(-0.5 * Float64(c / b));
          	end
          	return tmp
          end
          
          function tmp_2 = code(a, b, c)
          	tmp = 0.0;
          	if (b <= 5e-310)
          		tmp = -0.6666666666666666 * (b / a);
          	else
          		tmp = -0.5 * (c / b);
          	end
          	tmp_2 = tmp;
          end
          
          code[a_, b_, c_] := If[LessEqual[b, 5e-310], N[(-0.6666666666666666 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\
          \;\;\;\;-0.6666666666666666 \cdot \frac{b}{a}\\
          
          \mathbf{else}:\\
          \;\;\;\;-0.5 \cdot \frac{c}{b}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if b < 4.999999999999985e-310

            1. Initial program 72.5%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in b around -inf

              \[\leadsto \color{blue}{\frac{-2}{3} \cdot \frac{b}{a}} \]
            4. Step-by-step derivation
              1. lower-*.f64N/A

                \[\leadsto \color{blue}{\frac{-2}{3} \cdot \frac{b}{a}} \]
              2. lower-/.f6463.8

                \[\leadsto -0.6666666666666666 \cdot \color{blue}{\frac{b}{a}} \]
            5. Applied rewrites63.8%

              \[\leadsto \color{blue}{-0.6666666666666666 \cdot \frac{b}{a}} \]

            if 4.999999999999985e-310 < b

            1. Initial program 31.9%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in c around 0

              \[\leadsto \color{blue}{\frac{-1}{2} \cdot \frac{c}{b}} \]
            4. Step-by-step derivation
              1. *-commutativeN/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              2. lower-*.f64N/A

                \[\leadsto \color{blue}{\frac{c}{b} \cdot \frac{-1}{2}} \]
              3. lower-/.f6468.7

                \[\leadsto \color{blue}{\frac{c}{b}} \cdot -0.5 \]
            5. Applied rewrites68.7%

              \[\leadsto \color{blue}{\frac{c}{b} \cdot -0.5} \]
          3. Recombined 2 regimes into one program.
          4. Final simplification66.5%

            \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq 5 \cdot 10^{-310}:\\ \;\;\;\;-0.6666666666666666 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;-0.5 \cdot \frac{c}{b}\\ \end{array} \]
          5. Add Preprocessing

          Alternative 11: 42.5% accurate, 2.2× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq 2.9 \cdot 10^{+26}:\\ \;\;\;\;-0.6666666666666666 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;0.5 \cdot \frac{c}{b}\\ \end{array} \end{array} \]
          (FPCore (a b c)
           :precision binary64
           (if (<= b 2.9e+26) (* -0.6666666666666666 (/ b a)) (* 0.5 (/ c b))))
          double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 2.9e+26) {
          		tmp = -0.6666666666666666 * (b / a);
          	} else {
          		tmp = 0.5 * (c / b);
          	}
          	return tmp;
          }
          
          real(8) function code(a, b, c)
              real(8), intent (in) :: a
              real(8), intent (in) :: b
              real(8), intent (in) :: c
              real(8) :: tmp
              if (b <= 2.9d+26) then
                  tmp = (-0.6666666666666666d0) * (b / a)
              else
                  tmp = 0.5d0 * (c / b)
              end if
              code = tmp
          end function
          
          public static double code(double a, double b, double c) {
          	double tmp;
          	if (b <= 2.9e+26) {
          		tmp = -0.6666666666666666 * (b / a);
          	} else {
          		tmp = 0.5 * (c / b);
          	}
          	return tmp;
          }
          
          def code(a, b, c):
          	tmp = 0
          	if b <= 2.9e+26:
          		tmp = -0.6666666666666666 * (b / a)
          	else:
          		tmp = 0.5 * (c / b)
          	return tmp
          
          function code(a, b, c)
          	tmp = 0.0
          	if (b <= 2.9e+26)
          		tmp = Float64(-0.6666666666666666 * Float64(b / a));
          	else
          		tmp = Float64(0.5 * Float64(c / b));
          	end
          	return tmp
          end
          
          function tmp_2 = code(a, b, c)
          	tmp = 0.0;
          	if (b <= 2.9e+26)
          		tmp = -0.6666666666666666 * (b / a);
          	else
          		tmp = 0.5 * (c / b);
          	end
          	tmp_2 = tmp;
          end
          
          code[a_, b_, c_] := If[LessEqual[b, 2.9e+26], N[(-0.6666666666666666 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          \mathbf{if}\;b \leq 2.9 \cdot 10^{+26}:\\
          \;\;\;\;-0.6666666666666666 \cdot \frac{b}{a}\\
          
          \mathbf{else}:\\
          \;\;\;\;0.5 \cdot \frac{c}{b}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if b < 2.9e26

            1. Initial program 69.4%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in b around -inf

              \[\leadsto \color{blue}{\frac{-2}{3} \cdot \frac{b}{a}} \]
            4. Step-by-step derivation
              1. lower-*.f64N/A

                \[\leadsto \color{blue}{\frac{-2}{3} \cdot \frac{b}{a}} \]
              2. lower-/.f6445.1

                \[\leadsto -0.6666666666666666 \cdot \color{blue}{\frac{b}{a}} \]
            5. Applied rewrites45.1%

              \[\leadsto \color{blue}{-0.6666666666666666 \cdot \frac{b}{a}} \]

            if 2.9e26 < b

            1. Initial program 13.6%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in b around -inf

              \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
            4. Step-by-step derivation
              1. associate-*r*N/A

                \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              2. mul-1-negN/A

                \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              3. lower-*.f64N/A

                \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              4. lower-neg.f64N/A

                \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              5. *-commutativeN/A

                \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              6. lower-fma.f64N/A

                \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              7. unpow2N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              8. associate-/r*N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              9. lower-/.f64N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              10. lower-/.f64N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              11. associate-*r/N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
              12. metadata-evalN/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
              13. lower-/.f642.2

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
            5. Applied rewrites2.2%

              \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
            6. Taylor expanded in c around inf

              \[\leadsto \frac{1}{2} \cdot \color{blue}{\frac{c}{b}} \]
            7. Step-by-step derivation
              1. Applied rewrites32.8%

                \[\leadsto 0.5 \cdot \color{blue}{\frac{c}{b}} \]
            8. Recombined 2 regimes into one program.
            9. Add Preprocessing

            Alternative 12: 10.8% accurate, 2.9× speedup?

            \[\begin{array}{l} \\ 0.5 \cdot \frac{c}{b} \end{array} \]
            (FPCore (a b c) :precision binary64 (* 0.5 (/ c b)))
            double code(double a, double b, double c) {
            	return 0.5 * (c / b);
            }
            
            real(8) function code(a, b, c)
                real(8), intent (in) :: a
                real(8), intent (in) :: b
                real(8), intent (in) :: c
                code = 0.5d0 * (c / b)
            end function
            
            public static double code(double a, double b, double c) {
            	return 0.5 * (c / b);
            }
            
            def code(a, b, c):
            	return 0.5 * (c / b)
            
            function code(a, b, c)
            	return Float64(0.5 * Float64(c / b))
            end
            
            function tmp = code(a, b, c)
            	tmp = 0.5 * (c / b);
            end
            
            code[a_, b_, c_] := N[(0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]
            
            \begin{array}{l}
            
            \\
            0.5 \cdot \frac{c}{b}
            \end{array}
            
            Derivation
            1. Initial program 50.3%

              \[\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \]
            2. Add Preprocessing
            3. Taylor expanded in b around -inf

              \[\leadsto \color{blue}{-1 \cdot \left(b \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)\right)} \]
            4. Step-by-step derivation
              1. associate-*r*N/A

                \[\leadsto \color{blue}{\left(-1 \cdot b\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              2. mul-1-negN/A

                \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              3. lower-*.f64N/A

                \[\leadsto \color{blue}{\left(\mathsf{neg}\left(b\right)\right) \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              4. lower-neg.f64N/A

                \[\leadsto \color{blue}{\left(-b\right)} \cdot \left(\frac{-1}{2} \cdot \frac{c}{{b}^{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              5. *-commutativeN/A

                \[\leadsto \left(-b\right) \cdot \left(\color{blue}{\frac{c}{{b}^{2}} \cdot \frac{-1}{2}} + \frac{2}{3} \cdot \frac{1}{a}\right) \]
              6. lower-fma.f64N/A

                \[\leadsto \left(-b\right) \cdot \color{blue}{\mathsf{fma}\left(\frac{c}{{b}^{2}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right)} \]
              7. unpow2N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{c}{\color{blue}{b \cdot b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              8. associate-/r*N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              9. lower-/.f64N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\color{blue}{\frac{\frac{c}{b}}{b}}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              10. lower-/.f64N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\color{blue}{\frac{c}{b}}}{b}, \frac{-1}{2}, \frac{2}{3} \cdot \frac{1}{a}\right) \]
              11. associate-*r/N/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \color{blue}{\frac{\frac{2}{3} \cdot 1}{a}}\right) \]
              12. metadata-evalN/A

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, \frac{-1}{2}, \frac{\color{blue}{\frac{2}{3}}}{a}\right) \]
              13. lower-/.f6430.2

                \[\leadsto \left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \color{blue}{\frac{0.6666666666666666}{a}}\right) \]
            5. Applied rewrites30.2%

              \[\leadsto \color{blue}{\left(-b\right) \cdot \mathsf{fma}\left(\frac{\frac{c}{b}}{b}, -0.5, \frac{0.6666666666666666}{a}\right)} \]
            6. Taylor expanded in c around inf

              \[\leadsto \frac{1}{2} \cdot \color{blue}{\frac{c}{b}} \]
            7. Step-by-step derivation
              1. Applied rewrites13.4%

                \[\leadsto 0.5 \cdot \color{blue}{\frac{c}{b}} \]
              2. Add Preprocessing

              Reproduce

              ?
              herbie shell --seed 2024270 
              (FPCore (a b c)
                :name "Cubic critical"
                :precision binary64
                (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))