The quadratic formula (r2)

Percentage Accurate: 52.0% → 84.6%
Time: 17.5s
Alternatives: 8
Speedup: 12.9×

Specification

?
\[\begin{array}{l} \\ \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))
double code(double a, double b, double c) {
	return (-b - sqrt(((b * b) - (4.0 * (a * c))))) / (2.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) - (4.0d0 * (a * c))))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
	return (-b - Math.sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a);
}
def code(a, b, c):
	return (-b - math.sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a)
function code(a, b, c)
	return Float64(Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(a * c))))) / Float64(2.0 * a))
end
function tmp = code(a, b, c)
	tmp = (-b - sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a);
end
code[a_, b_, c_] := N[(N[((-b) - N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \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 8 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: 52.0% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))
double code(double a, double b, double c) {
	return (-b - sqrt(((b * b) - (4.0 * (a * c))))) / (2.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) - (4.0d0 * (a * c))))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
	return (-b - Math.sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a);
}
def code(a, b, c):
	return (-b - math.sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a)
function code(a, b, c)
	return Float64(Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(a * c))))) / Float64(2.0 * a))
end
function tmp = code(a, b, c)
	tmp = (-b - sqrt(((b * b) - (4.0 * (a * c))))) / (2.0 * a);
end
code[a_, b_, c_] := N[(N[((-b) - N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

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

Alternative 1: 84.6% accurate, 0.9× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -2.4 \cdot 10^{-22}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{elif}\;b \leq 1.4 \cdot 10^{+22}:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)}}{a \cdot 2}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{b} - \frac{b}{a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -2.4e-22)
   (/ c (- b))
   (if (<= b 1.4e+22)
     (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* c a))))) (* a 2.0))
     (- (/ c b) (/ b a)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -2.4e-22) {
		tmp = c / -b;
	} else if (b <= 1.4e+22) {
		tmp = (-b - sqrt(((b * b) - (4.0 * (c * a))))) / (a * 2.0);
	} else {
		tmp = (c / b) - (b / a);
	}
	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.4d-22)) then
        tmp = c / -b
    else if (b <= 1.4d+22) then
        tmp = (-b - sqrt(((b * b) - (4.0d0 * (c * a))))) / (a * 2.0d0)
    else
        tmp = (c / b) - (b / a)
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double tmp;
	if (b <= -2.4e-22) {
		tmp = c / -b;
	} else if (b <= 1.4e+22) {
		tmp = (-b - Math.sqrt(((b * b) - (4.0 * (c * a))))) / (a * 2.0);
	} else {
		tmp = (c / b) - (b / a);
	}
	return tmp;
}
def code(a, b, c):
	tmp = 0
	if b <= -2.4e-22:
		tmp = c / -b
	elif b <= 1.4e+22:
		tmp = (-b - math.sqrt(((b * b) - (4.0 * (c * a))))) / (a * 2.0)
	else:
		tmp = (c / b) - (b / a)
	return tmp
function code(a, b, c)
	tmp = 0.0
	if (b <= -2.4e-22)
		tmp = Float64(c / Float64(-b));
	elseif (b <= 1.4e+22)
		tmp = Float64(Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(c * a))))) / Float64(a * 2.0));
	else
		tmp = Float64(Float64(c / b) - Float64(b / a));
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b <= -2.4e-22)
		tmp = c / -b;
	elseif (b <= 1.4e+22)
		tmp = (-b - sqrt(((b * b) - (4.0 * (c * a))))) / (a * 2.0);
	else
		tmp = (c / b) - (b / a);
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := If[LessEqual[b, -2.4e-22], N[(c / (-b)), $MachinePrecision], If[LessEqual[b, 1.4e+22], N[(N[((-b) - N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -2.4 \cdot 10^{-22}:\\
\;\;\;\;\frac{c}{-b}\\

\mathbf{elif}\;b \leq 1.4 \cdot 10^{+22}:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)}}{a \cdot 2}\\

\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\


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

    1. Initial program 11.6%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-18.8%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative8.8%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*8.6%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-18.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*8.7%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out11.6%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*11.6%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval11.6%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg11.6%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in b around -inf 87.5%

      \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
    6. Step-by-step derivation
      1. mul-1-neg87.5%

        \[\leadsto \color{blue}{-\frac{c}{b}} \]
      2. distribute-neg-frac287.5%

        \[\leadsto \color{blue}{\frac{c}{-b}} \]
    7. Simplified87.5%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]

    if -2.40000000000000002e-22 < b < 1.4e22

    1. Initial program 77.8%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Add Preprocessing

    if 1.4e22 < b

    1. Initial program 66.0%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub66.0%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg66.0%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-166.0%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative66.0%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*65.9%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac65.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-165.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative65.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*65.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out65.9%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*65.9%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval65.9%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg65.9%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in c around 0 92.6%

      \[\leadsto \color{blue}{-1 \cdot \frac{b}{a} + \frac{c}{b}} \]
    6. Step-by-step derivation
      1. +-commutative92.6%

        \[\leadsto \color{blue}{\frac{c}{b} + -1 \cdot \frac{b}{a}} \]
      2. mul-1-neg92.6%

        \[\leadsto \frac{c}{b} + \color{blue}{\left(-\frac{b}{a}\right)} \]
      3. unsub-neg92.6%

        \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
    7. Simplified92.6%

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

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \leq -2.4 \cdot 10^{-22}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{elif}\;b \leq 1.4 \cdot 10^{+22}:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)}}{a \cdot 2}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{b} - \frac{b}{a}\\ \end{array} \]
  5. Add Preprocessing

