
(FPCore (x y z a) :precision binary64 (+ x (- (tan (+ y z)) (tan a))))
double code(double x, double y, double z, double a) {
return x + (tan((y + z)) - tan(a));
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = x + (tan((y + z)) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (Math.tan((y + z)) - Math.tan(a));
}
def code(x, y, z, a): return x + (math.tan((y + z)) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(tan(Float64(y + z)) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (tan((y + z)) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\tan \left(y + z\right) - \tan a\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 9 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z a) :precision binary64 (+ x (- (tan (+ y z)) (tan a))))
double code(double x, double y, double z, double a) {
return x + (tan((y + z)) - tan(a));
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = x + (tan((y + z)) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (Math.tan((y + z)) - Math.tan(a));
}
def code(x, y, z, a): return x + (math.tan((y + z)) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(tan(Float64(y + z)) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (tan((y + z)) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\tan \left(y + z\right) - \tan a\right)
\end{array}
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (fma (- (tan z)) (tan y) -1.0)))
(+
(-
(/
(+ (tan y) (tan z))
(+ (/ -1.0 t_0) (/ (pow (* (tan y) (tan z)) 2.0) t_0)))
(tan a))
x)))
double code(double x, double y, double z, double a) {
double t_0 = fma(-tan(z), tan(y), -1.0);
return (((tan(y) + tan(z)) / ((-1.0 / t_0) + (pow((tan(y) * tan(z)), 2.0) / t_0))) - tan(a)) + x;
}
function code(x, y, z, a) t_0 = fma(Float64(-tan(z)), tan(y), -1.0) return Float64(Float64(Float64(Float64(tan(y) + tan(z)) / Float64(Float64(-1.0 / t_0) + Float64((Float64(tan(y) * tan(z)) ^ 2.0) / t_0))) - tan(a)) + x) end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + -1.0), $MachinePrecision]}, N[(N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] / N[(N[(-1.0 / t$95$0), $MachinePrecision] + N[(N[Power[N[(N[Tan[y], $MachinePrecision] * N[Tan[z], $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(-\tan z, \tan y, -1\right)\\
\left(\frac{\tan y + \tan z}{\frac{-1}{t\_0} + \frac{{\left(\tan y \cdot \tan z\right)}^{2}}{t\_0}} - \tan a\right) + x
\end{array}
\end{array}
Initial program 79.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
lift-fma.f64N/A
flip-+N/A
metadata-evalN/A
div-subN/A
lower--.f64N/A
Applied rewrites99.7%
lift--.f64N/A
sub-negN/A
lower-+.f64N/A
lift-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-pow.f64N/A
unpow-1N/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6499.7
Applied rewrites99.7%
Final simplification99.7%
(FPCore (x y z a) :precision binary64 (+ (- (/ (+ (tan y) (tan z)) (fma (- (tan z)) (tan y) 1.0)) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(y) + tan(z)) / fma(-tan(z), tan(y), 1.0)) - tan(a)) + x;
}
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(y) + tan(z)) / fma(Float64(-tan(z)), tan(y), 1.0)) - tan(a)) + x) end
code[x_, y_, z_, a_] := N[(N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] / N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan y + \tan z}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \tan a\right) + x
\end{array}
Initial program 79.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
Final simplification99.7%
(FPCore (x y z a) :precision binary64 (+ (- (/ (+ (tan y) (tan z)) (- 1.0 (* (tan y) (tan z)))) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(z)))) - tan(a)) + x;
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = (((tan(y) + tan(z)) / (1.0d0 - (tan(y) * tan(z)))) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (((Math.tan(y) + Math.tan(z)) / (1.0 - (Math.tan(y) * Math.tan(z)))) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (((math.tan(y) + math.tan(z)) / (1.0 - (math.tan(y) * math.tan(z)))) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(y) + tan(z)) / Float64(1.0 - Float64(tan(y) * tan(z)))) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(z)))) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] / N[(1.0 - N[(N[Tan[y], $MachinePrecision] * N[Tan[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z} - \tan a\right) + x
\end{array}
Initial program 79.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
lift-fma.f64N/A
+-commutativeN/A
lift-neg.f64N/A
cancel-sign-sub-invN/A
lift-tan.f64N/A
lift-tan.f64N/A
lower--.f64N/A
lift-tan.f64N/A
lift-tan.f64N/A
*-commutativeN/A
lower-*.f6499.7
Applied rewrites99.7%
Final simplification99.7%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (+ (tan y) (tan z))))
(if (<= a -0.005)
(+ (- (/ t_0 1.0) (tan a)) x)
(if (<= a 3.8e-6)
(+
(-
(/ t_0 (fma (- (tan z)) (tan y) 1.0))
(* (fma (* a a) 0.3333333333333333 1.0) a))
x)
(+ (- (tan (+ y z)) (tan a)) x)))))
double code(double x, double y, double z, double a) {
double t_0 = tan(y) + tan(z);
double tmp;
if (a <= -0.005) {
tmp = ((t_0 / 1.0) - tan(a)) + x;
} else if (a <= 3.8e-6) {
tmp = ((t_0 / fma(-tan(z), tan(y), 1.0)) - (fma((a * a), 0.3333333333333333, 1.0) * a)) + x;
} else {
tmp = (tan((y + z)) - tan(a)) + x;
}
return tmp;
}
function code(x, y, z, a) t_0 = Float64(tan(y) + tan(z)) tmp = 0.0 if (a <= -0.005) tmp = Float64(Float64(Float64(t_0 / 1.0) - tan(a)) + x); elseif (a <= 3.8e-6) tmp = Float64(Float64(Float64(t_0 / fma(Float64(-tan(z)), tan(y), 1.0)) - Float64(fma(Float64(a * a), 0.3333333333333333, 1.0) * a)) + x); else tmp = Float64(Float64(tan(Float64(y + z)) - tan(a)) + x); end return tmp end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -0.005], N[(N[(N[(t$95$0 / 1.0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], If[LessEqual[a, 3.8e-6], N[(N[(N[(t$95$0 / N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(a * a), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], N[(N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan y + \tan z\\
\mathbf{if}\;a \leq -0.005:\\
\;\;\;\;\left(\frac{t\_0}{1} - \tan a\right) + x\\
\mathbf{elif}\;a \leq 3.8 \cdot 10^{-6}:\\
\;\;\;\;\left(\frac{t\_0}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \mathsf{fma}\left(a \cdot a, 0.3333333333333333, 1\right) \cdot a\right) + x\\
\mathbf{else}:\\
\;\;\;\;\left(\tan \left(y + z\right) - \tan a\right) + x\\
\end{array}
\end{array}
if a < -0.0050000000000000001Initial program 77.5%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.6
Applied rewrites99.6%
Taylor expanded in y around 0
Applied rewrites78.1%
if -0.0050000000000000001 < a < 3.8e-6Initial program 81.0%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
Taylor expanded in a around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6499.7
Applied rewrites99.7%
if 3.8e-6 < a Initial program 79.3%
Final simplification89.2%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (+ (tan y) (tan z))))
(if (<= a -3.9e-10)
(+ (- (/ t_0 1.0) (tan a)) x)
(if (<= a 1.95e-12)
(- (/ t_0 (- 1.0 (* (tan y) (tan z)))) (- x))
(+ (- (tan (+ y z)) (tan a)) x)))))
double code(double x, double y, double z, double a) {
double t_0 = tan(y) + tan(z);
double tmp;
if (a <= -3.9e-10) {
tmp = ((t_0 / 1.0) - tan(a)) + x;
} else if (a <= 1.95e-12) {
tmp = (t_0 / (1.0 - (tan(y) * tan(z)))) - -x;
} else {
tmp = (tan((y + z)) - tan(a)) + x;
}
return tmp;
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
real(8) :: t_0
real(8) :: tmp
t_0 = tan(y) + tan(z)
if (a <= (-3.9d-10)) then
tmp = ((t_0 / 1.0d0) - tan(a)) + x
else if (a <= 1.95d-12) then
tmp = (t_0 / (1.0d0 - (tan(y) * tan(z)))) - -x
else
tmp = (tan((y + z)) - tan(a)) + x
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double t_0 = Math.tan(y) + Math.tan(z);
double tmp;
if (a <= -3.9e-10) {
tmp = ((t_0 / 1.0) - Math.tan(a)) + x;
} else if (a <= 1.95e-12) {
tmp = (t_0 / (1.0 - (Math.tan(y) * Math.tan(z)))) - -x;
} else {
tmp = (Math.tan((y + z)) - Math.tan(a)) + x;
}
return tmp;
}
def code(x, y, z, a): t_0 = math.tan(y) + math.tan(z) tmp = 0 if a <= -3.9e-10: tmp = ((t_0 / 1.0) - math.tan(a)) + x elif a <= 1.95e-12: tmp = (t_0 / (1.0 - (math.tan(y) * math.tan(z)))) - -x else: tmp = (math.tan((y + z)) - math.tan(a)) + x return tmp
function code(x, y, z, a) t_0 = Float64(tan(y) + tan(z)) tmp = 0.0 if (a <= -3.9e-10) tmp = Float64(Float64(Float64(t_0 / 1.0) - tan(a)) + x); elseif (a <= 1.95e-12) tmp = Float64(Float64(t_0 / Float64(1.0 - Float64(tan(y) * tan(z)))) - Float64(-x)); else tmp = Float64(Float64(tan(Float64(y + z)) - tan(a)) + x); end return tmp end
function tmp_2 = code(x, y, z, a) t_0 = tan(y) + tan(z); tmp = 0.0; if (a <= -3.9e-10) tmp = ((t_0 / 1.0) - tan(a)) + x; elseif (a <= 1.95e-12) tmp = (t_0 / (1.0 - (tan(y) * tan(z)))) - -x; else tmp = (tan((y + z)) - tan(a)) + x; end tmp_2 = tmp; end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -3.9e-10], N[(N[(N[(t$95$0 / 1.0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], If[LessEqual[a, 1.95e-12], N[(N[(t$95$0 / N[(1.0 - N[(N[Tan[y], $MachinePrecision] * N[Tan[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - (-x)), $MachinePrecision], N[(N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan y + \tan z\\
\mathbf{if}\;a \leq -3.9 \cdot 10^{-10}:\\
\;\;\;\;\left(\frac{t\_0}{1} - \tan a\right) + x\\
\mathbf{elif}\;a \leq 1.95 \cdot 10^{-12}:\\
\;\;\;\;\frac{t\_0}{1 - \tan y \cdot \tan z} - \left(-x\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\tan \left(y + z\right) - \tan a\right) + x\\
\end{array}
\end{array}
if a < -3.9e-10Initial program 77.5%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.6
Applied rewrites99.6%
Taylor expanded in y around 0
Applied rewrites78.1%
if -3.9e-10 < a < 1.94999999999999997e-12Initial program 81.0%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6481.0
Applied rewrites81.0%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6481.0
Applied rewrites81.0%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
lower-/.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lift-tan.f64N/A
lift-tan.f64N/A
lift-*.f64N/A
lower--.f6499.7
lift-*.f64N/A
*-commutativeN/A
lower-*.f6499.7
Applied rewrites99.7%
if 1.94999999999999997e-12 < a Initial program 79.3%
Final simplification89.2%
(FPCore (x y z a) :precision binary64 (+ (- (/ (+ (tan y) (tan z)) 1.0) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(y) + tan(z)) / 1.0) - tan(a)) + x;
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = (((tan(y) + tan(z)) / 1.0d0) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (((Math.tan(y) + Math.tan(z)) / 1.0) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (((math.tan(y) + math.tan(z)) / 1.0) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(y) + tan(z)) / 1.0) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (((tan(y) + tan(z)) / 1.0) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] / 1.0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan y + \tan z}{1} - \tan a\right) + x
\end{array}
Initial program 79.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-tan.f64N/A
lower-tan.f64N/A
sub-negN/A
+-commutativeN/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
Taylor expanded in y around 0
Applied rewrites79.8%
Final simplification79.8%
(FPCore (x y z a) :precision binary64 (+ (- (tan (+ y z)) (tan a)) x))
double code(double x, double y, double z, double a) {
return (tan((y + z)) - tan(a)) + x;
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = (tan((y + z)) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (Math.tan((y + z)) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (math.tan((y + z)) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(tan(Float64(y + z)) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (tan((y + z)) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\tan \left(y + z\right) - \tan a\right) + x
\end{array}
Initial program 79.7%
Final simplification79.7%
(FPCore (x y z a) :precision binary64 (- (tan (+ y z)) (- x)))
double code(double x, double y, double z, double a) {
return tan((y + z)) - -x;
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = tan((y + z)) - -x
end function
public static double code(double x, double y, double z, double a) {
return Math.tan((y + z)) - -x;
}
def code(x, y, z, a): return math.tan((y + z)) - -x
function code(x, y, z, a) return Float64(tan(Float64(y + z)) - Float64(-x)) end
function tmp = code(x, y, z, a) tmp = tan((y + z)) - -x; end
code[x_, y_, z_, a_] := N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision]
\begin{array}{l}
\\
\tan \left(y + z\right) - \left(-x\right)
\end{array}
Initial program 79.7%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6479.7
Applied rewrites79.7%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6452.1
Applied rewrites52.1%
Final simplification52.1%
(FPCore (x y z a) :precision binary64 (/ 1.0 (/ 1.0 x)))
double code(double x, double y, double z, double a) {
return 1.0 / (1.0 / x);
}
real(8) function code(x, y, z, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: a
code = 1.0d0 / (1.0d0 / x)
end function
public static double code(double x, double y, double z, double a) {
return 1.0 / (1.0 / x);
}
def code(x, y, z, a): return 1.0 / (1.0 / x)
function code(x, y, z, a) return Float64(1.0 / Float64(1.0 / x)) end
function tmp = code(x, y, z, a) tmp = 1.0 / (1.0 / x); end
code[x_, y_, z_, a_] := N[(1.0 / N[(1.0 / x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\frac{1}{x}}
\end{array}
Initial program 79.7%
lift-+.f64N/A
flip3-+N/A
clear-numN/A
lower-/.f64N/A
clear-numN/A
flip3-+N/A
lift-+.f64N/A
lower-/.f6479.6
Applied rewrites79.6%
Taylor expanded in x around inf
lower-/.f6429.0
Applied rewrites29.0%
herbie shell --seed 2024331
(FPCore (x y z a)
:name "tan-example (used to crash)"
:precision binary64
:pre (and (and (and (or (== x 0.0) (and (<= 0.5884142 x) (<= x 505.5909))) (or (and (<= -1.796658e+308 y) (<= y -9.425585e-310)) (and (<= 1.284938e-309 y) (<= y 1.751224e+308)))) (or (and (<= -1.776707e+308 z) (<= z -8.599796e-310)) (and (<= 3.293145e-311 z) (<= z 1.725154e+308)))) (or (and (<= -1.796658e+308 a) (<= a -9.425585e-310)) (and (<= 1.284938e-309 a) (<= a 1.751224e+308))))
(+ x (- (tan (+ y z)) (tan a))))