
(FPCore (x)
:precision binary64
(let* ((t_0 (* (* (fabs x) (fabs x)) (fabs x)))
(t_1 (* (* t_0 (fabs x)) (fabs x))))
(fabs
(*
(/ 1.0 (sqrt (PI)))
(+
(+ (+ (* 2.0 (fabs x)) (* (/ 2.0 3.0) t_0)) (* (/ 1.0 5.0) t_1))
(* (/ 1.0 21.0) (* (* t_1 (fabs x)) (fabs x))))))))\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\left|x\right| \cdot \left|x\right|\right) \cdot \left|x\right|\\
t_1 := \left(t\_0 \cdot \left|x\right|\right) \cdot \left|x\right|\\
\left|\frac{1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(\left(2 \cdot \left|x\right| + \frac{2}{3} \cdot t\_0\right) + \frac{1}{5} \cdot t\_1\right) + \frac{1}{21} \cdot \left(\left(t\_1 \cdot \left|x\right|\right) \cdot \left|x\right|\right)\right)\right|
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x)
:precision binary64
(let* ((t_0 (* (* (fabs x) (fabs x)) (fabs x)))
(t_1 (* (* t_0 (fabs x)) (fabs x))))
(fabs
(*
(/ 1.0 (sqrt (PI)))
(+
(+ (+ (* 2.0 (fabs x)) (* (/ 2.0 3.0) t_0)) (* (/ 1.0 5.0) t_1))
(* (/ 1.0 21.0) (* (* t_1 (fabs x)) (fabs x))))))))\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\left|x\right| \cdot \left|x\right|\right) \cdot \left|x\right|\\
t_1 := \left(t\_0 \cdot \left|x\right|\right) \cdot \left|x\right|\\
\left|\frac{1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(\left(2 \cdot \left|x\right| + \frac{2}{3} \cdot t\_0\right) + \frac{1}{5} \cdot t\_1\right) + \frac{1}{21} \cdot \left(\left(t\_1 \cdot \left|x\right|\right) \cdot \left|x\right|\right)\right)\right|
\end{array}
\end{array}
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(fabs
(*
(/ -1.0 (sqrt (PI)))
(+
(-
(+ (* 2.0 (fabs x_m)) (* (/ 2.0 3.0) (* (* x_m x_m) (fabs x_m))))
(* (/ -1.0 5.0) (fabs (* (* (* (* x_m x_m) x_m) x_m) x_m))))
(* (pow x_m 7.0) 0.047619047619047616)))))\begin{array}{l}
x_m = \left|x\right|
\\
\left|\frac{-1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(\left(2 \cdot \left|x\_m\right| + \frac{2}{3} \cdot \left(\left(x\_m \cdot x\_m\right) \cdot \left|x\_m\right|\right)\right) - \frac{-1}{5} \cdot \left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right|\right) + {x\_m}^{7} \cdot 0.047619047619047616\right)\right|
\end{array}
Initial program 99.9%
lift-*.f64N/A
*-commutativeN/A
lower-*.f6499.9
Applied rewrites73.7%
Final simplification73.7%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(let* ((t_0 (sqrt (PI))) (t_1 (fabs (* (* (* (* x_m x_m) x_m) x_m) x_m))))
(if (<=
(fabs
(*
(/ -1.0 t_0)
(-
(-
(+ (* 2.0 (fabs x_m)) (* (/ 2.0 3.0) (* (* x_m x_m) (fabs x_m))))
(* (/ -1.0 5.0) t_1))
(* (/ -1.0 21.0) (* (* t_1 (fabs x_m)) (fabs x_m))))))
0.05)
(* (/ 2.0 t_0) x_m)
(* (* (sqrt (pow (PI) -1.0)) (* (* x_m x_m) 0.6666666666666666)) x_m))))\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{PI}\left(\right)}\\
t_1 := \left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right|\\
\mathbf{if}\;\left|\frac{-1}{t\_0} \cdot \left(\left(\left(2 \cdot \left|x\_m\right| + \frac{2}{3} \cdot \left(\left(x\_m \cdot x\_m\right) \cdot \left|x\_m\right|\right)\right) - \frac{-1}{5} \cdot t\_1\right) - \frac{-1}{21} \cdot \left(\left(t\_1 \cdot \left|x\_m\right|\right) \cdot \left|x\_m\right|\right)\right)\right| \leq 0.05:\\
\;\;\;\;\frac{2}{t\_0} \cdot x\_m\\
\mathbf{else}:\\
\;\;\;\;\left(\sqrt{{\mathsf{PI}\left(\right)}^{-1}} \cdot \left(\left(x\_m \cdot x\_m\right) \cdot 0.6666666666666666\right)\right) \cdot x\_m\\
\end{array}
\end{array}
if (fabs.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (PI.f64))) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 x)) (*.f64 (/.f64 #s(literal 2 binary64) #s(literal 3 binary64)) (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)))) (*.f64 (/.f64 #s(literal 1 binary64) #s(literal 5 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)))) (*.f64 (/.f64 #s(literal 1 binary64) #s(literal 21 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)))))) < 0.050000000000000003Initial program 99.9%
Applied rewrites53.1%
Taylor expanded in x around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
rem-square-sqrtN/A
lower-sqrt.f64N/A
rem-square-sqrtN/A
lower-/.f64N/A
lower-PI.f6453.4
Applied rewrites53.4%
Applied rewrites53.4%
Applied rewrites53.4%
if 0.050000000000000003 < (fabs.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (PI.f64))) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 x)) (*.f64 (/.f64 #s(literal 2 binary64) #s(literal 3 binary64)) (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)))) (*.f64 (/.f64 #s(literal 1 binary64) #s(literal 5 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)))) (*.f64 (/.f64 #s(literal 1 binary64) #s(literal 21 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (fabs.f64 x) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)) (fabs.f64 x)))))) Initial program 99.8%
Applied rewrites0.2%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
Applied rewrites0.2%
Taylor expanded in x around inf
Applied rewrites0.2%
Final simplification36.4%
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 (* (* (sqrt (pow (PI) -1.0)) (fma (* 0.6666666666666666 x_m) x_m 2.0)) x_m))
\begin{array}{l}
x_m = \left|x\right|
\\
\left(\sqrt{{\mathsf{PI}\left(\right)}^{-1}} \cdot \mathsf{fma}\left(0.6666666666666666 \cdot x\_m, x\_m, 2\right)\right) \cdot x\_m
\end{array}
Initial program 99.9%
Applied rewrites36.1%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
Applied rewrites36.4%
Applied rewrites36.4%
Final simplification36.4%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(let* ((t_0 (fabs (* (* (* (* x_m x_m) x_m) x_m) x_m))))
(fabs
(*
(/ -1.0 (sqrt (PI)))
(+
(+ (* x_m (fma (* x_m x_m) 0.6666666666666666 2.0)) (* 0.2 t_0))
(* 0.047619047619047616 (* (* t_0 (fabs x_m)) (fabs x_m))))))))\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
t_0 := \left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right|\\
\left|\frac{-1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(x\_m \cdot \mathsf{fma}\left(x\_m \cdot x\_m, 0.6666666666666666, 2\right) + 0.2 \cdot t\_0\right) + 0.047619047619047616 \cdot \left(\left(t\_0 \cdot \left|x\_m\right|\right) \cdot \left|x\_m\right|\right)\right)\right|
\end{array}
\end{array}
Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
lift-*.f64N/A
distribute-rgt-outN/A
lower-*.f64N/A
lift-fabs.f64N/A
rem-sqrt-square-revN/A
sqrt-prodN/A
rem-square-sqrtN/A
*-commutativeN/A
lower-fma.f6478.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
Final simplification78.3%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(fabs
(*
(/ -1.0 (sqrt (PI)))
(+
(+
(* x_m (fma (* x_m x_m) 0.6666666666666666 2.0))
(* 0.2 (fabs (* (* (* (* x_m x_m) x_m) x_m) x_m))))
(*
0.047619047619047616
(* (fabs (* (* (* (* x_m x_m) (* x_m x_m)) x_m) x_m)) (fabs x_m)))))))\begin{array}{l}
x_m = \left|x\right|
\\
\left|\frac{-1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(x\_m \cdot \mathsf{fma}\left(x\_m \cdot x\_m, 0.6666666666666666, 2\right) + 0.2 \cdot \left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right|\right) + 0.047619047619047616 \cdot \left(\left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot \left(x\_m \cdot x\_m\right)\right) \cdot x\_m\right) \cdot x\_m\right| \cdot \left|x\_m\right|\right)\right)\right|
\end{array}
Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
lift-*.f64N/A
distribute-rgt-outN/A
lower-*.f64N/A
lift-fabs.f64N/A
rem-sqrt-square-revN/A
sqrt-prodN/A
rem-square-sqrtN/A
*-commutativeN/A
lower-fma.f6478.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
lift-*.f64N/A
lift-*.f64N/A
lift-*.f64N/A
pow3N/A
lift-fabs.f64N/A
rem-sqrt-square-revN/A
lift-*.f64N/A
sqrt-pow2N/A
lift-fabs.f64N/A
rem-sqrt-square-revN/A
lift-*.f64N/A
pow1/2N/A
pow-prod-upN/A
metadata-evalN/A
metadata-evalN/A
pow2N/A
lower-*.f6478.3
Applied rewrites78.3%
Final simplification78.3%
x_m = (fabs.f64 x)
(FPCore (x_m)
:precision binary64
(let* ((t_0 (fabs (* (* (* (* x_m x_m) x_m) x_m) x_m))))
(fabs
(*
(/ -1.0 (sqrt (PI)))
(+
(+ (* x_m 2.0) (* 0.2 t_0))
(* 0.047619047619047616 (* (* t_0 (fabs x_m)) (fabs x_m))))))))\begin{array}{l}
x_m = \left|x\right|
\\
\begin{array}{l}
t_0 := \left|\left(\left(\left(x\_m \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right) \cdot x\_m\right|\\
\left|\frac{-1}{\sqrt{\mathsf{PI}\left(\right)}} \cdot \left(\left(x\_m \cdot 2 + 0.2 \cdot t\_0\right) + 0.047619047619047616 \cdot \left(\left(t\_0 \cdot \left|x\_m\right|\right) \cdot \left|x\_m\right|\right)\right)\right|
\end{array}
\end{array}
Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
lift-*.f64N/A
distribute-rgt-outN/A
lower-*.f64N/A
lift-fabs.f64N/A
rem-sqrt-square-revN/A
sqrt-prodN/A
rem-square-sqrtN/A
*-commutativeN/A
lower-fma.f6478.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
lift-/.f64N/A
metadata-eval78.3
Applied rewrites78.3%
Taylor expanded in x around 0
Applied rewrites98.6%
Final simplification98.6%
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 (* (/ 2.0 (sqrt (PI))) x_m))
\begin{array}{l}
x_m = \left|x\right|
\\
\frac{2}{\sqrt{\mathsf{PI}\left(\right)}} \cdot x\_m
\end{array}
Initial program 99.9%
Applied rewrites36.1%
Taylor expanded in x around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
rem-square-sqrtN/A
lower-sqrt.f64N/A
rem-square-sqrtN/A
lower-/.f64N/A
lower-PI.f6436.5
Applied rewrites36.5%
Applied rewrites36.5%
Applied rewrites36.5%
x_m = (fabs.f64 x) (FPCore (x_m) :precision binary64 0.0)
x_m = fabs(x);
double code(double x_m) {
return 0.0;
}
x_m = abs(x)
real(8) function code(x_m)
real(8), intent (in) :: x_m
code = 0.0d0
end function
x_m = Math.abs(x);
public static double code(double x_m) {
return 0.0;
}
x_m = math.fabs(x) def code(x_m): return 0.0
x_m = abs(x) function code(x_m) return 0.0 end
x_m = abs(x); function tmp = code(x_m) tmp = 0.0; end
x_m = N[Abs[x], $MachinePrecision] code[x$95$m_] := 0.0
\begin{array}{l}
x_m = \left|x\right|
\\
0
\end{array}
Initial program 99.9%
Applied rewrites36.1%
Taylor expanded in x around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
rem-square-sqrtN/A
lower-sqrt.f64N/A
rem-square-sqrtN/A
lower-/.f64N/A
lower-PI.f6436.5
Applied rewrites36.5%
Applied rewrites36.5%
Applied rewrites4.3%
Final simplification4.3%
herbie shell --seed 2024339
(FPCore (x)
:name "Jmat.Real.erfi, branch x less than or equal to 0.5"
:precision binary64
:pre (<= x 0.5)
(fabs (* (/ 1.0 (sqrt (PI))) (+ (+ (+ (* 2.0 (fabs x)) (* (/ 2.0 3.0) (* (* (fabs x) (fabs x)) (fabs x)))) (* (/ 1.0 5.0) (* (* (* (* (fabs x) (fabs x)) (fabs x)) (fabs x)) (fabs x)))) (* (/ 1.0 21.0) (* (* (* (* (* (* (fabs x) (fabs x)) (fabs x)) (fabs x)) (fabs x)) (fabs x)) (fabs x)))))))