
(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 (* 4.0 (/ (log (tanh (* PI (* f 0.25)))) PI)))
double code(double f) {
return 4.0 * (log(tanh((((double) M_PI) * (f * 0.25)))) / ((double) M_PI));
}
public static double code(double f) {
return 4.0 * (Math.log(Math.tanh((Math.PI * (f * 0.25)))) / Math.PI);
}
def code(f): return 4.0 * (math.log(math.tanh((math.pi * (f * 0.25)))) / math.pi)
function code(f) return Float64(4.0 * Float64(log(tanh(Float64(pi * Float64(f * 0.25)))) / pi)) end
function tmp = code(f) tmp = 4.0 * (log(tanh((pi * (f * 0.25)))) / pi); end
code[f_] := N[(4.0 * N[(N[Log[N[Tanh[N[(Pi * N[(f * 0.25), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
4 \cdot \frac{\log \tanh \left(\pi \cdot \left(f \cdot 0.25\right)\right)}{\pi}
\end{array}
Initial program 8.7%
Taylor expanded in f around inf 8.7%
*-un-lft-identity8.7%
Applied egg-rr99.1%
associate-*r/99.1%
*-lft-identity99.1%
*-commutative99.1%
*-commutative99.1%
Simplified99.1%
Final simplification99.1%
(FPCore (f) :precision binary64 (- (fabs (* 4.0 (/ (log (/ 4.0 (* PI f))) PI)))))
double code(double f) {
return -fabs((4.0 * (log((4.0 / (((double) M_PI) * f))) / ((double) M_PI))));
}
public static double code(double f) {
return -Math.abs((4.0 * (Math.log((4.0 / (Math.PI * f))) / Math.PI)));
}
def code(f): return -math.fabs((4.0 * (math.log((4.0 / (math.pi * f))) / math.pi)))
function code(f) return Float64(-abs(Float64(4.0 * Float64(log(Float64(4.0 / Float64(pi * f))) / pi)))) end
function tmp = code(f) tmp = -abs((4.0 * (log((4.0 / (pi * f))) / pi))); end
code[f_] := (-N[Abs[N[(4.0 * N[(N[Log[N[(4.0 / N[(Pi * f), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision])
\begin{array}{l}
\\
-\left|4 \cdot \frac{\log \left(\frac{4}{\pi \cdot f}\right)}{\pi}\right|
\end{array}
Initial program 8.7%
Taylor expanded in f around 0 95.8%
distribute-rgt-out--95.8%
metadata-eval95.8%
Simplified95.8%
Taylor expanded in f around 0 95.8%
*-commutative95.8%
Simplified95.8%
add-sqr-sqrt95.5%
sqrt-unprod95.9%
pow295.9%
clear-num95.9%
Applied egg-rr95.9%
unpow295.9%
rem-sqrt-square95.9%
associate-*l/96.0%
*-lft-identity96.0%
times-frac96.0%
metadata-eval96.0%
*-commutative96.0%
Simplified96.0%
Final simplification96.0%
(FPCore (f) :precision binary64 (/ (fabs (log (/ (/ 4.0 PI) f))) (* PI (- 0.25))))
double code(double f) {
return fabs(log(((4.0 / ((double) M_PI)) / f))) / (((double) M_PI) * -0.25);
}
public static double code(double f) {
return Math.abs(Math.log(((4.0 / Math.PI) / f))) / (Math.PI * -0.25);
}
def code(f): return math.fabs(math.log(((4.0 / math.pi) / f))) / (math.pi * -0.25)
function code(f) return Float64(abs(log(Float64(Float64(4.0 / pi) / f))) / Float64(pi * Float64(-0.25))) end
function tmp = code(f) tmp = abs(log(((4.0 / pi) / f))) / (pi * -0.25); end
code[f_] := N[(N[Abs[N[Log[N[(N[(4.0 / Pi), $MachinePrecision] / f), $MachinePrecision]], $MachinePrecision]], $MachinePrecision] / N[(Pi * (-0.25)), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left|\log \left(\frac{\frac{4}{\pi}}{f}\right)\right|}{\pi \cdot \left(-0.25\right)}
\end{array}
Initial program 8.7%
Taylor expanded in f around 0 95.8%
distribute-rgt-out--95.8%
metadata-eval95.8%
Simplified95.8%
Taylor expanded in f around 0 95.8%
*-commutative95.8%
Simplified95.8%
associate-*l/95.9%
div-inv95.9%
metadata-eval95.9%
*-un-lft-identity95.9%
Applied egg-rr95.9%
add-sqr-sqrt95.4%
sqrt-unprod96.0%
pow296.0%
Applied egg-rr96.0%
unpow296.0%
rem-sqrt-square96.0%
associate-/r*96.0%
Simplified96.0%
Final simplification96.0%
(FPCore (f) :precision binary64 (* -4.0 (/ (- (log (/ 4.0 PI)) (log f)) PI)))
double code(double f) {
return -4.0 * ((log((4.0 / ((double) M_PI))) - log(f)) / ((double) M_PI));
}
public static double code(double f) {
return -4.0 * ((Math.log((4.0 / Math.PI)) - Math.log(f)) / Math.PI);
}
def code(f): return -4.0 * ((math.log((4.0 / math.pi)) - math.log(f)) / math.pi)
function code(f) return Float64(-4.0 * Float64(Float64(log(Float64(4.0 / pi)) - log(f)) / pi)) end
function tmp = code(f) tmp = -4.0 * ((log((4.0 / pi)) - log(f)) / pi); end
code[f_] := N[(-4.0 * N[(N[(N[Log[N[(4.0 / Pi), $MachinePrecision]], $MachinePrecision] - N[Log[f], $MachinePrecision]), $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-4 \cdot \frac{\log \left(\frac{4}{\pi}\right) - \log f}{\pi}
\end{array}
Initial program 8.7%
Simplified98.9%
Taylor expanded in f around 0 96.0%
mul-1-neg96.0%
unsub-neg96.0%
Simplified96.0%
Final simplification96.0%
(FPCore (f) :precision binary64 (* (log (/ (/ 4.0 PI) f)) (/ 4.0 (- PI))))
double code(double f) {
return log(((4.0 / ((double) M_PI)) / f)) * (4.0 / -((double) M_PI));
}
public static double code(double f) {
return Math.log(((4.0 / Math.PI) / f)) * (4.0 / -Math.PI);
}
def code(f): return math.log(((4.0 / math.pi) / f)) * (4.0 / -math.pi)
function code(f) return Float64(log(Float64(Float64(4.0 / pi) / f)) * Float64(4.0 / Float64(-pi))) end
function tmp = code(f) tmp = log(((4.0 / pi) / f)) * (4.0 / -pi); end
code[f_] := N[(N[Log[N[(N[(4.0 / Pi), $MachinePrecision] / f), $MachinePrecision]], $MachinePrecision] * N[(4.0 / (-Pi)), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\log \left(\frac{\frac{4}{\pi}}{f}\right) \cdot \frac{4}{-\pi}
\end{array}
Initial program 8.7%
Taylor expanded in f around 0 95.8%
distribute-rgt-out--95.8%
metadata-eval95.8%
Simplified95.8%
Taylor expanded in f around 0 95.8%
*-commutative95.8%
Simplified95.8%
associate-*l/95.9%
div-inv95.9%
metadata-eval95.9%
*-un-lft-identity95.9%
Applied egg-rr95.9%
div-inv95.8%
inv-pow95.8%
*-commutative95.8%
unpow-prod-down95.8%
metadata-eval95.8%
inv-pow95.8%
Applied egg-rr95.8%
associate-/r*95.8%
associate-*r/95.8%
metadata-eval95.8%
Simplified95.8%
Final simplification95.8%
(FPCore (f) :precision binary64 (/ (log (/ 4.0 (* PI f))) (* PI (- 0.25))))
double code(double f) {
return log((4.0 / (((double) M_PI) * f))) / (((double) M_PI) * -0.25);
}
public static double code(double f) {
return Math.log((4.0 / (Math.PI * f))) / (Math.PI * -0.25);
}
def code(f): return math.log((4.0 / (math.pi * f))) / (math.pi * -0.25)
function code(f) return Float64(log(Float64(4.0 / Float64(pi * f))) / Float64(pi * Float64(-0.25))) end
function tmp = code(f) tmp = log((4.0 / (pi * f))) / (pi * -0.25); end
code[f_] := N[(N[Log[N[(4.0 / N[(Pi * f), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[(Pi * (-0.25)), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log \left(\frac{4}{\pi \cdot f}\right)}{\pi \cdot \left(-0.25\right)}
\end{array}
Initial program 8.7%
Taylor expanded in f around 0 95.8%
distribute-rgt-out--95.8%
metadata-eval95.8%
Simplified95.8%
Taylor expanded in f around 0 95.8%
*-commutative95.8%
Simplified95.8%
associate-*l/95.9%
div-inv95.9%
metadata-eval95.9%
*-un-lft-identity95.9%
Applied egg-rr95.9%
Final simplification95.9%
(FPCore (f) :precision binary64 (/ (- (log (/ (/ 4.0 PI) f))) (* PI 0.25)))
double code(double f) {
return -log(((4.0 / ((double) M_PI)) / f)) / (((double) M_PI) * 0.25);
}
public static double code(double f) {
return -Math.log(((4.0 / Math.PI) / f)) / (Math.PI * 0.25);
}
def code(f): return -math.log(((4.0 / math.pi) / f)) / (math.pi * 0.25)
function code(f) return Float64(Float64(-log(Float64(Float64(4.0 / pi) / f))) / Float64(pi * 0.25)) end
function tmp = code(f) tmp = -log(((4.0 / pi) / f)) / (pi * 0.25); end
code[f_] := N[((-N[Log[N[(N[(4.0 / Pi), $MachinePrecision] / f), $MachinePrecision]], $MachinePrecision]) / N[(Pi * 0.25), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-\log \left(\frac{\frac{4}{\pi}}{f}\right)}{\pi \cdot 0.25}
\end{array}
Initial program 8.7%
Taylor expanded in f around 0 95.8%
distribute-rgt-out--95.8%
metadata-eval95.8%
Simplified95.8%
Taylor expanded in f around 0 95.8%
*-commutative95.8%
Simplified95.8%
associate-*l/95.9%
div-inv95.9%
metadata-eval95.9%
*-un-lft-identity95.9%
Applied egg-rr95.9%
*-un-lft-identity95.9%
log-prod95.9%
metadata-eval95.9%
Applied egg-rr95.9%
+-lft-identity95.9%
associate-/r*96.0%
Simplified96.0%
Final simplification96.0%
(FPCore (f) :precision binary64 (* -4.0 (/ (log (* f (* PI 0.041666666666666664))) PI)))
double code(double f) {
return -4.0 * (log((f * (((double) M_PI) * 0.041666666666666664))) / ((double) M_PI));
}
public static double code(double f) {
return -4.0 * (Math.log((f * (Math.PI * 0.041666666666666664))) / Math.PI);
}
def code(f): return -4.0 * (math.log((f * (math.pi * 0.041666666666666664))) / math.pi)
function code(f) return Float64(-4.0 * Float64(log(Float64(f * Float64(pi * 0.041666666666666664))) / pi)) end
function tmp = code(f) tmp = -4.0 * (log((f * (pi * 0.041666666666666664))) / pi); end
code[f_] := N[(-4.0 * N[(N[Log[N[(f * N[(Pi * 0.041666666666666664), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-4 \cdot \frac{\log \left(f \cdot \left(\pi \cdot 0.041666666666666664\right)\right)}{\pi}
\end{array}
Initial program 8.7%
Simplified98.9%
Taylor expanded in f around 0 96.7%
Taylor expanded in f around inf 1.6%
+-commutative1.6%
mul-1-neg1.6%
log-rec1.6%
remove-double-neg1.6%
mul-1-neg1.6%
distribute-rgt-out1.6%
metadata-eval1.6%
distribute-rgt-neg-in1.6%
metadata-eval1.6%
Simplified1.6%
*-un-lft-identity1.6%
sum-log1.6%
Applied egg-rr1.6%
*-lft-identity1.6%
Simplified1.6%
Final simplification1.6%
herbie shell --seed 2024056
(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)))))))))