
(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 14 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 (+ 1.0 (pow (tan x) 2.0)))
(t_1 (cos (+ x x)))
(t_2
(*
t_0
(- (/ (fma t_1 -0.5 0.5) (fma t_1 0.5 0.5)) -0.3333333333333333))))
(fma
eps
(fma
(pow (- (sin x)) 2.0)
(pow (/ 1.0 (cos x)) 2.0)
(*
eps
(fma
eps
(fma eps (fma (tan x) t_2 (* t_0 (/ (sin x) (* (cos x) 3.0)))) t_2)
(* (tan x) t_0))))
eps)))
double code(double x, double eps) {
double t_0 = 1.0 + pow(tan(x), 2.0);
double t_1 = cos((x + x));
double t_2 = t_0 * ((fma(t_1, -0.5, 0.5) / fma(t_1, 0.5, 0.5)) - -0.3333333333333333);
return fma(eps, fma(pow(-sin(x), 2.0), pow((1.0 / cos(x)), 2.0), (eps * fma(eps, fma(eps, fma(tan(x), t_2, (t_0 * (sin(x) / (cos(x) * 3.0)))), t_2), (tan(x) * t_0)))), eps);
}
function code(x, eps) t_0 = Float64(1.0 + (tan(x) ^ 2.0)) t_1 = cos(Float64(x + x)) t_2 = Float64(t_0 * Float64(Float64(fma(t_1, -0.5, 0.5) / fma(t_1, 0.5, 0.5)) - -0.3333333333333333)) return fma(eps, fma((Float64(-sin(x)) ^ 2.0), (Float64(1.0 / cos(x)) ^ 2.0), Float64(eps * fma(eps, fma(eps, fma(tan(x), t_2, Float64(t_0 * Float64(sin(x) / Float64(cos(x) * 3.0)))), t_2), Float64(tan(x) * t_0)))), eps) end
code[x_, eps_] := Block[{t$95$0 = N[(1.0 + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Cos[N[(x + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 * N[(N[(N[(t$95$1 * -0.5 + 0.5), $MachinePrecision] / N[(t$95$1 * 0.5 + 0.5), $MachinePrecision]), $MachinePrecision] - -0.3333333333333333), $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(N[Power[(-N[Sin[x], $MachinePrecision]), 2.0], $MachinePrecision] * N[Power[N[(1.0 / N[Cos[x], $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(eps * N[(eps * N[(eps * N[(N[Tan[x], $MachinePrecision] * t$95$2 + N[(t$95$0 * N[(N[Sin[x], $MachinePrecision] / N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] + N[(N[Tan[x], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + eps), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 1 + {\tan x}^{2}\\
t_1 := \cos \left(x + x\right)\\
t_2 := t\_0 \cdot \left(\frac{\mathsf{fma}\left(t\_1, -0.5, 0.5\right)}{\mathsf{fma}\left(t\_1, 0.5, 0.5\right)} - -0.3333333333333333\right)\\
\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left({\left(-\sin x\right)}^{2}, {\left(\frac{1}{\cos x}\right)}^{2}, \varepsilon \cdot \mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\tan x, t\_2, t\_0 \cdot \frac{\sin x}{\cos x \cdot 3}\right), t\_2\right), \tan x \cdot t\_0\right)\right), \varepsilon\right)
\end{array}
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Applied rewrites100.0%
Applied rewrites100.0%
Applied rewrites100.0%
Final simplification100.0%
(FPCore (x eps)
:precision binary64
(let* ((t_0 (cos (+ x x)))
(t_1 (pow (tan x) 2.0))
(t_2 (+ 1.0 t_1))
(t_3
(*
t_2
(- (/ (fma t_0 -0.5 0.5) (fma t_0 0.5 0.5)) -0.3333333333333333))))
(fma
eps
(fma
(fma
eps
(fma eps (fma (tan x) t_3 (* t_2 (/ (sin x) (* (cos x) 3.0)))) t_3)
(* (tan x) t_2))
eps
t_1)
eps)))
double code(double x, double eps) {
double t_0 = cos((x + x));
double t_1 = pow(tan(x), 2.0);
double t_2 = 1.0 + t_1;
double t_3 = t_2 * ((fma(t_0, -0.5, 0.5) / fma(t_0, 0.5, 0.5)) - -0.3333333333333333);
return fma(eps, fma(fma(eps, fma(eps, fma(tan(x), t_3, (t_2 * (sin(x) / (cos(x) * 3.0)))), t_3), (tan(x) * t_2)), eps, t_1), eps);
}
function code(x, eps) t_0 = cos(Float64(x + x)) t_1 = tan(x) ^ 2.0 t_2 = Float64(1.0 + t_1) t_3 = Float64(t_2 * Float64(Float64(fma(t_0, -0.5, 0.5) / fma(t_0, 0.5, 0.5)) - -0.3333333333333333)) return fma(eps, fma(fma(eps, fma(eps, fma(tan(x), t_3, Float64(t_2 * Float64(sin(x) / Float64(cos(x) * 3.0)))), t_3), Float64(tan(x) * t_2)), eps, t_1), eps) end
code[x_, eps_] := Block[{t$95$0 = N[Cos[N[(x + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$2 = N[(1.0 + t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 * N[(N[(N[(t$95$0 * -0.5 + 0.5), $MachinePrecision] / N[(t$95$0 * 0.5 + 0.5), $MachinePrecision]), $MachinePrecision] - -0.3333333333333333), $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(N[(eps * N[(eps * N[(N[Tan[x], $MachinePrecision] * t$95$3 + N[(t$95$2 * N[(N[Sin[x], $MachinePrecision] / N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + N[(N[Tan[x], $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision] * eps + t$95$1), $MachinePrecision] + eps), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos \left(x + x\right)\\
t_1 := {\tan x}^{2}\\
t_2 := 1 + t\_1\\
t_3 := t\_2 \cdot \left(\frac{\mathsf{fma}\left(t\_0, -0.5, 0.5\right)}{\mathsf{fma}\left(t\_0, 0.5, 0.5\right)} - -0.3333333333333333\right)\\
\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\tan x, t\_3, t\_2 \cdot \frac{\sin x}{\cos x \cdot 3}\right), t\_3\right), \tan x \cdot t\_2\right), \varepsilon, t\_1\right), \varepsilon\right)
\end{array}
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Applied rewrites100.0%
Applied rewrites100.0%
Applied rewrites100.0%
Final simplification100.0%
(FPCore (x eps)
:precision binary64
(fma
eps
(fma
(pow (- (sin x)) 2.0)
(pow (/ 1.0 (cos x)) 2.0)
(*
eps
(fma
eps
0.3333333333333333
(/ (* (sin x) (+ 1.0 (pow (tan x) 2.0))) (cos x)))))
eps))
double code(double x, double eps) {
return fma(eps, fma(pow(-sin(x), 2.0), pow((1.0 / cos(x)), 2.0), (eps * fma(eps, 0.3333333333333333, ((sin(x) * (1.0 + pow(tan(x), 2.0))) / cos(x))))), eps);
}
function code(x, eps) return fma(eps, fma((Float64(-sin(x)) ^ 2.0), (Float64(1.0 / cos(x)) ^ 2.0), Float64(eps * fma(eps, 0.3333333333333333, Float64(Float64(sin(x) * Float64(1.0 + (tan(x) ^ 2.0))) / cos(x))))), eps) end
code[x_, eps_] := N[(eps * N[(N[Power[(-N[Sin[x], $MachinePrecision]), 2.0], $MachinePrecision] * N[Power[N[(1.0 / N[Cos[x], $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(eps * N[(eps * 0.3333333333333333 + N[(N[(N[Sin[x], $MachinePrecision] * N[(1.0 + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left({\left(-\sin x\right)}^{2}, {\left(\frac{1}{\cos x}\right)}^{2}, \varepsilon \cdot \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \frac{\sin x \cdot \left(1 + {\tan x}^{2}\right)}{\cos x}\right)\right), \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Applied rewrites100.0%
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.8%
Final simplification99.8%
(FPCore (x eps) :precision binary64 (fma (fma eps (+ (/ (sin x) (cos x)) (/ (pow (sin x) 3.0) (pow (cos x) 3.0))) (pow (tan x) 2.0)) eps eps))
double code(double x, double eps) {
return fma(fma(eps, ((sin(x) / cos(x)) + (pow(sin(x), 3.0) / pow(cos(x), 3.0))), pow(tan(x), 2.0)), eps, eps);
}
function code(x, eps) return fma(fma(eps, Float64(Float64(sin(x) / cos(x)) + Float64((sin(x) ^ 3.0) / (cos(x) ^ 3.0))), (tan(x) ^ 2.0)), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[(N[Power[N[Sin[x], $MachinePrecision], 3.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \frac{\sin x}{\cos x} + \frac{{\sin x}^{3}}{{\cos x}^{3}}, {\tan x}^{2}\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in eps around 0
Applied rewrites99.8%
(FPCore (x eps)
:precision binary64
(fma
eps
(fma
(sin x)
(* (sin x) (/ -1.0 (fma (cos (+ x x)) -0.5 -0.5)))
(*
eps
(fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x))))
eps))
double code(double x, double eps) {
return fma(eps, fma(sin(x), (sin(x) * (-1.0 / fma(cos((x + x)), -0.5, -0.5))), (eps * fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)))), eps);
}
function code(x, eps) return fma(eps, fma(sin(x), Float64(sin(x) * Float64(-1.0 / fma(cos(Float64(x + x)), -0.5, -0.5))), Float64(eps * fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)))), eps) end
code[x_, eps_] := N[(eps * N[(N[Sin[x], $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] * N[(-1.0 / N[(N[Cos[N[(x + x), $MachinePrecision]], $MachinePrecision] * -0.5 + -0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\sin x, \sin x \cdot \frac{-1}{\mathsf{fma}\left(\cos \left(x + x\right), -0.5, -0.5\right)}, \varepsilon \cdot \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right)\right), \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Final simplification99.4%
(FPCore (x eps) :precision binary64 (fma (fma eps (fma 0.3333333333333333 eps x) (pow (tan x) 2.0)) eps eps))
double code(double x, double eps) {
return fma(fma(eps, fma(0.3333333333333333, eps, x), pow(tan(x), 2.0)), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(0.3333333333333333, eps, x), (tan(x) ^ 2.0)), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(0.3333333333333333 * eps + x), $MachinePrecision] + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(0.3333333333333333, \varepsilon, x\right), {\tan x}^{2}\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in eps around 0
Applied rewrites99.4%
(FPCore (x eps) :precision binary64 (fma (fma eps (* eps 0.3333333333333333) (pow (tan x) 2.0)) eps eps))
double code(double x, double eps) {
return fma(fma(eps, (eps * 0.3333333333333333), pow(tan(x), 2.0)), eps, eps);
}
function code(x, eps) return fma(fma(eps, Float64(eps * 0.3333333333333333), (tan(x) ^ 2.0)), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333), $MachinePrecision] + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \varepsilon \cdot 0.3333333333333333, {\tan x}^{2}\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites99.3%
Final simplification99.3%
(FPCore (x eps)
:precision binary64
(fma
(fma
eps
(fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x))
(pow
(*
x
(fma
(* x x)
(fma
(* x x)
(fma (* x x) 0.05396825396825397 0.13333333333333333)
0.3333333333333333)
1.0))
2.0))
eps
eps))
double code(double x, double eps) {
return fma(fma(eps, fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)), pow((x * fma((x * x), fma((x * x), fma((x * x), 0.05396825396825397, 0.13333333333333333), 0.3333333333333333), 1.0)), 2.0)), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)), (Float64(x * fma(Float64(x * x), fma(Float64(x * x), fma(Float64(x * x), 0.05396825396825397, 0.13333333333333333), 0.3333333333333333), 1.0)) ^ 2.0)), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] + N[Power[N[(x * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.05396825396825397 + 0.13333333333333333), $MachinePrecision] + 0.3333333333333333), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right), {\left(x \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.05396825396825397, 0.13333333333333333\right), 0.3333333333333333\right), 1\right)\right)}^{2}\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites99.0%
Final simplification99.0%
(FPCore (x eps)
:precision binary64
(fma
(fma
eps
(fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x))
(*
(* x x)
(fma
(* x x)
(fma
(* x x)
(fma (* x x) 0.19682539682539682 0.37777777777777777)
0.6666666666666666)
1.0)))
eps
eps))
double code(double x, double eps) {
return fma(fma(eps, fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)), ((x * x) * fma((x * x), fma((x * x), fma((x * x), 0.19682539682539682, 0.37777777777777777), 0.6666666666666666), 1.0))), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)), Float64(Float64(x * x) * fma(Float64(x * x), fma(Float64(x * x), fma(Float64(x * x), 0.19682539682539682, 0.37777777777777777), 0.6666666666666666), 1.0))), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] + N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.19682539682539682 + 0.37777777777777777), $MachinePrecision] + 0.6666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right), \left(x \cdot x\right) \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.19682539682539682, 0.37777777777777777\right), 0.6666666666666666\right), 1\right)\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites99.0%
Final simplification99.0%
(FPCore (x eps)
:precision binary64
(fma
(fma
eps
(fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x))
(*
(* x x)
(fma (* x x) (fma (* x x) 0.37777777777777777 0.6666666666666666) 1.0)))
eps
eps))
double code(double x, double eps) {
return fma(fma(eps, fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)), ((x * x) * fma((x * x), fma((x * x), 0.37777777777777777, 0.6666666666666666), 1.0))), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)), Float64(Float64(x * x) * fma(Float64(x * x), fma(Float64(x * x), 0.37777777777777777, 0.6666666666666666), 1.0))), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] + N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.37777777777777777 + 0.6666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right), \left(x \cdot x\right) \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.37777777777777777, 0.6666666666666666\right), 1\right)\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites98.9%
Final simplification98.9%
(FPCore (x eps) :precision binary64 (fma (fma eps (fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x)) (* (* x x) (fma 0.6666666666666666 (* x x) 1.0))) eps eps))
double code(double x, double eps) {
return fma(fma(eps, fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)), ((x * x) * fma(0.6666666666666666, (x * x), 1.0))), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)), Float64(Float64(x * x) * fma(0.6666666666666666, Float64(x * x), 1.0))), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] + N[(N[(x * x), $MachinePrecision] * N[(0.6666666666666666 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right), \left(x \cdot x\right) \cdot \mathsf{fma}\left(0.6666666666666666, x \cdot x, 1\right)\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites98.8%
Final simplification98.8%
(FPCore (x eps) :precision binary64 (fma (fma eps (fma eps 0.3333333333333333 (fma (* eps eps) (* x 0.6666666666666666) x)) (* x x)) eps eps))
double code(double x, double eps) {
return fma(fma(eps, fma(eps, 0.3333333333333333, fma((eps * eps), (x * 0.6666666666666666), x)), (x * x)), eps, eps);
}
function code(x, eps) return fma(fma(eps, fma(eps, 0.3333333333333333, fma(Float64(eps * eps), Float64(x * 0.6666666666666666), x)), Float64(x * x)), eps, eps) end
code[x_, eps_] := N[(N[(eps * N[(eps * 0.3333333333333333 + N[(N[(eps * eps), $MachinePrecision] * N[(x * 0.6666666666666666), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] + N[(x * x), $MachinePrecision]), $MachinePrecision] * eps + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\varepsilon, \mathsf{fma}\left(\varepsilon, 0.3333333333333333, \mathsf{fma}\left(\varepsilon \cdot \varepsilon, x \cdot 0.6666666666666666, x\right)\right), x \cdot x\right), \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites99.4%
Applied rewrites99.4%
Taylor expanded in x around 0
Applied rewrites98.6%
Final simplification98.6%
(FPCore (x eps) :precision binary64 (fma eps (* 0.3333333333333333 (* eps eps)) eps))
double code(double x, double eps) {
return fma(eps, (0.3333333333333333 * (eps * eps)), eps);
}
function code(x, eps) return fma(eps, Float64(0.3333333333333333 * Float64(eps * eps)), eps) end
code[x_, eps_] := N[(eps * N[(0.3333333333333333 * N[(eps * eps), $MachinePrecision]), $MachinePrecision] + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\varepsilon, 0.3333333333333333 \cdot \left(\varepsilon \cdot \varepsilon\right), \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites97.9%
(FPCore (x eps) :precision binary64 (fma eps (* x eps) eps))
double code(double x, double eps) {
return fma(eps, (x * eps), eps);
}
function code(x, eps) return fma(eps, Float64(x * eps), eps) end
code[x_, eps_] := N[(eps * N[(x * eps), $MachinePrecision] + eps), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\varepsilon, x \cdot \varepsilon, \varepsilon\right)
\end{array}
Initial program 63.6%
Taylor expanded in eps around 0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites97.9%
Taylor expanded in x around 0
Applied rewrites97.9%
Taylor expanded in eps around 0
Applied rewrites97.9%
(FPCore (x eps) :precision binary64 (/ (sin eps) (* (cos x) (cos (+ x eps)))))
double code(double x, double eps) {
return sin(eps) / (cos(x) * cos((x + eps)));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = sin(eps) / (cos(x) * cos((x + eps)))
end function
public static double code(double x, double eps) {
return Math.sin(eps) / (Math.cos(x) * Math.cos((x + eps)));
}
def code(x, eps): return math.sin(eps) / (math.cos(x) * math.cos((x + eps)))
function code(x, eps) return Float64(sin(eps) / Float64(cos(x) * cos(Float64(x + eps)))) end
function tmp = code(x, eps) tmp = sin(eps) / (cos(x) * cos((x + eps))); end
code[x_, eps_] := N[(N[Sin[eps], $MachinePrecision] / N[(N[Cos[x], $MachinePrecision] * N[Cos[N[(x + eps), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sin \varepsilon}{\cos x \cdot \cos \left(x + \varepsilon\right)}
\end{array}
(FPCore (x eps) :precision binary64 (- (/ (+ (tan x) (tan eps)) (- 1.0 (* (tan x) (tan eps)))) (tan x)))
double code(double x, double eps) {
return ((tan(x) + tan(eps)) / (1.0 - (tan(x) * tan(eps)))) - tan(x);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = ((tan(x) + tan(eps)) / (1.0d0 - (tan(x) * tan(eps)))) - tan(x)
end function
public static double code(double x, double eps) {
return ((Math.tan(x) + Math.tan(eps)) / (1.0 - (Math.tan(x) * Math.tan(eps)))) - Math.tan(x);
}
def code(x, eps): return ((math.tan(x) + math.tan(eps)) / (1.0 - (math.tan(x) * math.tan(eps)))) - math.tan(x)
function code(x, eps) return Float64(Float64(Float64(tan(x) + tan(eps)) / Float64(1.0 - Float64(tan(x) * tan(eps)))) - tan(x)) end
function tmp = code(x, eps) tmp = ((tan(x) + tan(eps)) / (1.0 - (tan(x) * tan(eps)))) - tan(x); end
code[x_, eps_] := N[(N[(N[(N[Tan[x], $MachinePrecision] + N[Tan[eps], $MachinePrecision]), $MachinePrecision] / N[(1.0 - N[(N[Tan[x], $MachinePrecision] * N[Tan[eps], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon} - \tan x
\end{array}
(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 2024222
(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 (/ (sin eps) (* (cos x) (cos (+ x eps)))))
:alt
(! :herbie-platform default (- (/ (+ (tan x) (tan eps)) (- 1 (* (tan x) (tan eps)))) (tan x)))
:alt
(! :herbie-platform default (+ eps (* eps (tan x) (tan x))))
(- (tan (+ x eps)) (tan x)))