Alternative 2: 80.3% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -2 \cdot 10^{-23}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{elif}\;b \leq 3.1 \cdot 10^{-46}:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{c \cdot \left(a \cdot -4\right)}}{a \cdot 2}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{b} - \frac{b}{a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -2e-23)
   (/ c (- b))
   (if (<= b 3.1e-46)
     (/ (- (- b) (sqrt (* c (* a -4.0)))) (* a 2.0))
     (- (/ c b) (/ b a)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -2e-23) {
		tmp = c / -b;
	} else if (b <= 3.1e-46) {
		tmp = (-b - sqrt((c * (a * -4.0)))) / (a * 2.0);
	} else {
		tmp = (c / b) - (b / a);
	}
	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 <= (-2d-23)) then
        tmp = c / -b
    else if (b <= 3.1d-46) then
        tmp = (-b - sqrt((c * (a * (-4.0d0))))) / (a * 2.0d0)
    else
        tmp = (c / b) - (b / a)
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double tmp;
	if (b <= -2e-23) {
		tmp = c / -b;
	} else if (b <= 3.1e-46) {
		tmp = (-b - Math.sqrt((c * (a * -4.0)))) / (a * 2.0);
	} else {
		tmp = (c / b) - (b / a);
	}
	return tmp;
}
def code(a, b, c):
	tmp = 0
	if b <= -2e-23:
		tmp = c / -b
	elif b <= 3.1e-46:
		tmp = (-b - math.sqrt((c * (a * -4.0)))) / (a * 2.0)
	else:
		tmp = (c / b) - (b / a)
	return tmp
