
(FPCore (f) :precision binary64 (let* ((t_0 (* (/ PI 4.0) f)) (t_1 (exp t_0)) (t_2 (exp (- t_0)))) (- (* (/ 1.0 (/ PI 4.0)) (log (/ (+ t_1 t_2) (- t_1 t_2)))))))
double code(double f) {
double t_0 = (((double) M_PI) / 4.0) * f;
double t_1 = exp(t_0);
double t_2 = exp(-t_0);
return -((1.0 / (((double) M_PI) / 4.0)) * log(((t_1 + t_2) / (t_1 - t_2))));
}
public static double code(double f) {
double t_0 = (Math.PI / 4.0) * f;
double t_1 = Math.exp(t_0);
double t_2 = Math.exp(-t_0);
return -((1.0 / (Math.PI / 4.0)) * Math.log(((t_1 + t_2) / (t_1 - t_2))));
}
def code(f): t_0 = (math.pi / 4.0) * f t_1 = math.exp(t_0) t_2 = math.exp(-t_0) return -((1.0 / (math.pi / 4.0)) * math.log(((t_1 + t_2) / (t_1 - t_2))))
function code(f) t_0 = Float64(Float64(pi / 4.0) * f) t_1 = exp(t_0) t_2 = exp(Float64(-t_0)) return Float64(-Float64(Float64(1.0 / Float64(pi / 4.0)) * log(Float64(Float64(t_1 + t_2) / Float64(t_1 - t_2))))) end
function tmp = code(f) t_0 = (pi / 4.0) * f; t_1 = exp(t_0); t_2 = exp(-t_0); tmp = -((1.0 / (pi / 4.0)) * log(((t_1 + t_2) / (t_1 - t_2)))); end
code[f_] := Block[{t$95$0 = N[(N[(Pi / 4.0), $MachinePrecision] * f), $MachinePrecision]}, Block[{t$95$1 = N[Exp[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Exp[(-t$95$0)], $MachinePrecision]}, (-N[(N[(1.0 / N[(Pi / 4.0), $MachinePrecision]), $MachinePrecision] * N[Log[N[(N[(t$95$1 + t$95$2), $MachinePrecision] / N[(t$95$1 - t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision])]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\pi}{4} \cdot f\\
t_1 := e^{t_0}\\
t_2 := e^{-t_0}\\
-\frac{1}{\frac{\pi}{4}} \cdot \log \left(\frac{t_1 + t_2}{t_1 - t_2}\right)
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (f) :precision binary64 (let* ((t_0 (* (/ PI 4.0) f)) (t_1 (exp t_0)) (t_2 (exp (- t_0)))) (- (* (/ 1.0 (/ PI 4.0)) (log (/ (+ t_1 t_2) (- t_1 t_2)))))))
double code(double f) {
double t_0 = (((double) M_PI) / 4.0) * f;
double t_1 = exp(t_0);
double t_2 = exp(-t_0);
return -((1.0 / (((double) M_PI) / 4.0)) * log(((t_1 + t_2) / (t_1 - t_2))));
}
public static double code(double f) {
double t_0 = (Math.PI / 4.0) * f;
double t_1 = Math.exp(t_0);
double t_2 = Math.exp(-t_0);
return -((1.0 / (Math.PI / 4.0)) * Math.log(((t_1 + t_2) / (t_1 - t_2))));
}
def code(f): t_0 = (math.pi / 4.0) * f t_1 = math.exp(t_0) t_2 = math.exp(-t_0) return -((1.0 / (math.pi / 4.0)) * math.log(((t_1 + t_2) / (t_1 - t_2))))
function code(f) t_0 = Float64(Float64(pi / 4.0) * f) t_1 = exp(t_0) t_2 = exp(Float64(-t_0)) return Float64(-Float64(Float64(1.0 / Float64(pi / 4.0)) * log(Float64(Float64(t_1 + t_2) / Float64(t_1 - t_2))))) end
function tmp = code(f) t_0 = (pi / 4.0) * f; t_1 = exp(t_0); t_2 = exp(-t_0); tmp = -((1.0 / (pi / 4.0)) * log(((t_1 + t_2) / (t_1 - t_2)))); end
code[f_] := Block[{t$95$0 = N[(N[(Pi / 4.0), $MachinePrecision] * f), $MachinePrecision]}, Block[{t$95$1 = N[Exp[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Exp[(-t$95$0)], $MachinePrecision]}, (-N[(N[(1.0 / N[(Pi / 4.0), $MachinePrecision]), $MachinePrecision] * N[Log[N[(N[(t$95$1 + t$95$2), $MachinePrecision] / N[(t$95$1 - t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision])]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\pi}{4} \cdot f\\
t_1 := e^{t_0}\\
t_2 := e^{-t_0}\\
-\frac{1}{\frac{\pi}{4}} \cdot \log \left(\frac{t_1 + t_2}{t_1 - t_2}\right)
\end{array}
\end{array}
(FPCore (f) :precision binary64 (/ (- (log (fma f (* PI 0.08333333333333333) (/ 2.0 (* f (* PI 0.5)))))) (* PI 0.25)))
double code(double f) {
return -log(fma(f, (((double) M_PI) * 0.08333333333333333), (2.0 / (f * (((double) M_PI) * 0.5))))) / (((double) M_PI) * 0.25);
}
function code(f) return Float64(Float64(-log(fma(f, Float64(pi * 0.08333333333333333), Float64(2.0 / Float64(f * Float64(pi * 0.5)))))) / Float64(pi * 0.25)) end
code[f_] := N[((-N[Log[N[(f * N[(Pi * 0.08333333333333333), $MachinePrecision] + N[(2.0 / N[(f * N[(Pi * 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(Pi * 0.25), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-\log \left(\mathsf{fma}\left(f, \pi \cdot 0.08333333333333333, \frac{2}{f \cdot \left(\pi \cdot 0.5\right)}\right)\right)}{\pi \cdot 0.25}
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.5%
associate-+r+93.5%
+-commutative93.5%
Simplified93.5%
*-un-lft-identity93.5%
fma-udef93.5%
div-inv93.5%
metadata-eval93.5%
pow-div93.5%
metadata-eval93.5%
Applied egg-rr93.5%
+-commutative93.5%
metadata-eval93.5%
associate-*r/93.5%
fma-def93.5%
associate-/r*93.5%
unpow-193.5%
remove-double-div93.5%
*-commutative93.5%
associate-*l*93.5%
metadata-eval93.5%
Simplified93.5%
associate-*l/93.6%
*-un-lft-identity93.6%
div-inv93.6%
metadata-eval93.6%
div-inv93.6%
metadata-eval93.6%
Applied egg-rr93.6%
fma-def93.6%
*-commutative93.6%
associate-*r*93.6%
metadata-eval93.6%
*-commutative93.6%
distribute-rgt-out93.6%
metadata-eval93.6%
*-commutative93.6%
associate-*l*93.6%
Simplified93.6%
Final simplification93.6%
(FPCore (f) :precision binary64 (/ (- (log (+ (/ 4.0 (* f PI)) (* f (* PI 0.125))))) (* PI 0.25)))
double code(double f) {
return -log(((4.0 / (f * ((double) M_PI))) + (f * (((double) M_PI) * 0.125)))) / (((double) M_PI) * 0.25);
}
public static double code(double f) {
return -Math.log(((4.0 / (f * Math.PI)) + (f * (Math.PI * 0.125)))) / (Math.PI * 0.25);
}
def code(f): return -math.log(((4.0 / (f * math.pi)) + (f * (math.pi * 0.125)))) / (math.pi * 0.25)
function code(f) return Float64(Float64(-log(Float64(Float64(4.0 / Float64(f * pi)) + Float64(f * Float64(pi * 0.125))))) / Float64(pi * 0.25)) end
function tmp = code(f) tmp = -log(((4.0 / (f * pi)) + (f * (pi * 0.125)))) / (pi * 0.25); end
code[f_] := N[((-N[Log[N[(N[(4.0 / N[(f * Pi), $MachinePrecision]), $MachinePrecision] + N[(f * N[(Pi * 0.125), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(Pi * 0.25), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-\log \left(\frac{4}{f \cdot \pi} + f \cdot \left(\pi \cdot 0.125\right)\right)}{\pi \cdot 0.25}
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.2%
distribute-rgt-out--93.2%
metadata-eval93.2%
Simplified93.2%
Taylor expanded in f around 0 93.3%
associate-*r/93.3%
metadata-eval93.3%
associate-/r*93.3%
*-commutative93.3%
Simplified93.3%
associate-*l/93.3%
*-un-lft-identity93.3%
associate-/l/93.3%
associate-*l*93.3%
div-inv93.3%
metadata-eval93.3%
Applied egg-rr93.3%
Final simplification93.3%
(FPCore (f) :precision binary64 (* 4.0 (/ (- (log f) (log (/ 2.0 (* PI 0.5)))) PI)))
double code(double f) {
return 4.0 * ((log(f) - log((2.0 / (((double) M_PI) * 0.5)))) / ((double) M_PI));
}
public static double code(double f) {
return 4.0 * ((Math.log(f) - Math.log((2.0 / (Math.PI * 0.5)))) / Math.PI);
}
def code(f): return 4.0 * ((math.log(f) - math.log((2.0 / (math.pi * 0.5)))) / math.pi)
function code(f) return Float64(4.0 * Float64(Float64(log(f) - log(Float64(2.0 / Float64(pi * 0.5)))) / pi)) end
function tmp = code(f) tmp = 4.0 * ((log(f) - log((2.0 / (pi * 0.5)))) / pi); end
code[f_] := N[(4.0 * N[(N[(N[Log[f], $MachinePrecision] - N[Log[N[(2.0 / N[(Pi * 0.5), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
4 \cdot \frac{\log f - \log \left(\frac{2}{\pi \cdot 0.5}\right)}{\pi}
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.2%
mul-1-neg93.2%
unsub-neg93.2%
distribute-rgt-out--93.2%
metadata-eval93.2%
Simplified93.2%
Final simplification93.2%
(FPCore (f) :precision binary64 (* (/ 4.0 PI) (- (log f) (log (/ 4.0 PI)))))
double code(double f) {
return (4.0 / ((double) M_PI)) * (log(f) - log((4.0 / ((double) M_PI))));
}
public static double code(double f) {
return (4.0 / Math.PI) * (Math.log(f) - Math.log((4.0 / Math.PI)));
}
def code(f): return (4.0 / math.pi) * (math.log(f) - math.log((4.0 / math.pi)))
function code(f) return Float64(Float64(4.0 / pi) * Float64(log(f) - log(Float64(4.0 / pi)))) end
function tmp = code(f) tmp = (4.0 / pi) * (log(f) - log((4.0 / pi))); end
code[f_] := N[(N[(4.0 / Pi), $MachinePrecision] * N[(N[Log[f], $MachinePrecision] - N[Log[N[(4.0 / Pi), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{4}{\pi} \cdot \left(\log f - \log \left(\frac{4}{\pi}\right)\right)
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.2%
distribute-rgt-out--93.2%
metadata-eval93.2%
Simplified93.2%
Taylor expanded in f around 0 93.3%
associate-*r/93.3%
metadata-eval93.3%
associate-/r*93.3%
*-commutative93.3%
Simplified93.3%
Taylor expanded in f around 0 93.2%
fma-def93.2%
*-lft-identity93.2%
associate-*l/93.2%
unpow-193.2%
associate-*r*93.2%
unpow-193.2%
associate-*r/93.2%
metadata-eval93.2%
fma-def93.2%
neg-mul-193.2%
+-commutative93.2%
unsub-neg93.2%
log-div93.1%
associate-/r*93.1%
associate-/l/93.1%
Simplified93.1%
Taylor expanded in f around 0 93.2%
neg-mul-193.2%
log-rec93.2%
+-commutative93.2%
log-rec93.2%
sub-neg93.2%
Simplified93.2%
Final simplification93.2%
(FPCore (f) :precision binary64 (* (/ (log (* f (* PI 0.125))) PI) (- 4.0)))
double code(double f) {
return (log((f * (((double) M_PI) * 0.125))) / ((double) M_PI)) * -4.0;
}
public static double code(double f) {
return (Math.log((f * (Math.PI * 0.125))) / Math.PI) * -4.0;
}
def code(f): return (math.log((f * (math.pi * 0.125))) / math.pi) * -4.0
function code(f) return Float64(Float64(log(Float64(f * Float64(pi * 0.125))) / pi) * Float64(-4.0)) end
function tmp = code(f) tmp = (log((f * (pi * 0.125))) / pi) * -4.0; end
code[f_] := N[(N[(N[Log[N[(f * N[(Pi * 0.125), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision] * (-4.0)), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log \left(f \cdot \left(\pi \cdot 0.125\right)\right)}{\pi} \cdot \left(-4\right)
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.2%
distribute-rgt-out--93.2%
metadata-eval93.2%
Simplified93.2%
Taylor expanded in f around 0 93.3%
associate-*r/93.3%
metadata-eval93.3%
associate-/r*93.3%
*-commutative93.3%
Simplified93.3%
associate-*l/93.3%
*-un-lft-identity93.3%
associate-/l/93.3%
associate-*l*93.3%
div-inv93.3%
metadata-eval93.3%
Applied egg-rr93.3%
Taylor expanded in f around inf 1.8%
+-commutative1.8%
mul-1-neg1.8%
log-rec1.8%
remove-double-neg1.8%
*-commutative1.8%
log-prod1.8%
Simplified1.8%
Final simplification1.8%
(FPCore (f) :precision binary64 (* (log (/ (/ 4.0 f) PI)) (/ (- 4.0) PI)))
double code(double f) {
return log(((4.0 / f) / ((double) M_PI))) * (-4.0 / ((double) M_PI));
}
public static double code(double f) {
return Math.log(((4.0 / f) / Math.PI)) * (-4.0 / Math.PI);
}
def code(f): return math.log(((4.0 / f) / math.pi)) * (-4.0 / math.pi)
function code(f) return Float64(log(Float64(Float64(4.0 / f) / pi)) * Float64(Float64(-4.0) / pi)) end
function tmp = code(f) tmp = log(((4.0 / f) / pi)) * (-4.0 / pi); end
code[f_] := N[(N[Log[N[(N[(4.0 / f), $MachinePrecision] / Pi), $MachinePrecision]], $MachinePrecision] * N[((-4.0) / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\log \left(\frac{\frac{4}{f}}{\pi}\right) \cdot \frac{-4}{\pi}
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.2%
distribute-rgt-out--93.2%
metadata-eval93.2%
Simplified93.2%
Taylor expanded in f around 0 93.3%
associate-*r/93.3%
metadata-eval93.3%
associate-/r*93.3%
*-commutative93.3%
Simplified93.3%
Taylor expanded in f around 0 93.2%
fma-def93.2%
*-lft-identity93.2%
associate-*l/93.2%
unpow-193.2%
associate-*r*93.2%
unpow-193.2%
associate-*r/93.2%
metadata-eval93.2%
fma-def93.2%
neg-mul-193.2%
+-commutative93.2%
unsub-neg93.2%
log-div93.1%
associate-/r*93.1%
associate-/l/93.1%
Simplified93.1%
Final simplification93.1%
(FPCore (f) :precision binary64 (/ (- (log (/ 4.0 (* f PI)))) (* PI 0.25)))
double code(double f) {
return -log((4.0 / (f * ((double) M_PI)))) / (((double) M_PI) * 0.25);
}
public static double code(double f) {
return -Math.log((4.0 / (f * Math.PI))) / (Math.PI * 0.25);
}
def code(f): return -math.log((4.0 / (f * math.pi))) / (math.pi * 0.25)
function code(f) return Float64(Float64(-log(Float64(4.0 / Float64(f * pi)))) / Float64(pi * 0.25)) end
function tmp = code(f) tmp = -log((4.0 / (f * pi))) / (pi * 0.25); end
code[f_] := N[((-N[Log[N[(4.0 / N[(f * Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(Pi * 0.25), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-\log \left(\frac{4}{f \cdot \pi}\right)}{\pi \cdot 0.25}
\end{array}
Initial program 6.1%
Taylor expanded in f around 0 93.1%
distribute-rgt-out--93.1%
metadata-eval93.1%
Simplified93.1%
Taylor expanded in f around 0 93.2%
metadata-eval93.2%
mul-1-neg93.2%
log-rec93.2%
Simplified93.1%
Final simplification93.1%
(FPCore (f) :precision binary64 (* 4.0 (/ (- (log 0.07407407407407407)) PI)))
double code(double f) {
return 4.0 * (-log(0.07407407407407407) / ((double) M_PI));
}
public static double code(double f) {
return 4.0 * (-Math.log(0.07407407407407407) / Math.PI);
}
def code(f): return 4.0 * (-math.log(0.07407407407407407) / math.pi)
function code(f) return Float64(4.0 * Float64(Float64(-log(0.07407407407407407)) / pi)) end
function tmp = code(f) tmp = 4.0 * (-log(0.07407407407407407) / pi); end
code[f_] := N[(4.0 * N[((-N[Log[0.07407407407407407], $MachinePrecision]) / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
4 \cdot \frac{-\log 0.07407407407407407}{\pi}
\end{array}
Initial program 6.1%
Applied egg-rr1.7%
Taylor expanded in f around 0 1.6%
Final simplification1.6%
herbie shell --seed 2023178
(FPCore (f)
:name "VandenBroeck and Keller, Equation (20)"
:precision binary64
(- (* (/ 1.0 (/ PI 4.0)) (log (/ (+ (exp (* (/ PI 4.0) f)) (exp (- (* (/ PI 4.0) f)))) (- (exp (* (/ PI 4.0) f)) (exp (- (* (/ PI 4.0) f)))))))))