
(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 14 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 (+ x (- (* (+ (tan y) (tan z)) (/ -1.0 (+ -1.0 (* (sin y) (/ (tan z) (cos y)))))) (tan a))))
double code(double x, double y, double z, double a) {
return x + (((tan(y) + tan(z)) * (-1.0 / (-1.0 + (sin(y) * (tan(z) / cos(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(y) + tan(z)) * ((-1.0d0) / ((-1.0d0) + (sin(y) * (tan(z) / cos(y)))))) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (((Math.tan(y) + Math.tan(z)) * (-1.0 / (-1.0 + (Math.sin(y) * (Math.tan(z) / Math.cos(y)))))) - Math.tan(a));
}
def code(x, y, z, a): return x + (((math.tan(y) + math.tan(z)) * (-1.0 / (-1.0 + (math.sin(y) * (math.tan(z) / math.cos(y)))))) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(Float64(Float64(tan(y) + tan(z)) * Float64(-1.0 / Float64(-1.0 + Float64(sin(y) * Float64(tan(z) / cos(y)))))) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (((tan(y) + tan(z)) * (-1.0 / (-1.0 + (sin(y) * (tan(z) / cos(y)))))) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] * N[(-1.0 / N[(-1.0 + N[(N[Sin[y], $MachinePrecision] * N[(N[Tan[z], $MachinePrecision] / N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\left(\tan y + \tan z\right) \cdot \frac{-1}{-1 + \sin y \cdot \frac{\tan z}{\cos y}} - \tan a\right)
\end{array}
Initial program 76.5%
tan-sum99.7%
div-inv99.7%
Applied egg-rr99.7%
*-commutative99.7%
tan-quot99.7%
associate-*r/99.7%
Applied egg-rr99.7%
*-commutative99.7%
associate-/l*99.7%
Simplified99.7%
Final simplification99.7%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (tan (+ y z))))
(if (<= (tan a) -2e-12)
(- (+ x t_0) (tan a))
(if (<= (tan a) 0.1)
(+ x (* (+ (tan y) (tan z)) (/ -1.0 (+ -1.0 (* (tan y) (tan z))))))
(+ x (- t_0 (tan a)))))))
double code(double x, double y, double z, double a) {
double t_0 = tan((y + z));
double tmp;
if (tan(a) <= -2e-12) {
tmp = (x + t_0) - tan(a);
} else if (tan(a) <= 0.1) {
tmp = x + ((tan(y) + tan(z)) * (-1.0 / (-1.0 + (tan(y) * tan(z)))));
} else {
tmp = x + (t_0 - tan(a));
}
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 + z))
if (tan(a) <= (-2d-12)) then
tmp = (x + t_0) - tan(a)
else if (tan(a) <= 0.1d0) then
tmp = x + ((tan(y) + tan(z)) * ((-1.0d0) / ((-1.0d0) + (tan(y) * tan(z)))))
else
tmp = x + (t_0 - tan(a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double t_0 = Math.tan((y + z));
double tmp;
if (Math.tan(a) <= -2e-12) {
tmp = (x + t_0) - Math.tan(a);
} else if (Math.tan(a) <= 0.1) {
tmp = x + ((Math.tan(y) + Math.tan(z)) * (-1.0 / (-1.0 + (Math.tan(y) * Math.tan(z)))));
} else {
tmp = x + (t_0 - Math.tan(a));
}
return tmp;
}
def code(x, y, z, a): t_0 = math.tan((y + z)) tmp = 0 if math.tan(a) <= -2e-12: tmp = (x + t_0) - math.tan(a) elif math.tan(a) <= 0.1: tmp = x + ((math.tan(y) + math.tan(z)) * (-1.0 / (-1.0 + (math.tan(y) * math.tan(z))))) else: tmp = x + (t_0 - math.tan(a)) return tmp
function code(x, y, z, a) t_0 = tan(Float64(y + z)) tmp = 0.0 if (tan(a) <= -2e-12) tmp = Float64(Float64(x + t_0) - tan(a)); elseif (tan(a) <= 0.1) tmp = Float64(x + Float64(Float64(tan(y) + tan(z)) * Float64(-1.0 / Float64(-1.0 + Float64(tan(y) * tan(z)))))); else tmp = Float64(x + Float64(t_0 - tan(a))); end return tmp end
function tmp_2 = code(x, y, z, a) t_0 = tan((y + z)); tmp = 0.0; if (tan(a) <= -2e-12) tmp = (x + t_0) - tan(a); elseif (tan(a) <= 0.1) tmp = x + ((tan(y) + tan(z)) * (-1.0 / (-1.0 + (tan(y) * tan(z))))); else tmp = x + (t_0 - tan(a)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[N[Tan[a], $MachinePrecision], -2e-12], N[(N[(x + t$95$0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision], If[LessEqual[N[Tan[a], $MachinePrecision], 0.1], N[(x + N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] * N[(-1.0 / N[(-1.0 + N[(N[Tan[y], $MachinePrecision] * N[Tan[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(t$95$0 - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan \left(y + z\right)\\
\mathbf{if}\;\tan a \leq -2 \cdot 10^{-12}:\\
\;\;\;\;\left(x + t\_0\right) - \tan a\\
\mathbf{elif}\;\tan a \leq 0.1:\\
\;\;\;\;x + \left(\tan y + \tan z\right) \cdot \frac{-1}{-1 + \tan y \cdot \tan z}\\
\mathbf{else}:\\
\;\;\;\;x + \left(t\_0 - \tan a\right)\\
\end{array}
\end{array}
if (tan.f64 a) < -1.99999999999999996e-12Initial program 71.8%
associate-+r-71.8%
+-commutative71.8%
Applied egg-rr71.8%
if -1.99999999999999996e-12 < (tan.f64 a) < 0.10000000000000001Initial program 75.4%
+-commutative75.4%
associate-+l-75.4%
Applied egg-rr75.4%
Taylor expanded in a around 0 75.4%
neg-mul-175.4%
Simplified75.4%
tan-sum99.7%
div-inv99.7%
Applied egg-rr98.9%
if 0.10000000000000001 < (tan.f64 a) Initial program 82.8%
Final simplification87.7%
(FPCore (x y z a)
:precision binary64
(let* ((t_0 (tan (+ y z))))
(if (<= (tan a) -2e-12)
(- (+ x t_0) (tan a))
(if (<= (tan a) 0.1)
(+ x (/ (+ (tan y) (tan z)) (- 1.0 (* (tan y) (tan z)))))
(+ x (- t_0 (tan a)))))))
double code(double x, double y, double z, double a) {
double t_0 = tan((y + z));
double tmp;
if (tan(a) <= -2e-12) {
tmp = (x + t_0) - tan(a);
} else if (tan(a) <= 0.1) {
tmp = x + ((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(z))));
} else {
tmp = x + (t_0 - tan(a));
}
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 + z))
if (tan(a) <= (-2d-12)) then
tmp = (x + t_0) - tan(a)
else if (tan(a) <= 0.1d0) then
tmp = x + ((tan(y) + tan(z)) / (1.0d0 - (tan(y) * tan(z))))
else
tmp = x + (t_0 - tan(a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double t_0 = Math.tan((y + z));
double tmp;
if (Math.tan(a) <= -2e-12) {
tmp = (x + t_0) - Math.tan(a);
} else if (Math.tan(a) <= 0.1) {
tmp = x + ((Math.tan(y) + Math.tan(z)) / (1.0 - (Math.tan(y) * Math.tan(z))));
} else {
tmp = x + (t_0 - Math.tan(a));
}
return tmp;
}
def code(x, y, z, a): t_0 = math.tan((y + z)) tmp = 0 if math.tan(a) <= -2e-12: tmp = (x + t_0) - math.tan(a) elif math.tan(a) <= 0.1: tmp = x + ((math.tan(y) + math.tan(z)) / (1.0 - (math.tan(y) * math.tan(z)))) else: tmp = x + (t_0 - math.tan(a)) return tmp
function code(x, y, z, a) t_0 = tan(Float64(y + z)) tmp = 0.0 if (tan(a) <= -2e-12) tmp = Float64(Float64(x + t_0) - tan(a)); elseif (tan(a) <= 0.1) tmp = Float64(x + Float64(Float64(tan(y) + tan(z)) / Float64(1.0 - Float64(tan(y) * tan(z))))); else tmp = Float64(x + Float64(t_0 - tan(a))); end return tmp end
function tmp_2 = code(x, y, z, a) t_0 = tan((y + z)); tmp = 0.0; if (tan(a) <= -2e-12) tmp = (x + t_0) - tan(a); elseif (tan(a) <= 0.1) tmp = x + ((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(z)))); else tmp = x + (t_0 - tan(a)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[N[Tan[a], $MachinePrecision], -2e-12], N[(N[(x + t$95$0), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision], If[LessEqual[N[Tan[a], $MachinePrecision], 0.1], N[(x + 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]), $MachinePrecision], N[(x + N[(t$95$0 - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan \left(y + z\right)\\
\mathbf{if}\;\tan a \leq -2 \cdot 10^{-12}:\\
\;\;\;\;\left(x + t\_0\right) - \tan a\\
\mathbf{elif}\;\tan a \leq 0.1:\\
\;\;\;\;x + \frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}\\
\mathbf{else}:\\
\;\;\;\;x + \left(t\_0 - \tan a\right)\\
\end{array}
\end{array}
if (tan.f64 a) < -1.99999999999999996e-12Initial program 71.8%
associate-+r-71.8%
+-commutative71.8%
Applied egg-rr71.8%
if -1.99999999999999996e-12 < (tan.f64 a) < 0.10000000000000001Initial program 75.4%
+-commutative75.4%
associate-+l-75.4%
Applied egg-rr75.4%
Taylor expanded in a around 0 75.4%
neg-mul-175.4%
Simplified75.4%
tan-sum98.8%
div-inv98.9%
+-commutative98.9%
fma-neg98.8%
*-commutative98.8%
Applied egg-rr98.8%
fma-undefine98.9%
associate-*r/98.8%
*-rgt-identity98.8%
remove-double-neg98.8%
Simplified98.8%
if 0.10000000000000001 < (tan.f64 a) Initial program 82.8%
Final simplification87.7%
(FPCore (x y z a) :precision binary64 (+ x (- (/ (+ (tan y) (tan z)) (- 1.0 (* (sin y) (/ (tan z) (cos y))))) (tan a))))
double code(double x, double y, double z, double a) {
return x + (((tan(y) + tan(z)) / (1.0 - (sin(y) * (tan(z) / cos(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(y) + tan(z)) / (1.0d0 - (sin(y) * (tan(z) / cos(y))))) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (((Math.tan(y) + Math.tan(z)) / (1.0 - (Math.sin(y) * (Math.tan(z) / Math.cos(y))))) - Math.tan(a));
}
def code(x, y, z, a): return x + (((math.tan(y) + math.tan(z)) / (1.0 - (math.sin(y) * (math.tan(z) / math.cos(y))))) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(Float64(Float64(tan(y) + tan(z)) / Float64(1.0 - Float64(sin(y) * Float64(tan(z) / cos(y))))) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (((tan(y) + tan(z)) / (1.0 - (sin(y) * (tan(z) / cos(y))))) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] / N[(1.0 - N[(N[Sin[y], $MachinePrecision] * N[(N[Tan[z], $MachinePrecision] / N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\frac{\tan y + \tan z}{1 - \sin y \cdot \frac{\tan z}{\cos y}} - \tan a\right)
\end{array}
Initial program 76.5%
tan-sum99.7%
div-inv99.7%
Applied egg-rr99.7%
*-commutative99.7%
tan-quot99.7%
associate-*r/99.7%
Applied egg-rr99.7%
*-commutative99.7%
associate-/l*99.7%
Simplified99.7%
+-commutative99.7%
*-un-lft-identity99.7%
fma-define99.7%
un-div-inv99.7%
+-commutative99.7%
Applied egg-rr99.7%
fma-undefine99.7%
*-lft-identity99.7%
Simplified99.7%
Final simplification99.7%
(FPCore (x y z a) :precision binary64 (+ x (- (* (+ (tan y) (tan z)) (/ -1.0 (+ -1.0 (* (tan y) (tan z))))) (tan a))))
double code(double x, double y, double z, double a) {
return x + (((tan(y) + tan(z)) * (-1.0 / (-1.0 + (tan(y) * tan(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) + tan(z)) * ((-1.0d0) / ((-1.0d0) + (tan(y) * tan(z))))) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (((Math.tan(y) + Math.tan(z)) * (-1.0 / (-1.0 + (Math.tan(y) * Math.tan(z))))) - Math.tan(a));
}
def code(x, y, z, a): return x + (((math.tan(y) + math.tan(z)) * (-1.0 / (-1.0 + (math.tan(y) * math.tan(z))))) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(Float64(Float64(tan(y) + tan(z)) * Float64(-1.0 / Float64(-1.0 + Float64(tan(y) * tan(z))))) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (((tan(y) + tan(z)) * (-1.0 / (-1.0 + (tan(y) * tan(z))))) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + N[(N[(N[(N[Tan[y], $MachinePrecision] + N[Tan[z], $MachinePrecision]), $MachinePrecision] * N[(-1.0 / N[(-1.0 + N[(N[Tan[y], $MachinePrecision] * N[Tan[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\left(\tan y + \tan z\right) \cdot \frac{-1}{-1 + \tan y \cdot \tan z} - \tan a\right)
\end{array}
Initial program 76.5%
tan-sum99.7%
div-inv99.7%
Applied egg-rr99.7%
Final simplification99.7%
(FPCore (x y z a) :precision binary64 (+ x (- (/ (+ (tan y) (tan z)) (- 1.0 (* (tan y) (tan z)))) (tan a))))
double code(double x, double y, double z, double a) {
return x + (((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(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) + tan(z)) / (1.0d0 - (tan(y) * tan(z)))) - tan(a))
end function
public static double code(double x, double y, double z, double a) {
return x + (((Math.tan(y) + Math.tan(z)) / (1.0 - (Math.tan(y) * Math.tan(z)))) - Math.tan(a));
}
def code(x, y, z, a): return x + (((math.tan(y) + math.tan(z)) / (1.0 - (math.tan(y) * math.tan(z)))) - math.tan(a))
function code(x, y, z, a) return Float64(x + Float64(Float64(Float64(tan(y) + tan(z)) / Float64(1.0 - Float64(tan(y) * tan(z)))) - tan(a))) end
function tmp = code(x, y, z, a) tmp = x + (((tan(y) + tan(z)) / (1.0 - (tan(y) * tan(z)))) - tan(a)); end
code[x_, y_, z_, a_] := N[(x + 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]), $MachinePrecision]
\begin{array}{l}
\\
x + \left(\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z} - \tan a\right)
\end{array}
Initial program 76.5%
tan-sum99.7%
div-inv99.7%
Applied egg-rr99.7%
associate-*r/99.7%
*-rgt-identity99.7%
Simplified99.7%
Final simplification99.7%
(FPCore (x y z a) :precision binary64 (if (<= (+ y z) 2e-32) (+ (tan y) (- x (tan a))) (+ x (tan (+ y z)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= 2e-32) {
tmp = tan(y) + (x - tan(a));
} else {
tmp = x + tan((y + z));
}
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-32) then
tmp = tan(y) + (x - tan(a))
else
tmp = x + tan((y + z))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= 2e-32) {
tmp = Math.tan(y) + (x - Math.tan(a));
} else {
tmp = x + Math.tan((y + z));
}
return tmp;
}
def code(x, y, z, a): tmp = 0 if (y + z) <= 2e-32: tmp = math.tan(y) + (x - math.tan(a)) else: tmp = x + math.tan((y + z)) return tmp
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= 2e-32) tmp = Float64(tan(y) + Float64(x - tan(a))); else tmp = Float64(x + tan(Float64(y + z))); end return tmp end
function tmp_2 = code(x, y, z, a) tmp = 0.0; if ((y + z) <= 2e-32) tmp = tan(y) + (x - tan(a)); else tmp = x + tan((y + z)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], 2e-32], N[(N[Tan[y], $MachinePrecision] + N[(x - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq 2 \cdot 10^{-32}:\\
\;\;\;\;\tan y + \left(x - \tan a\right)\\
\mathbf{else}:\\
\;\;\;\;x + \tan \left(y + z\right)\\
\end{array}
\end{array}
if (+.f64 y z) < 2.00000000000000011e-32Initial program 81.0%
Taylor expanded in z around 0 61.7%
+-commutative61.7%
Simplified61.7%
tan-quot61.7%
tan-quot61.7%
associate--l+61.7%
Applied egg-rr61.7%
if 2.00000000000000011e-32 < (+.f64 y z) Initial program 69.9%
+-commutative69.9%
associate-+l-70.0%
Applied egg-rr70.0%
Taylor expanded in a around 0 44.3%
neg-mul-144.3%
Simplified44.3%
sub-neg44.3%
+-commutative44.3%
Applied egg-rr44.3%
remove-double-neg44.3%
+-commutative44.3%
+-commutative44.3%
Simplified44.3%
Final simplification54.5%
(FPCore (x y z a) :precision binary64 (if (<= (+ y z) -1e-5) (+ (tan y) (- x (tan a))) (+ x (- (tan z) (tan a)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -1e-5) {
tmp = tan(y) + (x - tan(a));
} else {
tmp = x + (tan(z) - tan(a));
}
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) <= (-1d-5)) then
tmp = tan(y) + (x - tan(a))
else
tmp = x + (tan(z) - tan(a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -1e-5) {
tmp = Math.tan(y) + (x - Math.tan(a));
} else {
tmp = x + (Math.tan(z) - Math.tan(a));
}
return tmp;
}
def code(x, y, z, a): tmp = 0 if (y + z) <= -1e-5: tmp = math.tan(y) + (x - math.tan(a)) else: tmp = x + (math.tan(z) - math.tan(a)) return tmp
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -1e-5) tmp = Float64(tan(y) + Float64(x - tan(a))); else tmp = Float64(x + Float64(tan(z) - tan(a))); end return tmp end
function tmp_2 = code(x, y, z, a) tmp = 0.0; if ((y + z) <= -1e-5) tmp = tan(y) + (x - tan(a)); else tmp = x + (tan(z) - tan(a)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -1e-5], N[(N[Tan[y], $MachinePrecision] + N[(x - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[Tan[z], $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -1 \cdot 10^{-5}:\\
\;\;\;\;\tan y + \left(x - \tan a\right)\\
\mathbf{else}:\\
\;\;\;\;x + \left(\tan z - \tan a\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -1.00000000000000008e-5Initial program 72.3%
Taylor expanded in z around 0 43.9%
+-commutative43.9%
Simplified43.9%
tan-quot43.9%
tan-quot43.9%
associate--l+43.9%
Applied egg-rr43.9%
if -1.00000000000000008e-5 < (+.f64 y z) Initial program 79.3%
+-commutative79.3%
associate-+l-79.3%
Applied egg-rr79.3%
Taylor expanded in y around 0 63.1%
tan-quot63.1%
associate--r-63.1%
Applied egg-rr63.1%
Final simplification55.3%
(FPCore (x y z a) :precision binary64 (let* ((t_0 (- x (tan a)))) (if (<= (+ y z) -1e-5) (+ (tan y) t_0) (+ (tan z) t_0))))
double code(double x, double y, double z, double a) {
double t_0 = x - tan(a);
double tmp;
if ((y + z) <= -1e-5) {
tmp = tan(y) + t_0;
} else {
tmp = tan(z) + t_0;
}
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 = x - tan(a)
if ((y + z) <= (-1d-5)) then
tmp = tan(y) + t_0
else
tmp = tan(z) + t_0
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double t_0 = x - Math.tan(a);
double tmp;
if ((y + z) <= -1e-5) {
tmp = Math.tan(y) + t_0;
} else {
tmp = Math.tan(z) + t_0;
}
return tmp;
}
def code(x, y, z, a): t_0 = x - math.tan(a) tmp = 0 if (y + z) <= -1e-5: tmp = math.tan(y) + t_0 else: tmp = math.tan(z) + t_0 return tmp
function code(x, y, z, a) t_0 = Float64(x - tan(a)) tmp = 0.0 if (Float64(y + z) <= -1e-5) tmp = Float64(tan(y) + t_0); else tmp = Float64(tan(z) + t_0); end return tmp end
function tmp_2 = code(x, y, z, a) t_0 = x - tan(a); tmp = 0.0; if ((y + z) <= -1e-5) tmp = tan(y) + t_0; else tmp = tan(z) + t_0; end tmp_2 = tmp; end
code[x_, y_, z_, a_] := Block[{t$95$0 = N[(x - N[Tan[a], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(y + z), $MachinePrecision], -1e-5], N[(N[Tan[y], $MachinePrecision] + t$95$0), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] + t$95$0), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x - \tan a\\
\mathbf{if}\;y + z \leq -1 \cdot 10^{-5}:\\
\;\;\;\;\tan y + t\_0\\
\mathbf{else}:\\
\;\;\;\;\tan z + t\_0\\
\end{array}
\end{array}
if (+.f64 y z) < -1.00000000000000008e-5Initial program 72.3%
Taylor expanded in z around 0 43.9%
+-commutative43.9%
Simplified43.9%
tan-quot43.9%
tan-quot43.9%
associate--l+43.9%
Applied egg-rr43.9%
if -1.00000000000000008e-5 < (+.f64 y z) Initial program 79.3%
+-commutative79.3%
associate-+l-79.3%
Applied egg-rr79.3%
Taylor expanded in y around 0 63.1%
tan-quot63.1%
add063.1%
Applied egg-rr63.1%
add063.1%
Simplified63.1%
Final simplification55.4%
(FPCore (x y z a) :precision binary64 (if (<= (+ y z) -1e-5) (- (+ x (tan y)) (tan a)) (+ (tan z) (- x (tan a)))))
double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -1e-5) {
tmp = (x + tan(y)) - tan(a);
} else {
tmp = tan(z) + (x - tan(a));
}
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) <= (-1d-5)) then
tmp = (x + tan(y)) - tan(a)
else
tmp = tan(z) + (x - tan(a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double tmp;
if ((y + z) <= -1e-5) {
tmp = (x + Math.tan(y)) - Math.tan(a);
} else {
tmp = Math.tan(z) + (x - Math.tan(a));
}
return tmp;
}
def code(x, y, z, a): tmp = 0 if (y + z) <= -1e-5: tmp = (x + math.tan(y)) - math.tan(a) else: tmp = math.tan(z) + (x - math.tan(a)) return tmp
function code(x, y, z, a) tmp = 0.0 if (Float64(y + z) <= -1e-5) tmp = Float64(Float64(x + tan(y)) - tan(a)); else tmp = Float64(tan(z) + Float64(x - tan(a))); end return tmp end
function tmp_2 = code(x, y, z, a) tmp = 0.0; if ((y + z) <= -1e-5) tmp = (x + tan(y)) - tan(a); else tmp = tan(z) + (x - tan(a)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := If[LessEqual[N[(y + z), $MachinePrecision], -1e-5], N[(N[(x + N[Tan[y], $MachinePrecision]), $MachinePrecision] - N[Tan[a], $MachinePrecision]), $MachinePrecision], N[(N[Tan[z], $MachinePrecision] + N[(x - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -1 \cdot 10^{-5}:\\
\;\;\;\;\left(x + \tan y\right) - \tan a\\
\mathbf{else}:\\
\;\;\;\;\tan z + \left(x - \tan a\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -1.00000000000000008e-5Initial program 72.3%
Taylor expanded in z around 0 43.9%
+-commutative43.9%
Simplified43.9%
tan-quot43.9%
sub-neg43.9%
tan-quot43.9%
Applied egg-rr43.9%
if -1.00000000000000008e-5 < (+.f64 y z) Initial program 79.3%
+-commutative79.3%
associate-+l-79.3%
Applied egg-rr79.3%
Taylor expanded in y around 0 63.1%
tan-quot63.1%
add063.1%
Applied egg-rr63.1%
add063.1%
Simplified63.1%
Final simplification55.4%
(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 76.5%
Final simplification76.5%
(FPCore (x y z a) :precision binary64 (if (or (<= (+ y z) -2.0) (not (<= (+ y z) 2e-32))) (+ x (tan (+ y z))) (+ z (- x (tan a)))))
double code(double x, double y, double z, double a) {
double tmp;
if (((y + z) <= -2.0) || !((y + z) <= 2e-32)) {
tmp = x + tan((y + z));
} else {
tmp = z + (x - tan(a));
}
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) <= (-2.0d0)) .or. (.not. ((y + z) <= 2d-32))) then
tmp = x + tan((y + z))
else
tmp = z + (x - tan(a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double a) {
double tmp;
if (((y + z) <= -2.0) || !((y + z) <= 2e-32)) {
tmp = x + Math.tan((y + z));
} else {
tmp = z + (x - Math.tan(a));
}
return tmp;
}
def code(x, y, z, a): tmp = 0 if ((y + z) <= -2.0) or not ((y + z) <= 2e-32): tmp = x + math.tan((y + z)) else: tmp = z + (x - math.tan(a)) return tmp
function code(x, y, z, a) tmp = 0.0 if ((Float64(y + z) <= -2.0) || !(Float64(y + z) <= 2e-32)) tmp = Float64(x + tan(Float64(y + z))); else tmp = Float64(z + Float64(x - tan(a))); end return tmp end
function tmp_2 = code(x, y, z, a) tmp = 0.0; if (((y + z) <= -2.0) || ~(((y + z) <= 2e-32))) tmp = x + tan((y + z)); else tmp = z + (x - tan(a)); end tmp_2 = tmp; end
code[x_, y_, z_, a_] := If[Or[LessEqual[N[(y + z), $MachinePrecision], -2.0], N[Not[LessEqual[N[(y + z), $MachinePrecision], 2e-32]], $MachinePrecision]], N[(x + N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(z + N[(x - N[Tan[a], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y + z \leq -2 \lor \neg \left(y + z \leq 2 \cdot 10^{-32}\right):\\
\;\;\;\;x + \tan \left(y + z\right)\\
\mathbf{else}:\\
\;\;\;\;z + \left(x - \tan a\right)\\
\end{array}
\end{array}
if (+.f64 y z) < -2 or 2.00000000000000011e-32 < (+.f64 y z) Initial program 71.0%
+-commutative71.0%
associate-+l-70.9%
Applied egg-rr70.9%
Taylor expanded in a around 0 45.0%
neg-mul-145.0%
Simplified45.0%
sub-neg45.0%
+-commutative45.0%
Applied egg-rr45.0%
remove-double-neg45.0%
+-commutative45.0%
+-commutative45.0%
Simplified45.0%
if -2 < (+.f64 y z) < 2.00000000000000011e-32Initial program 99.9%
+-commutative99.9%
associate-+l-99.8%
Applied egg-rr99.8%
Taylor expanded in y around 0 99.0%
Taylor expanded in z around 0 99.0%
Final simplification55.3%
(FPCore (x y z a) :precision binary64 (+ x (tan (+ y z))))
double code(double x, double y, double z, double a) {
return x + tan((y + z));
}
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))
end function
public static double code(double x, double y, double z, double a) {
return x + Math.tan((y + z));
}
def code(x, y, z, a): return x + math.tan((y + z))
function code(x, y, z, a) return Float64(x + tan(Float64(y + z))) end
function tmp = code(x, y, z, a) tmp = x + tan((y + z)); end
code[x_, y_, z_, a_] := N[(x + N[Tan[N[(y + z), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \tan \left(y + z\right)
\end{array}
Initial program 76.5%
+-commutative76.5%
associate-+l-76.5%
Applied egg-rr76.5%
Taylor expanded in a around 0 47.9%
neg-mul-147.9%
Simplified47.9%
sub-neg47.9%
+-commutative47.9%
Applied egg-rr47.9%
remove-double-neg47.9%
+-commutative47.9%
+-commutative47.9%
Simplified47.9%
Final simplification47.9%
(FPCore (x y z a) :precision binary64 x)
double code(double x, double y, double z, double a) {
return 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 = x
end function
public static double code(double x, double y, double z, double a) {
return x;
}
def code(x, y, z, a): return x
function code(x, y, z, a) return x end
function tmp = code(x, y, z, a) tmp = x; end
code[x_, y_, z_, a_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 76.5%
Taylor expanded in x around inf 30.2%
Final simplification30.2%
herbie shell --seed 2024046
(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))))