function code(a, b, c)
	tmp = 0.0
	if (b <= -2e-23)
		tmp = Float64(c / Float64(-b));
	elseif (b <= 3.1e-46)
		tmp = Float64(Float64(Float64(-b) - sqrt(Float64(c * Float64(a * -4.0)))) / Float64(a * 2.0));
	else
		tmp = Float64(Float64(c / b) - Float64(b / a));
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b <= -2e-23)
		tmp = c / -b;
	elseif (b <= 3.1e-46)
		tmp = (-b - sqrt((c * (a * -4.0)))) / (a * 2.0);
	else
		tmp = (c / b) - (b / a);
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := If[LessEqual[b, -2e-23], N[(c / (-b)), $MachinePrecision], If[LessEqual[b, 3.1e-46], N[(N[((-b) - N[Sqrt[N[(c * N[(a * -4.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -2 \cdot 10^{-23}:\\
\;\;\;\;\frac{c}{-b}\\

\mathbf{elif}\;b \leq 3.1 \cdot 10^{-46}:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{c \cdot \left(a \cdot -4\right)}}{a \cdot 2}\\

\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\


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

    1. Initial program 11.6%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-18.8%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative8.8%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*8.6%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-18.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*8.7%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out11.6%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*11.6%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval11.6%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg11.6%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in b around -inf 87.5%

      \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
    6. Step-by-step derivation
      1. mul-1-neg87.5%

        \[\leadsto \color{blue}{-\frac{c}{b}} \]
      2. distribute-neg-frac287.5%

        \[\leadsto \color{blue}{\frac{c}{-b}} \]
    7. Simplified87.5%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]

    if -1.99999999999999992e-23 < b < 3.1000000000000001e-46

    1. Initial program 75.1%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. *-commutative75.1%

        \[\leadsto \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{\color{blue}{a \cdot 2}} \]
      2. *-commutative75.1%

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

        \[\leadsto \frac{\left(-b\right) - \sqrt{\color{blue}{\left(-b\right) \cdot \left(-b\right)} - 4 \cdot \left(c \cdot a\right)}}{a \cdot 2} \]
      4. *-commutative75.1%

        \[\leadsto \frac{\left(-b\right) - \sqrt{\left(-b\right) \cdot \left(-b\right) - 4 \cdot \color{blue}{\left(a \cdot c\right)}}}{a \cdot 2} \]
      5. sqr-neg75.1%

        \[\leadsto \frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b} - 4 \cdot \left(a \cdot c\right)}}{a \cdot 2} \]
      6. *-commutative75.1%

        \[\leadsto \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \color{blue}{\left(c \cdot a\right)}}}{a \cdot 2} \]
      7. associate-*r*75.1%

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

      \[\leadsto \color{blue}{\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot c\right) \cdot a}}{a \cdot 2}} \]
    4. Add Preprocessing
    5. Step-by-step derivation
      1. pow1/275.1%

        \[\leadsto \frac{\left(-b\right) - \color{blue}{{\left(b \cdot b - \left(4 \cdot c\right) \cdot a\right)}^{0.5}}}{a \cdot 2} \]
      2. fma-neg75.1%

        \[\leadsto \frac{\left(-b\right) - {\color{blue}{\left(\mathsf{fma}\left(b, b, -\left(4 \cdot c\right) \cdot a\right)\right)}}^{0.5}}{a \cdot 2} \]
      3. distribute-lft-neg-in75.1%

        \[\leadsto \frac{\left(-b\right) - {\left(\mathsf{fma}\left(b, b, \color{blue}{\left(-4 \cdot c\right) \cdot a}\right)\right)}^{0.5}}{a \cdot 2} \]
      4. distribute-lft-neg-in75.1%

        \[\leadsto \frac{\left(-b\right) - {\left(\mathsf{fma}\left(b, b, \color{blue}{\left(\left(-4\right) \cdot c\right)} \cdot a\right)\right)}^{0.5}}{a \cdot 2} \]
      5. metadata-eval75.1%

        \[\leadsto \frac{\left(-b\right) - {\left(\mathsf{fma}\left(b, b, \left(\color{blue}{-4} \cdot c\right) \cdot a\right)\right)}^{0.5}}{a \cdot 2} \]
      6. *-commutative75.1%

        \[\leadsto \frac{\left(-b\right) - {\left(\mathsf{fma}\left(b, b, \color{blue}{\left(c \cdot -4\right)} \cdot a\right)\right)}^{0.5}}{a \cdot 2} \]
      7. associate-*r*75.1%

        \[\leadsto \frac{\left(-b\right) - {\left(\mathsf{fma}\left(b, b, \color{blue}{c \cdot \left(-4 \cdot a\right)}\right)\right)}^{0.5}}{a \cdot 2} \]
      8. pow-to-exp69.7%

        \[\leadsto \frac{\left(-b\right) - \color{blue}{e^{\log \left(\mathsf{fma}\left(b, b, c \cdot \left(-4 \cdot a\right)\right)\right) \cdot 0.5}}}{a \cdot 2} \]
    6. Applied egg-rr69.7%

      \[\leadsto \frac{\left(-b\right) - \color{blue}{e^{\log \left(\mathsf{fma}\left(b, b, a \cdot \left(c \cdot -4\right)\right)\right) \cdot 0.5}}}{a \cdot 2} \]
    7. Taylor expanded in c around inf 42.2%

      \[\leadsto \frac{\left(-b\right) - e^{\color{blue}{\left(\log \left(-4 \cdot a\right) + -1 \cdot \log \left(\frac{1}{c}\right)\right)} \cdot 0.5}}{a \cdot 2} \]
    8. Step-by-step derivation
      1. *-commutative42.2%

        \[\leadsto \frac{\left(-b\right) - e^{\left(\log \color{blue}{\left(a \cdot -4\right)} + -1 \cdot \log \left(\frac{1}{c}\right)\right) \cdot 0.5}}{a \cdot 2} \]
      2. mul-1-neg42.2%

        \[\leadsto \frac{\left(-b\right) - e^{\left(\log \left(a \cdot -4\right) + \color{blue}{\left(-\log \left(\frac{1}{c}\right)\right)}\right) \cdot 0.5}}{a \cdot 2} \]
      3. log-rec42.2%

        \[\leadsto \frac{\left(-b\right) - e^{\left(\log \left(a \cdot -4\right) + \left(-\color{blue}{\left(-\log c\right)}\right)\right) \cdot 0.5}}{a \cdot 2} \]
      4. remove-double-neg42.2%

        \[\leadsto \frac{\left(-b\right) - e^{\left(\log \left(a \cdot -4\right) + \color{blue}{\log c}\right) \cdot 0.5}}{a \cdot 2} \]
    9. Simplified42.2%

      \[\leadsto \frac{\left(-b\right) - e^{\color{blue}{\left(\log \left(a \cdot -4\right) + \log c\right)} \cdot 0.5}}{a \cdot 2} \]
    10. Step-by-step derivation
      1. sub-neg42.2%

        \[\leadsto \frac{\color{blue}{\left(-b\right) + \left(-e^{\left(\log \left(a \cdot -4\right) + \log c\right) \cdot 0.5}\right)}}{a \cdot 2} \]
      2. neg-mul-142.2%

        \[\leadsto \frac{\color{blue}{-1 \cdot b} + \left(-e^{\left(\log \left(a \cdot -4\right) + \log c\right) \cdot 0.5}\right)}{a \cdot 2} \]
      3. *-commutative42.2%

        \[\leadsto \frac{\color{blue}{b \cdot -1} + \left(-e^{\left(\log \left(a \cdot -4\right) + \log c\right) \cdot 0.5}\right)}{a \cdot 2} \]
      4. fma-define42.2%

        \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(b, -1, -e^{\left(\log \left(a \cdot -4\right) + \log c\right) \cdot 0.5}\right)}}{a \cdot 2} \]
      5. sum-log66.1%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -e^{\color{blue}{\log \left(\left(a \cdot -4\right) \cdot c\right)} \cdot 0.5}\right)}{a \cdot 2} \]
      6. pow-to-exp71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\color{blue}{{\left(\left(a \cdot -4\right) \cdot c\right)}^{0.5}}\right)}{a \cdot 2} \]
      7. associate-*l*71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -{\color{blue}{\left(a \cdot \left(-4 \cdot c\right)\right)}}^{0.5}\right)}{a \cdot 2} \]
      8. *-commutative71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -{\left(a \cdot \color{blue}{\left(c \cdot -4\right)}\right)}^{0.5}\right)}{a \cdot 2} \]
      9. pow1/271.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\color{blue}{\sqrt{a \cdot \left(c \cdot -4\right)}}\right)}{a \cdot 2} \]
      10. *-commutative71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\sqrt{\color{blue}{\left(c \cdot -4\right) \cdot a}}\right)}{a \cdot 2} \]
      11. sqrt-prod39.5%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\color{blue}{\sqrt{c \cdot -4} \cdot \sqrt{a}}\right)}{a \cdot 2} \]
      12. sqrt-prod71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\color{blue}{\sqrt{\left(c \cdot -4\right) \cdot a}}\right)}{a \cdot 2} \]
      13. *-commutative71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\sqrt{\color{blue}{a \cdot \left(c \cdot -4\right)}}\right)}{a \cdot 2} \]
      14. *-commutative71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\sqrt{a \cdot \color{blue}{\left(-4 \cdot c\right)}}\right)}{a \cdot 2} \]
      15. associate-*l*71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\sqrt{\color{blue}{\left(a \cdot -4\right) \cdot c}}\right)}{a \cdot 2} \]
      16. *-commutative71.0%

        \[\leadsto \frac{\mathsf{fma}\left(b, -1, -\sqrt{\color{blue}{c \cdot \left(a \cdot -4\right)}}\right)}{a \cdot 2} \]
    11. Applied egg-rr71.0%

      \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(b, -1, -\sqrt{c \cdot \left(a \cdot -4\right)}\right)}}{a \cdot 2} \]
    12. Step-by-step derivation
      1. fma-undefine71.0%

        \[\leadsto \frac{\color{blue}{b \cdot -1 + \left(-\sqrt{c \cdot \left(a \cdot -4\right)}\right)}}{a \cdot 2} \]
      2. *-commutative71.0%

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

        \[\leadsto \frac{\color{blue}{-1 \cdot b - \sqrt{c \cdot \left(a \cdot -4\right)}}}{a \cdot 2} \]
      4. mul-1-neg71.0%

        \[\leadsto \frac{\color{blue}{\left(-b\right)} - \sqrt{c \cdot \left(a \cdot -4\right)}}{a \cdot 2} \]
    13. Simplified71.0%

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

    if 3.1000000000000001e-46 < b

    1. Initial program 70.2%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub70.2%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg70.2%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-170.2%

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

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*70.1%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac70.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-170.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative70.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*70.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out70.0%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*70.0%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval70.0%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg70.0%

        \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{b \cdot b + \left(-4 \cdot \left(a \cdot c\right)\right)}}\right) \]
      14. +-commutative70.0%

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in c around 0 88.5%

      \[\leadsto \color{blue}{-1 \cdot \frac{b}{a} + \frac{c}{b}} \]
    6. Step-by-step derivation
      1. +-commutative88.5%

        \[\leadsto \color{blue}{\frac{c}{b} + -1 \cdot \frac{b}{a}} \]
      2. mul-1-neg88.5%

        \[\leadsto \frac{c}{b} + \color{blue}{\left(-\frac{b}{a}\right)} \]
      3. unsub-neg88.5%

        \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
    7. Simplified88.5%

      \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
  3. Recombined 3 regimes into one program.
  4. Add Preprocessing

