
(FPCore (f) :precision binary64 (let* ((t_0 (/ (PI) 4.0)) (t_1 (* t_0 f)) (t_2 (exp t_1)) (t_3 (exp (- t_1)))) (- (* (/ 1.0 t_0) (log (/ (+ t_2 t_3) (- t_2 t_3)))))))
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{PI}\left(\right)}{4}\\
t_1 := t\_0 \cdot f\\
t_2 := e^{t\_1}\\
t_3 := e^{-t\_1}\\
-\frac{1}{t\_0} \cdot \log \left(\frac{t\_2 + t\_3}{t\_2 - t\_3}\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)) (t_1 (* t_0 f)) (t_2 (exp t_1)) (t_3 (exp (- t_1)))) (- (* (/ 1.0 t_0) (log (/ (+ t_2 t_3) (- t_2 t_3)))))))
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{PI}\left(\right)}{4}\\
t_1 := t\_0 \cdot f\\
t_2 := e^{t\_1}\\
t_3 := e^{-t\_1}\\
-\frac{1}{t\_0} \cdot \log \left(\frac{t\_2 + t\_3}{t\_2 - t\_3}\right)
\end{array}
\end{array}
(FPCore (f) :precision binary64 (let* ((t_0 (/ 2.0 (sqrt (PI))))) (* t_0 (* (log (tanh (* (* 0.25 (PI)) f))) t_0))))
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{2}{\sqrt{\mathsf{PI}\left(\right)}}\\
t\_0 \cdot \left(\log \tanh \left(\left(0.25 \cdot \mathsf{PI}\left(\right)\right) \cdot f\right) \cdot t\_0\right)
\end{array}
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lift-/.f64N/A
inv-powN/A
sqr-powN/A
Applied rewrites99.3%
lift-pow.f64N/A
unpow1/2N/A
lift-/.f64N/A
sqrt-divN/A
metadata-evalN/A
lift-sqrt.f64N/A
lower-/.f6499.3
lift-*.f64N/A
*-commutativeN/A
lower-*.f6499.3
Applied rewrites99.3%
(FPCore (f) :precision binary64 (let* ((t_0 (* 0.25 (PI)))) (/ (log (tanh (* f t_0))) t_0)))
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 0.25 \cdot \mathsf{PI}\left(\right)\\
\frac{\log \tanh \left(f \cdot t\_0\right)}{t\_0}
\end{array}
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
un-div-invN/A
Applied rewrites99.3%
(FPCore (f) :precision binary64 (* (/ 4.0 (PI)) (log (tanh (* f (* 0.25 (PI)))))))
\begin{array}{l}
\\
\frac{4}{\mathsf{PI}\left(\right)} \cdot \log \tanh \left(f \cdot \left(0.25 \cdot \mathsf{PI}\left(\right)\right)\right)
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
distribute-rgt-neg-inN/A
lower-*.f64N/A
Applied rewrites99.2%
(FPCore (f)
:precision binary64
(/
(log
(/
(fma (* (fma -0.041666666666666664 (PI) (* 0.125 (PI))) f) f (/ 4.0 (PI)))
f))
(* -0.25 (PI))))\begin{array}{l}
\\
\frac{\log \left(\frac{\mathsf{fma}\left(\mathsf{fma}\left(-0.041666666666666664, \mathsf{PI}\left(\right), 0.125 \cdot \mathsf{PI}\left(\right)\right) \cdot f, f, \frac{4}{\mathsf{PI}\left(\right)}\right)}{f}\right)}{-0.25 \cdot \mathsf{PI}\left(\right)}
\end{array}
Initial program 6.4%
Taylor expanded in f around 0
Applied rewrites96.2%
lift-neg.f64N/A
lift-*.f64N/A
Applied rewrites96.3%
(FPCore (f) :precision binary64 (/ (log (/ (/ 4.0 (PI)) f)) (* -0.25 (PI))))
\begin{array}{l}
\\
\frac{\log \left(\frac{\frac{4}{\mathsf{PI}\left(\right)}}{f}\right)}{-0.25 \cdot \mathsf{PI}\left(\right)}
\end{array}
Initial program 6.4%
Taylor expanded in f around 0
associate-/l/N/A
metadata-evalN/A
associate-*r/N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
distribute-rgt-out--N/A
*-commutativeN/A
associate-/r*N/A
metadata-evalN/A
metadata-evalN/A
lower-/.f64N/A
lower-PI.f6495.8
Applied rewrites95.8%
lift-neg.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
clear-numN/A
lift-/.f64N/A
Applied rewrites95.9%
(FPCore (f) :precision binary64 (* (- -4.0) (/ (* (log (* f (* 0.25 (PI)))) (PI)) (* (PI) (PI)))))
\begin{array}{l}
\\
\left(--4\right) \cdot \frac{\log \left(f \cdot \left(0.25 \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \mathsf{PI}\left(\right)}{\mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)}
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
un-div-invN/A
Applied rewrites99.3%
Taylor expanded in f around 0
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6495.9
Applied rewrites95.9%
lift-/.f64N/A
frac-2negN/A
neg-sub0N/A
div-subN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites95.9%
lift-/.f64N/A
frac-2negN/A
distribute-frac-negN/A
lift--.f64N/A
lift-*.f64N/A
mul0-lftN/A
neg-sub0N/A
Applied rewrites95.9%
Final simplification95.9%
(FPCore (f) :precision binary64 (/ (log (* (* (PI) f) 0.25)) (* 0.25 (PI))))
\begin{array}{l}
\\
\frac{\log \left(\left(\mathsf{PI}\left(\right) \cdot f\right) \cdot 0.25\right)}{0.25 \cdot \mathsf{PI}\left(\right)}
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
un-div-invN/A
Applied rewrites99.3%
Taylor expanded in f around 0
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6495.9
Applied rewrites95.9%
(FPCore (f) :precision binary64 (* (/ 4.0 (PI)) (log (* f (* 0.25 (PI))))))
\begin{array}{l}
\\
\frac{4}{\mathsf{PI}\left(\right)} \cdot \log \left(f \cdot \left(0.25 \cdot \mathsf{PI}\left(\right)\right)\right)
\end{array}
Initial program 6.4%
lift-neg.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
un-div-invN/A
Applied rewrites99.3%
Taylor expanded in f around 0
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6495.9
Applied rewrites95.9%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
lower-*.f64N/A
lift-*.f64N/A
associate-/r*N/A
metadata-evalN/A
lower-/.f6495.8
Applied rewrites95.8%
herbie shell --seed 2024340
(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)))))))))