| Alternative 1 | |
|---|---|
| Error | 36.3 |
| Cost | 35104 |
(FPCore (A B C F)
:precision binary64
(/
(-
(sqrt
(*
(* 2.0 (* (- (pow B 2.0) (* (* 4.0 A) C)) F))
(- (+ A C) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0)))))))
(- (pow B 2.0) (* (* 4.0 A) C))))(FPCore (A B C F)
:precision binary64
(let* ((t_0 (fma B B (* A (* C -4.0))))
(t_1 (fma B B (* C (* A -4.0))))
(t_2
(/
(-
(exp (* (+ (log (* -16.0 (* F C))) (* -2.0 (log (/ -1.0 A)))) 0.5)))
t_0))
(t_3 (+ A (fma -0.5 (* B (/ B C)) A)))
(t_4 (- A (hypot A B)))
(t_5 (sqrt (* F t_4)))
(t_6 (* 2.0 t_0))
(t_7 (pow (* F (* t_3 t_6)) 0.25)))
(if (<= B -6.6e+82)
(* (/ (sqrt 2.0) B) t_5)
(if (<= B -1.05e-57)
(* t_7 (* t_7 (/ -1.0 t_0)))
(if (<= B -3.5e-101)
(/ (* B (sqrt (* t_4 (* 2.0 F)))) t_0)
(if (<= B -4.8e-107)
t_2
(if (<= B 3.7e-291)
(/
(-
(sqrt
(*
2.0
(*
(+ (pow B 2.0) (* -4.0 (* A C)))
(* F (+ (* 2.0 A) (* -0.5 (/ (pow B 2.0) C))))))))
t_1)
(if (<= B 7.2e-209)
t_2
(if (<= B 3.2e-104)
(/ (- (sqrt (* -16.0 (* A (* F (* A C)))))) t_0)
(if (<= B 1.35e-85)
(* (* (sqrt (* F t_3)) (sqrt t_6)) (/ 1.0 (- t_1)))
(if (<= B 1e-75)
(/
(-
(sqrt
(*
F
(* (+ A (fma -0.5 (/ (* B B) C) A)) (* 2.0 t_1)))))
t_1)
(if (<= B 6.5e-14)
(/
(-
(sqrt
(*
2.0
(*
(fma 2.0 A (* (* B B) (/ -0.5 C)))
(* F (fma A (* C -4.0) (* B B)))))))
t_1)
(/ (* (sqrt 2.0) t_5) (- B))))))))))))))double code(double A, double B, double C, double F) {
return -sqrt(((2.0 * ((pow(B, 2.0) - ((4.0 * A) * C)) * F)) * ((A + C) - sqrt((pow((A - C), 2.0) + pow(B, 2.0)))))) / (pow(B, 2.0) - ((4.0 * A) * C));
}
double code(double A, double B, double C, double F) {
double t_0 = fma(B, B, (A * (C * -4.0)));
double t_1 = fma(B, B, (C * (A * -4.0)));
double t_2 = -exp(((log((-16.0 * (F * C))) + (-2.0 * log((-1.0 / A)))) * 0.5)) / t_0;
double t_3 = A + fma(-0.5, (B * (B / C)), A);
double t_4 = A - hypot(A, B);
double t_5 = sqrt((F * t_4));
double t_6 = 2.0 * t_0;
double t_7 = pow((F * (t_3 * t_6)), 0.25);
double tmp;
if (B <= -6.6e+82) {
tmp = (sqrt(2.0) / B) * t_5;
} else if (B <= -1.05e-57) {
tmp = t_7 * (t_7 * (-1.0 / t_0));
} else if (B <= -3.5e-101) {
tmp = (B * sqrt((t_4 * (2.0 * F)))) / t_0;
} else if (B <= -4.8e-107) {
tmp = t_2;
} else if (B <= 3.7e-291) {
tmp = -sqrt((2.0 * ((pow(B, 2.0) + (-4.0 * (A * C))) * (F * ((2.0 * A) + (-0.5 * (pow(B, 2.0) / C))))))) / t_1;
} else if (B <= 7.2e-209) {
tmp = t_2;
} else if (B <= 3.2e-104) {
tmp = -sqrt((-16.0 * (A * (F * (A * C))))) / t_0;
} else if (B <= 1.35e-85) {
tmp = (sqrt((F * t_3)) * sqrt(t_6)) * (1.0 / -t_1);
} else if (B <= 1e-75) {
tmp = -sqrt((F * ((A + fma(-0.5, ((B * B) / C), A)) * (2.0 * t_1)))) / t_1;
} else if (B <= 6.5e-14) {
tmp = -sqrt((2.0 * (fma(2.0, A, ((B * B) * (-0.5 / C))) * (F * fma(A, (C * -4.0), (B * B)))))) / t_1;
} else {
tmp = (sqrt(2.0) * t_5) / -B;
}
return tmp;
}
function code(A, B, C, F) return Float64(Float64(-sqrt(Float64(Float64(2.0 * Float64(Float64((B ^ 2.0) - Float64(Float64(4.0 * A) * C)) * F)) * Float64(Float64(A + C) - sqrt(Float64((Float64(A - C) ^ 2.0) + (B ^ 2.0))))))) / Float64((B ^ 2.0) - Float64(Float64(4.0 * A) * C))) end
function code(A, B, C, F) t_0 = fma(B, B, Float64(A * Float64(C * -4.0))) t_1 = fma(B, B, Float64(C * Float64(A * -4.0))) t_2 = Float64(Float64(-exp(Float64(Float64(log(Float64(-16.0 * Float64(F * C))) + Float64(-2.0 * log(Float64(-1.0 / A)))) * 0.5))) / t_0) t_3 = Float64(A + fma(-0.5, Float64(B * Float64(B / C)), A)) t_4 = Float64(A - hypot(A, B)) t_5 = sqrt(Float64(F * t_4)) t_6 = Float64(2.0 * t_0) t_7 = Float64(F * Float64(t_3 * t_6)) ^ 0.25 tmp = 0.0 if (B <= -6.6e+82) tmp = Float64(Float64(sqrt(2.0) / B) * t_5); elseif (B <= -1.05e-57) tmp = Float64(t_7 * Float64(t_7 * Float64(-1.0 / t_0))); elseif (B <= -3.5e-101) tmp = Float64(Float64(B * sqrt(Float64(t_4 * Float64(2.0 * F)))) / t_0); elseif (B <= -4.8e-107) tmp = t_2; elseif (B <= 3.7e-291) tmp = Float64(Float64(-sqrt(Float64(2.0 * Float64(Float64((B ^ 2.0) + Float64(-4.0 * Float64(A * C))) * Float64(F * Float64(Float64(2.0 * A) + Float64(-0.5 * Float64((B ^ 2.0) / C)))))))) / t_1); elseif (B <= 7.2e-209) tmp = t_2; elseif (B <= 3.2e-104) tmp = Float64(Float64(-sqrt(Float64(-16.0 * Float64(A * Float64(F * Float64(A * C)))))) / t_0); elseif (B <= 1.35e-85) tmp = Float64(Float64(sqrt(Float64(F * t_3)) * sqrt(t_6)) * Float64(1.0 / Float64(-t_1))); elseif (B <= 1e-75) tmp = Float64(Float64(-sqrt(Float64(F * Float64(Float64(A + fma(-0.5, Float64(Float64(B * B) / C), A)) * Float64(2.0 * t_1))))) / t_1); elseif (B <= 6.5e-14) tmp = Float64(Float64(-sqrt(Float64(2.0 * Float64(fma(2.0, A, Float64(Float64(B * B) * Float64(-0.5 / C))) * Float64(F * fma(A, Float64(C * -4.0), Float64(B * B))))))) / t_1); else tmp = Float64(Float64(sqrt(2.0) * t_5) / Float64(-B)); end return tmp end
code[A_, B_, C_, F_] := N[((-N[Sqrt[N[(N[(2.0 * N[(N[(N[Power[B, 2.0], $MachinePrecision] - N[(N[(4.0 * A), $MachinePrecision] * C), $MachinePrecision]), $MachinePrecision] * F), $MachinePrecision]), $MachinePrecision] * N[(N[(A + C), $MachinePrecision] - N[Sqrt[N[(N[Power[N[(A - C), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[B, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(N[Power[B, 2.0], $MachinePrecision] - N[(N[(4.0 * A), $MachinePrecision] * C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[A_, B_, C_, F_] := Block[{t$95$0 = N[(B * B + N[(A * N[(C * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(B * B + N[(C * N[(A * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[((-N[Exp[N[(N[(N[Log[N[(-16.0 * N[(F * C), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + N[(-2.0 * N[Log[N[(-1.0 / A), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 0.5), $MachinePrecision]], $MachinePrecision]) / t$95$0), $MachinePrecision]}, Block[{t$95$3 = N[(A + N[(-0.5 * N[(B * N[(B / C), $MachinePrecision]), $MachinePrecision] + A), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(A - N[Sqrt[A ^ 2 + B ^ 2], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[Sqrt[N[(F * t$95$4), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$6 = N[(2.0 * t$95$0), $MachinePrecision]}, Block[{t$95$7 = N[Power[N[(F * N[(t$95$3 * t$95$6), $MachinePrecision]), $MachinePrecision], 0.25], $MachinePrecision]}, If[LessEqual[B, -6.6e+82], N[(N[(N[Sqrt[2.0], $MachinePrecision] / B), $MachinePrecision] * t$95$5), $MachinePrecision], If[LessEqual[B, -1.05e-57], N[(t$95$7 * N[(t$95$7 * N[(-1.0 / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[B, -3.5e-101], N[(N[(B * N[Sqrt[N[(t$95$4 * N[(2.0 * F), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], If[LessEqual[B, -4.8e-107], t$95$2, If[LessEqual[B, 3.7e-291], N[((-N[Sqrt[N[(2.0 * N[(N[(N[Power[B, 2.0], $MachinePrecision] + N[(-4.0 * N[(A * C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(F * N[(N[(2.0 * A), $MachinePrecision] + N[(-0.5 * N[(N[Power[B, 2.0], $MachinePrecision] / C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$1), $MachinePrecision], If[LessEqual[B, 7.2e-209], t$95$2, If[LessEqual[B, 3.2e-104], N[((-N[Sqrt[N[(-16.0 * N[(A * N[(F * N[(A * C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$0), $MachinePrecision], If[LessEqual[B, 1.35e-85], N[(N[(N[Sqrt[N[(F * t$95$3), $MachinePrecision]], $MachinePrecision] * N[Sqrt[t$95$6], $MachinePrecision]), $MachinePrecision] * N[(1.0 / (-t$95$1)), $MachinePrecision]), $MachinePrecision], If[LessEqual[B, 1e-75], N[((-N[Sqrt[N[(F * N[(N[(A + N[(-0.5 * N[(N[(B * B), $MachinePrecision] / C), $MachinePrecision] + A), $MachinePrecision]), $MachinePrecision] * N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$1), $MachinePrecision], If[LessEqual[B, 6.5e-14], N[((-N[Sqrt[N[(2.0 * N[(N[(2.0 * A + N[(N[(B * B), $MachinePrecision] * N[(-0.5 / C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(F * N[(A * N[(C * -4.0), $MachinePrecision] + N[(B * B), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$1), $MachinePrecision], N[(N[(N[Sqrt[2.0], $MachinePrecision] * t$95$5), $MachinePrecision] / (-B)), $MachinePrecision]]]]]]]]]]]]]]]]]]]
\frac{-\sqrt{\left(2 \cdot \left(\left({B}^{2} - \left(4 \cdot A\right) \cdot C\right) \cdot F\right)\right) \cdot \left(\left(A + C\right) - \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}}{{B}^{2} - \left(4 \cdot A\right) \cdot C}
\begin{array}{l}
t_0 := \mathsf{fma}\left(B, B, A \cdot \left(C \cdot -4\right)\right)\\
t_1 := \mathsf{fma}\left(B, B, C \cdot \left(A \cdot -4\right)\right)\\
t_2 := \frac{-e^{\left(\log \left(-16 \cdot \left(F \cdot C\right)\right) + -2 \cdot \log \left(\frac{-1}{A}\right)\right) \cdot 0.5}}{t_0}\\
t_3 := A + \mathsf{fma}\left(-0.5, B \cdot \frac{B}{C}, A\right)\\
t_4 := A - \mathsf{hypot}\left(A, B\right)\\
t_5 := \sqrt{F \cdot t_4}\\
t_6 := 2 \cdot t_0\\
t_7 := {\left(F \cdot \left(t_3 \cdot t_6\right)\right)}^{0.25}\\
\mathbf{if}\;B \leq -6.6 \cdot 10^{+82}:\\
\;\;\;\;\frac{\sqrt{2}}{B} \cdot t_5\\
\mathbf{elif}\;B \leq -1.05 \cdot 10^{-57}:\\
\;\;\;\;t_7 \cdot \left(t_7 \cdot \frac{-1}{t_0}\right)\\
\mathbf{elif}\;B \leq -3.5 \cdot 10^{-101}:\\
\;\;\;\;\frac{B \cdot \sqrt{t_4 \cdot \left(2 \cdot F\right)}}{t_0}\\
\mathbf{elif}\;B \leq -4.8 \cdot 10^{-107}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;B \leq 3.7 \cdot 10^{-291}:\\
\;\;\;\;\frac{-\sqrt{2 \cdot \left(\left({B}^{2} + -4 \cdot \left(A \cdot C\right)\right) \cdot \left(F \cdot \left(2 \cdot A + -0.5 \cdot \frac{{B}^{2}}{C}\right)\right)\right)}}{t_1}\\
\mathbf{elif}\;B \leq 7.2 \cdot 10^{-209}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;B \leq 3.2 \cdot 10^{-104}:\\
\;\;\;\;\frac{-\sqrt{-16 \cdot \left(A \cdot \left(F \cdot \left(A \cdot C\right)\right)\right)}}{t_0}\\
\mathbf{elif}\;B \leq 1.35 \cdot 10^{-85}:\\
\;\;\;\;\left(\sqrt{F \cdot t_3} \cdot \sqrt{t_6}\right) \cdot \frac{1}{-t_1}\\
\mathbf{elif}\;B \leq 10^{-75}:\\
\;\;\;\;\frac{-\sqrt{F \cdot \left(\left(A + \mathsf{fma}\left(-0.5, \frac{B \cdot B}{C}, A\right)\right) \cdot \left(2 \cdot t_1\right)\right)}}{t_1}\\
\mathbf{elif}\;B \leq 6.5 \cdot 10^{-14}:\\
\;\;\;\;\frac{-\sqrt{2 \cdot \left(\mathsf{fma}\left(2, A, \left(B \cdot B\right) \cdot \frac{-0.5}{C}\right) \cdot \left(F \cdot \mathsf{fma}\left(A, C \cdot -4, B \cdot B\right)\right)\right)}}{t_1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{2} \cdot t_5}{-B}\\
\end{array}
if B < -6.5999999999999997e82Initial program 60.1
Taylor expanded in C around 0 63.7
Simplified62.7
Applied egg-rr32.7
if -6.5999999999999997e82 < B < -1.05e-57Initial program 41.1
Simplified37.8
Taylor expanded in C around inf 43.0
Simplified46.9
Applied egg-rr46.0
Applied egg-rr46.2
if -1.05e-57 < B < -3.49999999999999994e-101Initial program 48.6
Simplified44.6
Taylor expanded in C around 0 52.9
Simplified52.5
Applied egg-rr48.7
if -3.49999999999999994e-101 < B < -4.79999999999999989e-107 or 3.7000000000000001e-291 < B < 7.20000000000000032e-209Initial program 52.4
Simplified48.4
Taylor expanded in A around -inf 38.9
Simplified39.1
Applied egg-rr40.7
Taylor expanded in A around -inf 39.2
if -4.79999999999999989e-107 < B < 3.7000000000000001e-291Initial program 52.9
Simplified48.6
Taylor expanded in C around inf 41.7
Simplified41.8
Applied egg-rr39.1
Taylor expanded in F around 0 35.7
if 7.20000000000000032e-209 < B < 3.19999999999999989e-104Initial program 51.5
Simplified48.9
Taylor expanded in A around -inf 45.5
Simplified45.5
Applied egg-rr35.7
if 3.19999999999999989e-104 < B < 1.3500000000000001e-85Initial program 47.5
Simplified40.2
Taylor expanded in C around inf 39.2
Simplified42.4
Applied egg-rr37.5
Applied egg-rr44.5
if 1.3500000000000001e-85 < B < 9.9999999999999996e-76Initial program 45.5
Simplified40.1
Taylor expanded in C around inf 39.7
Simplified44.9
Applied egg-rr41.8
if 9.9999999999999996e-76 < B < 6.5000000000000001e-14Initial program 43.2
Simplified38.8
Taylor expanded in C around inf 38.9
Simplified44.9
Applied egg-rr43.1
Taylor expanded in F around 0 40.6
Simplified39.9
if 6.5000000000000001e-14 < B Initial program 53.8
Taylor expanded in C around 0 50.1
Simplified32.6
Applied egg-rr32.6
Final simplification36.6
| Alternative 1 | |
|---|---|
| Error | 36.3 |
| Cost | 35104 |
| Alternative 2 | |
|---|---|
| Error | 36.3 |
| Cost | 34976 |
| Alternative 3 | |
|---|---|
| Error | 36.1 |
| Cost | 28444 |
| Alternative 4 | |
|---|---|
| Error | 36.5 |
| Cost | 28180 |
| Alternative 5 | |
|---|---|
| Error | 36.5 |
| Cost | 28180 |
| Alternative 6 | |
|---|---|
| Error | 35.8 |
| Cost | 28048 |
| Alternative 7 | |
|---|---|
| Error | 35.8 |
| Cost | 28048 |
| Alternative 8 | |
|---|---|
| Error | 35.6 |
| Cost | 20168 |
| Alternative 9 | |
|---|---|
| Error | 35.6 |
| Cost | 20168 |
| Alternative 10 | |
|---|---|
| Error | 37.3 |
| Cost | 19972 |
| Alternative 11 | |
|---|---|
| Error | 37.3 |
| Cost | 19972 |
| Alternative 12 | |
|---|---|
| Error | 45.2 |
| Cost | 14216 |
| Alternative 13 | |
|---|---|
| Error | 43.5 |
| Cost | 14216 |
| Alternative 14 | |
|---|---|
| Error | 45.3 |
| Cost | 14084 |
| Alternative 15 | |
|---|---|
| Error | 48.0 |
| Cost | 13508 |
| Alternative 16 | |
|---|---|
| Error | 52.7 |
| Cost | 7556 |
| Alternative 17 | |
|---|---|
| Error | 58.1 |
| Cost | 6980 |
| Alternative 18 | |
|---|---|
| Error | 61.6 |
| Cost | 6656 |

herbie shell --seed 2022300
(FPCore (A B C F)
:name "ABCF->ab-angle b"
:precision binary64
(/ (- (sqrt (* (* 2.0 (* (- (pow B 2.0) (* (* 4.0 A) C)) F)) (- (+ A C) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0))))))) (- (pow B 2.0) (* (* 4.0 A) C))))