Alternative 3: 80.3% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -4 \cdot 10^{-23}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{elif}\;b \leq 8.2 \cdot 10^{-47}:\\ \;\;\;\;\frac{-0.5}{a} \cdot \left(b + \sqrt{a \cdot \left(c \cdot -4\right)}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{b} - \frac{b}{a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -4e-23)
   (/ c (- b))
   (if (<= b 8.2e-47)
     (* (/ -0.5 a) (+ b (sqrt (* a (* c -4.0)))))
     (- (/ c b) (/ b a)))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -4e-23) {
		tmp = c / -b;
	} else if (b <= 8.2e-47) {
		tmp = (-0.5 / a) * (b + sqrt((a * (c * -4.0))));
	} else {
		tmp = (c / b) - (b / a);
	}
	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 <= (-4d-23)) then
        tmp = c / -b
    else if (b <= 8.2d-47) then
        tmp = ((-0.5d0) / a) * (b + sqrt((a * (c * (-4.0d0)))))
    else
        tmp = (c / b) - (b / a)
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double tmp;
	if (b <= -4e-23) {
		tmp = c / -b;
	} else if (b <= 8.2e-47) {
		tmp = (-0.5 / a) * (b + Math.sqrt((a * (c * -4.0))));
	} else {
		tmp = (c / b) - (b / a);
	}
	return tmp;
}
def code(a, b, c):
	tmp = 0
	if b <= -4e-23:
		tmp = c / -b
	elif b <= 8.2e-47:
		tmp = (-0.5 / a) * (b + math.sqrt((a * (c * -4.0))))
	else:
		tmp = (c / b) - (b / a)
	return tmp
