
(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 5 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 (/ (pow (sin x) 3.0) (pow (cos x) 3.0)))
(t_1 (/ (pow (sin x) 2.0) (pow (cos x) 2.0)))
(t_2 (* -0.3333333333333333 (tan x)))
(t_3 (* -0.3333333333333333 t_1))
(t_4 (/ (* (sin x) (+ 0.3333333333333333 t_1)) (cos x)))
(t_5 (/ (pow (sin x) 4.0) (pow (cos x) 4.0)))
(t_6 (- t_3 t_5))
(t_7 (+ (* -0.3333333333333333 t_0) (/ (* (sin x) t_6) (cos x)))))
(*
eps
(+
t_1
(+
(*
eps
(+
(*
eps
(+
(+
0.3333333333333333
(*
eps
(+
(*
eps
(-
0.13333333333333333
(+
t_3
(+
(* -0.3333333333333333 t_5)
(+
(* t_1 -0.13333333333333333)
(+
(/ (* (sin x) (- t_2 t_4)) (cos x))
(/ (* (sin x) t_7) (cos x))))))))
(- t_4 (+ t_2 t_7)))))
(- t_1 t_6)))
(+ t_0 (/ (sin x) (cos x)))))
1.0)))))
double code(double x, double eps) {
double t_0 = pow(sin(x), 3.0) / pow(cos(x), 3.0);
double t_1 = pow(sin(x), 2.0) / pow(cos(x), 2.0);
double t_2 = -0.3333333333333333 * tan(x);
double t_3 = -0.3333333333333333 * t_1;
double t_4 = (sin(x) * (0.3333333333333333 + t_1)) / cos(x);
double t_5 = pow(sin(x), 4.0) / pow(cos(x), 4.0);
double t_6 = t_3 - t_5;
double t_7 = (-0.3333333333333333 * t_0) + ((sin(x) * t_6) / cos(x));
return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((eps * (0.13333333333333333 - (t_3 + ((-0.3333333333333333 * t_5) + ((t_1 * -0.13333333333333333) + (((sin(x) * (t_2 - t_4)) / cos(x)) + ((sin(x) * t_7) / cos(x)))))))) + (t_4 - (t_2 + t_7))))) + (t_1 - t_6))) + (t_0 + (sin(x) / cos(x))))) + 1.0));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
t_0 = (sin(x) ** 3.0d0) / (cos(x) ** 3.0d0)
t_1 = (sin(x) ** 2.0d0) / (cos(x) ** 2.0d0)
t_2 = (-0.3333333333333333d0) * tan(x)
t_3 = (-0.3333333333333333d0) * t_1
t_4 = (sin(x) * (0.3333333333333333d0 + t_1)) / cos(x)
t_5 = (sin(x) ** 4.0d0) / (cos(x) ** 4.0d0)
t_6 = t_3 - t_5
t_7 = ((-0.3333333333333333d0) * t_0) + ((sin(x) * t_6) / cos(x))
code = eps * (t_1 + ((eps * ((eps * ((0.3333333333333333d0 + (eps * ((eps * (0.13333333333333333d0 - (t_3 + (((-0.3333333333333333d0) * t_5) + ((t_1 * (-0.13333333333333333d0)) + (((sin(x) * (t_2 - t_4)) / cos(x)) + ((sin(x) * t_7) / cos(x)))))))) + (t_4 - (t_2 + t_7))))) + (t_1 - t_6))) + (t_0 + (sin(x) / cos(x))))) + 1.0d0))
end function
public static double code(double x, double eps) {
double t_0 = Math.pow(Math.sin(x), 3.0) / Math.pow(Math.cos(x), 3.0);
double t_1 = Math.pow(Math.sin(x), 2.0) / Math.pow(Math.cos(x), 2.0);
double t_2 = -0.3333333333333333 * Math.tan(x);
double t_3 = -0.3333333333333333 * t_1;
double t_4 = (Math.sin(x) * (0.3333333333333333 + t_1)) / Math.cos(x);
double t_5 = Math.pow(Math.sin(x), 4.0) / Math.pow(Math.cos(x), 4.0);
double t_6 = t_3 - t_5;
double t_7 = (-0.3333333333333333 * t_0) + ((Math.sin(x) * t_6) / Math.cos(x));
return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((eps * (0.13333333333333333 - (t_3 + ((-0.3333333333333333 * t_5) + ((t_1 * -0.13333333333333333) + (((Math.sin(x) * (t_2 - t_4)) / Math.cos(x)) + ((Math.sin(x) * t_7) / Math.cos(x)))))))) + (t_4 - (t_2 + t_7))))) + (t_1 - t_6))) + (t_0 + (Math.sin(x) / Math.cos(x))))) + 1.0));
}
def code(x, eps): t_0 = math.pow(math.sin(x), 3.0) / math.pow(math.cos(x), 3.0) t_1 = math.pow(math.sin(x), 2.0) / math.pow(math.cos(x), 2.0) t_2 = -0.3333333333333333 * math.tan(x) t_3 = -0.3333333333333333 * t_1 t_4 = (math.sin(x) * (0.3333333333333333 + t_1)) / math.cos(x) t_5 = math.pow(math.sin(x), 4.0) / math.pow(math.cos(x), 4.0) t_6 = t_3 - t_5 t_7 = (-0.3333333333333333 * t_0) + ((math.sin(x) * t_6) / math.cos(x)) return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((eps * (0.13333333333333333 - (t_3 + ((-0.3333333333333333 * t_5) + ((t_1 * -0.13333333333333333) + (((math.sin(x) * (t_2 - t_4)) / math.cos(x)) + ((math.sin(x) * t_7) / math.cos(x)))))))) + (t_4 - (t_2 + t_7))))) + (t_1 - t_6))) + (t_0 + (math.sin(x) / math.cos(x))))) + 1.0))
function code(x, eps) t_0 = Float64((sin(x) ^ 3.0) / (cos(x) ^ 3.0)) t_1 = Float64((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) t_2 = Float64(-0.3333333333333333 * tan(x)) t_3 = Float64(-0.3333333333333333 * t_1) t_4 = Float64(Float64(sin(x) * Float64(0.3333333333333333 + t_1)) / cos(x)) t_5 = Float64((sin(x) ^ 4.0) / (cos(x) ^ 4.0)) t_6 = Float64(t_3 - t_5) t_7 = Float64(Float64(-0.3333333333333333 * t_0) + Float64(Float64(sin(x) * t_6) / cos(x))) return Float64(eps * Float64(t_1 + Float64(Float64(eps * Float64(Float64(eps * Float64(Float64(0.3333333333333333 + Float64(eps * Float64(Float64(eps * Float64(0.13333333333333333 - Float64(t_3 + Float64(Float64(-0.3333333333333333 * t_5) + Float64(Float64(t_1 * -0.13333333333333333) + Float64(Float64(Float64(sin(x) * Float64(t_2 - t_4)) / cos(x)) + Float64(Float64(sin(x) * t_7) / cos(x)))))))) + Float64(t_4 - Float64(t_2 + t_7))))) + Float64(t_1 - t_6))) + Float64(t_0 + Float64(sin(x) / cos(x))))) + 1.0))) end
function tmp = code(x, eps) t_0 = (sin(x) ^ 3.0) / (cos(x) ^ 3.0); t_1 = (sin(x) ^ 2.0) / (cos(x) ^ 2.0); t_2 = -0.3333333333333333 * tan(x); t_3 = -0.3333333333333333 * t_1; t_4 = (sin(x) * (0.3333333333333333 + t_1)) / cos(x); t_5 = (sin(x) ^ 4.0) / (cos(x) ^ 4.0); t_6 = t_3 - t_5; t_7 = (-0.3333333333333333 * t_0) + ((sin(x) * t_6) / cos(x)); tmp = eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((eps * (0.13333333333333333 - (t_3 + ((-0.3333333333333333 * t_5) + ((t_1 * -0.13333333333333333) + (((sin(x) * (t_2 - t_4)) / cos(x)) + ((sin(x) * t_7) / cos(x)))))))) + (t_4 - (t_2 + t_7))))) + (t_1 - t_6))) + (t_0 + (sin(x) / cos(x))))) + 1.0)); end
code[x_, eps_] := Block[{t$95$0 = N[(N[Power[N[Sin[x], $MachinePrecision], 3.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(-0.3333333333333333 * N[Tan[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(-0.3333333333333333 * t$95$1), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[Sin[x], $MachinePrecision] * N[(0.3333333333333333 + t$95$1), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[Power[N[Sin[x], $MachinePrecision], 4.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 4.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$3 - t$95$5), $MachinePrecision]}, Block[{t$95$7 = N[(N[(-0.3333333333333333 * t$95$0), $MachinePrecision] + N[(N[(N[Sin[x], $MachinePrecision] * t$95$6), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(t$95$1 + N[(N[(eps * N[(N[(eps * N[(N[(0.3333333333333333 + N[(eps * N[(N[(eps * N[(0.13333333333333333 - N[(t$95$3 + N[(N[(-0.3333333333333333 * t$95$5), $MachinePrecision] + N[(N[(t$95$1 * -0.13333333333333333), $MachinePrecision] + N[(N[(N[(N[Sin[x], $MachinePrecision] * N[(t$95$2 - t$95$4), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[(N[(N[Sin[x], $MachinePrecision] * t$95$7), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 - N[(t$95$2 + t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 + N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{{\sin x}^{3}}{{\cos x}^{3}}\\
t_1 := \frac{{\sin x}^{2}}{{\cos x}^{2}}\\
t_2 := -0.3333333333333333 \cdot \tan x\\
t_3 := -0.3333333333333333 \cdot t\_1\\
t_4 := \frac{\sin x \cdot \left(0.3333333333333333 + t\_1\right)}{\cos x}\\
t_5 := \frac{{\sin x}^{4}}{{\cos x}^{4}}\\
t_6 := t\_3 - t\_5\\
t_7 := -0.3333333333333333 \cdot t\_0 + \frac{\sin x \cdot t\_6}{\cos x}\\
\varepsilon \cdot \left(t\_1 + \left(\varepsilon \cdot \left(\varepsilon \cdot \left(\left(0.3333333333333333 + \varepsilon \cdot \left(\varepsilon \cdot \left(0.13333333333333333 - \left(t\_3 + \left(-0.3333333333333333 \cdot t\_5 + \left(t\_1 \cdot -0.13333333333333333 + \left(\frac{\sin x \cdot \left(t\_2 - t\_4\right)}{\cos x} + \frac{\sin x \cdot t\_7}{\cos x}\right)\right)\right)\right)\right) + \left(t\_4 - \left(t\_2 + t\_7\right)\right)\right)\right) + \left(t\_1 - t\_6\right)\right) + \left(t\_0 + \frac{\sin x}{\cos x}\right)\right) + 1\right)\right)
\end{array}
\end{array}
Initial program 62.4%
tan-sum62.7%
div-inv62.7%
fmm-def62.7%
Applied egg-rr62.7%
Taylor expanded in eps around 0 99.9%
tan-quot99.9%
pow199.9%
Applied egg-rr99.9%
unpow199.9%
Simplified99.9%
tan-quot99.9%
pow199.9%
Applied egg-rr99.9%
unpow199.9%
Simplified99.9%
Final simplification99.9%
(FPCore (x eps)
:precision binary64
(let* ((t_0 (/ (pow (sin x) 2.0) (pow (cos x) 2.0)))
(t_1
(-
(* -0.3333333333333333 t_0)
(/ (pow (sin x) 4.0) (pow (cos x) 4.0))))
(t_2 (/ (sin x) (cos x)))
(t_3 (/ (pow (sin x) 3.0) (pow (cos x) 3.0))))
(*
eps
(+
t_0
(+
(*
eps
(+
(*
eps
(+
(+
0.3333333333333333
(*
eps
(-
(/ (* (sin x) (+ 0.3333333333333333 t_0)) (cos x))
(+
(+ (* -0.3333333333333333 t_3) (/ (* (sin x) t_1) (cos x)))
(* -0.3333333333333333 t_2)))))
(- t_0 t_1)))
(+ t_3 t_2)))
1.0)))))
double code(double x, double eps) {
double t_0 = pow(sin(x), 2.0) / pow(cos(x), 2.0);
double t_1 = (-0.3333333333333333 * t_0) - (pow(sin(x), 4.0) / pow(cos(x), 4.0));
double t_2 = sin(x) / cos(x);
double t_3 = pow(sin(x), 3.0) / pow(cos(x), 3.0);
return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((sin(x) * (0.3333333333333333 + t_0)) / cos(x)) - (((-0.3333333333333333 * t_3) + ((sin(x) * t_1) / cos(x))) + (-0.3333333333333333 * t_2))))) + (t_0 - t_1))) + (t_3 + t_2))) + 1.0));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
t_0 = (sin(x) ** 2.0d0) / (cos(x) ** 2.0d0)
t_1 = ((-0.3333333333333333d0) * t_0) - ((sin(x) ** 4.0d0) / (cos(x) ** 4.0d0))
t_2 = sin(x) / cos(x)
t_3 = (sin(x) ** 3.0d0) / (cos(x) ** 3.0d0)
code = eps * (t_0 + ((eps * ((eps * ((0.3333333333333333d0 + (eps * (((sin(x) * (0.3333333333333333d0 + t_0)) / cos(x)) - ((((-0.3333333333333333d0) * t_3) + ((sin(x) * t_1) / cos(x))) + ((-0.3333333333333333d0) * t_2))))) + (t_0 - t_1))) + (t_3 + t_2))) + 1.0d0))
end function
public static double code(double x, double eps) {
double t_0 = Math.pow(Math.sin(x), 2.0) / Math.pow(Math.cos(x), 2.0);
double t_1 = (-0.3333333333333333 * t_0) - (Math.pow(Math.sin(x), 4.0) / Math.pow(Math.cos(x), 4.0));
double t_2 = Math.sin(x) / Math.cos(x);
double t_3 = Math.pow(Math.sin(x), 3.0) / Math.pow(Math.cos(x), 3.0);
return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((Math.sin(x) * (0.3333333333333333 + t_0)) / Math.cos(x)) - (((-0.3333333333333333 * t_3) + ((Math.sin(x) * t_1) / Math.cos(x))) + (-0.3333333333333333 * t_2))))) + (t_0 - t_1))) + (t_3 + t_2))) + 1.0));
}
def code(x, eps): t_0 = math.pow(math.sin(x), 2.0) / math.pow(math.cos(x), 2.0) t_1 = (-0.3333333333333333 * t_0) - (math.pow(math.sin(x), 4.0) / math.pow(math.cos(x), 4.0)) t_2 = math.sin(x) / math.cos(x) t_3 = math.pow(math.sin(x), 3.0) / math.pow(math.cos(x), 3.0) return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((math.sin(x) * (0.3333333333333333 + t_0)) / math.cos(x)) - (((-0.3333333333333333 * t_3) + ((math.sin(x) * t_1) / math.cos(x))) + (-0.3333333333333333 * t_2))))) + (t_0 - t_1))) + (t_3 + t_2))) + 1.0))
function code(x, eps) t_0 = Float64((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) t_1 = Float64(Float64(-0.3333333333333333 * t_0) - Float64((sin(x) ^ 4.0) / (cos(x) ^ 4.0))) t_2 = Float64(sin(x) / cos(x)) t_3 = Float64((sin(x) ^ 3.0) / (cos(x) ^ 3.0)) return Float64(eps * Float64(t_0 + Float64(Float64(eps * Float64(Float64(eps * Float64(Float64(0.3333333333333333 + Float64(eps * Float64(Float64(Float64(sin(x) * Float64(0.3333333333333333 + t_0)) / cos(x)) - Float64(Float64(Float64(-0.3333333333333333 * t_3) + Float64(Float64(sin(x) * t_1) / cos(x))) + Float64(-0.3333333333333333 * t_2))))) + Float64(t_0 - t_1))) + Float64(t_3 + t_2))) + 1.0))) end
function tmp = code(x, eps) t_0 = (sin(x) ^ 2.0) / (cos(x) ^ 2.0); t_1 = (-0.3333333333333333 * t_0) - ((sin(x) ^ 4.0) / (cos(x) ^ 4.0)); t_2 = sin(x) / cos(x); t_3 = (sin(x) ^ 3.0) / (cos(x) ^ 3.0); tmp = eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((sin(x) * (0.3333333333333333 + t_0)) / cos(x)) - (((-0.3333333333333333 * t_3) + ((sin(x) * t_1) / cos(x))) + (-0.3333333333333333 * t_2))))) + (t_0 - t_1))) + (t_3 + t_2))) + 1.0)); end
code[x_, eps_] := Block[{t$95$0 = N[(N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(-0.3333333333333333 * t$95$0), $MachinePrecision] - N[(N[Power[N[Sin[x], $MachinePrecision], 4.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Power[N[Sin[x], $MachinePrecision], 3.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(t$95$0 + N[(N[(eps * N[(N[(eps * N[(N[(0.3333333333333333 + N[(eps * N[(N[(N[(N[Sin[x], $MachinePrecision] * N[(0.3333333333333333 + t$95$0), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] - N[(N[(N[(-0.3333333333333333 * t$95$3), $MachinePrecision] + N[(N[(N[Sin[x], $MachinePrecision] * t$95$1), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.3333333333333333 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 - t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$3 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{{\sin x}^{2}}{{\cos x}^{2}}\\
t_1 := -0.3333333333333333 \cdot t\_0 - \frac{{\sin x}^{4}}{{\cos x}^{4}}\\
t_2 := \frac{\sin x}{\cos x}\\
t_3 := \frac{{\sin x}^{3}}{{\cos x}^{3}}\\
\varepsilon \cdot \left(t\_0 + \left(\varepsilon \cdot \left(\varepsilon \cdot \left(\left(0.3333333333333333 + \varepsilon \cdot \left(\frac{\sin x \cdot \left(0.3333333333333333 + t\_0\right)}{\cos x} - \left(\left(-0.3333333333333333 \cdot t\_3 + \frac{\sin x \cdot t\_1}{\cos x}\right) + -0.3333333333333333 \cdot t\_2\right)\right)\right) + \left(t\_0 - t\_1\right)\right) + \left(t\_3 + t\_2\right)\right) + 1\right)\right)
\end{array}
\end{array}
Initial program 62.4%
tan-sum62.7%
div-inv62.7%
fmm-def62.7%
Applied egg-rr62.7%
Taylor expanded in eps around 0 99.8%
Final simplification99.8%
(FPCore (x eps) :precision binary64 (let* ((t_0 (/ (pow (sin x) 2.0) (pow (cos x) 2.0)))) (* eps (+ (+ t_0 (/ (* (* eps (sin x)) (+ t_0 1.0)) (cos x))) 1.0))))
double code(double x, double eps) {
double t_0 = pow(sin(x), 2.0) / pow(cos(x), 2.0);
return eps * ((t_0 + (((eps * sin(x)) * (t_0 + 1.0)) / cos(x))) + 1.0);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
real(8) :: t_0
t_0 = (sin(x) ** 2.0d0) / (cos(x) ** 2.0d0)
code = eps * ((t_0 + (((eps * sin(x)) * (t_0 + 1.0d0)) / cos(x))) + 1.0d0)
end function
public static double code(double x, double eps) {
double t_0 = Math.pow(Math.sin(x), 2.0) / Math.pow(Math.cos(x), 2.0);
return eps * ((t_0 + (((eps * Math.sin(x)) * (t_0 + 1.0)) / Math.cos(x))) + 1.0);
}
def code(x, eps): t_0 = math.pow(math.sin(x), 2.0) / math.pow(math.cos(x), 2.0) return eps * ((t_0 + (((eps * math.sin(x)) * (t_0 + 1.0)) / math.cos(x))) + 1.0)
function code(x, eps) t_0 = Float64((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) return Float64(eps * Float64(Float64(t_0 + Float64(Float64(Float64(eps * sin(x)) * Float64(t_0 + 1.0)) / cos(x))) + 1.0)) end
function tmp = code(x, eps) t_0 = (sin(x) ^ 2.0) / (cos(x) ^ 2.0); tmp = eps * ((t_0 + (((eps * sin(x)) * (t_0 + 1.0)) / cos(x))) + 1.0); end
code[x_, eps_] := Block[{t$95$0 = N[(N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(N[(t$95$0 + N[(N[(N[(eps * N[Sin[x], $MachinePrecision]), $MachinePrecision] * N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{{\sin x}^{2}}{{\cos x}^{2}}\\
\varepsilon \cdot \left(\left(t\_0 + \frac{\left(\varepsilon \cdot \sin x\right) \cdot \left(t\_0 + 1\right)}{\cos x}\right) + 1\right)
\end{array}
\end{array}
Initial program 62.4%
Taylor expanded in eps around 0 99.9%
Simplified99.9%
Taylor expanded in eps around 0 99.6%
associate-/l*99.6%
+-commutative99.6%
associate-/l*99.6%
associate-*r*99.6%
Simplified99.6%
Final simplification99.6%
(FPCore (x eps) :precision binary64 (* eps (+ (* (pow eps 2.0) (+ 0.3333333333333333 (* 0.6666666666666666 (* eps x)))) 1.0)))
double code(double x, double eps) {
return eps * ((pow(eps, 2.0) * (0.3333333333333333 + (0.6666666666666666 * (eps * x)))) + 1.0);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps * (((eps ** 2.0d0) * (0.3333333333333333d0 + (0.6666666666666666d0 * (eps * x)))) + 1.0d0)
end function
public static double code(double x, double eps) {
return eps * ((Math.pow(eps, 2.0) * (0.3333333333333333 + (0.6666666666666666 * (eps * x)))) + 1.0);
}
def code(x, eps): return eps * ((math.pow(eps, 2.0) * (0.3333333333333333 + (0.6666666666666666 * (eps * x)))) + 1.0)
function code(x, eps) return Float64(eps * Float64(Float64((eps ^ 2.0) * Float64(0.3333333333333333 + Float64(0.6666666666666666 * Float64(eps * x)))) + 1.0)) end
function tmp = code(x, eps) tmp = eps * (((eps ^ 2.0) * (0.3333333333333333 + (0.6666666666666666 * (eps * x)))) + 1.0); end
code[x_, eps_] := N[(eps * N[(N[(N[Power[eps, 2.0], $MachinePrecision] * N[(0.3333333333333333 + N[(0.6666666666666666 * N[(eps * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\varepsilon \cdot \left({\varepsilon}^{2} \cdot \left(0.3333333333333333 + 0.6666666666666666 \cdot \left(\varepsilon \cdot x\right)\right) + 1\right)
\end{array}
Initial program 62.4%
Taylor expanded in eps around 0 99.9%
Simplified99.9%
Taylor expanded in x around 0 98.4%
Taylor expanded in eps around -inf 56.7%
mul-1-neg56.7%
unsub-neg56.7%
*-commutative56.7%
associate-*r/56.7%
metadata-eval56.7%
Simplified56.7%
Taylor expanded in eps around 0 98.5%
Final simplification98.5%
(FPCore (x eps) :precision binary64 (* eps (+ (* eps x) 1.0)))
double code(double x, double eps) {
return eps * ((eps * x) + 1.0);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps * ((eps * x) + 1.0d0)
end function
public static double code(double x, double eps) {
return eps * ((eps * x) + 1.0);
}
def code(x, eps): return eps * ((eps * x) + 1.0)
function code(x, eps) return Float64(eps * Float64(Float64(eps * x) + 1.0)) end
function tmp = code(x, eps) tmp = eps * ((eps * x) + 1.0); end
code[x_, eps_] := N[(eps * N[(N[(eps * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\varepsilon \cdot \left(\varepsilon \cdot x + 1\right)
\end{array}
Initial program 62.4%
Taylor expanded in eps around 0 99.9%
Simplified99.9%
Taylor expanded in eps around 0 99.6%
associate-/l*99.6%
+-commutative99.6%
associate-/l*99.6%
associate-*r*99.6%
Simplified99.6%
Taylor expanded in x around 0 98.4%
Final simplification98.4%
(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 2024179
(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)))