tan-example (used to crash)

Percentage Accurate: 79.2% → 99.7%
Time: 44.4s
Alternatives: 9
Speedup: 1.0×

Specification

?
\[\left(\left(\left(x = 0 \lor 0.5884142 \leq x \land x \leq 505.5909\right) \land \left(-1.796658 \cdot 10^{+308} \leq y \land y \leq -9.425585 \cdot 10^{-310} \lor 1.284938 \cdot 10^{-309} \leq y \land y \leq 1.751224 \cdot 10^{+308}\right)\right) \land \left(-1.776707 \cdot 10^{+308} \leq z \land z \leq -8.599796 \cdot 10^{-310} \lor 3.293145 \cdot 10^{-311} \leq z \land z \leq 1.725154 \cdot 10^{+308}\right)\right) \land \left(-1.796658 \cdot 10^{+308} \leq a \land a \leq -9.425585 \cdot 10^{-310} \lor 1.284938 \cdot 10^{-309} \leq a \land a \leq 1.751224 \cdot 10^{+308}\right)\]
\[\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 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:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 9 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 79.2% accurate, 1.0× speedup?

\[\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 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}

Alternative 1: 99.7% accurate, 0.2× speedup?

\[\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} \]
(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}
Derivation
  1. Initial program 79.7%

    \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-tan.f64N/A

      \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
    2. lift-+.f64N/A

      \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
    3. tan-sumN/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    4. lower-/.f64N/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    5. +-commutativeN/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    6. lower-+.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    7. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    8. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    9. sub-negN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
    10. +-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
    11. *-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
    12. distribute-lft-neg-inN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
    13. lower-fma.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
    14. lower-neg.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
    15. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
    16. lower-tan.f6499.7

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
  4. Applied rewrites99.7%

    \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
  5. Step-by-step derivation
    1. lift-fma.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(-\tan z\right) \cdot \tan y + 1}} - \tan a\right) \]
    2. flip-+N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{\left(\left(-\tan z\right) \cdot \tan y\right) \cdot \left(\left(-\tan z\right) \cdot \tan y\right) - 1 \cdot 1}{\left(-\tan z\right) \cdot \tan y - 1}}} - \tan a\right) \]
    3. metadata-evalN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{\left(\left(-\tan z\right) \cdot \tan y\right) \cdot \left(\left(-\tan z\right) \cdot \tan y\right) - \color{blue}{1}}{\left(-\tan z\right) \cdot \tan y - 1}} - \tan a\right) \]
    4. div-subN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{\left(\left(-\tan z\right) \cdot \tan y\right) \cdot \left(\left(-\tan z\right) \cdot \tan y\right)}{\left(-\tan z\right) \cdot \tan y - 1} - \frac{1}{\left(-\tan z\right) \cdot \tan y - 1}}} - \tan a\right) \]
    5. lower--.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{\left(\left(-\tan z\right) \cdot \tan y\right) \cdot \left(\left(-\tan z\right) \cdot \tan y\right)}{\left(-\tan z\right) \cdot \tan y - 1} - \frac{1}{\left(-\tan z\right) \cdot \tan y - 1}}} - \tan a\right) \]
  6. Applied rewrites99.7%

    \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{{\left(\tan y \cdot \tan z\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} - {\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}}} - \tan a\right) \]
  7. Step-by-step derivation
    1. lift--.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{{\left(\tan y \cdot \tan z\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} - {\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}}} - \tan a\right) \]
    2. sub-negN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{{\left(\tan y \cdot \tan z\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left({\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}\right)\right)}} - \tan a\right) \]
    3. lower-+.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{{\left(\tan y \cdot \tan z\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left({\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}\right)\right)}} - \tan a\right) \]
    4. lift-*.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\color{blue}{\left(\tan y \cdot \tan z\right)}}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left({\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}\right)\right)} - \tan a\right) \]
    5. *-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\color{blue}{\left(\tan z \cdot \tan y\right)}}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left({\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}\right)\right)} - \tan a\right) \]
    6. lower-*.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\color{blue}{\left(\tan z \cdot \tan y\right)}}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left({\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}\right)\right)} - \tan a\right) \]
    7. lift-pow.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left(\color{blue}{{\left(\mathsf{fma}\left(-\tan z, \tan y, -1\right)\right)}^{-1}}\right)\right)} - \tan a\right) \]
    8. unpow-1N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \left(\mathsf{neg}\left(\color{blue}{\frac{1}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}}\right)\right)} - \tan a\right) \]
    9. distribute-neg-fracN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \color{blue}{\frac{\mathsf{neg}\left(1\right)}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}}} - \tan a\right) \]
    10. metadata-evalN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \frac{\color{blue}{-1}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}} - \tan a\right) \]
    11. lower-/.f6499.7

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \color{blue}{\frac{-1}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}}} - \tan a\right) \]
  8. Applied rewrites99.7%

    \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\frac{{\left(\tan z \cdot \tan y\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \frac{-1}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}}} - \tan a\right) \]
  9. Final simplification99.7%

    \[\leadsto \left(\frac{\tan y + \tan z}{\frac{-1}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)} + \frac{{\left(\tan y \cdot \tan z\right)}^{2}}{\mathsf{fma}\left(-\tan z, \tan y, -1\right)}} - \tan a\right) + x \]
  10. Add Preprocessing

