| 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 -14.5)
(/ (+ (exp (* eps x)) t_1) 2.0)
(if (<= eps 5e-41)
(/ (+ 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 <= -14.5) {
tmp = (exp((eps * x)) + t_1) / 2.0;
} else if (eps <= 5e-41) {
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 <= (-14.5d0)) then
tmp = (exp((eps * x)) + t_1) / 2.0d0
else if (eps <= 5d-41) 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 <= -14.5) {
tmp = (Math.exp((eps * x)) + t_1) / 2.0;
} else if (eps <= 5e-41) {
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 <= -14.5: tmp = (math.exp((eps * x)) + t_1) / 2.0 elif eps <= 5e-41: 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 <= -14.5) tmp = Float64(Float64(exp(Float64(eps * x)) + t_1) / 2.0); elseif (eps <= 5e-41) 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 <= -14.5) tmp = (exp((eps * x)) + t_1) / 2.0; elseif (eps <= 5e-41) 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, -14.5], N[(N[(N[Exp[N[(eps * x), $MachinePrecision]], $MachinePrecision] + t$95$1), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[eps, 5e-41], 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}
t_0 := \left(1 + x\right) \cdot e^{-x}\\
t_1 := e^{\varepsilon \cdot \left(-x\right)}\\
\mathbf{if}\;\varepsilon \leq -14.5:\\
\;\;\;\;\frac{e^{\varepsilon \cdot x} + t_1}{2}\\
\mathbf{elif}\;\varepsilon \leq 5 \cdot 10^{-41}:\\
\;\;\;\;\frac{t_0 + t_0}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{x \cdot \left(-1 + \varepsilon\right)} + t_1}{2}\\
\end{array}
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
Results
if eps < -14.5Initial 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(-1 \cdot \left(\varepsilon \cdot x\right)\right)} - -1 \cdot e^{-1 \cdot \left(x \cdot \varepsilon\right)}}{2}
\] |
|---|---|
associate-*r* [=>]100.0% | \[ \frac{e^{-1 \cdot \color{blue}{\left(\left(-1 \cdot \varepsilon\right) \cdot x\right)}} - -1 \cdot e^{-1 \cdot \left(x \cdot \varepsilon\right)}}{2}
\] |
neg-mul-1 [<=]100.0% | \[ \frac{e^{-1 \cdot \left(\color{blue}{\left(-\varepsilon\right)} \cdot x\right)} - -1 \cdot e^{-1 \cdot \left(x \cdot \varepsilon\right)}}{2}
\] |
if -14.5 < eps < 4.9999999999999996e-41Initial program 43.7%
Simplified43.7%
[Start]43.7% | \[ \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 [=>]43.7% | \[ \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 [<=]43.7% | \[ \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 [<=]43.7% | \[ \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.1%
Simplified100.0%
[Start]98.1% | \[ \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.1% | \[ \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.1% | \[ \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 [=>]98.1% | \[ \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.1% | \[ \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.1% | \[ \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.1% | \[ \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}
\] |
if 4.9999999999999996e-41 < eps Initial program 97.2%
Simplified97.2%
[Start]97.2% | \[ \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.2% | \[ \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.2% | \[ \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.2% | \[ \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}
\] |
Final simplification100.0%
| Alternative 1 | |
|---|---|
| Accuracy | 99.8% |
| Cost | 14024 |
| Alternative 2 | |
|---|---|
| Accuracy | 99.9% |
| Cost | 14025 |
| Alternative 3 | |
|---|---|
| Accuracy | 82.7% |
| Cost | 13705 |
| Alternative 4 | |
|---|---|
| Accuracy | 98.2% |
| Cost | 13705 |
| Alternative 5 | |
|---|---|
| Accuracy | 98.9% |
| Cost | 13632 |
| Alternative 6 | |
|---|---|
| Accuracy | 80.6% |
| Cost | 7240 |
| Alternative 7 | |
|---|---|
| Accuracy | 80.8% |
| Cost | 7176 |
| Alternative 8 | |
|---|---|
| Accuracy | 74.4% |
| Cost | 6916 |
| Alternative 9 | |
|---|---|
| Accuracy | 64.2% |
| Cost | 1480 |
| Alternative 10 | |
|---|---|
| Accuracy | 63.6% |
| Cost | 1352 |
| Alternative 11 | |
|---|---|
| Accuracy | 61.0% |
| Cost | 964 |
| Alternative 12 | |
|---|---|
| Accuracy | 60.3% |
| Cost | 964 |
| Alternative 13 | |
|---|---|
| Accuracy | 49.7% |
| Cost | 585 |
| Alternative 14 | |
|---|---|
| Accuracy | 59.7% |
| Cost | 584 |
| Alternative 15 | |
|---|---|
| Accuracy | 44.2% |
| Cost | 64 |
herbie shell --seed 2023178
(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))