
(FPCore (x eps) :precision binary64 (- (tan (+ x eps)) (tan x)))
double code(double x, double eps) {
return tan((x + eps)) - tan(x);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = tan((x + eps)) - tan(x)
end function
public static double code(double x, double eps) {
return Math.tan((x + eps)) - Math.tan(x);
}
def code(x, eps): return math.tan((x + eps)) - math.tan(x)
function code(x, eps) return Float64(tan(Float64(x + eps)) - tan(x)) end
function tmp = code(x, eps) tmp = tan((x + eps)) - tan(x); end
code[x_, eps_] := N[(N[Tan[N[(x + eps), $MachinePrecision]], $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\tan \left(x + \varepsilon\right) - \tan x
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x eps) :precision binary64 (- (tan (+ x eps)) (tan x)))
double code(double x, double eps) {
return tan((x + eps)) - tan(x);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = tan((x + eps)) - tan(x)
end function
public static double code(double x, double eps) {
return Math.tan((x + eps)) - Math.tan(x);
}
def code(x, eps): return math.tan((x + eps)) - math.tan(x)
function code(x, eps) return Float64(tan(Float64(x + eps)) - tan(x)) end
function tmp = code(x, eps) tmp = tan((x + eps)) - tan(x); end
code[x_, eps_] := N[(N[Tan[N[(x + eps), $MachinePrecision]], $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\tan \left(x + \varepsilon\right) - \tan x
\end{array}
(FPCore (x eps)
:precision binary64
(let* ((t_0 (fma (tan x) (sin x) (cos x))))
(/
(* (fma t_0 (* 0.3333333333333333 (* eps eps)) t_0) eps)
(* (fma (- (tan x)) (tan eps) 1.0) (cos x)))))
double code(double x, double eps) {
double t_0 = fma(tan(x), sin(x), cos(x));
return (fma(t_0, (0.3333333333333333 * (eps * eps)), t_0) * eps) / (fma(-tan(x), tan(eps), 1.0) * cos(x));
}
function code(x, eps) t_0 = fma(tan(x), sin(x), cos(x)) return Float64(Float64(fma(t_0, Float64(0.3333333333333333 * Float64(eps * eps)), t_0) * eps) / Float64(fma(Float64(-tan(x)), tan(eps), 1.0) * cos(x))) end
code[x_, eps_] := Block[{t$95$0 = N[(N[Tan[x], $MachinePrecision] * N[Sin[x], $MachinePrecision] + N[Cos[x], $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(t$95$0 * N[(0.3333333333333333 * N[(eps * eps), $MachinePrecision]), $MachinePrecision] + t$95$0), $MachinePrecision] * eps), $MachinePrecision] / N[(N[((-N[Tan[x], $MachinePrecision]) * N[Tan[eps], $MachinePrecision] + 1.0), $MachinePrecision] * N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(\tan x, \sin x, \cos x\right)\\
\frac{\mathsf{fma}\left(t\_0, 0.3333333333333333 \cdot \left(\varepsilon \cdot \varepsilon\right), t\_0\right) \cdot \varepsilon}{\mathsf{fma}\left(-\tan x, \tan \varepsilon, 1\right) \cdot \cos x}
\end{array}
\end{array}
Initial program 64.3%
lift--.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
tan-quotN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites64.4%
Taylor expanded in eps around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites99.9%
Applied rewrites99.9%
(FPCore (x eps)
:precision binary64
(/
(*
(fma
0.3333333333333333
(* eps eps)
(fma (sin x) (/ (sin x) (cos x)) (cos x)))
eps)
(* (fma (- (tan x)) (tan eps) 1.0) (cos x))))
double code(double x, double eps) {
return (fma(0.3333333333333333, (eps * eps), fma(sin(x), (sin(x) / cos(x)), cos(x))) * eps) / (fma(-tan(x), tan(eps), 1.0) * cos(x));
}
function code(x, eps) return Float64(Float64(fma(0.3333333333333333, Float64(eps * eps), fma(sin(x), Float64(sin(x) / cos(x)), cos(x))) * eps) / Float64(fma(Float64(-tan(x)), tan(eps), 1.0) * cos(x))) end
code[x_, eps_] := N[(N[(N[(0.3333333333333333 * N[(eps * eps), $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * eps), $MachinePrecision] / N[(N[((-N[Tan[x], $MachinePrecision]) * N[Tan[eps], $MachinePrecision] + 1.0), $MachinePrecision] * N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\mathsf{fma}\left(0.3333333333333333, \varepsilon \cdot \varepsilon, \mathsf{fma}\left(\sin x, \frac{\sin x}{\cos x}, \cos x\right)\right) \cdot \varepsilon}{\mathsf{fma}\left(-\tan x, \tan \varepsilon, 1\right) \cdot \cos x}
\end{array}
Initial program 64.3%
lift--.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
tan-quotN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites64.4%
Taylor expanded in eps around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites99.9%
Taylor expanded in x around 0
Applied rewrites99.9%
(FPCore (x eps) :precision binary64 (/ (* (+ (/ (pow (sin x) 2.0) (cos x)) (cos x)) eps) (* (fma (- (tan x)) (tan eps) 1.0) (cos x))))
double code(double x, double eps) {
return (((pow(sin(x), 2.0) / cos(x)) + cos(x)) * eps) / (fma(-tan(x), tan(eps), 1.0) * cos(x));
}
function code(x, eps) return Float64(Float64(Float64(Float64((sin(x) ^ 2.0) / cos(x)) + cos(x)) * eps) / Float64(fma(Float64(-tan(x)), tan(eps), 1.0) * cos(x))) end
code[x_, eps_] := N[(N[(N[(N[(N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[Cos[x], $MachinePrecision]), $MachinePrecision] * eps), $MachinePrecision] / N[(N[((-N[Tan[x], $MachinePrecision]) * N[Tan[eps], $MachinePrecision] + 1.0), $MachinePrecision] * N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(\frac{{\sin x}^{2}}{\cos x} + \cos x\right) \cdot \varepsilon}{\mathsf{fma}\left(-\tan x, \tan \varepsilon, 1\right) \cdot \cos x}
\end{array}
Initial program 64.3%
lift--.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
tan-quotN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites64.4%
Taylor expanded in eps around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites99.9%
Taylor expanded in eps around 0
*-commutativeN/A
fp-cancel-sub-sign-invN/A
metadata-evalN/A
*-lft-identityN/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-cos.f64N/A
lower-cos.f6499.8
Applied rewrites99.8%
(FPCore (x eps)
:precision binary64
(let* ((t_0 (+ (+ (PI) x) (PI))) (t_1 (+ t_0 (/ (PI) 2.0))))
(fma
(/ (pow (sin x) 2.0) (/ (+ (sin (- t_1 t_0)) (sin (+ t_1 t_0))) 2.0))
eps
eps)))\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\mathsf{PI}\left(\right) + x\right) + \mathsf{PI}\left(\right)\\
t_1 := t\_0 + \frac{\mathsf{PI}\left(\right)}{2}\\
\mathsf{fma}\left(\frac{{\sin x}^{2}}{\frac{\sin \left(t\_1 - t\_0\right) + \sin \left(t\_1 + t\_0\right)}{2}}, \varepsilon, \varepsilon\right)
\end{array}
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
(FPCore (x eps) :precision binary64 (fma (/ (pow (sin x) 2.0) (- 0.5 (* 0.5 (cos (* 2.0 (+ (+ (+ (PI) x) (PI)) (/ (PI) 2.0))))))) eps eps))
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{{\sin x}^{2}}{0.5 - 0.5 \cdot \cos \left(2 \cdot \left(\left(\left(\mathsf{PI}\left(\right) + x\right) + \mathsf{PI}\left(\right)\right) + \frac{\mathsf{PI}\left(\right)}{2}\right)\right)}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
(FPCore (x eps) :precision binary64 (fma (/ (pow (sin x) 2.0) (+ 0.5 (* 0.5 (cos (* 2.0 (+ (+ (PI) x) (PI))))))) eps eps))
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{{\sin x}^{2}}{0.5 + 0.5 \cdot \cos \left(2 \cdot \left(\left(\mathsf{PI}\left(\right) + x\right) + \mathsf{PI}\left(\right)\right)\right)}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
(FPCore (x eps) :precision binary64 (fma (/ (* (tan x) (sin x)) (cos x)) eps eps))
double code(double x, double eps) {
return fma(((tan(x) * sin(x)) / cos(x)), eps, eps);
}
function code(x, eps) return fma(Float64(Float64(tan(x) * sin(x)) / cos(x)), eps, eps) end
code[x_, eps_] := N[(N[(N[(N[Tan[x], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{\tan x \cdot \sin x}{\cos x}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
(FPCore (x eps) :precision binary64 (fma (pow (tan x) 2.0) eps eps))
double code(double x, double eps) {
return fma(pow(tan(x), 2.0), eps, eps);
}
function code(x, eps) return fma((tan(x) ^ 2.0), eps, eps) end
code[x_, eps_] := N[(N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left({\tan x}^{2}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
(FPCore (x eps)
:precision binary64
(fma
(/
(*
(fma
(-
(* (* (fma -0.0031746031746031746 (* x x) 0.044444444444444446) x) x)
0.3333333333333333)
(* x x)
1.0)
(* x x))
(+ 0.5 (* 0.5 (cos (* 2.0 (+ (+ (PI) x) (PI)))))))
eps
eps))\begin{array}{l}
\\
\mathsf{fma}\left(\frac{\mathsf{fma}\left(\left(\mathsf{fma}\left(-0.0031746031746031746, x \cdot x, 0.044444444444444446\right) \cdot x\right) \cdot x - 0.3333333333333333, x \cdot x, 1\right) \cdot \left(x \cdot x\right)}{0.5 + 0.5 \cdot \cos \left(2 \cdot \left(\left(\mathsf{PI}\left(\right) + x\right) + \mathsf{PI}\left(\right)\right)\right)}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.3%
(FPCore (x eps)
:precision binary64
(fma
(/
(*
(*
(fma (- (* 0.044444444444444446 (* x x)) 0.3333333333333333) (* x x) 1.0)
x)
x)
(+ 0.5 (* 0.5 (cos (* 2.0 (+ (+ (PI) x) (PI)))))))
eps
eps))\begin{array}{l}
\\
\mathsf{fma}\left(\frac{\left(\mathsf{fma}\left(0.044444444444444446 \cdot \left(x \cdot x\right) - 0.3333333333333333, x \cdot x, 1\right) \cdot x\right) \cdot x}{0.5 + 0.5 \cdot \cos \left(2 \cdot \left(\left(\mathsf{PI}\left(\right) + x\right) + \mathsf{PI}\left(\right)\right)\right)}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.3%
(FPCore (x eps)
:precision binary64
(fma
(/
(*
(*
(fma (- (* 0.044444444444444446 (* x x)) 0.3333333333333333) (* x x) 1.0)
x)
x)
(+ 0.5 (* 0.5 (cos (+ x x)))))
eps
eps))
double code(double x, double eps) {
return fma((((fma(((0.044444444444444446 * (x * x)) - 0.3333333333333333), (x * x), 1.0) * x) * x) / (0.5 + (0.5 * cos((x + x))))), eps, eps);
}
function code(x, eps) return fma(Float64(Float64(Float64(fma(Float64(Float64(0.044444444444444446 * Float64(x * x)) - 0.3333333333333333), Float64(x * x), 1.0) * x) * x) / Float64(0.5 + Float64(0.5 * cos(Float64(x + x))))), eps, eps) end
code[x_, eps_] := N[(N[(N[(N[(N[(N[(N[(0.044444444444444446 * N[(x * x), $MachinePrecision]), $MachinePrecision] - 0.3333333333333333), $MachinePrecision] * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision] / N[(0.5 + N[(0.5 * N[Cos[N[(x + x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{\left(\mathsf{fma}\left(0.044444444444444446 \cdot \left(x \cdot x\right) - 0.3333333333333333, x \cdot x, 1\right) \cdot x\right) \cdot x}{0.5 + 0.5 \cdot \cos \left(x + x\right)}, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.3%
Applied rewrites99.3%
(FPCore (x eps)
:precision binary64
(fma
(*
(*
(fma
(fma
(fma 0.19682539682539682 (* x x) 0.37777777777777777)
(* x x)
0.6666666666666666)
(* x x)
1.0)
x)
x)
eps
eps))
double code(double x, double eps) {
return fma(((fma(fma(fma(0.19682539682539682, (x * x), 0.37777777777777777), (x * x), 0.6666666666666666), (x * x), 1.0) * x) * x), eps, eps);
}
function code(x, eps) return fma(Float64(Float64(fma(fma(fma(0.19682539682539682, Float64(x * x), 0.37777777777777777), Float64(x * x), 0.6666666666666666), Float64(x * x), 1.0) * x) * x), eps, eps) end
code[x_, eps_] := N[(N[(N[(N[(N[(N[(0.19682539682539682 * N[(x * x), $MachinePrecision] + 0.37777777777777777), $MachinePrecision] * N[(x * x), $MachinePrecision] + 0.6666666666666666), $MachinePrecision] * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.19682539682539682, x \cdot x, 0.37777777777777777\right), x \cdot x, 0.6666666666666666\right), x \cdot x, 1\right) \cdot x\right) \cdot x, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.3%
(FPCore (x eps) :precision binary64 (fma (* (* (fma (fma 0.37777777777777777 (* x x) 0.6666666666666666) (* x x) 1.0) x) x) eps eps))
double code(double x, double eps) {
return fma(((fma(fma(0.37777777777777777, (x * x), 0.6666666666666666), (x * x), 1.0) * x) * x), eps, eps);
}
function code(x, eps) return fma(Float64(Float64(fma(fma(0.37777777777777777, Float64(x * x), 0.6666666666666666), Float64(x * x), 1.0) * x) * x), eps, eps) end
code[x_, eps_] := N[(N[(N[(N[(N[(0.37777777777777777 * N[(x * x), $MachinePrecision] + 0.6666666666666666), $MachinePrecision] * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\left(\mathsf{fma}\left(\mathsf{fma}\left(0.37777777777777777, x \cdot x, 0.6666666666666666\right), x \cdot x, 1\right) \cdot x\right) \cdot x, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.2%
(FPCore (x eps) :precision binary64 (fma (* (* (fma 0.6666666666666666 (* x x) 1.0) x) x) eps eps))
double code(double x, double eps) {
return fma(((fma(0.6666666666666666, (x * x), 1.0) * x) * x), eps, eps);
}
function code(x, eps) return fma(Float64(Float64(fma(0.6666666666666666, Float64(x * x), 1.0) * x) * x), eps, eps) end
code[x_, eps_] := N[(N[(N[(N[(0.6666666666666666 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\left(\mathsf{fma}\left(0.6666666666666666, x \cdot x, 1\right) \cdot x\right) \cdot x, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.2%
(FPCore (x eps) :precision binary64 (fma (* x x) eps eps))
double code(double x, double eps) {
return fma((x * x), eps, eps);
}
function code(x, eps) return fma(Float64(x * x), eps, eps) end
code[x_, eps_] := N[(N[(x * x), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(x \cdot x, \varepsilon, \varepsilon\right)
\end{array}
Initial program 64.3%
Taylor expanded in eps around 0
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
metadata-evalN/A
*-lft-identityN/A
lower-/.f64N/A
lower-pow.f64N/A
lower-sin.f64N/A
lower-pow.f64N/A
lower-cos.f6499.6
Applied rewrites99.6%
Taylor expanded in x around 0
Applied rewrites99.2%
(FPCore (x eps) :precision binary64 (+ eps (* (* eps (tan x)) (tan x))))
double code(double x, double eps) {
return eps + ((eps * tan(x)) * tan(x));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps + ((eps * tan(x)) * tan(x))
end function
public static double code(double x, double eps) {
return eps + ((eps * Math.tan(x)) * Math.tan(x));
}
def code(x, eps): return eps + ((eps * math.tan(x)) * math.tan(x))
function code(x, eps) return Float64(eps + Float64(Float64(eps * tan(x)) * tan(x))) end
function tmp = code(x, eps) tmp = eps + ((eps * tan(x)) * tan(x)); end
code[x_, eps_] := N[(eps + N[(N[(eps * N[Tan[x], $MachinePrecision]), $MachinePrecision] * N[Tan[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\varepsilon + \left(\varepsilon \cdot \tan x\right) \cdot \tan x
\end{array}
herbie shell --seed 2024340
(FPCore (x eps)
:name "2tan (problem 3.3.2)"
:precision binary64
:pre (and (and (and (<= -10000.0 x) (<= x 10000.0)) (< (* 1e-16 (fabs x)) eps)) (< eps (fabs x)))
:alt
(! :herbie-platform default (+ eps (* eps (tan x) (tan x))))
(- (tan (+ x eps)) (tan x)))