function code(a, b, c)
	tmp = 0.0
	if (b <= -4e-23)
		tmp = Float64(c / Float64(-b));
	elseif (b <= 8.2e-47)
		tmp = Float64(Float64(-0.5 / a) * Float64(b + sqrt(Float64(a * Float64(c * -4.0)))));
	else
		tmp = Float64(Float64(c / b) - Float64(b / a));
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b <= -4e-23)
		tmp = c / -b;
	elseif (b <= 8.2e-47)
		tmp = (-0.5 / a) * (b + sqrt((a * (c * -4.0))));
	else
		tmp = (c / b) - (b / a);
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := If[LessEqual[b, -4e-23], N[(c / (-b)), $MachinePrecision], If[LessEqual[b, 8.2e-47], N[(N[(-0.5 / a), $MachinePrecision] * N[(b + N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -4 \cdot 10^{-23}:\\
\;\;\;\;\frac{c}{-b}\\

\mathbf{elif}\;b \leq 8.2 \cdot 10^{-47}:\\
\;\;\;\;\frac{-0.5}{a} \cdot \left(b + \sqrt{a \cdot \left(c \cdot -4\right)}\right)\\

\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\


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

    1. Initial program 11.6%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg8.8%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-18.8%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative8.8%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*8.6%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-18.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative8.6%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*8.7%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out11.6%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*11.6%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval11.6%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg11.6%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in b around -inf 87.5%

      \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
    6. Step-by-step derivation
      1. mul-1-neg87.5%

        \[\leadsto \color{blue}{-\frac{c}{b}} \]
      2. distribute-neg-frac287.5%

        \[\leadsto \color{blue}{\frac{c}{-b}} \]
    7. Simplified87.5%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]

    if -3.99999999999999984e-23 < b < 8.20000000000000003e-47

    1. Initial program 75.1%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub75.1%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg75.1%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-175.1%

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

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*75.0%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac75.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-175.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative75.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*74.8%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out74.9%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*74.9%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval74.9%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg74.9%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in a around inf 70.8%

      \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}\right) \]
    6. Step-by-step derivation
      1. *-commutative70.8%

        \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{\left(a \cdot c\right) \cdot -4}}\right) \]
      2. associate-*r*70.8%

        \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{a \cdot \left(c \cdot -4\right)}}\right) \]
    7. Simplified70.8%

      \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{a \cdot \left(c \cdot -4\right)}}\right) \]

    if 8.20000000000000003e-47 < b

    1. Initial program 70.2%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub70.2%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg70.2%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-170.2%

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

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*70.1%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac70.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-170.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative70.1%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*70.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out70.0%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*70.0%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval70.0%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg70.0%

        \[\leadsto \frac{-0.5}{a} \cdot \left(b + \sqrt{\color{blue}{b \cdot b + \left(-4 \cdot \left(a \cdot c\right)\right)}}\right) \]
      14. +-commutative70.0%

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in c around 0 88.5%

      \[\leadsto \color{blue}{-1 \cdot \frac{b}{a} + \frac{c}{b}} \]
    6. Step-by-step derivation
      1. +-commutative88.5%

        \[\leadsto \color{blue}{\frac{c}{b} + -1 \cdot \frac{b}{a}} \]
      2. mul-1-neg88.5%

        \[\leadsto \frac{c}{b} + \color{blue}{\left(-\frac{b}{a}\right)} \]
      3. unsub-neg88.5%

        \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
    7. Simplified88.5%

      \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
  3. Recombined 3 regimes into one program.
  4. Add Preprocessing

Alternative 4: 68.0% accurate, 9.7× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{b} - \frac{b}{a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -5e-310) (/ c (- b)) (- (/ c b) (/ b a))))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -5e-310) {
		tmp = c / -b;
	} else {
		tmp = (c / b) - (b / a);
	}
	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 = c / -b
    else
        tmp = (c / b) - (b / a)
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double tmp;
	if (b <= -5e-310) {
		tmp = c / -b;
	} else {
		tmp = (c / b) - (b / a);
	}
	return tmp;
}
def code(a, b, c):
	tmp = 0
	if b <= -5e-310:
		tmp = c / -b
	else:
		tmp = (c / b) - (b / a)
	return tmp