Alternative 2: 99.7% accurate, 0.4× speedup?

\[\begin{array}{l} \\ \left(\frac{\tan y + \tan z}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \tan a\right) + x \end{array} \]
(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}
Derivation
  1. Initial program 79.7%

    \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-tan.f64N/A

      \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
    2. lift-+.f64N/A

      \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
    3. tan-sumN/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    4. lower-/.f64N/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    5. +-commutativeN/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    6. lower-+.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    7. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    8. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    9. sub-negN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
    10. +-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
    11. *-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
    12. distribute-lft-neg-inN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
    13. lower-fma.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
    14. lower-neg.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
    15. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
    16. lower-tan.f6499.7

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
  4. Applied rewrites99.7%

    \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
  5. Final simplification99.7%

    \[\leadsto \left(\frac{\tan y + \tan z}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \tan a\right) + x \]
  6. Add Preprocessing

Alternative 3: 99.7% accurate, 0.4× speedup?

\[\begin{array}{l} \\ \left(\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z} - \tan a\right) + x \end{array} \]
(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}
Derivation
  1. Initial program 79.7%

    \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-tan.f64N/A

      \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
    2. lift-+.f64N/A

      \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
    3. tan-sumN/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    4. lower-/.f64N/A

      \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
    5. +-commutativeN/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    6. lower-+.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    7. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    8. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
    9. sub-negN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
    10. +-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
    11. *-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
    12. distribute-lft-neg-inN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
    13. lower-fma.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
    14. lower-neg.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
    15. lower-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
    16. lower-tan.f6499.7

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
  4. Applied rewrites99.7%

    \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
  5. Step-by-step derivation
    1. lift-fma.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(-\tan z\right) \cdot \tan y + 1}} - \tan a\right) \]
    2. +-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(-\tan z\right) \cdot \tan y}} - \tan a\right) \]
    3. lift-neg.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 + \color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right)} \cdot \tan y} - \tan a\right) \]
    4. cancel-sign-sub-invN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 - \tan z \cdot \tan y}} - \tan a\right) \]
    5. lift-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \color{blue}{\tan z} \cdot \tan y} - \tan a\right) \]
    6. lift-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \tan z \cdot \color{blue}{\tan y}} - \tan a\right) \]
    7. lower--.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 - \tan z \cdot \tan y}} - \tan a\right) \]
    8. lift-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \color{blue}{\tan z} \cdot \tan y} - \tan a\right) \]
    9. lift-tan.f64N/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \tan z \cdot \color{blue}{\tan y}} - \tan a\right) \]
    10. *-commutativeN/A

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \color{blue}{\tan y \cdot \tan z}} - \tan a\right) \]
    11. lower-*.f6499.7

      \[\leadsto x + \left(\frac{\tan z + \tan y}{1 - \color{blue}{\tan y \cdot \tan z}} - \tan a\right) \]
  6. Applied rewrites99.7%

    \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
  7. Final simplification99.7%

    \[\leadsto \left(\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z} - \tan a\right) + x \]
  8. Add Preprocessing

