
(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 8 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
(+
(-
(/
(*
(/ 1.0 (fma (- (tan z)) (tan y) 1.0))
(- (pow (tan y) 2.0) (pow (tan z) 2.0)))
(- (tan y) (tan z)))
(tan a))
x))
double code(double x, double y, double z, double a) {
return ((((1.0 / fma(-tan(z), tan(y), 1.0)) * (pow(tan(y), 2.0) - pow(tan(z), 2.0))) / (tan(y) - tan(z))) - tan(a)) + x;
}
function code(x, y, z, a) return Float64(Float64(Float64(Float64(Float64(1.0 / fma(Float64(-tan(z)), tan(y), 1.0)) * Float64((tan(y) ^ 2.0) - (tan(z) ^ 2.0))) / Float64(tan(y) - tan(z))) - tan(a)) + x) end
code[x_, y_, z_, a_] := N[(N[(N[(N[(N[(1.0 / N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[Power[N[Tan[y], $MachinePrecision], 2.0], $MachinePrecision] - N[Power[N[Tan[z], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[Tan[y], $MachinePrecision] - N[Tan[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\frac{1}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} \cdot \left({\tan y}^{2} - {\tan z}^{2}\right)}{\tan y - \tan z} - \tan a\right) + x
\end{array}
Initial program 83.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
div-invN/A
flip-+N/A
associate-*l/N/A
lower-/.f64N/A
Applied rewrites99.7%
Final simplification99.7%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (+ (tan z) (tan y))) (t_1 (+ (- (/ t_0 1.0) (tan a)) x)))
(if (<= (tan a) -0.005)
t_1
(if (<= (tan a) 1e-22)
(+ (- (/ t_0 (fma (- (tan z)) (tan y) 1.0)) (* 1.0 a)) x)
t_1))))
double code(double x, double y, double z, double a) {
double t_0 = tan(z) + tan(y);
double t_1 = ((t_0 / 1.0) - tan(a)) + x;
double tmp;
if (tan(a) <= -0.005) {
tmp = t_1;
} else if (tan(a) <= 1e-22) {
tmp = ((t_0 / fma(-tan(z), tan(y), 1.0)) - (1.0 * a)) + x;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, a) t_0 = Float64(tan(z) + tan(y)) t_1 = Float64(Float64(Float64(t_0 / 1.0) - tan(a)) + x) tmp = 0.0 if (tan(a) <= -0.005) tmp = t_1; elseif (tan(a) <= 1e-22) tmp = Float64(Float64(Float64(t_0 / fma(Float64(-tan(z)), tan(y), 1.0)) - Float64(1.0 * a)) + x); else tmp = t_1; end return tmp end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(t$95$0 / 1.0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]}, If[LessEqual[N[Tan[a], $MachinePrecision], -0.005], t$95$1, If[LessEqual[N[Tan[a], $MachinePrecision], 1e-22], N[(N[(N[(t$95$0 / N[((-N[Tan[z], $MachinePrecision]) * N[Tan[y], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] - N[(1.0 * a), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan z + \tan y\\
t_1 := \left(\frac{t\_0}{1} - \tan a\right) + x\\
\mathbf{if}\;\tan a \leq -0.005:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\tan a \leq 10^{-22}:\\
\;\;\;\;\left(\frac{t\_0}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - 1 \cdot a\right) + x\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (tan.f64 a) < -0.0050000000000000001 or 1e-22 < (tan.f64 a) Initial program 82.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.6
Applied rewrites99.6%
Taylor expanded in z around 0
Applied rewrites83.0%
if -0.0050000000000000001 < (tan.f64 a) < 1e-22Initial program 84.7%
Taylor expanded in a around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6484.7
Applied rewrites84.7%
Taylor expanded in a around 0
Applied rewrites84.7%
lift-tan.f64N/A
lift-+.f64N/A
+-commutativeN/A
tan-sumN/A
lift-tan.f64N/A
lift-tan.f64N/A
lift-+.f64N/A
lift-tan.f64N/A
lift-tan.f64N/A
cancel-sign-sub-invN/A
lift-neg.f64N/A
+-commutativeN/A
lift-fma.f64N/A
lift-/.f6499.8
lift-+.f64N/A
+-commutativeN/A
lower-+.f6499.8
Applied rewrites99.8%
Final simplification91.8%
(FPCore (x y z a) :precision binary64 (+ (- (/ (+ (tan z) (tan y)) (fma (- (tan z)) (tan y) 1.0)) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(z) + tan(y)) / fma(-tan(z), tan(y), 1.0)) - tan(a)) + x;
}
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(z) + tan(y)) / fma(Float64(-tan(z)), tan(y), 1.0)) - tan(a)) + x) end
code[x_, y_, z_, a_] := N[(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] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \tan a\right) + x
\end{array}
Initial program 83.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 z) (tan y)) (- 1.0 (* (tan z) (tan y)))) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(z) + tan(y)) / (1.0 - (tan(z) * tan(y)))) - 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(z) + tan(y)) / (1.0d0 - (tan(z) * tan(y)))) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (((Math.tan(z) + Math.tan(y)) / (1.0 - (Math.tan(z) * Math.tan(y)))) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (((math.tan(z) + math.tan(y)) / (1.0 - (math.tan(z) * math.tan(y)))) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(z) + tan(y)) / Float64(1.0 - Float64(tan(z) * tan(y)))) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (((tan(z) + tan(y)) / (1.0 - (tan(z) * tan(y)))) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(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] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan z + \tan y}{1 - \tan z \cdot \tan y} - \tan a\right) + x
\end{array}
Initial program 83.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 (+ (- (/ (+ (tan z) (tan y)) 1.0) (tan a)) x))
double code(double x, double y, double z, double a) {
return (((tan(z) + tan(y)) / 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(z) + tan(y)) / 1.0d0) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (((Math.tan(z) + Math.tan(y)) / 1.0) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (((math.tan(z) + math.tan(y)) / 1.0) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(Float64(Float64(tan(z) + tan(y)) / 1.0) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (((tan(z) + tan(y)) / 1.0) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[(N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] / 1.0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{\tan z + \tan y}{1} - \tan a\right) + x
\end{array}
Initial program 83.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 z around 0
Applied rewrites84.0%
Final simplification84.0%
(FPCore (x y z a) :precision binary64 (- (fma 1.0 (+ (tan z) (tan y)) x) (tan a)))
double code(double x, double y, double z, double a) {
return fma(1.0, (tan(z) + tan(y)), x) - tan(a);
}
function code(x, y, z, a) return Float64(fma(1.0, Float64(tan(z) + tan(y)), x) - tan(a)) end
code[x_, y_, z_, a_] := N[(N[(1.0 * N[(N[Tan[z], $MachinePrecision] + N[Tan[y], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(1, \tan z + \tan y, x\right) - \tan a
\end{array}
Initial program 83.7%
lift-tan.f64N/A
lift-+.f64N/A
tan-sumN/A
div-invN/A
flip-+N/A
associate-*l/N/A
lower-/.f64N/A
Applied rewrites99.7%
lift-+.f64N/A
lift--.f64N/A
associate-+r-N/A
lower--.f64N/A
Applied rewrites99.7%
Taylor expanded in z around 0
Applied rewrites84.0%
(FPCore (x y z a) :precision binary64 (+ (- (tan (+ z y)) (tan a)) x))
double code(double x, double y, double z, double a) {
return (tan((z + y)) - 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((z + y)) - tan(a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (Math.tan((z + y)) - Math.tan(a)) + x;
}
def code(x, y, z, a): return (math.tan((z + y)) - math.tan(a)) + x
function code(x, y, z, a) return Float64(Float64(tan(Float64(z + y)) - tan(a)) + x) end
function tmp = code(x, y, z, a) tmp = (tan((z + y)) - tan(a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\tan \left(z + y\right) - \tan a\right) + x
\end{array}
Initial program 83.7%
Final simplification83.7%
(FPCore (x y z a) :precision binary64 (+ (- (tan (+ z y)) (* 1.0 a)) x))
double code(double x, double y, double z, double a) {
return (tan((z + y)) - (1.0 * 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((z + y)) - (1.0d0 * a)) + x
end function
public static double code(double x, double y, double z, double a) {
return (Math.tan((z + y)) - (1.0 * a)) + x;
}
def code(x, y, z, a): return (math.tan((z + y)) - (1.0 * a)) + x
function code(x, y, z, a) return Float64(Float64(tan(Float64(z + y)) - Float64(1.0 * a)) + x) end
function tmp = code(x, y, z, a) tmp = (tan((z + y)) - (1.0 * a)) + x; end
code[x_, y_, z_, a_] := N[(N[(N[Tan[N[(z + y), $MachinePrecision]], $MachinePrecision] - N[(1.0 * a), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\left(\tan \left(z + y\right) - 1 \cdot a\right) + x
\end{array}
Initial program 83.7%
Taylor expanded in a around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6447.3
Applied rewrites47.3%
Taylor expanded in a around 0
Applied rewrites47.7%
Final simplification47.7%
herbie shell --seed 2024235
(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))))