| Alternative 1 | |
|---|---|
| Accuracy | 99.2% |
| Cost | 28100 |

(FPCore (x eps) :precision binary64 (/ (- (* (+ 1.0 (/ 1.0 eps)) (exp (- (* (- 1.0 eps) x)))) (* (- (/ 1.0 eps) 1.0) (exp (- (* (+ 1.0 eps) x))))) 2.0))
(FPCore (x eps)
:precision binary64
(let* ((t_0 (exp (* x (- -1.0 eps))))
(t_1 (exp (* x (+ eps -1.0))))
(t_2 (* (+ 1.0 x) (exp (- x)))))
(if (<=
(+ (* t_1 (+ 1.0 (/ 1.0 eps))) (* t_0 (+ 1.0 (/ -1.0 eps))))
INFINITY)
(/ (+ t_1 t_0) 2.0)
(/ (+ t_2 t_2) 2.0))))double code(double x, double eps) {
return (((1.0 + (1.0 / eps)) * exp(-((1.0 - eps) * x))) - (((1.0 / eps) - 1.0) * exp(-((1.0 + eps) * x)))) / 2.0;
}
double code(double x, double eps) {
double t_0 = exp((x * (-1.0 - eps)));
double t_1 = exp((x * (eps + -1.0)));
double t_2 = (1.0 + x) * exp(-x);
double tmp;
if (((t_1 * (1.0 + (1.0 / eps))) + (t_0 * (1.0 + (-1.0 / eps)))) <= ((double) INFINITY)) {
tmp = (t_1 + t_0) / 2.0;
} else {
tmp = (t_2 + t_2) / 2.0;
}
return tmp;
}
public static double code(double x, double eps) {
return (((1.0 + (1.0 / eps)) * Math.exp(-((1.0 - eps) * x))) - (((1.0 / eps) - 1.0) * Math.exp(-((1.0 + eps) * x)))) / 2.0;
}
public static double code(double x, double eps) {
double t_0 = Math.exp((x * (-1.0 - eps)));
double t_1 = Math.exp((x * (eps + -1.0)));
double t_2 = (1.0 + x) * Math.exp(-x);
double tmp;
if (((t_1 * (1.0 + (1.0 / eps))) + (t_0 * (1.0 + (-1.0 / eps)))) <= Double.POSITIVE_INFINITY) {
tmp = (t_1 + t_0) / 2.0;
} else {
tmp = (t_2 + t_2) / 2.0;
}
return tmp;
}
def code(x, eps): return (((1.0 + (1.0 / eps)) * math.exp(-((1.0 - eps) * x))) - (((1.0 / eps) - 1.0) * math.exp(-((1.0 + eps) * x)))) / 2.0
def code(x, eps): t_0 = math.exp((x * (-1.0 - eps))) t_1 = math.exp((x * (eps + -1.0))) t_2 = (1.0 + x) * math.exp(-x) tmp = 0 if ((t_1 * (1.0 + (1.0 / eps))) + (t_0 * (1.0 + (-1.0 / eps)))) <= math.inf: tmp = (t_1 + t_0) / 2.0 else: tmp = (t_2 + t_2) / 2.0 return tmp
function code(x, eps) return Float64(Float64(Float64(Float64(1.0 + Float64(1.0 / eps)) * exp(Float64(-Float64(Float64(1.0 - eps) * x)))) - Float64(Float64(Float64(1.0 / eps) - 1.0) * exp(Float64(-Float64(Float64(1.0 + eps) * x))))) / 2.0) end
function code(x, eps) t_0 = exp(Float64(x * Float64(-1.0 - eps))) t_1 = exp(Float64(x * Float64(eps + -1.0))) t_2 = Float64(Float64(1.0 + x) * exp(Float64(-x))) tmp = 0.0 if (Float64(Float64(t_1 * Float64(1.0 + Float64(1.0 / eps))) + Float64(t_0 * Float64(1.0 + Float64(-1.0 / eps)))) <= Inf) tmp = Float64(Float64(t_1 + t_0) / 2.0); else tmp = Float64(Float64(t_2 + t_2) / 2.0); end return tmp end
function tmp = code(x, eps) tmp = (((1.0 + (1.0 / eps)) * exp(-((1.0 - eps) * x))) - (((1.0 / eps) - 1.0) * exp(-((1.0 + eps) * x)))) / 2.0; end
function tmp_2 = code(x, eps) t_0 = exp((x * (-1.0 - eps))); t_1 = exp((x * (eps + -1.0))); t_2 = (1.0 + x) * exp(-x); tmp = 0.0; if (((t_1 * (1.0 + (1.0 / eps))) + (t_0 * (1.0 + (-1.0 / eps)))) <= Inf) tmp = (t_1 + t_0) / 2.0; else tmp = (t_2 + t_2) / 2.0; end tmp_2 = tmp; end
code[x_, eps_] := N[(N[(N[(N[(1.0 + N[(1.0 / eps), $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[(1.0 - eps), $MachinePrecision] * x), $MachinePrecision])], $MachinePrecision]), $MachinePrecision] - N[(N[(N[(1.0 / eps), $MachinePrecision] - 1.0), $MachinePrecision] * N[Exp[(-N[(N[(1.0 + eps), $MachinePrecision] * x), $MachinePrecision])], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]
code[x_, eps_] := Block[{t$95$0 = N[Exp[N[(x * N[(-1.0 - eps), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Exp[N[(x * N[(eps + -1.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(N[(1.0 + x), $MachinePrecision] * N[Exp[(-x)], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(t$95$1 * N[(1.0 + N[(1.0 / eps), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 * N[(1.0 + N[(-1.0 / eps), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], Infinity], N[(N[(t$95$1 + t$95$0), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(t$95$2 + t$95$2), $MachinePrecision] / 2.0), $MachinePrecision]]]]]
\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}
\begin{array}{l}
t_0 := e^{x \cdot \left(-1 - \varepsilon\right)}\\
t_1 := e^{x \cdot \left(\varepsilon + -1\right)}\\
t_2 := \left(1 + x\right) \cdot e^{-x}\\
\mathbf{if}\;t_1 \cdot \left(1 + \frac{1}{\varepsilon}\right) + t_0 \cdot \left(1 + \frac{-1}{\varepsilon}\right) \leq \infty:\\
\;\;\;\;\frac{t_1 + t_0}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{t_2 + t_2}{2}\\
\end{array}
Herbie found 13 alternatives:
| Alternative | Accuracy | Speedup |
|---|
Results
if (-.f64 (*.f64 (+.f64 1 (/.f64 1 eps)) (exp.f64 (neg.f64 (*.f64 (-.f64 1 eps) x)))) (*.f64 (-.f64 (/.f64 1 eps) 1) (exp.f64 (neg.f64 (*.f64 (+.f64 1 eps) x))))) < +inf.0Initial program 81.0%
Simplified81.0%
[Start]81.0% | \[ \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}
\] |
|---|---|
div-sub [=>]81.0% | \[ \color{blue}{\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x}}{2} - \frac{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}}
\] |
+-rgt-identity [<=]81.0% | \[ \frac{\color{blue}{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} + 0}}{2} - \frac{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}
\] |
div-sub [<=]81.0% | \[ \color{blue}{\frac{\left(\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} + 0\right) - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}}
\] |
Taylor expanded in eps around inf 98.8%
Simplified98.8%
[Start]98.8% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(\left(\varepsilon + 1\right) \cdot x\right)}}{2}
\] |
|---|---|
neg-mul-1 [<=]98.8% | \[ \frac{e^{\color{blue}{-\left(1 - \varepsilon\right) \cdot x}} - -1 \cdot e^{-1 \cdot \left(\left(\varepsilon + 1\right) \cdot x\right)}}{2}
\] |
distribute-lft-neg-in [=>]98.8% | \[ \frac{e^{\color{blue}{\left(-\left(1 - \varepsilon\right)\right) \cdot x}} - -1 \cdot e^{-1 \cdot \left(\left(\varepsilon + 1\right) \cdot x\right)}}{2}
\] |
mul-1-neg [=>]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \color{blue}{\left(-e^{-1 \cdot \left(\left(\varepsilon + 1\right) \cdot x\right)}\right)}}{2}
\] |
exp-prod [=>]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-\color{blue}{{\left(e^{-1}\right)}^{\left(\left(\varepsilon + 1\right) \cdot x\right)}}\right)}{2}
\] |
+-commutative [<=]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-{\left(e^{-1}\right)}^{\left(\color{blue}{\left(1 + \varepsilon\right)} \cdot x\right)}\right)}{2}
\] |
*-commutative [<=]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-{\left(e^{-1}\right)}^{\color{blue}{\left(x \cdot \left(1 + \varepsilon\right)\right)}}\right)}{2}
\] |
exp-prod [<=]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-\color{blue}{e^{-1 \cdot \left(x \cdot \left(1 + \varepsilon\right)\right)}}\right)}{2}
\] |
neg-mul-1 [<=]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-e^{\color{blue}{-x \cdot \left(1 + \varepsilon\right)}}\right)}{2}
\] |
distribute-rgt-neg-in [=>]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-e^{\color{blue}{x \cdot \left(-\left(1 + \varepsilon\right)\right)}}\right)}{2}
\] |
+-commutative [=>]98.8% | \[ \frac{e^{\left(-\left(1 - \varepsilon\right)\right) \cdot x} - \left(-e^{x \cdot \left(-\color{blue}{\left(\varepsilon + 1\right)}\right)}\right)}{2}
\] |
if +inf.0 < (-.f64 (*.f64 (+.f64 1 (/.f64 1 eps)) (exp.f64 (neg.f64 (*.f64 (-.f64 1 eps) x)))) (*.f64 (-.f64 (/.f64 1 eps) 1) (exp.f64 (neg.f64 (*.f64 (+.f64 1 eps) x))))) Initial program 0.0%
Simplified0.0%
[Start]0.0% | \[ \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}
\] |
|---|---|
div-sub [=>]0.0% | \[ \color{blue}{\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x}}{2} - \frac{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}}
\] |
+-rgt-identity [<=]0.0% | \[ \frac{\color{blue}{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} + 0}}{2} - \frac{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}
\] |
div-sub [<=]0.0% | \[ \color{blue}{\frac{\left(\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} + 0\right) - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}}
\] |
Taylor expanded in eps around 0 0.0%
Simplified100.0%
[Start]0.0% | \[ \frac{\left(e^{-1 \cdot x} \cdot x + e^{-1 \cdot x}\right) - \left(-1 \cdot \left(e^{-1 \cdot x} \cdot x\right) + -1 \cdot e^{-1 \cdot x}\right)}{2}
\] |
|---|---|
*-commutative [=>]0.0% | \[ \frac{\left(\color{blue}{x \cdot e^{-1 \cdot x}} + e^{-1 \cdot x}\right) - \left(-1 \cdot \left(e^{-1 \cdot x} \cdot x\right) + -1 \cdot e^{-1 \cdot x}\right)}{2}
\] |
distribute-lft1-in [=>]0.0% | \[ \frac{\color{blue}{\left(x + 1\right) \cdot e^{-1 \cdot x}} - \left(-1 \cdot \left(e^{-1 \cdot x} \cdot x\right) + -1 \cdot e^{-1 \cdot x}\right)}{2}
\] |
mul-1-neg [=>]0.0% | \[ \frac{\left(x + 1\right) \cdot e^{\color{blue}{-x}} - \left(-1 \cdot \left(e^{-1 \cdot x} \cdot x\right) + -1 \cdot e^{-1 \cdot x}\right)}{2}
\] |
distribute-lft-out [=>]0.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \color{blue}{-1 \cdot \left(e^{-1 \cdot x} \cdot x + e^{-1 \cdot x}\right)}}{2}
\] |
mul-1-neg [=>]0.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \color{blue}{\left(-\left(e^{-1 \cdot x} \cdot x + e^{-1 \cdot x}\right)\right)}}{2}
\] |
*-commutative [=>]0.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \left(-\left(\color{blue}{x \cdot e^{-1 \cdot x}} + e^{-1 \cdot x}\right)\right)}{2}
\] |
distribute-lft1-in [=>]100.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \left(-\color{blue}{\left(x + 1\right) \cdot e^{-1 \cdot x}}\right)}{2}
\] |
mul-1-neg [=>]100.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \left(-\left(x + 1\right) \cdot e^{\color{blue}{-x}}\right)}{2}
\] |
Final simplification98.9%
| Alternative 1 | |
|---|---|
| Accuracy | 99.2% |
| Cost | 28100 |
| Alternative 2 | |
|---|---|
| Accuracy | 86.7% |
| Cost | 13764 |
| Alternative 3 | |
|---|---|
| Accuracy | 86.9% |
| Cost | 13705 |
| Alternative 4 | |
|---|---|
| Accuracy | 64.5% |
| Cost | 7314 |
| Alternative 5 | |
|---|---|
| Accuracy | 75.8% |
| Cost | 7177 |
| Alternative 6 | |
|---|---|
| Accuracy | 58.1% |
| Cost | 1476 |
| Alternative 7 | |
|---|---|
| Accuracy | 57.2% |
| Cost | 1476 |
| Alternative 8 | |
|---|---|
| Accuracy | 54.9% |
| Cost | 964 |
| Alternative 9 | |
|---|---|
| Accuracy | 52.5% |
| Cost | 712 |
| Alternative 10 | |
|---|---|
| Accuracy | 53.7% |
| Cost | 584 |
| Alternative 11 | |
|---|---|
| Accuracy | 53.9% |
| Cost | 452 |
| Alternative 12 | |
|---|---|
| Accuracy | 50.7% |
| Cost | 196 |
| Alternative 13 | |
|---|---|
| Accuracy | 39.0% |
| Cost | 64 |
herbie shell --seed 2023263
(FPCore (x eps)
:name "NMSE Section 6.1 mentioned, A"
:precision binary64
(/ (- (* (+ 1.0 (/ 1.0 eps)) (exp (- (* (- 1.0 eps) x)))) (* (- (/ 1.0 eps) 1.0) (exp (- (* (+ 1.0 eps) x))))) 2.0))