
(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 6 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) 2.0) (pow (cos x) 2.0)))
(t_1 (/ (pow (sin x) 3.0) (pow (cos x) 3.0)))
(t_2 (* -0.3333333333333333 t_1))
(t_3 (/ (* (sin x) (+ 0.3333333333333333 t_0)) (cos x)))
(t_4 (/ (pow (sin x) 4.0) (pow (cos x) 4.0)))
(t_5 (* -0.3333333333333333 (tan x)))
(t_6 (* -0.3333333333333333 t_0))
(t_7 (/ (* (sin x) (- t_4 t_6)) (cos x))))
(*
eps
(+
t_0
(+
(*
eps
(+
(*
eps
(+
(+
0.3333333333333333
(*
eps
(-
(- t_3 (+ t_5 (- t_2 t_7)))
(*
eps
(-
(-
t_6
(-
(-
(+
(/ (* (sin x) (- t_7 t_2)) (cos x))
(/ (* (sin x) (- t_3 t_5)) (cos x)))
(* t_0 -0.13333333333333333))
(* -0.3333333333333333 t_4)))
0.13333333333333333)))))
(- t_0 (- t_6 t_4))))
(+ t_1 (/ (sin x) (cos x)))))
1.0)))))
double code(double x, double eps) {
double t_0 = pow(sin(x), 2.0) / pow(cos(x), 2.0);
double t_1 = pow(sin(x), 3.0) / pow(cos(x), 3.0);
double t_2 = -0.3333333333333333 * t_1;
double t_3 = (sin(x) * (0.3333333333333333 + t_0)) / cos(x);
double t_4 = pow(sin(x), 4.0) / pow(cos(x), 4.0);
double t_5 = -0.3333333333333333 * tan(x);
double t_6 = -0.3333333333333333 * t_0;
double t_7 = (sin(x) * (t_4 - t_6)) / cos(x);
return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((t_3 - (t_5 + (t_2 - t_7))) - (eps * ((t_6 - (((((sin(x) * (t_7 - t_2)) / cos(x)) + ((sin(x) * (t_3 - t_5)) / cos(x))) - (t_0 * -0.13333333333333333)) - (-0.3333333333333333 * t_4))) - 0.13333333333333333))))) + (t_0 - (t_6 - t_4)))) + (t_1 + (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) ** 2.0d0) / (cos(x) ** 2.0d0)
t_1 = (sin(x) ** 3.0d0) / (cos(x) ** 3.0d0)
t_2 = (-0.3333333333333333d0) * t_1
t_3 = (sin(x) * (0.3333333333333333d0 + t_0)) / cos(x)
t_4 = (sin(x) ** 4.0d0) / (cos(x) ** 4.0d0)
t_5 = (-0.3333333333333333d0) * tan(x)
t_6 = (-0.3333333333333333d0) * t_0
t_7 = (sin(x) * (t_4 - t_6)) / cos(x)
code = eps * (t_0 + ((eps * ((eps * ((0.3333333333333333d0 + (eps * ((t_3 - (t_5 + (t_2 - t_7))) - (eps * ((t_6 - (((((sin(x) * (t_7 - t_2)) / cos(x)) + ((sin(x) * (t_3 - t_5)) / cos(x))) - (t_0 * (-0.13333333333333333d0))) - ((-0.3333333333333333d0) * t_4))) - 0.13333333333333333d0))))) + (t_0 - (t_6 - t_4)))) + (t_1 + (sin(x) / 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);
double t_1 = Math.pow(Math.sin(x), 3.0) / Math.pow(Math.cos(x), 3.0);
double t_2 = -0.3333333333333333 * t_1;
double t_3 = (Math.sin(x) * (0.3333333333333333 + t_0)) / Math.cos(x);
double t_4 = Math.pow(Math.sin(x), 4.0) / Math.pow(Math.cos(x), 4.0);
double t_5 = -0.3333333333333333 * Math.tan(x);
double t_6 = -0.3333333333333333 * t_0;
double t_7 = (Math.sin(x) * (t_4 - t_6)) / Math.cos(x);
return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((t_3 - (t_5 + (t_2 - t_7))) - (eps * ((t_6 - (((((Math.sin(x) * (t_7 - t_2)) / Math.cos(x)) + ((Math.sin(x) * (t_3 - t_5)) / Math.cos(x))) - (t_0 * -0.13333333333333333)) - (-0.3333333333333333 * t_4))) - 0.13333333333333333))))) + (t_0 - (t_6 - t_4)))) + (t_1 + (Math.sin(x) / 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) t_1 = math.pow(math.sin(x), 3.0) / math.pow(math.cos(x), 3.0) t_2 = -0.3333333333333333 * t_1 t_3 = (math.sin(x) * (0.3333333333333333 + t_0)) / math.cos(x) t_4 = math.pow(math.sin(x), 4.0) / math.pow(math.cos(x), 4.0) t_5 = -0.3333333333333333 * math.tan(x) t_6 = -0.3333333333333333 * t_0 t_7 = (math.sin(x) * (t_4 - t_6)) / math.cos(x) return eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((t_3 - (t_5 + (t_2 - t_7))) - (eps * ((t_6 - (((((math.sin(x) * (t_7 - t_2)) / math.cos(x)) + ((math.sin(x) * (t_3 - t_5)) / math.cos(x))) - (t_0 * -0.13333333333333333)) - (-0.3333333333333333 * t_4))) - 0.13333333333333333))))) + (t_0 - (t_6 - t_4)))) + (t_1 + (math.sin(x) / math.cos(x))))) + 1.0))
function code(x, eps) t_0 = Float64((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) t_1 = Float64((sin(x) ^ 3.0) / (cos(x) ^ 3.0)) t_2 = Float64(-0.3333333333333333 * t_1) t_3 = Float64(Float64(sin(x) * Float64(0.3333333333333333 + t_0)) / cos(x)) t_4 = Float64((sin(x) ^ 4.0) / (cos(x) ^ 4.0)) t_5 = Float64(-0.3333333333333333 * tan(x)) t_6 = Float64(-0.3333333333333333 * t_0) t_7 = Float64(Float64(sin(x) * Float64(t_4 - t_6)) / cos(x)) return Float64(eps * Float64(t_0 + Float64(Float64(eps * Float64(Float64(eps * Float64(Float64(0.3333333333333333 + Float64(eps * Float64(Float64(t_3 - Float64(t_5 + Float64(t_2 - t_7))) - Float64(eps * Float64(Float64(t_6 - Float64(Float64(Float64(Float64(Float64(sin(x) * Float64(t_7 - t_2)) / cos(x)) + Float64(Float64(sin(x) * Float64(t_3 - t_5)) / cos(x))) - Float64(t_0 * -0.13333333333333333)) - Float64(-0.3333333333333333 * t_4))) - 0.13333333333333333))))) + Float64(t_0 - Float64(t_6 - t_4)))) + Float64(t_1 + Float64(sin(x) / cos(x))))) + 1.0))) end
function tmp = code(x, eps) t_0 = (sin(x) ^ 2.0) / (cos(x) ^ 2.0); t_1 = (sin(x) ^ 3.0) / (cos(x) ^ 3.0); t_2 = -0.3333333333333333 * t_1; t_3 = (sin(x) * (0.3333333333333333 + t_0)) / cos(x); t_4 = (sin(x) ^ 4.0) / (cos(x) ^ 4.0); t_5 = -0.3333333333333333 * tan(x); t_6 = -0.3333333333333333 * t_0; t_7 = (sin(x) * (t_4 - t_6)) / cos(x); tmp = eps * (t_0 + ((eps * ((eps * ((0.3333333333333333 + (eps * ((t_3 - (t_5 + (t_2 - t_7))) - (eps * ((t_6 - (((((sin(x) * (t_7 - t_2)) / cos(x)) + ((sin(x) * (t_3 - t_5)) / cos(x))) - (t_0 * -0.13333333333333333)) - (-0.3333333333333333 * t_4))) - 0.13333333333333333))))) + (t_0 - (t_6 - t_4)))) + (t_1 + (sin(x) / 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]}, Block[{t$95$1 = N[(N[Power[N[Sin[x], $MachinePrecision], 3.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(-0.3333333333333333 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[Sin[x], $MachinePrecision] * N[(0.3333333333333333 + t$95$0), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Power[N[Sin[x], $MachinePrecision], 4.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 4.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(-0.3333333333333333 * N[Tan[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(-0.3333333333333333 * t$95$0), $MachinePrecision]}, Block[{t$95$7 = N[(N[(N[Sin[x], $MachinePrecision] * N[(t$95$4 - t$95$6), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(t$95$0 + N[(N[(eps * N[(N[(eps * N[(N[(0.3333333333333333 + N[(eps * N[(N[(t$95$3 - N[(t$95$5 + N[(t$95$2 - t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(eps * N[(N[(t$95$6 - N[(N[(N[(N[(N[(N[Sin[x], $MachinePrecision] * N[(t$95$7 - t$95$2), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[(N[(N[Sin[x], $MachinePrecision] * N[(t$95$3 - t$95$5), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t$95$0 * -0.13333333333333333), $MachinePrecision]), $MachinePrecision] - N[(-0.3333333333333333 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 0.13333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 - N[(t$95$6 - t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 + 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}^{2}}{{\cos x}^{2}}\\
t_1 := \frac{{\sin x}^{3}}{{\cos x}^{3}}\\
t_2 := -0.3333333333333333 \cdot t\_1\\
t_3 := \frac{\sin x \cdot \left(0.3333333333333333 + t\_0\right)}{\cos x}\\
t_4 := \frac{{\sin x}^{4}}{{\cos x}^{4}}\\
t_5 := -0.3333333333333333 \cdot \tan x\\
t_6 := -0.3333333333333333 \cdot t\_0\\
t_7 := \frac{\sin x \cdot \left(t\_4 - t\_6\right)}{\cos x}\\
\varepsilon \cdot \left(t\_0 + \left(\varepsilon \cdot \left(\varepsilon \cdot \left(\left(0.3333333333333333 + \varepsilon \cdot \left(\left(t\_3 - \left(t\_5 + \left(t\_2 - t\_7\right)\right)\right) - \varepsilon \cdot \left(\left(t\_6 - \left(\left(\left(\frac{\sin x \cdot \left(t\_7 - t\_2\right)}{\cos x} + \frac{\sin x \cdot \left(t\_3 - t\_5\right)}{\cos x}\right) - t\_0 \cdot -0.13333333333333333\right) - -0.3333333333333333 \cdot t\_4\right)\right) - 0.13333333333333333\right)\right)\right) + \left(t\_0 - \left(t\_6 - t\_4\right)\right)\right) + \left(t\_1 + \frac{\sin x}{\cos x}\right)\right) + 1\right)\right)
\end{array}
\end{array}
Initial program 61.3%
tan-sum61.4%
div-inv61.4%
fma-neg61.4%
Applied egg-rr61.4%
Taylor expanded in eps around 0 100.0%
tan-quot100.0%
pow1100.0%
Applied egg-rr100.0%
unpow1100.0%
Simplified100.0%
tan-quot100.0%
pow1100.0%
Applied egg-rr100.0%
unpow1100.0%
Simplified100.0%
Final simplification100.0%
(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 t_1))
(t_3 (/ (sin x) (cos x)))
(t_4 (/ (pow (sin x) 4.0) (pow (cos x) 4.0))))
(*
eps
(+
t_1
(+
(*
eps
(+
(*
eps
(+
(+
0.3333333333333333
(*
eps
(+
(/ (* (sin x) (+ 0.3333333333333333 t_1)) (cos x))
(-
(-
(/ (* (sin x) (- t_4 t_2)) (cos x))
(* -0.3333333333333333 t_0))
(* -0.3333333333333333 t_3)))))
(- t_1 (- t_2 t_4))))
(+ t_0 t_3)))
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 * t_1;
double t_3 = sin(x) / cos(x);
double t_4 = pow(sin(x), 4.0) / pow(cos(x), 4.0);
return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((sin(x) * (0.3333333333333333 + t_1)) / cos(x)) + ((((sin(x) * (t_4 - t_2)) / cos(x)) - (-0.3333333333333333 * t_0)) - (-0.3333333333333333 * t_3))))) + (t_1 - (t_2 - t_4)))) + (t_0 + t_3))) + 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
t_0 = (sin(x) ** 3.0d0) / (cos(x) ** 3.0d0)
t_1 = (sin(x) ** 2.0d0) / (cos(x) ** 2.0d0)
t_2 = (-0.3333333333333333d0) * t_1
t_3 = sin(x) / cos(x)
t_4 = (sin(x) ** 4.0d0) / (cos(x) ** 4.0d0)
code = eps * (t_1 + ((eps * ((eps * ((0.3333333333333333d0 + (eps * (((sin(x) * (0.3333333333333333d0 + t_1)) / cos(x)) + ((((sin(x) * (t_4 - t_2)) / cos(x)) - ((-0.3333333333333333d0) * t_0)) - ((-0.3333333333333333d0) * t_3))))) + (t_1 - (t_2 - t_4)))) + (t_0 + t_3))) + 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 * t_1;
double t_3 = Math.sin(x) / Math.cos(x);
double t_4 = Math.pow(Math.sin(x), 4.0) / Math.pow(Math.cos(x), 4.0);
return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((Math.sin(x) * (0.3333333333333333 + t_1)) / Math.cos(x)) + ((((Math.sin(x) * (t_4 - t_2)) / Math.cos(x)) - (-0.3333333333333333 * t_0)) - (-0.3333333333333333 * t_3))))) + (t_1 - (t_2 - t_4)))) + (t_0 + t_3))) + 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 * t_1 t_3 = math.sin(x) / math.cos(x) t_4 = math.pow(math.sin(x), 4.0) / math.pow(math.cos(x), 4.0) return eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((math.sin(x) * (0.3333333333333333 + t_1)) / math.cos(x)) + ((((math.sin(x) * (t_4 - t_2)) / math.cos(x)) - (-0.3333333333333333 * t_0)) - (-0.3333333333333333 * t_3))))) + (t_1 - (t_2 - t_4)))) + (t_0 + t_3))) + 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 * t_1) t_3 = Float64(sin(x) / cos(x)) t_4 = Float64((sin(x) ^ 4.0) / (cos(x) ^ 4.0)) return Float64(eps * Float64(t_1 + Float64(Float64(eps * Float64(Float64(eps * Float64(Float64(0.3333333333333333 + Float64(eps * Float64(Float64(Float64(sin(x) * Float64(0.3333333333333333 + t_1)) / cos(x)) + Float64(Float64(Float64(Float64(sin(x) * Float64(t_4 - t_2)) / cos(x)) - Float64(-0.3333333333333333 * t_0)) - Float64(-0.3333333333333333 * t_3))))) + Float64(t_1 - Float64(t_2 - t_4)))) + Float64(t_0 + t_3))) + 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 * t_1; t_3 = sin(x) / cos(x); t_4 = (sin(x) ^ 4.0) / (cos(x) ^ 4.0); tmp = eps * (t_1 + ((eps * ((eps * ((0.3333333333333333 + (eps * (((sin(x) * (0.3333333333333333 + t_1)) / cos(x)) + ((((sin(x) * (t_4 - t_2)) / cos(x)) - (-0.3333333333333333 * t_0)) - (-0.3333333333333333 * t_3))))) + (t_1 - (t_2 - t_4)))) + (t_0 + t_3))) + 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 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Power[N[Sin[x], $MachinePrecision], 4.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 4.0], $MachinePrecision]), $MachinePrecision]}, N[(eps * N[(t$95$1 + N[(N[(eps * N[(N[(eps * N[(N[(0.3333333333333333 + N[(eps * N[(N[(N[(N[Sin[x], $MachinePrecision] * N[(0.3333333333333333 + t$95$1), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[(N[(N[(N[(N[Sin[x], $MachinePrecision] * N[(t$95$4 - t$95$2), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] - N[(-0.3333333333333333 * t$95$0), $MachinePrecision]), $MachinePrecision] - N[(-0.3333333333333333 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[(t$95$2 - t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 + t$95$3), $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 t\_1\\
t_3 := \frac{\sin x}{\cos x}\\
t_4 := \frac{{\sin x}^{4}}{{\cos x}^{4}}\\
\varepsilon \cdot \left(t\_1 + \left(\varepsilon \cdot \left(\varepsilon \cdot \left(\left(0.3333333333333333 + \varepsilon \cdot \left(\frac{\sin x \cdot \left(0.3333333333333333 + t\_1\right)}{\cos x} + \left(\left(\frac{\sin x \cdot \left(t\_4 - t\_2\right)}{\cos x} - -0.3333333333333333 \cdot t\_0\right) - -0.3333333333333333 \cdot t\_3\right)\right)\right) + \left(t\_1 - \left(t\_2 - t\_4\right)\right)\right) + \left(t\_0 + t\_3\right)\right) + 1\right)\right)
\end{array}
\end{array}
Initial program 61.3%
tan-sum61.4%
div-inv61.4%
fma-neg61.4%
Applied egg-rr61.4%
Taylor expanded in eps around 0 100.0%
Final simplification100.0%
(FPCore (x eps) :precision binary64 (* eps (+ (/ (pow (sin x) 2.0) (pow (cos x) 2.0)) 1.0)))
double code(double x, double eps) {
return eps * ((pow(sin(x), 2.0) / pow(cos(x), 2.0)) + 1.0);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps * (((sin(x) ** 2.0d0) / (cos(x) ** 2.0d0)) + 1.0d0)
end function
public static double code(double x, double eps) {
return eps * ((Math.pow(Math.sin(x), 2.0) / Math.pow(Math.cos(x), 2.0)) + 1.0);
}
def code(x, eps): return eps * ((math.pow(math.sin(x), 2.0) / math.pow(math.cos(x), 2.0)) + 1.0)
function code(x, eps) return Float64(eps * Float64(Float64((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) + 1.0)) end
function tmp = code(x, eps) tmp = eps * (((sin(x) ^ 2.0) / (cos(x) ^ 2.0)) + 1.0); end
code[x_, eps_] := N[(eps * N[(N[(N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\varepsilon \cdot \left(\frac{{\sin x}^{2}}{{\cos x}^{2}} + 1\right)
\end{array}
Initial program 61.3%
Taylor expanded in eps around 0 99.7%
sub-neg99.7%
mul-1-neg99.7%
remove-double-neg99.7%
Simplified99.7%
Final simplification99.7%
(FPCore (x eps) :precision binary64 (+ eps (* eps (pow x 2.0))))
double code(double x, double eps) {
return eps + (eps * pow(x, 2.0));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps + (eps * (x ** 2.0d0))
end function
public static double code(double x, double eps) {
return eps + (eps * Math.pow(x, 2.0));
}
def code(x, eps): return eps + (eps * math.pow(x, 2.0))
function code(x, eps) return Float64(eps + Float64(eps * (x ^ 2.0))) end
function tmp = code(x, eps) tmp = eps + (eps * (x ^ 2.0)); end
code[x_, eps_] := N[(eps + N[(eps * N[Power[x, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\varepsilon + \varepsilon \cdot {x}^{2}
\end{array}
Initial program 61.3%
Taylor expanded in eps around 0 99.7%
sub-neg99.7%
mul-1-neg99.7%
remove-double-neg99.7%
Simplified99.7%
Taylor expanded in x around 0 99.7%
*-commutative99.7%
Simplified99.7%
Final simplification99.7%
(FPCore (x eps) :precision binary64 (tan eps))
double code(double x, double eps) {
return tan(eps);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = tan(eps)
end function
public static double code(double x, double eps) {
return Math.tan(eps);
}
def code(x, eps): return math.tan(eps)
function code(x, eps) return tan(eps) end
function tmp = code(x, eps) tmp = tan(eps); end
code[x_, eps_] := N[Tan[eps], $MachinePrecision]
\begin{array}{l}
\\
\tan \varepsilon
\end{array}
Initial program 61.3%
Taylor expanded in x around 0 99.2%
tan-quot99.2%
*-un-lft-identity99.2%
Applied egg-rr99.2%
*-lft-identity99.2%
Simplified99.2%
Final simplification99.2%
(FPCore (x eps) :precision binary64 eps)
double code(double x, double eps) {
return eps;
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = eps
end function
public static double code(double x, double eps) {
return eps;
}
def code(x, eps): return eps
function code(x, eps) return eps end
function tmp = code(x, eps) tmp = eps; end
code[x_, eps_] := eps
\begin{array}{l}
\\
\varepsilon
\end{array}
Initial program 61.3%
Taylor expanded in x around 0 99.2%
Taylor expanded in eps around 0 99.2%
Final simplification99.2%
(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}
herbie shell --seed 2024055
(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
(/ (sin eps) (* (cos x) (cos (+ x eps))))
(- (tan (+ x eps)) (tan x)))