function code(a, b, c)
	tmp = 0.0
	if (b <= -5e-310)
		tmp = Float64(c / Float64(-b));
	else
		tmp = Float64(Float64(c / b) - Float64(b / a));
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b <= -5e-310)
		tmp = c / -b;
	else
		tmp = (c / b) - (b / a);
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := If[LessEqual[b, -5e-310], N[(c / (-b)), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\
\;\;\;\;\frac{c}{-b}\\

\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if b < -4.999999999999985e-310

    1. Initial program 31.0%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub29.1%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg29.1%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-129.1%

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

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*28.9%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac28.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-128.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative28.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*28.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out30.9%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*30.9%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval30.9%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg30.9%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in b around -inf 65.8%

      \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
    6. Step-by-step derivation
      1. mul-1-neg65.8%

        \[\leadsto \color{blue}{-\frac{c}{b}} \]
      2. distribute-neg-frac265.8%

        \[\leadsto \color{blue}{\frac{c}{-b}} \]
    7. Simplified65.8%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]

    if -4.999999999999985e-310 < b

    1. Initial program 73.5%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub73.5%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg73.5%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-173.5%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative73.5%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*73.4%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac73.4%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-173.4%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative73.4%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*73.3%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out73.3%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*73.3%

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

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg73.3%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in c around 0 65.8%

      \[\leadsto \color{blue}{-1 \cdot \frac{b}{a} + \frac{c}{b}} \]
    6. Step-by-step derivation
      1. +-commutative65.8%

        \[\leadsto \color{blue}{\frac{c}{b} + -1 \cdot \frac{b}{a}} \]
      2. mul-1-neg65.8%

        \[\leadsto \frac{c}{b} + \color{blue}{\left(-\frac{b}{a}\right)} \]
      3. unsub-neg65.8%

        \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
    7. Simplified65.8%

      \[\leadsto \color{blue}{\frac{c}{b} - \frac{b}{a}} \]
  3. Recombined 2 regimes into one program.
  4. Add Preprocessing

Alternative 5: 67.8% accurate, 12.9× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -8.4 \cdot 10^{-286}:\\ \;\;\;\;\frac{c}{-b}\\ \mathbf{else}:\\ \;\;\;\;\frac{-b}{a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (if (<= b -8.4e-286) (/ c (- b)) (/ (- b) a)))
double code(double a, double b, double c) {
	double tmp;
	if (b <= -8.4e-286) {
		tmp = c / -b;
	} else {
		tmp = -b / a;
	}
	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 <= (-8.4d-286)) then
        tmp = c / -b
    else
        tmp = -b / a
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double tmp;
	if (b <= -8.4e-286) {
		tmp = c / -b;
	} else {
		tmp = -b / a;
	}
	return tmp;
}
def code(a, b, c):
	tmp = 0
	if b <= -8.4e-286:
		tmp = c / -b
	else:
		tmp = -b / a
	return tmp
