
(FPCore (x) :precision binary64 (+ (- (exp x) 2.0) (exp (- x))))
double code(double x) {
return (exp(x) - 2.0) + exp(-x);
}
real(8) function code(x)
real(8), intent (in) :: x
code = (exp(x) - 2.0d0) + exp(-x)
end function
public static double code(double x) {
return (Math.exp(x) - 2.0) + Math.exp(-x);
}
def code(x): return (math.exp(x) - 2.0) + math.exp(-x)
function code(x) return Float64(Float64(exp(x) - 2.0) + exp(Float64(-x))) end
function tmp = code(x) tmp = (exp(x) - 2.0) + exp(-x); end
code[x_] := N[(N[(N[Exp[x], $MachinePrecision] - 2.0), $MachinePrecision] + N[Exp[(-x)], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(e^{x} - 2\right) + e^{-x}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (+ (- (exp x) 2.0) (exp (- x))))
double code(double x) {
return (exp(x) - 2.0) + exp(-x);
}
real(8) function code(x)
real(8), intent (in) :: x
code = (exp(x) - 2.0d0) + exp(-x)
end function
public static double code(double x) {
return (Math.exp(x) - 2.0) + Math.exp(-x);
}
def code(x): return (math.exp(x) - 2.0) + math.exp(-x)
function code(x) return Float64(Float64(exp(x) - 2.0) + exp(Float64(-x))) end
function tmp = code(x) tmp = (exp(x) - 2.0) + exp(-x); end
code[x_] := N[(N[(N[Exp[x], $MachinePrecision] - 2.0), $MachinePrecision] + N[Exp[(-x)], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(e^{x} - 2\right) + e^{-x}
\end{array}
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 (if (<= x_m 0.000155) (* x_m x_m) (- (* 2.0 (cosh x_m)) 2.0)))
x_m = fabs(x);
double code(double x_m) {
double tmp;
if (x_m <= 0.000155) {
tmp = x_m * x_m;
} else {
tmp = (2.0 * cosh(x_m)) - 2.0;
}
return tmp;
}
x_m = abs(x)
real(8) function code(x_m)
real(8), intent (in) :: x_m
real(8) :: tmp
if (x_m <= 0.000155d0) then
tmp = x_m * x_m
else
tmp = (2.0d0 * cosh(x_m)) - 2.0d0
end if
code = tmp
end function
x_m = Math.abs(x);
public static double code(double x_m) {
double tmp;
if (x_m <= 0.000155) {
tmp = x_m * x_m;
} else {
tmp = (2.0 * Math.cosh(x_m)) - 2.0;
}
return tmp;
}
x_m = math.fabs(x) def code(x_m): tmp = 0 if x_m <= 0.000155: tmp = x_m * x_m else: tmp = (2.0 * math.cosh(x_m)) - 2.0 return tmp
x_m = abs(x) function code(x_m) tmp = 0.0 if (x_m <= 0.000155) tmp = Float64(x_m * x_m); else tmp = Float64(Float64(2.0 * cosh(x_m)) - 2.0); end return tmp end
x_m = abs(x); function tmp_2 = code(x_m) tmp = 0.0; if (x_m <= 0.000155) tmp = x_m * x_m; else tmp = (2.0 * cosh(x_m)) - 2.0; end tmp_2 = tmp; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := If[LessEqual[x$95$m, 0.000155], N[(x$95$m * x$95$m), $MachinePrecision], N[(N[(2.0 * N[Cosh[x$95$m], $MachinePrecision]), $MachinePrecision] - 2.0), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
\mathbf{if}\;x\_m \leq 0.000155:\\
\;\;\;\;x\_m \cdot x\_m\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \cosh x\_m - 2\\
\end{array}
\end{array}
if x < 1.55e-4Initial program 53.1%
associate-+l-53.1%
sub-neg53.1%
sub-neg53.1%
distribute-neg-in53.1%
remove-double-neg53.1%
+-commutative53.1%
metadata-eval53.1%
Simplified53.1%
Taylor expanded in x around 0 98.4%
unpow299.4%
Applied egg-rr98.4%
if 1.55e-4 < x Initial program 92.4%
associate-+l-92.4%
sub-neg92.4%
sub-neg92.4%
distribute-neg-in92.4%
remove-double-neg92.4%
+-commutative92.4%
metadata-eval92.4%
Simplified92.4%
+-commutative92.4%
associate-+r+92.4%
metadata-eval92.4%
sub-neg92.4%
+-commutative92.4%
associate-+r-90.2%
+-commutative90.2%
cosh-undef91.2%
Applied egg-rr91.2%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(fma
x_m
x_m
(*
(pow x_m 4.0)
(fma
(pow x_m 2.0)
(fma 4.96031746031746e-5 (pow x_m 2.0) 0.002777777777777778)
0.08333333333333333))))x_m = fabs(x);
double code(double x_m) {
return fma(x_m, x_m, (pow(x_m, 4.0) * fma(pow(x_m, 2.0), fma(4.96031746031746e-5, pow(x_m, 2.0), 0.002777777777777778), 0.08333333333333333)));
}
x_m = abs(x) function code(x_m) return fma(x_m, x_m, Float64((x_m ^ 4.0) * fma((x_m ^ 2.0), fma(4.96031746031746e-5, (x_m ^ 2.0), 0.002777777777777778), 0.08333333333333333))) end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := N[(x$95$m * x$95$m + N[(N[Power[x$95$m, 4.0], $MachinePrecision] * N[(N[Power[x$95$m, 2.0], $MachinePrecision] * N[(4.96031746031746e-5 * N[Power[x$95$m, 2.0], $MachinePrecision] + 0.002777777777777778), $MachinePrecision] + 0.08333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
\mathsf{fma}\left(x\_m, x\_m, {x\_m}^{4} \cdot \mathsf{fma}\left({x\_m}^{2}, \mathsf{fma}\left(4.96031746031746 \cdot 10^{-5}, {x\_m}^{2}, 0.002777777777777778\right), 0.08333333333333333\right)\right)
\end{array}
Initial program 53.5%
associate-+l-53.6%
sub-neg53.6%
sub-neg53.6%
distribute-neg-in53.6%
remove-double-neg53.6%
+-commutative53.6%
metadata-eval53.6%
Simplified53.6%
+-commutative53.6%
associate-+r+53.5%
metadata-eval53.5%
sub-neg53.5%
+-commutative53.5%
associate-+r-53.5%
+-commutative53.5%
cosh-undef53.5%
Applied egg-rr53.5%
Taylor expanded in x around 0 99.0%
distribute-lft-in99.0%
*-rgt-identity99.0%
unpow299.0%
fma-define99.1%
+-commutative99.1%
*-commutative99.1%
+-commutative99.1%
*-commutative99.1%
fma-undefine99.1%
*-commutative99.1%
fma-undefine99.1%
associate-*r*99.1%
Simplified99.1%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(*
(pow x_m 2.0)
(+
1.0
(*
(* x_m x_m)
(+
0.08333333333333333
(*
(* x_m x_m)
(+ 0.002777777777777778 (* 4.96031746031746e-5 (* x_m x_m)))))))))x_m = fabs(x);
double code(double x_m) {
return pow(x_m, 2.0) * (1.0 + ((x_m * x_m) * (0.08333333333333333 + ((x_m * x_m) * (0.002777777777777778 + (4.96031746031746e-5 * (x_m * x_m)))))));
}
x_m = abs(x)
real(8) function code(x_m)
real(8), intent (in) :: x_m
code = (x_m ** 2.0d0) * (1.0d0 + ((x_m * x_m) * (0.08333333333333333d0 + ((x_m * x_m) * (0.002777777777777778d0 + (4.96031746031746d-5 * (x_m * x_m)))))))
end function
x_m = Math.abs(x);
public static double code(double x_m) {
return Math.pow(x_m, 2.0) * (1.0 + ((x_m * x_m) * (0.08333333333333333 + ((x_m * x_m) * (0.002777777777777778 + (4.96031746031746e-5 * (x_m * x_m)))))));
}
x_m = math.fabs(x) def code(x_m): return math.pow(x_m, 2.0) * (1.0 + ((x_m * x_m) * (0.08333333333333333 + ((x_m * x_m) * (0.002777777777777778 + (4.96031746031746e-5 * (x_m * x_m)))))))
x_m = abs(x) function code(x_m) return Float64((x_m ^ 2.0) * Float64(1.0 + Float64(Float64(x_m * x_m) * Float64(0.08333333333333333 + Float64(Float64(x_m * x_m) * Float64(0.002777777777777778 + Float64(4.96031746031746e-5 * Float64(x_m * x_m)))))))) end
x_m = abs(x); function tmp = code(x_m) tmp = (x_m ^ 2.0) * (1.0 + ((x_m * x_m) * (0.08333333333333333 + ((x_m * x_m) * (0.002777777777777778 + (4.96031746031746e-5 * (x_m * x_m))))))); end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := N[(N[Power[x$95$m, 2.0], $MachinePrecision] * N[(1.0 + N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(0.08333333333333333 + N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(0.002777777777777778 + N[(4.96031746031746e-5 * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
{x\_m}^{2} \cdot \left(1 + \left(x\_m \cdot x\_m\right) \cdot \left(0.08333333333333333 + \left(x\_m \cdot x\_m\right) \cdot \left(0.002777777777777778 + 4.96031746031746 \cdot 10^{-5} \cdot \left(x\_m \cdot x\_m\right)\right)\right)\right)
\end{array}
Initial program 53.5%
associate-+l-53.6%
sub-neg53.6%
sub-neg53.6%
distribute-neg-in53.6%
remove-double-neg53.6%
+-commutative53.6%
metadata-eval53.6%
Simplified53.6%
Taylor expanded in x around 0 99.0%
*-commutative99.0%
Simplified99.0%
unpow299.0%
Applied egg-rr99.0%
unpow299.0%
Applied egg-rr99.0%
unpow299.0%
Applied egg-rr99.0%
Final simplification99.0%
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 (* x_m x_m))
x_m = fabs(x);
double code(double x_m) {
return x_m * x_m;
}
x_m = abs(x)
real(8) function code(x_m)
real(8), intent (in) :: x_m
code = x_m * x_m
end function
x_m = Math.abs(x);
public static double code(double x_m) {
return x_m * x_m;
}
x_m = math.fabs(x) def code(x_m): return x_m * x_m
x_m = abs(x) function code(x_m) return Float64(x_m * x_m) end
x_m = abs(x); function tmp = code(x_m) tmp = x_m * x_m; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := N[(x$95$m * x$95$m), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x\_m \cdot x\_m
\end{array}
Initial program 53.5%
associate-+l-53.6%
sub-neg53.6%
sub-neg53.6%
distribute-neg-in53.6%
remove-double-neg53.6%
+-commutative53.6%
metadata-eval53.6%
Simplified53.6%
Taylor expanded in x around 0 97.6%
unpow299.0%
Applied egg-rr97.6%
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 x_m)
x_m = fabs(x);
double code(double x_m) {
return x_m;
}
x_m = abs(x)
real(8) function code(x_m)
real(8), intent (in) :: x_m
code = x_m
end function
x_m = Math.abs(x);
public static double code(double x_m) {
return x_m;
}
x_m = math.fabs(x) def code(x_m): return x_m
x_m = abs(x) function code(x_m) return x_m end
x_m = abs(x); function tmp = code(x_m) tmp = x_m; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := x$95$m
\begin{array}{l}
x_m = \left|x\right|
\\
x\_m
\end{array}
Initial program 53.5%
associate-+l-53.6%
sub-neg53.6%
sub-neg53.6%
distribute-neg-in53.6%
remove-double-neg53.6%
+-commutative53.6%
metadata-eval53.6%
Simplified53.6%
Taylor expanded in x around 0 50.5%
Taylor expanded in x around 0 5.9%
(FPCore (x) :precision binary64 (let* ((t_0 (sinh (/ x 2.0)))) (* 4.0 (* t_0 t_0))))
double code(double x) {
double t_0 = sinh((x / 2.0));
return 4.0 * (t_0 * t_0);
}
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
t_0 = sinh((x / 2.0d0))
code = 4.0d0 * (t_0 * t_0)
end function
public static double code(double x) {
double t_0 = Math.sinh((x / 2.0));
return 4.0 * (t_0 * t_0);
}
def code(x): t_0 = math.sinh((x / 2.0)) return 4.0 * (t_0 * t_0)
function code(x) t_0 = sinh(Float64(x / 2.0)) return Float64(4.0 * Float64(t_0 * t_0)) end
function tmp = code(x) t_0 = sinh((x / 2.0)); tmp = 4.0 * (t_0 * t_0); end
code[x_] := Block[{t$95$0 = N[Sinh[N[(x / 2.0), $MachinePrecision]], $MachinePrecision]}, N[(4.0 * N[(t$95$0 * t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sinh \left(\frac{x}{2}\right)\\
4 \cdot \left(t\_0 \cdot t\_0\right)
\end{array}
\end{array}
herbie shell --seed 2024137
(FPCore (x)
:name "exp2 (problem 3.3.7)"
:precision binary64
:pre (<= (fabs x) 710.0)
:alt
(! :herbie-platform default (* 4 (* (sinh (/ x 2)) (sinh (/ x 2)))))
(+ (- (exp x) 2.0) (exp (- x))))