| Alternative 1 | |
|---|---|
| Accuracy | 99.8% |
| Cost | 14024 |

(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 (* (+ 1.0 x) (exp (- x)))) (t_1 (exp (* eps (- x)))))
(if (<= eps -1.0)
(/ (+ t_1 (exp (* eps x))) 2.0)
(if (<= eps 5e-29)
(/ (+ t_0 t_0) 2.0)
(/ (+ (exp (* x (+ -1.0 eps))) t_1) 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 = (1.0 + x) * exp(-x);
double t_1 = exp((eps * -x));
double tmp;
if (eps <= -1.0) {
tmp = (t_1 + exp((eps * x))) / 2.0;
} else if (eps <= 5e-29) {
tmp = (t_0 + t_0) / 2.0;
} else {
tmp = (exp((x * (-1.0 + eps))) + t_1) / 2.0;
}
return tmp;
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = (((1.0d0 + (1.0d0 / eps)) * exp(-((1.0d0 - eps) * x))) - (((1.0d0 / eps) - 1.0d0) * exp(-((1.0d0 + eps) * x)))) / 2.0d0
end function
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = (1.0d0 + x) * exp(-x)
t_1 = exp((eps * -x))
if (eps <= (-1.0d0)) then
tmp = (t_1 + exp((eps * x))) / 2.0d0
else if (eps <= 5d-29) then
tmp = (t_0 + t_0) / 2.0d0
else
tmp = (exp((x * ((-1.0d0) + eps))) + t_1) / 2.0d0
end if
code = tmp
end function
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 = (1.0 + x) * Math.exp(-x);
double t_1 = Math.exp((eps * -x));
double tmp;
if (eps <= -1.0) {
tmp = (t_1 + Math.exp((eps * x))) / 2.0;
} else if (eps <= 5e-29) {
tmp = (t_0 + t_0) / 2.0;
} else {
tmp = (Math.exp((x * (-1.0 + eps))) + t_1) / 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 = (1.0 + x) * math.exp(-x) t_1 = math.exp((eps * -x)) tmp = 0 if eps <= -1.0: tmp = (t_1 + math.exp((eps * x))) / 2.0 elif eps <= 5e-29: tmp = (t_0 + t_0) / 2.0 else: tmp = (math.exp((x * (-1.0 + eps))) + t_1) / 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 = Float64(Float64(1.0 + x) * exp(Float64(-x))) t_1 = exp(Float64(eps * Float64(-x))) tmp = 0.0 if (eps <= -1.0) tmp = Float64(Float64(t_1 + exp(Float64(eps * x))) / 2.0); elseif (eps <= 5e-29) tmp = Float64(Float64(t_0 + t_0) / 2.0); else tmp = Float64(Float64(exp(Float64(x * Float64(-1.0 + eps))) + t_1) / 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 = (1.0 + x) * exp(-x); t_1 = exp((eps * -x)); tmp = 0.0; if (eps <= -1.0) tmp = (t_1 + exp((eps * x))) / 2.0; elseif (eps <= 5e-29) tmp = (t_0 + t_0) / 2.0; else tmp = (exp((x * (-1.0 + eps))) + t_1) / 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[(N[(1.0 + x), $MachinePrecision] * N[Exp[(-x)], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Exp[N[(eps * (-x)), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[eps, -1.0], N[(N[(t$95$1 + N[Exp[N[(eps * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[eps, 5e-29], N[(N[(t$95$0 + t$95$0), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(N[Exp[N[(x * N[(-1.0 + eps), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + t$95$1), $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}
\\
\begin{array}{l}
t_0 := \left(1 + x\right) \cdot e^{-x}\\
t_1 := e^{\varepsilon \cdot \left(-x\right)}\\
\mathbf{if}\;\varepsilon \leq -1:\\
\;\;\;\;\frac{t_1 + e^{\varepsilon \cdot x}}{2}\\
\mathbf{elif}\;\varepsilon \leq 5 \cdot 10^{-29}:\\
\;\;\;\;\frac{t_0 + t_0}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{x \cdot \left(-1 + \varepsilon\right)} + t_1}{2}\\
\end{array}
\end{array}
Herbie found 18 alternatives:
| Alternative | Accuracy | Speedup |
|---|
Results
if eps < -1Initial program 100.0%
Simplified100.0%
[Start]100.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 [=>]100.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 [<=]100.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 [<=]100.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 100.0%
Taylor expanded in eps around inf 100.0%
Simplified100.0%
[Start]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
|---|---|
*-commutative [=>]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \color{blue}{\left(x \cdot \varepsilon\right)}}}{2}
\] |
Taylor expanded in eps around inf 100.0%
Simplified100.0%
[Start]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
|---|---|
cancel-sign-sub-inv [=>]100.0% | \[ \frac{\color{blue}{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}}{2}
\] |
mul-1-neg [=>]100.0% | \[ \frac{e^{\color{blue}{-\left(1 - \varepsilon\right) \cdot x}} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
*-commutative [<=]100.0% | \[ \frac{e^{-\color{blue}{x \cdot \left(1 - \varepsilon\right)}} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
metadata-eval [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + \color{blue}{1} \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
mul-1-neg [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{\color{blue}{-\varepsilon \cdot x}}}{2}
\] |
*-commutative [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{-\color{blue}{x \cdot \varepsilon}}}{2}
\] |
distribute-lft-neg-out [<=]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{\color{blue}{\left(-x\right) \cdot \varepsilon}}}{2}
\] |
*-lft-identity [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + \color{blue}{e^{\left(-x\right) \cdot \varepsilon}}}{2}
\] |
+-commutative [=>]100.0% | \[ \frac{\color{blue}{e^{\left(-x\right) \cdot \varepsilon} + e^{-x \cdot \left(1 - \varepsilon\right)}}}{2}
\] |
*-commutative [=>]100.0% | \[ \frac{e^{\color{blue}{\varepsilon \cdot \left(-x\right)}} + e^{-x \cdot \left(1 - \varepsilon\right)}}{2}
\] |
distribute-lft-neg-in [=>]100.0% | \[ \frac{e^{\varepsilon \cdot \left(-x\right)} + e^{\color{blue}{\left(-x\right) \cdot \left(1 - \varepsilon\right)}}}{2}
\] |
Taylor expanded in eps around inf 100.0%
if -1 < eps < 4.99999999999999986e-29Initial program 38.8%
Simplified38.8%
[Start]38.8% | \[ \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 [=>]38.8% | \[ \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 [<=]38.8% | \[ \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 [<=]38.8% | \[ \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 98.9%
Simplified100.0%
[Start]98.9% | \[ \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 [=>]98.9% | \[ \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 [=>]98.9% | \[ \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}
\] |
neg-mul-1 [<=]98.9% | \[ \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 [=>]98.9% | \[ \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 [=>]98.9% | \[ \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 [=>]98.9% | \[ \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}
\] |
neg-mul-1 [<=]100.0% | \[ \frac{\left(x + 1\right) \cdot e^{-x} - \left(-\left(x + 1\right) \cdot e^{\color{blue}{-x}}\right)}{2}
\] |
if 4.99999999999999986e-29 < eps Initial program 97.5%
Simplified97.5%
[Start]97.5% | \[ \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 [=>]97.5% | \[ \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 [<=]97.5% | \[ \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 [<=]97.5% | \[ \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 100.0%
Taylor expanded in eps around inf 100.0%
Simplified100.0%
[Start]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
|---|---|
*-commutative [=>]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \color{blue}{\left(x \cdot \varepsilon\right)}}}{2}
\] |
Taylor expanded in eps around inf 100.0%
Simplified100.0%
[Start]100.0% | \[ \frac{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
|---|---|
cancel-sign-sub-inv [=>]100.0% | \[ \frac{\color{blue}{e^{-1 \cdot \left(\left(1 - \varepsilon\right) \cdot x\right)} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}}{2}
\] |
mul-1-neg [=>]100.0% | \[ \frac{e^{\color{blue}{-\left(1 - \varepsilon\right) \cdot x}} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
*-commutative [<=]100.0% | \[ \frac{e^{-\color{blue}{x \cdot \left(1 - \varepsilon\right)}} + \left(--1\right) \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
metadata-eval [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + \color{blue}{1} \cdot e^{-1 \cdot \left(\varepsilon \cdot x\right)}}{2}
\] |
mul-1-neg [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{\color{blue}{-\varepsilon \cdot x}}}{2}
\] |
*-commutative [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{-\color{blue}{x \cdot \varepsilon}}}{2}
\] |
distribute-lft-neg-out [<=]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + 1 \cdot e^{\color{blue}{\left(-x\right) \cdot \varepsilon}}}{2}
\] |
*-lft-identity [=>]100.0% | \[ \frac{e^{-x \cdot \left(1 - \varepsilon\right)} + \color{blue}{e^{\left(-x\right) \cdot \varepsilon}}}{2}
\] |
+-commutative [=>]100.0% | \[ \frac{\color{blue}{e^{\left(-x\right) \cdot \varepsilon} + e^{-x \cdot \left(1 - \varepsilon\right)}}}{2}
\] |
*-commutative [=>]100.0% | \[ \frac{e^{\color{blue}{\varepsilon \cdot \left(-x\right)}} + e^{-x \cdot \left(1 - \varepsilon\right)}}{2}
\] |
distribute-lft-neg-in [=>]100.0% | \[ \frac{e^{\varepsilon \cdot \left(-x\right)} + e^{\color{blue}{\left(-x\right) \cdot \left(1 - \varepsilon\right)}}}{2}
\] |
Final simplification100.0%
| Alternative 1 | |
|---|---|
| Accuracy | 99.8% |
| Cost | 14024 |
| Alternative 2 | |
|---|---|
| Accuracy | 98.8% |
| Cost | 13832 |
| Alternative 3 | |
|---|---|
| Accuracy | 98.8% |
| Cost | 13632 |
| Alternative 4 | |
|---|---|
| Accuracy | 92.1% |
| Cost | 13572 |
| Alternative 5 | |
|---|---|
| Accuracy | 82.1% |
| Cost | 8524 |
| Alternative 6 | |
|---|---|
| Accuracy | 82.0% |
| Cost | 8012 |
| Alternative 7 | |
|---|---|
| Accuracy | 82.1% |
| Cost | 8012 |
| Alternative 8 | |
|---|---|
| Accuracy | 83.1% |
| Cost | 7761 |
| Alternative 9 | |
|---|---|
| Accuracy | 82.9% |
| Cost | 7377 |
| Alternative 10 | |
|---|---|
| Accuracy | 77.1% |
| Cost | 7112 |
| Alternative 11 | |
|---|---|
| Accuracy | 70.3% |
| Cost | 6916 |
| Alternative 12 | |
|---|---|
| Accuracy | 60.4% |
| Cost | 1732 |
| Alternative 13 | |
|---|---|
| Accuracy | 60.4% |
| Cost | 1220 |
| Alternative 14 | |
|---|---|
| Accuracy | 59.8% |
| Cost | 708 |
| Alternative 15 | |
|---|---|
| Accuracy | 60.6% |
| Cost | 580 |
| Alternative 16 | |
|---|---|
| Accuracy | 60.7% |
| Cost | 452 |
| Alternative 17 | |
|---|---|
| Accuracy | 57.3% |
| Cost | 196 |
| Alternative 18 | |
|---|---|
| Accuracy | 15.9% |
| Cost | 64 |
herbie shell --seed 2023167
(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))