function code(a, b, c)
	tmp = 0.0
	if (b <= -8.4e-286)
		tmp = Float64(c / Float64(-b));
	else
		tmp = Float64(Float64(-b) / a);
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b <= -8.4e-286)
		tmp = c / -b;
	else
		tmp = -b / a;
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := If[LessEqual[b, -8.4e-286], N[(c / (-b)), $MachinePrecision], N[((-b) / a), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;b \leq -8.4 \cdot 10^{-286}:\\
\;\;\;\;\frac{c}{-b}\\

\mathbf{else}:\\
\;\;\;\;\frac{-b}{a}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if b < -8.39999999999999954e-286

    1. Initial program 29.4%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub27.4%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg27.4%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-127.4%

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

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*27.2%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac27.2%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-127.2%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative27.2%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*27.3%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out29.3%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*29.3%

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

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg29.3%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in b around -inf 67.3%

      \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
    6. Step-by-step derivation
      1. mul-1-neg67.3%

        \[\leadsto \color{blue}{-\frac{c}{b}} \]
      2. distribute-neg-frac267.3%

        \[\leadsto \color{blue}{\frac{c}{-b}} \]
    7. Simplified67.3%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]

    if -8.39999999999999954e-286 < b

    1. Initial program 74.0%

      \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
    2. Step-by-step derivation
      1. div-sub74.0%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      2. sub-neg74.0%

        \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
      3. neg-mul-174.0%

        \[\leadsto \frac{\color{blue}{-1 \cdot b}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      4. *-commutative74.0%

        \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      5. associate-/l*74.0%

        \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
      6. distribute-neg-frac74.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
      7. neg-mul-174.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
      8. *-commutative74.0%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
      9. associate-/l*73.9%

        \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
      10. distribute-rgt-out73.9%

        \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
      11. associate-/r*73.9%

        \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      12. metadata-eval73.9%

        \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
      13. sub-neg73.9%

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

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

      \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
    4. Add Preprocessing
    5. Taylor expanded in a around 0 64.1%

      \[\leadsto \color{blue}{-1 \cdot \frac{b}{a}} \]
    6. Step-by-step derivation
      1. associate-*r/64.1%

        \[\leadsto \color{blue}{\frac{-1 \cdot b}{a}} \]
      2. mul-1-neg64.1%

        \[\leadsto \frac{\color{blue}{-b}}{a} \]
    7. Simplified64.1%

      \[\leadsto \color{blue}{\frac{-b}{a}} \]
  3. Recombined 2 regimes into one program.
  4. Add Preprocessing

Alternative 6: 34.7% accurate, 29.0× speedup?

\[\begin{array}{l} \\ \frac{c}{-b} \end{array} \]
(FPCore (a b c) :precision binary64 (/ c (- b)))
double code(double a, double b, double c) {
	return 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 = c / -b
end function
public static double code(double a, double b, double c) {
	return c / -b;
}
def code(a, b, c):
	return c / -b
function code(a, b, c)
	return Float64(c / Float64(-b))
end
function tmp = code(a, b, c)
	tmp = c / -b;
end
code[a_, b_, c_] := N[(c / (-b)), $MachinePrecision]
\begin{array}{l}

\\
\frac{c}{-b}
\end{array}
Derivation
  1. Initial program 52.1%

    \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
  2. Step-by-step derivation
    1. div-sub51.1%

      \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
    2. sub-neg51.1%

      \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
    3. neg-mul-151.1%

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

      \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
    5. associate-/l*51.0%

      \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
    6. distribute-neg-frac51.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
    7. neg-mul-151.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
    8. *-commutative51.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
    9. associate-/l*50.9%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
    10. distribute-rgt-out51.9%

      \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
    11. associate-/r*51.9%

      \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
    12. metadata-eval51.9%

      \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
    13. sub-neg51.9%

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

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

    \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
  4. Add Preprocessing
  5. Taylor expanded in b around -inf 34.2%

    \[\leadsto \color{blue}{-1 \cdot \frac{c}{b}} \]
  6. Step-by-step derivation
    1. mul-1-neg34.2%

      \[\leadsto \color{blue}{-\frac{c}{b}} \]
    2. distribute-neg-frac234.2%

      \[\leadsto \color{blue}{\frac{c}{-b}} \]
  7. Simplified34.2%

    \[\leadsto \color{blue}{\frac{c}{-b}} \]
  8. Add Preprocessing

Alternative 7: 10.6% accurate, 38.7× speedup?

\[\begin{array}{l} \\ \frac{c}{b} \end{array} \]
(FPCore (a b c) :precision binary64 (/ c b))
double code(double a, double b, double c) {
	return 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 = c / b
end function
public static double code(double a, double b, double c) {
	return c / b;
}
def code(a, b, c):
	return c / b
function code(a, b, c)
	return Float64(c / b)
end
function tmp = code(a, b, c)
	tmp = c / b;
end
code[a_, b_, c_] := N[(c / b), $MachinePrecision]
\begin{array}{l}

\\
\frac{c}{b}
\end{array}
Derivation
  1. Initial program 52.1%

    \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
  2. Step-by-step derivation
    1. div-sub51.1%

      \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} - \frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
    2. sub-neg51.1%

      \[\leadsto \color{blue}{\frac{-b}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right)} \]
    3. neg-mul-151.1%

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

      \[\leadsto \frac{\color{blue}{b \cdot -1}}{2 \cdot a} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
    5. associate-/l*51.0%

      \[\leadsto \color{blue}{b \cdot \frac{-1}{2 \cdot a}} + \left(-\frac{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\right) \]
    6. distribute-neg-frac51.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\frac{-\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}} \]
    7. neg-mul-151.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{-1 \cdot \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a} \]
    8. *-commutative51.0%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \frac{\color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot -1}}{2 \cdot a} \]
    9. associate-/l*50.9%

      \[\leadsto b \cdot \frac{-1}{2 \cdot a} + \color{blue}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} \cdot \frac{-1}{2 \cdot a}} \]
    10. distribute-rgt-out51.9%

      \[\leadsto \color{blue}{\frac{-1}{2 \cdot a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right)} \]
    11. associate-/r*51.9%

      \[\leadsto \color{blue}{\frac{\frac{-1}{2}}{a}} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
    12. metadata-eval51.9%

      \[\leadsto \frac{\color{blue}{-0.5}}{a} \cdot \left(b + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \]
    13. sub-neg51.9%

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

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

    \[\leadsto \color{blue}{\frac{-0.5}{a} \cdot \left(b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}\right)} \]
  4. Add Preprocessing
  5. Taylor expanded in a around 0 31.9%

    \[\leadsto \frac{-0.5}{a} \cdot \color{blue}{\left(-2 \cdot \frac{a \cdot c}{b} + 2 \cdot b\right)} \]
  6. Taylor expanded in a around inf 10.5%

    \[\leadsto \color{blue}{\frac{c}{b}} \]
  7. Add Preprocessing

Alternative 8: 2.5% accurate, 38.7× speedup?

\[\begin{array}{l} \\ \frac{b}{a} \end{array} \]
(FPCore (a b c) :precision binary64 (/ b a))
double code(double a, double b, double c) {
	return b / 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 / a
end function
public static double code(double a, double b, double c) {
	return b / a;
}
def code(a, b, c):
	return b / a
function code(a, b, c)
	return Float64(b / a)
end
function tmp = code(a, b, c)
	tmp = b / a;
end
code[a_, b_, c_] := N[(b / a), $MachinePrecision]
\begin{array}{l}

\\
\frac{b}{a}
\end{array}
Derivation
  1. Initial program 52.1%

    \[\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a} \]
  2. Step-by-step derivation
    1. *-commutative52.1%

      \[\leadsto \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{\color{blue}{a \cdot 2}} \]
    2. *-commutative52.1%

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

      \[\leadsto \frac{\left(-b\right) - \sqrt{\color{blue}{\left(-b\right) \cdot \left(-b\right)} - 4 \cdot \left(c \cdot a\right)}}{a \cdot 2} \]
    4. *-commutative52.1%

      \[\leadsto \frac{\left(-b\right) - \sqrt{\left(-b\right) \cdot \left(-b\right) - 4 \cdot \color{blue}{\left(a \cdot c\right)}}}{a \cdot 2} \]
    5. sqr-neg52.1%

      \[\leadsto \frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b} - 4 \cdot \left(a \cdot c\right)}}{a \cdot 2} \]
    6. *-commutative52.1%

      \[\leadsto \frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \color{blue}{\left(c \cdot a\right)}}}{a \cdot 2} \]
    7. associate-*r*52.1%

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

    \[\leadsto \color{blue}{\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot c\right) \cdot a}}{a \cdot 2}} \]
  4. Add Preprocessing
  5. Applied egg-rr26.3%

    \[\leadsto \frac{\color{blue}{b + \left(-\mathsf{hypot}\left(b, \sqrt{a \cdot \left(c \cdot -4\right)}\right)\right)}}{a \cdot 2} \]
  6. Step-by-step derivation
    1. sub-neg26.3%

      \[\leadsto \frac{\color{blue}{b - \mathsf{hypot}\left(b, \sqrt{a \cdot \left(c \cdot -4\right)}\right)}}{a \cdot 2} \]
  7. Simplified26.3%

    \[\leadsto \frac{\color{blue}{b - \mathsf{hypot}\left(b, \sqrt{a \cdot \left(c \cdot -4\right)}\right)}}{a \cdot 2} \]
  8. Taylor expanded in b around -inf 2.7%

    \[\leadsto \color{blue}{\frac{b}{a}} \]
  9. Add Preprocessing

