
(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 15 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)))
(+
x
(/
(/ (fma (cos a) (+ (tan y) (tan z)) (* (- (sin a)) t_0)) (cos a))
t_0))))
double code(double x, double y, double z, double a) {
double t_0 = fma(-tan(z), tan(y), 1.0);
return x + ((fma(cos(a), (tan(y) + tan(z)), (-sin(a) * t_0)) / cos(a)) / t_0);
}
function code(x, y, z, a) t_0 = fma(Float64(-tan(z)), tan(y), 1.0) return Float64(x + Float64(Float64(fma(cos(a), Float64(tan(y) + tan(z)), Float64(Float64(-sin(a)) * t_0)) / cos(a)) / t_0)) end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]}, N[(x + N[(N[(N[(N[Cos[a], $MachinePrecision] * N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] + N[((-N[Sin[a], $MachinePrecision]) * t$95$0), $MachinePrecision]), $MachinePrecision] / N[Cos[a], $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(-\tan z, \tan y, 1\right)\\
x + \frac{\frac{\mathsf{fma}\left(\cos a, \tan y + \tan z, \left(-\sin a\right) \cdot t\_0\right)}{\cos a}}{t\_0}
\end{array}
\end{array}
Initial program 78.5%
lift--.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
tan-quotN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites99.7%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites99.7%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (- 1.0 (* (tan z) (tan y)))))
(+
x
(/ (- (* (+ (tan z) (tan y)) (cos a)) (* t_0 (sin a))) (* t_0 (cos a))))))
double code(double x, double y, double z, double a) {
double t_0 = 1.0 - (tan(z) * tan(y));
return x + ((((tan(z) + tan(y)) * cos(a)) - (t_0 * sin(a))) / (t_0 * cos(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
real(8) :: t_0
t_0 = 1.0d0 - (tan(z) * tan(y))
code = x + ((((tan(z) + tan(y)) * cos(a)) - (t_0 * sin(a))) / (t_0 * cos(a)))
end function
public static double code(double x, double y, double z, double a) {
double t_0 = 1.0 - (Math.tan(z) * Math.tan(y));
return x + ((((Math.tan(z) + Math.tan(y)) * Math.cos(a)) - (t_0 * Math.sin(a))) / (t_0 * Math.cos(a)));
}
def code(x, y, z, a): t_0 = 1.0 - (math.tan(z) * math.tan(y)) return x + ((((math.tan(z) + math.tan(y)) * math.cos(a)) - (t_0 * math.sin(a))) / (t_0 * math.cos(a)))
function code(x, y, z, a) t_0 = Float64(1.0 - Float64(tan(z) * tan(y))) return Float64(x + Float64(Float64(Float64(Float64(tan(z) + tan(y)) * cos(a)) - Float64(t_0 * sin(a))) / Float64(t_0 * cos(a)))) end
function tmp = code(x, y, z, a) t_0 = 1.0 - (tan(z) * tan(y)); tmp = x + ((((tan(z) + tan(y)) * cos(a)) - (t_0 * sin(a))) / (t_0 * cos(a))); end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[(1.0 - N[(N[Tan[z], $MachinePrecision] * N[Tan[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(x + N[(N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] * N[Cos[a], $MachinePrecision]), $MachinePrecision] - N[(t$95$0 * N[Sin[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$0 * N[Cos[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 1 - \tan z \cdot \tan y\\
x + \frac{\left(\tan z + \tan y\right) \cdot \cos a - t\_0 \cdot \sin a}{t\_0 \cdot \cos a}
\end{array}
\end{array}
Initial program 78.5%
lift--.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
tan-quotN/A
frac-subN/A
lower-/.f64N/A
Applied rewrites99.7%
(FPCore (x y z a) :precision binary64 (+ x (- (/ (+ (tan z) (tan y)) (- 1.0 (* (tan z) (tan y)))) (tan a))))
double code(double x, double y, double z, double a) {
return x + (((tan(z) + tan(y)) / (1.0 - (tan(z) * tan(y)))) - 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(z) + tan(y)) / (1.0d0 - (tan(z) * tan(y)))) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (((Math.tan(z) + Math.tan(y)) / (1.0 - (Math.tan(z) * Math.tan(y)))) - Math.tan(a));
}
def code(x, y, z, a): return x + (((math.tan(z) + math.tan(y)) / (1.0 - (math.tan(z) * math.tan(y)))) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(Float64(Float64(tan(z) + tan(y)) / Float64(1.0 - Float64(tan(z) * tan(y)))) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (((tan(z) + tan(y)) / (1.0 - (tan(z) * tan(y)))) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] / N[(1.0 - N[(N[Tan[z], $MachinePrecision] * N[Tan[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\frac{\tan z + \tan y}{1 - \tan z \cdot \tan y} - \tan a\right)
\end{array}
Initial program 78.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
lower--.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-tan.f64N/A
lower-tan.f6499.7
Applied rewrites99.7%
(FPCore (x y z a)
:precision binary64
(if (<= a -0.02)
(+ x (- (tan (+ y z)) (tan a)))
(if (<= a 0.0112)
(-
x
(+
(/ (+ (tan z) (tan y)) (+ -1.0 (* (tan z) (tan y))))
(* (fma (* a a) 0.3333333333333333 1.0) a)))
(fma (/ (- (/ (sin (+ z y)) (cos (+ z y))) (/ (sin a) (cos a))) x) x x))))
double code(double x, double y, double z, double a) {
double tmp;
if (a <= -0.02) {
tmp = x + (tan((y + z)) - tan(a));
} else if (a <= 0.0112) {
tmp = x - (((tan(z) + tan(y)) / (-1.0 + (tan(z) * tan(y)))) + (fma((a * a), 0.3333333333333333, 1.0) * a));
} else {
tmp = fma((((sin((z + y)) / cos((z + y))) - (sin(a) / cos(a))) / x), x, x);
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (a <= -0.02) tmp = Float64(x + Float64(tan(Float64(y + z)) - tan(a))); elseif (a <= 0.0112) tmp = Float64(x - Float64(Float64(Float64(tan(z) + tan(y)) / Float64(-1.0 + Float64(tan(z) * tan(y)))) + Float64(fma(Float64(a * a), 0.3333333333333333, 1.0) * a))); else tmp = fma(Float64(Float64(Float64(sin(Float64(z + y)) / cos(Float64(z + y))) - Float64(sin(a) / cos(a))) / x), x, x); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[a, -0.02], N[(x + N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 0.0112], N[(x - N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] / N[(-1.0 + N[(N[Tan[z], $MachinePrecision] * N[Tan[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(a * a), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[Sin[N[(z + y), $MachinePrecision]], $MachinePrecision] / N[Cos[N[(z + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[Sin[a], $MachinePrecision] / N[Cos[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision] * x + x), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -0.02:\\
\;\;\;\;x + \left(\tan \left(y + z\right) - \tan a\right)\\
\mathbf{elif}\;a \leq 0.0112:\\
\;\;\;\;x - \left(\frac{\tan z + \tan y}{-1 + \tan z \cdot \tan y} + \mathsf{fma}\left(a \cdot a, 0.3333333333333333, 1\right) \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{\frac{\sin \left(z + y\right)}{\cos \left(z + y\right)} - \frac{\sin a}{\cos a}}{x}, x, x\right)\\
\end{array}
\end{array}
if a < -0.0200000000000000004Initial program 83.1%
if -0.0200000000000000004 < a < 0.0111999999999999999Initial program 75.4%
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
lower--.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-tan.f64N/A
lower-tan.f6499.8
Applied rewrites99.8%
Taylor expanded in a around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0111999999999999999 < a Initial program 79.3%
Taylor expanded in x around inf
associate--l+N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
Applied rewrites79.4%
Final simplification90.3%
(FPCore (x y z a)
:precision binary64
(if (<= a -0.02)
(+ x (- (tan (+ y z)) (tan a)))
(if (<= a 0.0112)
(-
x
(+
(/ (+ (tan z) (tan y)) (+ -1.0 (* (tan z) (tan y))))
(* (fma (* a a) 0.3333333333333333 1.0) a)))
(- (tan (+ z y)) (- (tan a) x)))))
double code(double x, double y, double z, double a) {
double tmp;
if (a <= -0.02) {
tmp = x + (tan((y + z)) - tan(a));
} else if (a <= 0.0112) {
tmp = x - (((tan(z) + tan(y)) / (-1.0 + (tan(z) * tan(y)))) + (fma((a * a), 0.3333333333333333, 1.0) * a));
} else {
tmp = tan((z + y)) - (tan(a) - x);
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (a <= -0.02) tmp = Float64(x + Float64(tan(Float64(y + z)) - tan(a))); elseif (a <= 0.0112) tmp = Float64(x - Float64(Float64(Float64(tan(z) + tan(y)) / Float64(-1.0 + Float64(tan(z) * tan(y)))) + Float64(fma(Float64(a * a), 0.3333333333333333, 1.0) * a))); else tmp = Float64(tan(Float64(z + y)) - Float64(tan(a) - x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[a, -0.02], N[(x + N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 0.0112], N[(x - N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] / N[(-1.0 + N[(N[Tan[z], $MachinePrecision] * N[Tan[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(a * a), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -0.02:\\
\;\;\;\;x + \left(\tan \left(y + z\right) - \tan a\right)\\
\mathbf{elif}\;a \leq 0.0112:\\
\;\;\;\;x - \left(\frac{\tan z + \tan y}{-1 + \tan z \cdot \tan y} + \mathsf{fma}\left(a \cdot a, 0.3333333333333333, 1\right) \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;\tan \left(z + y\right) - \left(\tan a - x\right)\\
\end{array}
\end{array}
if a < -0.0200000000000000004Initial program 83.1%
if -0.0200000000000000004 < a < 0.0111999999999999999Initial program 75.4%
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
lower--.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-tan.f64N/A
lower-tan.f6499.8
Applied rewrites99.8%
Taylor expanded in a around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0111999999999999999 < a Initial program 79.3%
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.4
Applied rewrites79.4%
Final simplification90.2%
(FPCore (x y z a)
:precision binary64
(if (<= a -2.25e-11)
(+ x (- (tan (+ y z)) (tan a)))
(if (<= a 1.8e-11)
(- (/ (+ (tan z) (tan y)) (fma (- (tan z)) (tan y) 1.0)) (- x))
(- (tan (+ z y)) (- (tan a) x)))))
double code(double x, double y, double z, double a) {
double tmp;
if (a <= -2.25e-11) {
tmp = x + (tan((y + z)) - tan(a));
} else if (a <= 1.8e-11) {
tmp = ((tan(z) + tan(y)) / fma(-tan(z), tan(y), 1.0)) - -x;
} else {
tmp = tan((z + y)) - (tan(a) - x);
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (a <= -2.25e-11) tmp = Float64(x + Float64(tan(Float64(y + z)) - tan(a))); elseif (a <= 1.8e-11) tmp = Float64(Float64(Float64(tan(z) + tan(y)) / fma(Float64(-tan(z)), tan(y), 1.0)) - Float64(-x)); else tmp = Float64(tan(Float64(z + y)) - Float64(tan(a) - x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[a, -2.25e-11], N[(x + N[(N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.8e-11], N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] / N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] - (-x)), $MachinePrecision], N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -2.25 \cdot 10^{-11}:\\
\;\;\;\;x + \left(\tan \left(y + z\right) - \tan a\right)\\
\mathbf{elif}\;a \leq 1.8 \cdot 10^{-11}:\\
\;\;\;\;\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \left(-x\right)\\
\mathbf{else}:\\
\;\;\;\;\tan \left(z + y\right) - \left(\tan a - x\right)\\
\end{array}
\end{array}
if a < -2.25e-11Initial program 83.0%
if -2.25e-11 < a < 1.79999999999999992e-11Initial program 75.2%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6475.2
Applied rewrites75.2%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6475.1
Applied rewrites75.1%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
lift-tan.f64N/A
lift-tan.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-tan.f64N/A
lift-tan.f64N/A
fp-cancel-sub-sign-invN/A
lift-neg.f64N/A
+-commutativeN/A
lift-fma.f64N/A
lower-/.f6499.6
lift-+.f64N/A
+-commutativeN/A
lower-+.f6499.6
Applied rewrites99.6%
if 1.79999999999999992e-11 < a Initial program 79.3%
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.4
Applied rewrites79.4%
(FPCore (x y z a) :precision binary64 (if (<= (+ y z) -2e-13) (- (tan (* (+ (/ z y) 1.0) y)) (- x)) (+ (- (tan z) (tan a)) x)))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = tan((((z / y) + 1.0) * y)) - -x;
} else {
tmp = (tan(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) :: tmp
if ((y + z) <= (-2d-13)) then
tmp = tan((((z / y) + 1.0d0) * y)) - -x
else
tmp = (tan(z) - tan(a)) + x
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = Math.tan((((z / y) + 1.0) * y)) - -x;
} else {
tmp = (Math.tan(z) - Math.tan(a)) + x;
}
return tmp;
}
def code(x, y, z, a): tmp = 0 if (y + z) <= -2e-13: tmp = math.tan((((z / y) + 1.0) * y)) - -x else: tmp = (math.tan(z) - math.tan(a)) + x return tmp
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -2e-13) tmp = Float64(tan(Float64(Float64(Float64(z / y) + 1.0) * y)) - Float64(-x)); else tmp = Float64(Float64(tan(z) - tan(a)) + x); end return tmp end
function tmp_2 = code(x, y, z, a) tmp = 0.0; if ((y + z) <= -2e-13) tmp = tan((((z / y) + 1.0) * y)) - -x; else tmp = (tan(z) - tan(a)) + x; end tmp_2 = tmp; end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -2e-13], N[(N[Tan[N[(N[(N[(z / y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision], N[(N[(N[Tan[z], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \cdot 10^{-13}:\\
\;\;\;\;\tan \left(\left(\frac{z}{y} + 1\right) \cdot y\right) - \left(-x\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\tan z - \tan a\right) + x\\
\end{array}
\end{array}
if (+.f64 y z) < -2.0000000000000001e-13Initial program 71.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6471.3
Applied rewrites71.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6443.4
Applied rewrites43.4%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6435.2
Applied rewrites35.2%
if -2.0000000000000001e-13 < (+.f64 y z) Initial program 82.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6482.3
Applied rewrites82.3%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6462.9
Applied rewrites62.9%
lift--.f64N/A
lift--.f64N/A
associate--r-N/A
lower-+.f64N/A
lower--.f6462.9
Applied rewrites62.9%
(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}
Initial program 78.5%
(FPCore (x y z a)
:precision binary64
(if (<= (+ y z) -2e-13)
(- (tan (* (+ (/ z y) 1.0) y)) (- x))
(if (<= (+ y z) 1.0)
(-
(*
(fma
(fma
(fma 0.05396825396825397 (* z z) 0.13333333333333333)
(* z z)
0.3333333333333333)
(* z z)
1.0)
z)
(- (tan a) x))
(- (tan z) (- x)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = tan((((z / y) + 1.0) * y)) - -x;
} else if ((y + z) <= 1.0) {
tmp = (fma(fma(fma(0.05396825396825397, (z * z), 0.13333333333333333), (z * z), 0.3333333333333333), (z * z), 1.0) * z) - (tan(a) - x);
} else {
tmp = tan(z) - -x;
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -2e-13) tmp = Float64(tan(Float64(Float64(Float64(z / y) + 1.0) * y)) - Float64(-x)); elseif (Float64(y + z) <= 1.0) tmp = Float64(Float64(fma(fma(fma(0.05396825396825397, Float64(z * z), 0.13333333333333333), Float64(z * z), 0.3333333333333333), Float64(z * z), 1.0) * z) - Float64(tan(a) - x)); else tmp = Float64(tan(z) - Float64(-x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -2e-13], N[(N[Tan[N[(N[(N[(z / y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision], If[LessEqual[N[(y + z), $MachinePrecision], 1.0], N[(N[(N[(N[(N[(0.05396825396825397 * N[(z * z), $MachinePrecision] + 0.13333333333333333), $MachinePrecision] * N[(z * z), $MachinePrecision] + 0.3333333333333333), $MachinePrecision] * N[(z * z), $MachinePrecision] + 1.0), $MachinePrecision] * z), $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] - (-x)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \cdot 10^{-13}:\\
\;\;\;\;\tan \left(\left(\frac{z}{y} + 1\right) \cdot y\right) - \left(-x\right)\\
\mathbf{elif}\;y + z \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.05396825396825397, z \cdot z, 0.13333333333333333\right), z \cdot z, 0.3333333333333333\right), z \cdot z, 1\right) \cdot z - \left(\tan a - x\right)\\
\mathbf{else}:\\
\;\;\;\;\tan z - \left(-x\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -2.0000000000000001e-13Initial program 71.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6471.3
Applied rewrites71.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6443.4
Applied rewrites43.4%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6435.2
Applied rewrites35.2%
if -2.0000000000000001e-13 < (+.f64 y z) < 1Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6499.9
Applied rewrites99.9%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6498.5
Applied rewrites98.5%
Taylor expanded in z around 0
Applied rewrites98.5%
if 1 < (+.f64 y z) Initial program 70.3%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6470.3
Applied rewrites70.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6442.1
Applied rewrites42.1%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6430.7
Applied rewrites30.7%
Applied rewrites30.7%
(FPCore (x y z a)
:precision binary64
(if (<= (+ y z) -2e-13)
(- (tan (* (+ (/ z y) 1.0) y)) (- x))
(if (<= (+ y z) 1.0)
(-
(*
(fma (fma (* z z) 0.13333333333333333 0.3333333333333333) (* z z) 1.0)
z)
(- (tan a) x))
(- (tan z) (- x)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = tan((((z / y) + 1.0) * y)) - -x;
} else if ((y + z) <= 1.0) {
tmp = (fma(fma((z * z), 0.13333333333333333, 0.3333333333333333), (z * z), 1.0) * z) - (tan(a) - x);
} else {
tmp = tan(z) - -x;
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -2e-13) tmp = Float64(tan(Float64(Float64(Float64(z / y) + 1.0) * y)) - Float64(-x)); elseif (Float64(y + z) <= 1.0) tmp = Float64(Float64(fma(fma(Float64(z * z), 0.13333333333333333, 0.3333333333333333), Float64(z * z), 1.0) * z) - Float64(tan(a) - x)); else tmp = Float64(tan(z) - Float64(-x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -2e-13], N[(N[Tan[N[(N[(N[(z / y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision], If[LessEqual[N[(y + z), $MachinePrecision], 1.0], N[(N[(N[(N[(N[(z * z), $MachinePrecision] * 0.13333333333333333 + 0.3333333333333333), $MachinePrecision] * N[(z * z), $MachinePrecision] + 1.0), $MachinePrecision] * z), $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] - (-x)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \cdot 10^{-13}:\\
\;\;\;\;\tan \left(\left(\frac{z}{y} + 1\right) \cdot y\right) - \left(-x\right)\\
\mathbf{elif}\;y + z \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(z \cdot z, 0.13333333333333333, 0.3333333333333333\right), z \cdot z, 1\right) \cdot z - \left(\tan a - x\right)\\
\mathbf{else}:\\
\;\;\;\;\tan z - \left(-x\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -2.0000000000000001e-13Initial program 71.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6471.3
Applied rewrites71.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6443.4
Applied rewrites43.4%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6435.2
Applied rewrites35.2%
if -2.0000000000000001e-13 < (+.f64 y z) < 1Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6499.9
Applied rewrites99.9%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6498.5
Applied rewrites98.5%
Taylor expanded in z around 0
Applied rewrites98.5%
if 1 < (+.f64 y z) Initial program 70.3%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6470.3
Applied rewrites70.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6442.1
Applied rewrites42.1%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6430.7
Applied rewrites30.7%
Applied rewrites30.7%
(FPCore (x y z a)
:precision binary64
(if (<= (+ y z) -2e-13)
(- (tan (* (+ (/ z y) 1.0) y)) (- x))
(if (<= (+ y z) 1.0)
(- (* (fma (* z z) 0.3333333333333333 1.0) z) (- (tan a) x))
(- (tan z) (- x)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = tan((((z / y) + 1.0) * y)) - -x;
} else if ((y + z) <= 1.0) {
tmp = (fma((z * z), 0.3333333333333333, 1.0) * z) - (tan(a) - x);
} else {
tmp = tan(z) - -x;
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -2e-13) tmp = Float64(tan(Float64(Float64(Float64(z / y) + 1.0) * y)) - Float64(-x)); elseif (Float64(y + z) <= 1.0) tmp = Float64(Float64(fma(Float64(z * z), 0.3333333333333333, 1.0) * z) - Float64(tan(a) - x)); else tmp = Float64(tan(z) - Float64(-x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -2e-13], N[(N[Tan[N[(N[(N[(z / y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision], If[LessEqual[N[(y + z), $MachinePrecision], 1.0], N[(N[(N[(N[(z * z), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * z), $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] - (-x)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \cdot 10^{-13}:\\
\;\;\;\;\tan \left(\left(\frac{z}{y} + 1\right) \cdot y\right) - \left(-x\right)\\
\mathbf{elif}\;y + z \leq 1:\\
\;\;\;\;\mathsf{fma}\left(z \cdot z, 0.3333333333333333, 1\right) \cdot z - \left(\tan a - x\right)\\
\mathbf{else}:\\
\;\;\;\;\tan z - \left(-x\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -2.0000000000000001e-13Initial program 71.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6471.3
Applied rewrites71.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6443.4
Applied rewrites43.4%
Taylor expanded in y around inf
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f6435.2
Applied rewrites35.2%
if -2.0000000000000001e-13 < (+.f64 y z) < 1Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6499.9
Applied rewrites99.9%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6498.5
Applied rewrites98.5%
Taylor expanded in z around 0
Applied rewrites98.5%
if 1 < (+.f64 y z) Initial program 70.3%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6470.3
Applied rewrites70.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6442.1
Applied rewrites42.1%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6430.7
Applied rewrites30.7%
Applied rewrites30.7%
(FPCore (x y z a)
:precision binary64
(if (<= (+ y z) -2e-13)
(- (tan (+ z y)) (- x))
(if (<= (+ y z) 1.0)
(- (* (fma (* z z) 0.3333333333333333 1.0) z) (- (tan a) x))
(- (tan z) (- x)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -2e-13) {
tmp = tan((z + y)) - -x;
} else if ((y + z) <= 1.0) {
tmp = (fma((z * z), 0.3333333333333333, 1.0) * z) - (tan(a) - x);
} else {
tmp = tan(z) - -x;
}
return tmp;
}
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -2e-13) tmp = Float64(tan(Float64(z + y)) - Float64(-x)); elseif (Float64(y + z) <= 1.0) tmp = Float64(Float64(fma(Float64(z * z), 0.3333333333333333, 1.0) * z) - Float64(tan(a) - x)); else tmp = Float64(tan(z) - Float64(-x)); end return tmp end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -2e-13], N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision], If[LessEqual[N[(y + z), $MachinePrecision], 1.0], N[(N[(N[(N[(z * z), $MachinePrecision] * 0.3333333333333333 + 1.0), $MachinePrecision] * z), $MachinePrecision] - N[(N[Tan[a], $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] - (-x)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \cdot 10^{-13}:\\
\;\;\;\;\tan \left(z + y\right) - \left(-x\right)\\
\mathbf{elif}\;y + z \leq 1:\\
\;\;\;\;\mathsf{fma}\left(z \cdot z, 0.3333333333333333, 1\right) \cdot z - \left(\tan a - x\right)\\
\mathbf{else}:\\
\;\;\;\;\tan z - \left(-x\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -2.0000000000000001e-13Initial program 71.4%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6471.3
Applied rewrites71.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6443.4
Applied rewrites43.4%
if -2.0000000000000001e-13 < (+.f64 y z) < 1Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6499.9
Applied rewrites99.9%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6498.5
Applied rewrites98.5%
Taylor expanded in z around 0
Applied rewrites98.5%
if 1 < (+.f64 y z) Initial program 70.3%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6470.3
Applied rewrites70.3%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6442.1
Applied rewrites42.1%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6430.7
Applied rewrites30.7%
Applied rewrites30.7%
(FPCore (x y z a) :precision binary64 (- (tan (+ z y)) (- x)))
double code(double x, double y, double z, double a) {
return tan((z + y)) - -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((z + y)) - -x
end function
public static double code(double x, double y, double z, double a) {
return Math.tan((z + y)) - -x;
}
def code(x, y, z, a): return math.tan((z + y)) - -x
function code(x, y, z, a) return Float64(tan(Float64(z + y)) - Float64(-x)) end
function tmp = code(x, y, z, a) tmp = tan((z + y)) - -x; end
code[x_, y_, z_, a_] := N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - (-x)), $MachinePrecision]
\begin{array}{l}
\\
\tan \left(z + y\right) - \left(-x\right)
\end{array}
Initial program 78.5%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6478.5
Applied rewrites78.5%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6448.2
Applied rewrites48.2%
(FPCore (x y z a) :precision binary64 (- (tan z) (- x)))
double code(double x, double y, double z, double a) {
return tan(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(z) - -x
end function
public static double code(double x, double y, double z, double a) {
return Math.tan(z) - -x;
}
def code(x, y, z, a): return math.tan(z) - -x
function code(x, y, z, a) return Float64(tan(z) - Float64(-x)) end
function tmp = code(x, y, z, a) tmp = tan(z) - -x; end
code[x_, y_, z_, a_] := N[(N[Tan[z], $MachinePrecision] - (-x)), $MachinePrecision]
\begin{array}{l}
\\
\tan z - \left(-x\right)
\end{array}
Initial program 78.5%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6478.5
Applied rewrites78.5%
Taylor expanded in x around inf
mul-1-negN/A
lower-neg.f6448.2
Applied rewrites48.2%
Taylor expanded in y around 0
lower-/.f64N/A
lower-sin.f64N/A
lower-cos.f6439.4
Applied rewrites39.4%
Applied rewrites39.4%
(FPCore (x y z a) :precision binary64 (* -1.0 (- x)))
double code(double x, double y, double z, double a) {
return -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) * -x
end function
public static double code(double x, double y, double z, double a) {
return -1.0 * -x;
}
def code(x, y, z, a): return -1.0 * -x
function code(x, y, z, a) return Float64(-1.0 * Float64(-x)) end
function tmp = code(x, y, z, a) tmp = -1.0 * -x; end
code[x_, y_, z_, a_] := N[(-1.0 * (-x)), $MachinePrecision]
\begin{array}{l}
\\
-1 \cdot \left(-x\right)
\end{array}
Initial program 78.5%
lift-+.f64N/A
+-commutativeN/A
lift--.f64N/A
associate-+l-N/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6478.5
Applied rewrites78.5%
Taylor expanded in x around -inf
mul-1-negN/A
*-commutativeN/A
distribute-rgt-neg-inN/A
mul-1-negN/A
lower-*.f64N/A
Applied rewrites78.3%
Taylor expanded in x around inf
Applied rewrites33.3%
herbie shell --seed 2024332
(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))))