
(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:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(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}
(FPCore (a b c)
:precision binary64
(/
(/ (* c -0.3333333333333333) a)
(/
(-
(/ (sqrt (+ (* b b) (* c (/ a -0.3333333333333333)))) 3.0)
(* b -0.3333333333333333))
a)))
double code(double a, double b, double c) {
return ((c * -0.3333333333333333) / a) / (((sqrt(((b * b) + (c * (a / -0.3333333333333333)))) / 3.0) - (b * -0.3333333333333333)) / a);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = ((c * (-0.3333333333333333d0)) / a) / (((sqrt(((b * b) + (c * (a / (-0.3333333333333333d0))))) / 3.0d0) - (b * (-0.3333333333333333d0))) / a)
end function
public static double code(double a, double b, double c) {
return ((c * -0.3333333333333333) / a) / (((Math.sqrt(((b * b) + (c * (a / -0.3333333333333333)))) / 3.0) - (b * -0.3333333333333333)) / a);
}
def code(a, b, c): return ((c * -0.3333333333333333) / a) / (((math.sqrt(((b * b) + (c * (a / -0.3333333333333333)))) / 3.0) - (b * -0.3333333333333333)) / a)
function code(a, b, c) return Float64(Float64(Float64(c * -0.3333333333333333) / a) / Float64(Float64(Float64(sqrt(Float64(Float64(b * b) + Float64(c * Float64(a / -0.3333333333333333)))) / 3.0) - Float64(b * -0.3333333333333333)) / a)) end
function tmp = code(a, b, c) tmp = ((c * -0.3333333333333333) / a) / (((sqrt(((b * b) + (c * (a / -0.3333333333333333)))) / 3.0) - (b * -0.3333333333333333)) / a); end
code[a_, b_, c_] := N[(N[(N[(c * -0.3333333333333333), $MachinePrecision] / a), $MachinePrecision] / N[(N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] + N[(c * N[(a / -0.3333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / 3.0), $MachinePrecision] - N[(b * -0.3333333333333333), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\frac{c \cdot -0.3333333333333333}{a}}{\frac{\frac{\sqrt{b \cdot b + c \cdot \frac{a}{-0.3333333333333333}}}{3} - b \cdot -0.3333333333333333}{a}}
\end{array}
Initial program 32.5%
Applied egg-rr0
Applied egg-rr0
Taylor expanded in b around 0 0
Simplified0
(FPCore (a b c)
:precision binary64
(let* ((t_0 (* b (* b b))))
(+
(* -0.5 (/ c b))
(*
(+
(/ (* (* c c) -0.375) t_0)
(*
a
(+
(/
-0.16666666666666666
(/
b
(/
(* 6.328125 a)
(/ (* (* b b) (* (* b b) (* b b))) (* (* c c) (* c c))))))
(/ (* c (* (* c c) -0.5625)) (* (* b b) t_0)))))
a))))
double code(double a, double b, double c) {
double t_0 = b * (b * b);
return (-0.5 * (c / b)) + (((((c * c) * -0.375) / t_0) + (a * ((-0.16666666666666666 / (b / ((6.328125 * a) / (((b * b) * ((b * b) * (b * b))) / ((c * c) * (c * c)))))) + ((c * ((c * c) * -0.5625)) / ((b * b) * t_0))))) * a);
}
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
t_0 = b * (b * b)
code = ((-0.5d0) * (c / b)) + (((((c * c) * (-0.375d0)) / t_0) + (a * (((-0.16666666666666666d0) / (b / ((6.328125d0 * a) / (((b * b) * ((b * b) * (b * b))) / ((c * c) * (c * c)))))) + ((c * ((c * c) * (-0.5625d0))) / ((b * b) * t_0))))) * a)
end function
public static double code(double a, double b, double c) {
double t_0 = b * (b * b);
return (-0.5 * (c / b)) + (((((c * c) * -0.375) / t_0) + (a * ((-0.16666666666666666 / (b / ((6.328125 * a) / (((b * b) * ((b * b) * (b * b))) / ((c * c) * (c * c)))))) + ((c * ((c * c) * -0.5625)) / ((b * b) * t_0))))) * a);
}
def code(a, b, c): t_0 = b * (b * b) return (-0.5 * (c / b)) + (((((c * c) * -0.375) / t_0) + (a * ((-0.16666666666666666 / (b / ((6.328125 * a) / (((b * b) * ((b * b) * (b * b))) / ((c * c) * (c * c)))))) + ((c * ((c * c) * -0.5625)) / ((b * b) * t_0))))) * a)
function code(a, b, c) t_0 = Float64(b * Float64(b * b)) return Float64(Float64(-0.5 * Float64(c / b)) + Float64(Float64(Float64(Float64(Float64(c * c) * -0.375) / t_0) + Float64(a * Float64(Float64(-0.16666666666666666 / Float64(b / Float64(Float64(6.328125 * a) / Float64(Float64(Float64(b * b) * Float64(Float64(b * b) * Float64(b * b))) / Float64(Float64(c * c) * Float64(c * c)))))) + Float64(Float64(c * Float64(Float64(c * c) * -0.5625)) / Float64(Float64(b * b) * t_0))))) * a)) end
function tmp = code(a, b, c) t_0 = b * (b * b); tmp = (-0.5 * (c / b)) + (((((c * c) * -0.375) / t_0) + (a * ((-0.16666666666666666 / (b / ((6.328125 * a) / (((b * b) * ((b * b) * (b * b))) / ((c * c) * (c * c)))))) + ((c * ((c * c) * -0.5625)) / ((b * b) * t_0))))) * a); end
code[a_, b_, c_] := Block[{t$95$0 = N[(b * N[(b * b), $MachinePrecision]), $MachinePrecision]}, N[(N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(N[(N[(c * c), $MachinePrecision] * -0.375), $MachinePrecision] / t$95$0), $MachinePrecision] + N[(a * N[(N[(-0.16666666666666666 / N[(b / N[(N[(6.328125 * a), $MachinePrecision] / N[(N[(N[(b * b), $MachinePrecision] * N[(N[(b * b), $MachinePrecision] * N[(b * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(c * c), $MachinePrecision] * N[(c * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(c * N[(N[(c * c), $MachinePrecision] * -0.5625), $MachinePrecision]), $MachinePrecision] / N[(N[(b * b), $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := b \cdot \left(b \cdot b\right)\\
-0.5 \cdot \frac{c}{b} + \left(\frac{\left(c \cdot c\right) \cdot -0.375}{t\_0} + a \cdot \left(\frac{-0.16666666666666666}{\frac{b}{\frac{6.328125 \cdot a}{\frac{\left(b \cdot b\right) \cdot \left(\left(b \cdot b\right) \cdot \left(b \cdot b\right)\right)}{\left(c \cdot c\right) \cdot \left(c \cdot c\right)}}}} + \frac{c \cdot \left(\left(c \cdot c\right) \cdot -0.5625\right)}{\left(b \cdot b\right) \cdot t\_0}\right)\right) \cdot a
\end{array}
\end{array}
Initial program 32.5%
Taylor expanded in a around 0 0
Simplified0
Applied egg-rr0
(FPCore (a b c)
:precision binary64
(+
(* -0.5 (/ c b))
(*
a
(/
(+ (* (/ (* a (* c (* c c))) b) (/ -0.5625 b)) (* (* c c) -0.375))
(* b (* b b))))))
double code(double a, double b, double c) {
return (-0.5 * (c / b)) + (a * (((((a * (c * (c * c))) / b) * (-0.5625 / b)) + ((c * c) * -0.375)) / (b * (b * 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)) + (a * (((((a * (c * (c * c))) / b) * ((-0.5625d0) / b)) + ((c * c) * (-0.375d0))) / (b * (b * b))))
end function
public static double code(double a, double b, double c) {
return (-0.5 * (c / b)) + (a * (((((a * (c * (c * c))) / b) * (-0.5625 / b)) + ((c * c) * -0.375)) / (b * (b * b))));
}
def code(a, b, c): return (-0.5 * (c / b)) + (a * (((((a * (c * (c * c))) / b) * (-0.5625 / b)) + ((c * c) * -0.375)) / (b * (b * b))))
function code(a, b, c) return Float64(Float64(-0.5 * Float64(c / b)) + Float64(a * Float64(Float64(Float64(Float64(Float64(a * Float64(c * Float64(c * c))) / b) * Float64(-0.5625 / b)) + Float64(Float64(c * c) * -0.375)) / Float64(b * Float64(b * b))))) end
function tmp = code(a, b, c) tmp = (-0.5 * (c / b)) + (a * (((((a * (c * (c * c))) / b) * (-0.5625 / b)) + ((c * c) * -0.375)) / (b * (b * b)))); end
code[a_, b_, c_] := N[(N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(a * N[(N[(N[(N[(N[(a * N[(c * N[(c * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision] * N[(-0.5625 / b), $MachinePrecision]), $MachinePrecision] + N[(N[(c * c), $MachinePrecision] * -0.375), $MachinePrecision]), $MachinePrecision] / N[(b * N[(b * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-0.5 \cdot \frac{c}{b} + a \cdot \frac{\frac{a \cdot \left(c \cdot \left(c \cdot c\right)\right)}{b} \cdot \frac{-0.5625}{b} + \left(c \cdot c\right) \cdot -0.375}{b \cdot \left(b \cdot b\right)}
\end{array}
Initial program 32.5%
Taylor expanded in a around 0 0
Simplified0
Taylor expanded in b around inf 0
Simplified0
(FPCore (a b c) :precision binary64 (+ (* -0.5 (/ c b)) (/ (* -0.375 (* a (* (/ c b) (/ c b)))) b)))
double code(double a, double b, double c) {
return (-0.5 * (c / b)) + ((-0.375 * (a * ((c / b) * (c / b)))) / 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)) + (((-0.375d0) * (a * ((c / b) * (c / b)))) / b)
end function
public static double code(double a, double b, double c) {
return (-0.5 * (c / b)) + ((-0.375 * (a * ((c / b) * (c / b)))) / b);
}
def code(a, b, c): return (-0.5 * (c / b)) + ((-0.375 * (a * ((c / b) * (c / b)))) / b)
function code(a, b, c) return Float64(Float64(-0.5 * Float64(c / b)) + Float64(Float64(-0.375 * Float64(a * Float64(Float64(c / b) * Float64(c / b)))) / b)) end
function tmp = code(a, b, c) tmp = (-0.5 * (c / b)) + ((-0.375 * (a * ((c / b) * (c / b)))) / b); end
code[a_, b_, c_] := N[(N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(-0.375 * N[(a * N[(N[(c / b), $MachinePrecision] * N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-0.5 \cdot \frac{c}{b} + \frac{-0.375 \cdot \left(a \cdot \left(\frac{c}{b} \cdot \frac{c}{b}\right)\right)}{b}
\end{array}
Initial program 32.5%
Taylor expanded in a around 0 0
Simplified0
(FPCore (a b c) :precision binary64 (/ (+ (* c -0.5) (* -0.375 (* a (* (/ c b) (/ c b))))) b))
double code(double a, double b, double c) {
return ((c * -0.5) + (-0.375 * (a * ((c / b) * (c / b))))) / 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 * (-0.5d0)) + ((-0.375d0) * (a * ((c / b) * (c / b))))) / b
end function
public static double code(double a, double b, double c) {
return ((c * -0.5) + (-0.375 * (a * ((c / b) * (c / b))))) / b;
}
def code(a, b, c): return ((c * -0.5) + (-0.375 * (a * ((c / b) * (c / b))))) / b
function code(a, b, c) return Float64(Float64(Float64(c * -0.5) + Float64(-0.375 * Float64(a * Float64(Float64(c / b) * Float64(c / b))))) / b) end
function tmp = code(a, b, c) tmp = ((c * -0.5) + (-0.375 * (a * ((c / b) * (c / b))))) / b; end
code[a_, b_, c_] := N[(N[(N[(c * -0.5), $MachinePrecision] + N[(-0.375 * N[(a * N[(N[(c / b), $MachinePrecision] * N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision]
\begin{array}{l}
\\
\frac{c \cdot -0.5 + -0.375 \cdot \left(a \cdot \left(\frac{c}{b} \cdot \frac{c}{b}\right)\right)}{b}
\end{array}
Initial program 32.5%
Taylor expanded in b around inf 0
Simplified0
(FPCore (a b c) :precision binary64 (* c (+ (* (/ -0.375 b) (/ (* a c) (* b b))) (/ -0.5 b))))
double code(double a, double b, double c) {
return c * (((-0.375 / b) * ((a * c) / (b * b))) + (-0.5 / 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 * ((((-0.375d0) / b) * ((a * c) / (b * b))) + ((-0.5d0) / b))
end function
public static double code(double a, double b, double c) {
return c * (((-0.375 / b) * ((a * c) / (b * b))) + (-0.5 / b));
}
def code(a, b, c): return c * (((-0.375 / b) * ((a * c) / (b * b))) + (-0.5 / b))
function code(a, b, c) return Float64(c * Float64(Float64(Float64(-0.375 / b) * Float64(Float64(a * c) / Float64(b * b))) + Float64(-0.5 / b))) end
function tmp = code(a, b, c) tmp = c * (((-0.375 / b) * ((a * c) / (b * b))) + (-0.5 / b)); end
code[a_, b_, c_] := N[(c * N[(N[(N[(-0.375 / b), $MachinePrecision] * N[(N[(a * c), $MachinePrecision] / N[(b * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.5 / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
c \cdot \left(\frac{-0.375}{b} \cdot \frac{a \cdot c}{b \cdot b} + \frac{-0.5}{b}\right)
\end{array}
Initial program 32.5%
Applied egg-rr0
Taylor expanded in c around 0 0
Simplified0
(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}
Initial program 32.5%
Taylor expanded in b around inf 0
Simplified0
(FPCore (a b c) :precision binary64 0.0)
double code(double a, double b, double c) {
return 0.0;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = 0.0d0
end function
public static double code(double a, double b, double c) {
return 0.0;
}
def code(a, b, c): return 0.0
function code(a, b, c) return 0.0 end
function tmp = code(a, b, c) tmp = 0.0; end
code[a_, b_, c_] := 0.0
\begin{array}{l}
\\
0
\end{array}
Initial program 32.5%
Applied egg-rr0
Taylor expanded in c around 0 0
Simplified0
herbie shell --seed 2024110
(FPCore (a b c)
:name "Cubic critical, medium range"
:precision binary64
:pre (and (and (and (< 1.1102230246251565e-16 a) (< a 9007199254740992.0)) (and (< 1.1102230246251565e-16 b) (< b 9007199254740992.0))) (and (< 1.1102230246251565e-16 c) (< c 9007199254740992.0)))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))