| Alternative 1 | |
|---|---|
| Accuracy | 86.0% |
| Cost | 20560 |

(FPCore (a b c d) :precision binary64 (/ (+ (* a c) (* b d)) (+ (* c c) (* d d))))
(FPCore (a b c d)
:precision binary64
(let* ((t_0 (* (/ 1.0 (hypot c d)) (/ (fma a c (* d b)) (hypot c d))))
(t_1 (/ c (/ d a))))
(if (<= d -5.6e+141)
(+ (/ b d) (/ t_1 d))
(if (<= d -9.5e-134)
t_0
(if (<= d 1.3e-76)
(+ (/ a c) (/ (* b (/ d c)) c))
(if (<= d 2.9e+71) t_0 (/ (+ b t_1) (hypot c d))))))))double code(double a, double b, double c, double d) {
return ((a * c) + (b * d)) / ((c * c) + (d * d));
}
double code(double a, double b, double c, double d) {
double t_0 = (1.0 / hypot(c, d)) * (fma(a, c, (d * b)) / hypot(c, d));
double t_1 = c / (d / a);
double tmp;
if (d <= -5.6e+141) {
tmp = (b / d) + (t_1 / d);
} else if (d <= -9.5e-134) {
tmp = t_0;
} else if (d <= 1.3e-76) {
tmp = (a / c) + ((b * (d / c)) / c);
} else if (d <= 2.9e+71) {
tmp = t_0;
} else {
tmp = (b + t_1) / hypot(c, d);
}
return tmp;
}
function code(a, b, c, d) return Float64(Float64(Float64(a * c) + Float64(b * d)) / Float64(Float64(c * c) + Float64(d * d))) end
function code(a, b, c, d) t_0 = Float64(Float64(1.0 / hypot(c, d)) * Float64(fma(a, c, Float64(d * b)) / hypot(c, d))) t_1 = Float64(c / Float64(d / a)) tmp = 0.0 if (d <= -5.6e+141) tmp = Float64(Float64(b / d) + Float64(t_1 / d)); elseif (d <= -9.5e-134) tmp = t_0; elseif (d <= 1.3e-76) tmp = Float64(Float64(a / c) + Float64(Float64(b * Float64(d / c)) / c)); elseif (d <= 2.9e+71) tmp = t_0; else tmp = Float64(Float64(b + t_1) / hypot(c, d)); end return tmp end
code[a_, b_, c_, d_] := N[(N[(N[(a * c), $MachinePrecision] + N[(b * d), $MachinePrecision]), $MachinePrecision] / N[(N[(c * c), $MachinePrecision] + N[(d * d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[a_, b_, c_, d_] := Block[{t$95$0 = N[(N[(1.0 / N[Sqrt[c ^ 2 + d ^ 2], $MachinePrecision]), $MachinePrecision] * N[(N[(a * c + N[(d * b), $MachinePrecision]), $MachinePrecision] / N[Sqrt[c ^ 2 + d ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(c / N[(d / a), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[d, -5.6e+141], N[(N[(b / d), $MachinePrecision] + N[(t$95$1 / d), $MachinePrecision]), $MachinePrecision], If[LessEqual[d, -9.5e-134], t$95$0, If[LessEqual[d, 1.3e-76], N[(N[(a / c), $MachinePrecision] + N[(N[(b * N[(d / c), $MachinePrecision]), $MachinePrecision] / c), $MachinePrecision]), $MachinePrecision], If[LessEqual[d, 2.9e+71], t$95$0, N[(N[(b + t$95$1), $MachinePrecision] / N[Sqrt[c ^ 2 + d ^ 2], $MachinePrecision]), $MachinePrecision]]]]]]]
\frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}
\begin{array}{l}
t_0 := \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\mathsf{fma}\left(a, c, d \cdot b\right)}{\mathsf{hypot}\left(c, d\right)}\\
t_1 := \frac{c}{\frac{d}{a}}\\
\mathbf{if}\;d \leq -5.6 \cdot 10^{+141}:\\
\;\;\;\;\frac{b}{d} + \frac{t_1}{d}\\
\mathbf{elif}\;d \leq -9.5 \cdot 10^{-134}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;d \leq 1.3 \cdot 10^{-76}:\\
\;\;\;\;\frac{a}{c} + \frac{b \cdot \frac{d}{c}}{c}\\
\mathbf{elif}\;d \leq 2.9 \cdot 10^{+71}:\\
\;\;\;\;t_0\\
\mathbf{else}:\\
\;\;\;\;\frac{b + t_1}{\mathsf{hypot}\left(c, d\right)}\\
\end{array}
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
| Original | 61.6% |
|---|---|
| Target | 99.4% |
| Herbie | 86.0% |
if d < -5.59999999999999982e141Initial program 24.0%
Applied egg-rr54.0%
[Start]24.0% | \[ \frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}
\] |
|---|---|
*-un-lft-identity [=>]24.0% | \[ \frac{\color{blue}{1 \cdot \left(a \cdot c + b \cdot d\right)}}{c \cdot c + d \cdot d}
\] |
add-sqr-sqrt [=>]24.0% | \[ \frac{1 \cdot \left(a \cdot c + b \cdot d\right)}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}
\] |
times-frac [=>]24.0% | \[ \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}
\] |
hypot-def [=>]24.0% | \[ \frac{1}{\color{blue}{\mathsf{hypot}\left(c, d\right)}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}
\] |
fma-def [=>]24.0% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\color{blue}{\mathsf{fma}\left(a, c, b \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d}}
\] |
hypot-def [=>]54.0% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\mathsf{fma}\left(a, c, b \cdot d\right)}{\color{blue}{\mathsf{hypot}\left(c, d\right)}}
\] |
Taylor expanded in c around 0 80.9%
Simplified89.2%
[Start]80.9% | \[ \frac{b}{d} + \frac{c \cdot a}{{d}^{2}}
\] |
|---|---|
unpow2 [=>]80.9% | \[ \frac{b}{d} + \frac{c \cdot a}{\color{blue}{d \cdot d}}
\] |
times-frac [=>]89.2% | \[ \frac{b}{d} + \color{blue}{\frac{c}{d} \cdot \frac{a}{d}}
\] |
Applied egg-rr89.3%
[Start]89.2% | \[ \frac{b}{d} + \frac{c}{d} \cdot \frac{a}{d}
\] |
|---|---|
associate-*r/ [=>]89.3% | \[ \frac{b}{d} + \color{blue}{\frac{\frac{c}{d} \cdot a}{d}}
\] |
Applied egg-rr89.3%
[Start]89.3% | \[ \frac{b}{d} + \frac{\frac{c}{d} \cdot a}{d}
\] |
|---|---|
associate-/r/ [<=]89.3% | \[ \frac{b}{d} + \frac{\color{blue}{\frac{c}{\frac{d}{a}}}}{d}
\] |
if -5.59999999999999982e141 < d < -9.5000000000000008e-134 or 1.3e-76 < d < 2.90000000000000007e71Initial program 80.2%
Applied egg-rr85.3%
[Start]80.2% | \[ \frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}
\] |
|---|---|
*-un-lft-identity [=>]80.2% | \[ \frac{\color{blue}{1 \cdot \left(a \cdot c + b \cdot d\right)}}{c \cdot c + d \cdot d}
\] |
add-sqr-sqrt [=>]80.2% | \[ \frac{1 \cdot \left(a \cdot c + b \cdot d\right)}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}
\] |
times-frac [=>]80.1% | \[ \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}
\] |
hypot-def [=>]80.1% | \[ \frac{1}{\color{blue}{\mathsf{hypot}\left(c, d\right)}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}
\] |
fma-def [=>]80.1% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\color{blue}{\mathsf{fma}\left(a, c, b \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d}}
\] |
hypot-def [=>]85.3% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\mathsf{fma}\left(a, c, b \cdot d\right)}{\color{blue}{\mathsf{hypot}\left(c, d\right)}}
\] |
if -9.5000000000000008e-134 < d < 1.3e-76Initial program 68.7%
Applied egg-rr82.6%
[Start]68.7% | \[ \frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}
\] |
|---|---|
*-un-lft-identity [=>]68.7% | \[ \frac{\color{blue}{1 \cdot \left(a \cdot c + b \cdot d\right)}}{c \cdot c + d \cdot d}
\] |
add-sqr-sqrt [=>]68.7% | \[ \frac{1 \cdot \left(a \cdot c + b \cdot d\right)}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}
\] |
times-frac [=>]68.6% | \[ \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}
\] |
hypot-def [=>]68.6% | \[ \frac{1}{\color{blue}{\mathsf{hypot}\left(c, d\right)}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}
\] |
fma-def [=>]68.6% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\color{blue}{\mathsf{fma}\left(a, c, b \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d}}
\] |
hypot-def [=>]82.6% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\mathsf{fma}\left(a, c, b \cdot d\right)}{\color{blue}{\mathsf{hypot}\left(c, d\right)}}
\] |
Taylor expanded in c around inf 88.8%
Simplified95.7%
[Start]88.8% | \[ \frac{a}{c} + \frac{d \cdot b}{{c}^{2}}
\] |
|---|---|
unpow2 [=>]88.8% | \[ \frac{a}{c} + \frac{d \cdot b}{\color{blue}{c \cdot c}}
\] |
times-frac [=>]95.7% | \[ \frac{a}{c} + \color{blue}{\frac{d}{c} \cdot \frac{b}{c}}
\] |
Applied egg-rr97.8%
[Start]95.7% | \[ \frac{a}{c} + \frac{d}{c} \cdot \frac{b}{c}
\] |
|---|---|
associate-*r/ [=>]97.8% | \[ \frac{a}{c} + \color{blue}{\frac{\frac{d}{c} \cdot b}{c}}
\] |
if 2.90000000000000007e71 < d Initial program 50.7%
Applied egg-rr64.6%
[Start]50.7% | \[ \frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}
\] |
|---|---|
*-un-lft-identity [=>]50.7% | \[ \frac{\color{blue}{1 \cdot \left(a \cdot c + b \cdot d\right)}}{c \cdot c + d \cdot d}
\] |
add-sqr-sqrt [=>]50.7% | \[ \frac{1 \cdot \left(a \cdot c + b \cdot d\right)}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}
\] |
times-frac [=>]50.5% | \[ \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}
\] |
hypot-def [=>]50.5% | \[ \frac{1}{\color{blue}{\mathsf{hypot}\left(c, d\right)}} \cdot \frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}
\] |
fma-def [=>]50.5% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\color{blue}{\mathsf{fma}\left(a, c, b \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d}}
\] |
hypot-def [=>]64.6% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \frac{\mathsf{fma}\left(a, c, b \cdot d\right)}{\color{blue}{\mathsf{hypot}\left(c, d\right)}}
\] |
Taylor expanded in c around 0 94.2%
Applied egg-rr94.9%
[Start]94.2% | \[ \frac{1}{\mathsf{hypot}\left(c, d\right)} \cdot \left(b + \frac{c \cdot a}{d}\right)
\] |
|---|---|
associate-*l/ [=>]94.6% | \[ \color{blue}{\frac{1 \cdot \left(b + \frac{c \cdot a}{d}\right)}{\mathsf{hypot}\left(c, d\right)}}
\] |
*-un-lft-identity [<=]94.6% | \[ \frac{\color{blue}{b + \frac{c \cdot a}{d}}}{\mathsf{hypot}\left(c, d\right)}
\] |
associate-/l* [=>]94.9% | \[ \frac{b + \color{blue}{\frac{c}{\frac{d}{a}}}}{\mathsf{hypot}\left(c, d\right)}
\] |
Final simplification92.2%
| Alternative 1 | |
|---|---|
| Accuracy | 86.0% |
| Cost | 20560 |
| Alternative 2 | |
|---|---|
| Accuracy | 83.3% |
| Cost | 7568 |
| Alternative 3 | |
|---|---|
| Accuracy | 83.3% |
| Cost | 7568 |
| Alternative 4 | |
|---|---|
| Accuracy | 83.1% |
| Cost | 1488 |
| Alternative 5 | |
|---|---|
| Accuracy | 69.1% |
| Cost | 1241 |
| Alternative 6 | |
|---|---|
| Accuracy | 69.1% |
| Cost | 1240 |
| Alternative 7 | |
|---|---|
| Accuracy | 70.0% |
| Cost | 1240 |
| Alternative 8 | |
|---|---|
| Accuracy | 63.3% |
| Cost | 976 |
| Alternative 9 | |
|---|---|
| Accuracy | 76.8% |
| Cost | 969 |
| Alternative 10 | |
|---|---|
| Accuracy | 75.2% |
| Cost | 968 |
| Alternative 11 | |
|---|---|
| Accuracy | 75.2% |
| Cost | 968 |
| Alternative 12 | |
|---|---|
| Accuracy | 75.1% |
| Cost | 968 |
| Alternative 13 | |
|---|---|
| Accuracy | 75.1% |
| Cost | 968 |
| Alternative 14 | |
|---|---|
| Accuracy | 63.4% |
| Cost | 456 |
| Alternative 15 | |
|---|---|
| Accuracy | 42.6% |
| Cost | 192 |
herbie shell --seed 2023272
(FPCore (a b c d)
:name "Complex division, real part"
:precision binary64
:herbie-target
(if (< (fabs d) (fabs c)) (/ (+ a (* b (/ d c))) (+ c (* d (/ d c)))) (/ (+ b (* a (/ c d))) (+ d (* c (/ c d)))))
(/ (+ (* a c) (* b d)) (+ (* c c) (* d d))))