
(FPCore (x) :precision binary64 (/ (exp x) (- (exp x) 1.0)))
double code(double x) {
return exp(x) / (exp(x) - 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = exp(x) / (exp(x) - 1.0d0)
end function
public static double code(double x) {
return Math.exp(x) / (Math.exp(x) - 1.0);
}
def code(x): return math.exp(x) / (math.exp(x) - 1.0)
function code(x) return Float64(exp(x) / Float64(exp(x) - 1.0)) end
function tmp = code(x) tmp = exp(x) / (exp(x) - 1.0); end
code[x_] := N[(N[Exp[x], $MachinePrecision] / N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{e^{x}}{e^{x} - 1}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (/ (exp x) (- (exp x) 1.0)))
double code(double x) {
return exp(x) / (exp(x) - 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = exp(x) / (exp(x) - 1.0d0)
end function
public static double code(double x) {
return Math.exp(x) / (Math.exp(x) - 1.0);
}
def code(x): return math.exp(x) / (math.exp(x) - 1.0)
function code(x) return Float64(exp(x) / Float64(exp(x) - 1.0)) end
function tmp = code(x) tmp = exp(x) / (exp(x) - 1.0); end
code[x_] := N[(N[Exp[x], $MachinePrecision] / N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{e^{x}}{e^{x} - 1}
\end{array}
(FPCore (x) :precision binary64 (/ -1.0 (expm1 (- x))))
double code(double x) {
return -1.0 / expm1(-x);
}
public static double code(double x) {
return -1.0 / Math.expm1(-x);
}
def code(x): return -1.0 / math.expm1(-x)
function code(x) return Float64(-1.0 / expm1(Float64(-x))) end
code[x_] := N[(-1.0 / N[(Exp[(-x)] - 1), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-1}{\mathsf{expm1}\left(-x\right)}
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Final simplification100.0%
(FPCore (x) :precision binary64 (/ (+ 1.0 (* x (+ 0.5 (* x 0.08333333333333333)))) x))
double code(double x) {
return (1.0 + (x * (0.5 + (x * 0.08333333333333333)))) / x;
}
real(8) function code(x)
real(8), intent (in) :: x
code = (1.0d0 + (x * (0.5d0 + (x * 0.08333333333333333d0)))) / x
end function
public static double code(double x) {
return (1.0 + (x * (0.5 + (x * 0.08333333333333333)))) / x;
}
def code(x): return (1.0 + (x * (0.5 + (x * 0.08333333333333333)))) / x
function code(x) return Float64(Float64(1.0 + Float64(x * Float64(0.5 + Float64(x * 0.08333333333333333)))) / x) end
function tmp = code(x) tmp = (1.0 + (x * (0.5 + (x * 0.08333333333333333)))) / x; end
code[x_] := N[(N[(1.0 + N[(x * N[(0.5 + N[(x * 0.08333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}
\\
\frac{1 + x \cdot \left(0.5 + x \cdot 0.08333333333333333\right)}{x}
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Taylor expanded in x around 0 72.9%
*-commutative72.9%
Simplified72.9%
Final simplification72.9%
(FPCore (x) :precision binary64 (+ 0.5 (/ 1.0 x)))
double code(double x) {
return 0.5 + (1.0 / x);
}
real(8) function code(x)
real(8), intent (in) :: x
code = 0.5d0 + (1.0d0 / x)
end function
public static double code(double x) {
return 0.5 + (1.0 / x);
}
def code(x): return 0.5 + (1.0 / x)
function code(x) return Float64(0.5 + Float64(1.0 / x)) end
function tmp = code(x) tmp = 0.5 + (1.0 / x); end
code[x_] := N[(0.5 + N[(1.0 / x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
0.5 + \frac{1}{x}
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Taylor expanded in x around 0 72.8%
*-commutative72.8%
Simplified72.8%
Taylor expanded in x around 0 72.8%
+-commutative72.8%
*-commutative72.8%
fma-undefine72.8%
*-lft-identity72.8%
associate-*l/72.8%
fma-undefine72.8%
distribute-lft-in72.8%
*-commutative72.8%
associate-*l*72.8%
*-commutative72.8%
*-rgt-identity72.8%
associate-*l*72.8%
lft-mult-inverse72.8%
metadata-eval72.8%
+-commutative72.8%
Simplified72.8%
Final simplification72.8%
(FPCore (x) :precision binary64 (/ 1.0 x))
double code(double x) {
return 1.0 / x;
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 / x
end function
public static double code(double x) {
return 1.0 / x;
}
def code(x): return 1.0 / x
function code(x) return Float64(1.0 / x) end
function tmp = code(x) tmp = 1.0 / x; end
code[x_] := N[(1.0 / x), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{x}
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Taylor expanded in x around 0 72.6%
Final simplification72.6%
(FPCore (x) :precision binary64 -1.0)
double code(double x) {
return -1.0;
}
real(8) function code(x)
real(8), intent (in) :: x
code = -1.0d0
end function
public static double code(double x) {
return -1.0;
}
def code(x): return -1.0
function code(x) return -1.0 end
function tmp = code(x) tmp = -1.0; end
code[x_] := -1.0
\begin{array}{l}
\\
-1
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Applied egg-rr0.4%
unpow-10.4%
distribute-frac-neg20.4%
distribute-rgt-neg-out0.4%
rgt-mult-inverse3.0%
metadata-eval3.0%
Simplified3.0%
Final simplification3.0%
(FPCore (x) :precision binary64 0.5)
double code(double x) {
return 0.5;
}
real(8) function code(x)
real(8), intent (in) :: x
code = 0.5d0
end function
public static double code(double x) {
return 0.5;
}
def code(x): return 0.5
function code(x) return 0.5 end
function tmp = code(x) tmp = 0.5; end
code[x_] := 0.5
\begin{array}{l}
\\
0.5
\end{array}
Initial program 31.9%
sub-neg31.9%
+-commutative31.9%
rgt-mult-inverse4.6%
exp-neg4.6%
distribute-rgt-neg-out4.6%
*-rgt-identity4.6%
distribute-lft-in4.6%
neg-sub04.6%
associate-+l-4.6%
neg-sub04.4%
associate-/r*4.4%
*-rgt-identity4.4%
associate-*r/4.4%
rgt-mult-inverse31.7%
distribute-frac-neg231.7%
distribute-neg-frac31.7%
metadata-eval31.7%
expm1-define100.0%
Simplified100.0%
Taylor expanded in x around 0 72.8%
*-commutative72.8%
Simplified72.8%
Taylor expanded in x around inf 3.3%
Final simplification3.3%
(FPCore (x) :precision binary64 (/ (- 1.0) (expm1 (- x))))
double code(double x) {
return -1.0 / expm1(-x);
}
public static double code(double x) {
return -1.0 / Math.expm1(-x);
}
def code(x): return -1.0 / math.expm1(-x)
function code(x) return Float64(Float64(-1.0) / expm1(Float64(-x))) end
code[x_] := N[((-1.0) / N[(Exp[(-x)] - 1), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-1}{\mathsf{expm1}\left(-x\right)}
\end{array}
herbie shell --seed 2024095
(FPCore (x)
:name "expq2 (section 3.11)"
:precision binary64
:pre (> 710.0 x)
:alt
(/ (- 1.0) (expm1 (- x)))
(/ (exp x) (- (exp x) 1.0)))