Alternative 4: 89.3% accurate, 0.5× speedup?

\[\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} \]
(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}
Derivation
  1. Split input into 3 regimes
  2. if a < -0.0050000000000000001

    1. Initial program 77.5%

      \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-tan.f64N/A

        \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
      2. lift-+.f64N/A

        \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
      3. tan-sumN/A

        \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
      4. lower-/.f64N/A

        \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
      5. +-commutativeN/A

        \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
      6. lower-+.f64N/A

        \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
      7. lower-tan.f64N/A

        \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
      8. lower-tan.f64N/A

        \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
      9. sub-negN/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
      10. +-commutativeN/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
      11. *-commutativeN/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
      12. distribute-lft-neg-inN/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
      13. lower-fma.f64N/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
      14. lower-neg.f64N/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
      15. lower-tan.f64N/A

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
      16. lower-tan.f6499.6

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
    4. Applied rewrites99.6%

      \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
    5. Taylor expanded in y around 0

      \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]
    6. Step-by-step derivation
      1. Applied rewrites78.1%

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]

      if -0.0050000000000000001 < a < 3.8e-6

      1. Initial program 81.0%

        \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
      2. Add Preprocessing
      3. Step-by-step derivation
        1. lift-tan.f64N/A

          \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
        2. lift-+.f64N/A

          \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
        3. tan-sumN/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        4. lower-/.f64N/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        5. +-commutativeN/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        6. lower-+.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        7. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        8. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        9. sub-negN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
        10. +-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
        11. *-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
        12. distribute-lft-neg-inN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
        13. lower-fma.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
        14. lower-neg.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
        15. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
        16. lower-tan.f6499.7

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
      4. Applied rewrites99.7%

        \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
      5. Taylor expanded in a around 0

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{a \cdot \left(1 + \frac{1}{3} \cdot {a}^{2}\right)}\right) \]
      6. Step-by-step derivation
        1. *-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{\left(1 + \frac{1}{3} \cdot {a}^{2}\right) \cdot a}\right) \]
        2. lower-*.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{\left(1 + \frac{1}{3} \cdot {a}^{2}\right) \cdot a}\right) \]
        3. +-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{\left(\frac{1}{3} \cdot {a}^{2} + 1\right)} \cdot a\right) \]
        4. *-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \left(\color{blue}{{a}^{2} \cdot \frac{1}{3}} + 1\right) \cdot a\right) \]
        5. lower-fma.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{\mathsf{fma}\left({a}^{2}, \frac{1}{3}, 1\right)} \cdot a\right) \]
        6. unpow2N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \mathsf{fma}\left(\color{blue}{a \cdot a}, \frac{1}{3}, 1\right) \cdot a\right) \]
        7. lower-*.f6499.7

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \mathsf{fma}\left(\color{blue}{a \cdot a}, 0.3333333333333333, 1\right) \cdot a\right) \]
      7. Applied rewrites99.7%

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)} - \color{blue}{\mathsf{fma}\left(a \cdot a, 0.3333333333333333, 1\right) \cdot a}\right) \]

      if 3.8e-6 < a

      1. Initial program 79.3%

        \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
      2. Add Preprocessing
    7. Recombined 3 regimes into one program.
    8. Final simplification89.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;a \leq -0.005:\\ \;\;\;\;\left(\frac{\tan y + \tan z}{1} - \tan a\right) + x\\ \mathbf{elif}\;a \leq 3.8 \cdot 10^{-6}:\\ \;\;\;\;\left(\frac{\tan y + \tan z}{\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} \]
    9. Add Preprocessing

    Alternative 5: 89.1% accurate, 0.5× speedup?

    \[\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} \]
    (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}
    
    Derivation
    1. Split input into 3 regimes
    2. if a < -3.9e-10

      1. Initial program 77.5%

        \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
      2. Add Preprocessing
      3. Step-by-step derivation
        1. lift-tan.f64N/A

          \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
        2. lift-+.f64N/A

          \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
        3. tan-sumN/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        4. lower-/.f64N/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        5. +-commutativeN/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        6. lower-+.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        7. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        8. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        9. sub-negN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
        10. +-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
        11. *-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
        12. distribute-lft-neg-inN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
        13. lower-fma.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
        14. lower-neg.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
        15. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
        16. lower-tan.f6499.6

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
      4. Applied rewrites99.6%

        \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
      5. Taylor expanded in y around 0

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]
      6. Step-by-step derivation
        1. Applied rewrites78.1%

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]

        if -3.9e-10 < a < 1.94999999999999997e-12

        1. Initial program 81.0%

          \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
        2. Add Preprocessing
        3. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \color{blue}{x + \left(\tan \left(y + z\right) - \tan a\right)} \]
          2. +-commutativeN/A

            \[\leadsto \color{blue}{\left(\tan \left(y + z\right) - \tan a\right) + x} \]
          3. lift--.f64N/A

            \[\leadsto \color{blue}{\left(\tan \left(y + z\right) - \tan a\right)} + x \]
          4. associate-+l-N/A

            \[\leadsto \color{blue}{\tan \left(y + z\right) - \left(\tan a - x\right)} \]
          5. lower--.f64N/A

            \[\leadsto \color{blue}{\tan \left(y + z\right) - \left(\tan a - x\right)} \]
          6. lift-+.f64N/A

            \[\leadsto \tan \color{blue}{\left(y + z\right)} - \left(\tan a - x\right) \]
          7. +-commutativeN/A

            \[\leadsto \tan \color{blue}{\left(z + y\right)} - \left(\tan a - x\right) \]
          8. lower-+.f64N/A

            \[\leadsto \tan \color{blue}{\left(z + y\right)} - \left(\tan a - x\right) \]
          9. lower--.f6481.0

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(\tan a - x\right)} \]
        4. Applied rewrites81.0%

          \[\leadsto \color{blue}{\tan \left(z + y\right) - \left(\tan a - x\right)} \]
        5. Taylor expanded in x around inf

          \[\leadsto \tan \left(z + y\right) - \color{blue}{-1 \cdot x} \]
        6. Step-by-step derivation
          1. mul-1-negN/A

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(\mathsf{neg}\left(x\right)\right)} \]
          2. lower-neg.f6481.0

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(-x\right)} \]
        7. Applied rewrites81.0%

          \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(-x\right)} \]
        8. Step-by-step derivation
          1. lift-tan.f64N/A

            \[\leadsto \color{blue}{\tan \left(z + y\right)} - \left(-x\right) \]
          2. lift-+.f64N/A

            \[\leadsto \tan \color{blue}{\left(z + y\right)} - \left(-x\right) \]
          3. tan-sumN/A

            \[\leadsto \color{blue}{\frac{\tan z + \tan y}{1 - \tan z \cdot \tan y}} - \left(-x\right) \]
          4. lift-tan.f64N/A

            \[\leadsto \frac{\color{blue}{\tan z} + \tan y}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          5. lift-tan.f64N/A

            \[\leadsto \frac{\tan z + \color{blue}{\tan y}}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          6. lift-+.f64N/A

            \[\leadsto \frac{\color{blue}{\tan z + \tan y}}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          7. lower-/.f64N/A

            \[\leadsto \color{blue}{\frac{\tan z + \tan y}{1 - \tan z \cdot \tan y}} - \left(-x\right) \]
          8. lift-+.f64N/A

            \[\leadsto \frac{\color{blue}{\tan z + \tan y}}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          9. +-commutativeN/A

            \[\leadsto \frac{\color{blue}{\tan y + \tan z}}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          10. lower-+.f64N/A

            \[\leadsto \frac{\color{blue}{\tan y + \tan z}}{1 - \tan z \cdot \tan y} - \left(-x\right) \]
          11. lift-tan.f64N/A

            \[\leadsto \frac{\tan y + \tan z}{1 - \color{blue}{\tan z} \cdot \tan y} - \left(-x\right) \]
          12. lift-tan.f64N/A

            \[\leadsto \frac{\tan y + \tan z}{1 - \tan z \cdot \color{blue}{\tan y}} - \left(-x\right) \]
          13. lift-*.f64N/A

            \[\leadsto \frac{\tan y + \tan z}{1 - \color{blue}{\tan z \cdot \tan y}} - \left(-x\right) \]
          14. lower--.f6499.7

            \[\leadsto \frac{\tan y + \tan z}{\color{blue}{1 - \tan z \cdot \tan y}} - \left(-x\right) \]
          15. lift-*.f64N/A

            \[\leadsto \frac{\tan y + \tan z}{1 - \color{blue}{\tan z \cdot \tan y}} - \left(-x\right) \]
          16. *-commutativeN/A

            \[\leadsto \frac{\tan y + \tan z}{1 - \color{blue}{\tan y \cdot \tan z}} - \left(-x\right) \]
          17. lower-*.f6499.7

            \[\leadsto \frac{\tan y + \tan z}{1 - \color{blue}{\tan y \cdot \tan z}} - \left(-x\right) \]
        9. Applied rewrites99.7%

          \[\leadsto \color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \left(-x\right) \]

        if 1.94999999999999997e-12 < a

        1. Initial program 79.3%

          \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
        2. Add Preprocessing
      7. Recombined 3 regimes into one program.
      8. Final simplification89.2%

        \[\leadsto \begin{array}{l} \mathbf{if}\;a \leq -3.9 \cdot 10^{-10}:\\ \;\;\;\;\left(\frac{\tan y + \tan z}{1} - \tan a\right) + x\\ \mathbf{elif}\;a \leq 1.95 \cdot 10^{-12}:\\ \;\;\;\;\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z} - \left(-x\right)\\ \mathbf{else}:\\ \;\;\;\;\left(\tan \left(y + z\right) - \tan a\right) + x\\ \end{array} \]
      9. Add Preprocessing

      Alternative 6: 79.5% accurate, 0.7× speedup?

      \[\begin{array}{l} \\ \left(\frac{\tan y + \tan z}{1} - \tan a\right) + x \end{array} \]
      (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}
      
      Derivation
      1. Initial program 79.7%

        \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
      2. Add Preprocessing
      3. Step-by-step derivation
        1. lift-tan.f64N/A

          \[\leadsto x + \left(\color{blue}{\tan \left(y + z\right)} - \tan a\right) \]
        2. lift-+.f64N/A

          \[\leadsto x + \left(\tan \color{blue}{\left(y + z\right)} - \tan a\right) \]
        3. tan-sumN/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        4. lower-/.f64N/A

          \[\leadsto x + \left(\color{blue}{\frac{\tan y + \tan z}{1 - \tan y \cdot \tan z}} - \tan a\right) \]
        5. +-commutativeN/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        6. lower-+.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z + \tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        7. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\color{blue}{\tan z} + \tan y}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        8. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \color{blue}{\tan y}}{1 - \tan y \cdot \tan z} - \tan a\right) \]
        9. sub-negN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1 + \left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right)}} - \tan a\right) \]
        10. +-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan y \cdot \tan z\right)\right) + 1}} - \tan a\right) \]
        11. *-commutativeN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\left(\mathsf{neg}\left(\color{blue}{\tan z \cdot \tan y}\right)\right) + 1} - \tan a\right) \]
        12. distribute-lft-neg-inN/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\left(\mathsf{neg}\left(\tan z\right)\right) \cdot \tan y} + 1} - \tan a\right) \]
        13. lower-fma.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(\tan z\right), \tan y, 1\right)}} - \tan a\right) \]
        14. lower-neg.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(\color{blue}{-\tan z}, \tan y, 1\right)} - \tan a\right) \]
        15. lower-tan.f64N/A

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\color{blue}{\tan z}, \tan y, 1\right)} - \tan a\right) \]
        16. lower-tan.f6499.7

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \color{blue}{\tan y}, 1\right)} - \tan a\right) \]
      4. Applied rewrites99.7%

        \[\leadsto x + \left(\color{blue}{\frac{\tan z + \tan y}{\mathsf{fma}\left(-\tan z, \tan y, 1\right)}} - \tan a\right) \]
      5. Taylor expanded in y around 0

        \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]
      6. Step-by-step derivation
        1. Applied rewrites79.8%

          \[\leadsto x + \left(\frac{\tan z + \tan y}{\color{blue}{1}} - \tan a\right) \]
        2. Final simplification79.8%

          \[\leadsto \left(\frac{\tan y + \tan z}{1} - \tan a\right) + x \]
        3. Add Preprocessing

        Alternative 7: 79.2% accurate, 1.0× speedup?

        \[\begin{array}{l} \\ \left(\tan \left(y + z\right) - \tan a\right) + x \end{array} \]
        (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}
        
        Derivation
        1. Initial program 79.7%

          \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
        2. Add Preprocessing
        3. Final simplification79.7%

          \[\leadsto \left(\tan \left(y + z\right) - \tan a\right) + x \]
        4. Add Preprocessing

        Alternative 8: 50.1% accurate, 1.9× speedup?

        \[\begin{array}{l} \\ \tan \left(y + z\right) - \left(-x\right) \end{array} \]
        (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}
        
        Derivation
        1. Initial program 79.7%

          \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
        2. Add Preprocessing
        3. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \color{blue}{x + \left(\tan \left(y + z\right) - \tan a\right)} \]
          2. +-commutativeN/A

            \[\leadsto \color{blue}{\left(\tan \left(y + z\right) - \tan a\right) + x} \]
          3. lift--.f64N/A

            \[\leadsto \color{blue}{\left(\tan \left(y + z\right) - \tan a\right)} + x \]
          4. associate-+l-N/A

            \[\leadsto \color{blue}{\tan \left(y + z\right) - \left(\tan a - x\right)} \]
          5. lower--.f64N/A

            \[\leadsto \color{blue}{\tan \left(y + z\right) - \left(\tan a - x\right)} \]
          6. lift-+.f64N/A

            \[\leadsto \tan \color{blue}{\left(y + z\right)} - \left(\tan a - x\right) \]
          7. +-commutativeN/A

            \[\leadsto \tan \color{blue}{\left(z + y\right)} - \left(\tan a - x\right) \]
          8. lower-+.f64N/A

            \[\leadsto \tan \color{blue}{\left(z + y\right)} - \left(\tan a - x\right) \]
          9. lower--.f6479.7

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(\tan a - x\right)} \]
        4. Applied rewrites79.7%

          \[\leadsto \color{blue}{\tan \left(z + y\right) - \left(\tan a - x\right)} \]
        5. Taylor expanded in x around inf

          \[\leadsto \tan \left(z + y\right) - \color{blue}{-1 \cdot x} \]
        6. Step-by-step derivation
          1. mul-1-negN/A

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(\mathsf{neg}\left(x\right)\right)} \]
          2. lower-neg.f6452.1

            \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(-x\right)} \]
        7. Applied rewrites52.1%

          \[\leadsto \tan \left(z + y\right) - \color{blue}{\left(-x\right)} \]
        8. Final simplification52.1%

          \[\leadsto \tan \left(y + z\right) - \left(-x\right) \]
        9. Add Preprocessing

        Alternative 9: 31.7% accurate, 9.1× speedup?

        \[\begin{array}{l} \\ \frac{1}{\frac{1}{x}} \end{array} \]
        (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}
        
        Derivation
        1. Initial program 79.7%

          \[x + \left(\tan \left(y + z\right) - \tan a\right) \]
        2. Add Preprocessing
        3. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \color{blue}{x + \left(\tan \left(y + z\right) - \tan a\right)} \]
          2. flip3-+N/A

            \[\leadsto \color{blue}{\frac{{x}^{3} + {\left(\tan \left(y + z\right) - \tan a\right)}^{3}}{x \cdot x + \left(\left(\tan \left(y + z\right) - \tan a\right) \cdot \left(\tan \left(y + z\right) - \tan a\right) - x \cdot \left(\tan \left(y + z\right) - \tan a\right)\right)}} \]
          3. clear-numN/A

            \[\leadsto \color{blue}{\frac{1}{\frac{x \cdot x + \left(\left(\tan \left(y + z\right) - \tan a\right) \cdot \left(\tan \left(y + z\right) - \tan a\right) - x \cdot \left(\tan \left(y + z\right) - \tan a\right)\right)}{{x}^{3} + {\left(\tan \left(y + z\right) - \tan a\right)}^{3}}}} \]
          4. lower-/.f64N/A

            \[\leadsto \color{blue}{\frac{1}{\frac{x \cdot x + \left(\left(\tan \left(y + z\right) - \tan a\right) \cdot \left(\tan \left(y + z\right) - \tan a\right) - x \cdot \left(\tan \left(y + z\right) - \tan a\right)\right)}{{x}^{3} + {\left(\tan \left(y + z\right) - \tan a\right)}^{3}}}} \]
          5. clear-numN/A

            \[\leadsto \frac{1}{\color{blue}{\frac{1}{\frac{{x}^{3} + {\left(\tan \left(y + z\right) - \tan a\right)}^{3}}{x \cdot x + \left(\left(\tan \left(y + z\right) - \tan a\right) \cdot \left(\tan \left(y + z\right) - \tan a\right) - x \cdot \left(\tan \left(y + z\right) - \tan a\right)\right)}}}} \]
          6. flip3-+N/A

            \[\leadsto \frac{1}{\frac{1}{\color{blue}{x + \left(\tan \left(y + z\right) - \tan a\right)}}} \]
          7. lift-+.f64N/A

            \[\leadsto \frac{1}{\frac{1}{\color{blue}{x + \left(\tan \left(y + z\right) - \tan a\right)}}} \]
          8. lower-/.f6479.6

            \[\leadsto \frac{1}{\color{blue}{\frac{1}{x + \left(\tan \left(y + z\right) - \tan a\right)}}} \]
        4. Applied rewrites79.6%

          \[\leadsto \color{blue}{\frac{1}{\frac{1}{\tan \left(z + y\right) - \left(\tan a - x\right)}}} \]
        5. Taylor expanded in x around inf

          \[\leadsto \frac{1}{\color{blue}{\frac{1}{x}}} \]
        6. Step-by-step derivation
          1. lower-/.f6429.0

            \[\leadsto \frac{1}{\color{blue}{\frac{1}{x}}} \]
        7. Applied rewrites29.0%

          \[\leadsto \frac{1}{\color{blue}{\frac{1}{x}}} \]
        8. Add Preprocessing

        Reproduce

        ?
        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))))