Developer target: 70.6% accurate, 0.9× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\\ \mathbf{if}\;b < 0:\\ \;\;\;\;\frac{c}{a \cdot \frac{\left(-b\right) + t\_0}{2 \cdot a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\ \end{array} \end{array} \]
(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (- (* b b) (* 4.0 (* a c))))))
   (if (< b 0.0)
     (/ c (* a (/ (+ (- b) t_0) (* 2.0 a))))
     (/ (- (- b) t_0) (* 2.0 a)))))
double code(double a, double b, double c) {
	double t_0 = sqrt(((b * b) - (4.0 * (a * c))));
	double tmp;
	if (b < 0.0) {
		tmp = c / (a * ((-b + t_0) / (2.0 * a)));
	} else {
		tmp = (-b - t_0) / (2.0 * a);
	}
	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) :: t_0
    real(8) :: tmp
    t_0 = sqrt(((b * b) - (4.0d0 * (a * c))))
    if (b < 0.0d0) then
        tmp = c / (a * ((-b + t_0) / (2.0d0 * a)))
    else
        tmp = (-b - t_0) / (2.0d0 * a)
    end if
    code = tmp
end function
public static double code(double a, double b, double c) {
	double t_0 = Math.sqrt(((b * b) - (4.0 * (a * c))));
	double tmp;
	if (b < 0.0) {
		tmp = c / (a * ((-b + t_0) / (2.0 * a)));
	} else {
		tmp = (-b - t_0) / (2.0 * a);
	}
	return tmp;
}
def code(a, b, c):
	t_0 = math.sqrt(((b * b) - (4.0 * (a * c))))
	tmp = 0
	if b < 0.0:
		tmp = c / (a * ((-b + t_0) / (2.0 * a)))
	else:
		tmp = (-b - t_0) / (2.0 * a)
	return tmp
function code(a, b, c)
	t_0 = sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(a * c))))
	tmp = 0.0
	if (b < 0.0)
		tmp = Float64(c / Float64(a * Float64(Float64(Float64(-b) + t_0) / Float64(2.0 * a))));
	else
		tmp = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a));
	end
	return tmp
end
function tmp_2 = code(a, b, c)
	t_0 = sqrt(((b * b) - (4.0 * (a * c))));
	tmp = 0.0;
	if (b < 0.0)
		tmp = c / (a * ((-b + t_0) / (2.0 * a)));
	else
		tmp = (-b - t_0) / (2.0 * a);
	end
	tmp_2 = tmp;
end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[Less[b, 0.0], N[(c / N[(a * N[(N[((-b) + t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\\
\mathbf{if}\;b < 0:\\
\;\;\;\;\frac{c}{a \cdot \frac{\left(-b\right) + t\_0}{2 \cdot a}}\\

\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\


\end{array}
\end{array}

Reproduce

?
herbie shell --seed 2024093 
(FPCore (a b c)
  :name "The quadratic formula (r2)"
  :precision binary64

  :alt
  (if (< b 0.0) (/ c (* a (/ (+ (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))) (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))

  (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))