_divideComplex, imaginary part

Percentage Accurate: 61.2% → 84.1%
Time: 8.1s
Alternatives: 10
Speedup: 1.5×

Specification

?
\[\begin{array}{l} \\ \frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \end{array} \]
(FPCore (x.re x.im y.re y.im)
 :precision binary64
 (/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.im y.im))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
    real(8), intent (in) :: x_46re
    real(8), intent (in) :: x_46im
    real(8), intent (in) :: y_46re
    real(8), intent (in) :: y_46im
    code = ((x_46im * y_46re) - (x_46re * y_46im)) / ((y_46re * y_46re) + (y_46im * y_46im))
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
def code(x_46_re, x_46_im, y_46_re, y_46_im):
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im))
function code(x_46_re, x_46_im, y_46_re, y_46_im)
	return Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)))
end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im)
	tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\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 10 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: 61.2% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \end{array} \]
(FPCore (x.re x.im y.re y.im)
 :precision binary64
 (/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.im y.im))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
    real(8), intent (in) :: x_46re
    real(8), intent (in) :: x_46im
    real(8), intent (in) :: y_46re
    real(8), intent (in) :: y_46im
    code = ((x_46im * y_46re) - (x_46re * y_46im)) / ((y_46re * y_46re) + (y_46im * y_46im))
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
def code(x_46_re, x_46_im, y_46_re, y_46_im):
	return ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im))
function code(x_46_re, x_46_im, y_46_re, y_46_im)
	return Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)))
end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im)
	tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}

\\
\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\end{array}

Alternative 1: 84.1% accurate, 0.5× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)\\ t_1 := \mathsf{fma}\left(-x.re, \frac{y.im}{t\_0}, \frac{y.re}{t\_0} \cdot x.im\right)\\ \mathbf{if}\;y.re \leq -6.2 \cdot 10^{+47}:\\ \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\ \mathbf{elif}\;y.re \leq -1.26 \cdot 10^{-145}:\\ \;\;\;\;t\_1\\ \mathbf{elif}\;y.re \leq 4.25 \cdot 10^{-103}:\\ \;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\ \mathbf{elif}\;y.re \leq 4.2 \cdot 10^{+126}:\\ \;\;\;\;t\_1\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \end{array} \end{array} \]
(FPCore (x.re x.im y.re y.im)
 :precision binary64
 (let* ((t_0 (fma y.im y.im (* y.re y.re)))
        (t_1 (fma (- x.re) (/ y.im t_0) (* (/ y.re t_0) x.im))))
   (if (<= y.re -6.2e+47)
     (/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
     (if (<= y.re -1.26e-145)
       t_1
       (if (<= y.re 4.25e-103)
         (/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
         (if (<= y.re 4.2e+126)
           t_1
           (/ (- x.im (* y.im (/ x.re y.re))) y.re)))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
	double t_0 = fma(y_46_im, y_46_im, (y_46_re * y_46_re));
	double t_1 = fma(-x_46_re, (y_46_im / t_0), ((y_46_re / t_0) * x_46_im));
	double tmp;
	if (y_46_re <= -6.2e+47) {
		tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
	} else if (y_46_re <= -1.26e-145) {
		tmp = t_1;
	} else if (y_46_re <= 4.25e-103) {
		tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
	} else if (y_46_re <= 4.2e+126) {
		tmp = t_1;
	} else {
		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
	}
	return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im)
	t_0 = fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re))
	t_1 = fma(Float64(-x_46_re), Float64(y_46_im / t_0), Float64(Float64(y_46_re / t_0) * x_46_im))
	tmp = 0.0
	if (y_46_re <= -6.2e+47)
		tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re);
	elseif (y_46_re <= -1.26e-145)
		tmp = t_1;
	elseif (y_46_re <= 4.25e-103)
		tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im);
	elseif (y_46_re <= 4.2e+126)
		tmp = t_1;
	else
		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
	end
	return tmp
end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-x$46$re) * N[(y$46$im / t$95$0), $MachinePrecision] + N[(N[(y$46$re / t$95$0), $MachinePrecision] * x$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$re, -6.2e+47], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.26e-145], t$95$1, If[LessEqual[y$46$re, 4.25e-103], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 4.2e+126], t$95$1, N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]]]]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)\\
t_1 := \mathsf{fma}\left(-x.re, \frac{y.im}{t\_0}, \frac{y.re}{t\_0} \cdot x.im\right)\\
\mathbf{if}\;y.re \leq -6.2 \cdot 10^{+47}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\

\mathbf{elif}\;y.re \leq -1.26 \cdot 10^{-145}:\\
\;\;\;\;t\_1\\

\mathbf{elif}\;y.re \leq 4.25 \cdot 10^{-103}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\

\mathbf{elif}\;y.re \leq 4.2 \cdot 10^{+126}:\\
\;\;\;\;t\_1\\

\mathbf{else}:\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\


\end{array}
\end{array}
Derivation
  1. Split input into 4 regimes
  2. if y.re < -6.2000000000000001e47

    1. Initial program 43.7%

      \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
    2. Add Preprocessing
    3. Taylor expanded in y.re around inf

      \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
    4. Step-by-step derivation
      1. lower-/.f64N/A

        \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
      2. mul-1-negN/A

        \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
      3. unsub-negN/A

        \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
      4. lower--.f64N/A

        \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
      5. lower-/.f64N/A

        \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
      6. lower-*.f6478.5

        \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
    5. Applied rewrites78.5%

      \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
    6. Step-by-step derivation
      1. Applied rewrites91.5%

        \[\leadsto \frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re} \]

      if -6.2000000000000001e47 < y.re < -1.2599999999999999e-145 or 4.25000000000000016e-103 < y.re < 4.1999999999999998e126

      1. Initial program 75.3%

        \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
      2. Add Preprocessing
      3. Step-by-step derivation
        1. lift-/.f64N/A

          \[\leadsto \color{blue}{\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}} \]
        2. lift--.f64N/A

          \[\leadsto \frac{\color{blue}{x.im \cdot y.re - x.re \cdot y.im}}{y.re \cdot y.re + y.im \cdot y.im} \]
        3. div-subN/A

          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} - \frac{x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}} \]
        4. sub-negN/A

          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} + \left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\right)\right)} \]
        5. +-commutativeN/A

          \[\leadsto \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\right)\right) + \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}} \]
        6. lift-*.f64N/A

          \[\leadsto \left(\mathsf{neg}\left(\frac{\color{blue}{x.re \cdot y.im}}{y.re \cdot y.re + y.im \cdot y.im}\right)\right) + \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
        7. associate-/l*N/A

          \[\leadsto \left(\mathsf{neg}\left(\color{blue}{x.re \cdot \frac{y.im}{y.re \cdot y.re + y.im \cdot y.im}}\right)\right) + \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
        8. distribute-lft-neg-inN/A

          \[\leadsto \color{blue}{\left(\mathsf{neg}\left(x.re\right)\right) \cdot \frac{y.im}{y.re \cdot y.re + y.im \cdot y.im}} + \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
        9. lower-fma.f64N/A

          \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(x.re\right), \frac{y.im}{y.re \cdot y.re + y.im \cdot y.im}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right)} \]
        10. lower-neg.f64N/A

          \[\leadsto \mathsf{fma}\left(\color{blue}{-x.re}, \frac{y.im}{y.re \cdot y.re + y.im \cdot y.im}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        11. lower-/.f64N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \color{blue}{\frac{y.im}{y.re \cdot y.re + y.im \cdot y.im}}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        12. lift-+.f64N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\color{blue}{y.re \cdot y.re + y.im \cdot y.im}}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        13. +-commutativeN/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\color{blue}{y.im \cdot y.im + y.re \cdot y.re}}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        14. lift-*.f64N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\color{blue}{y.im \cdot y.im} + y.re \cdot y.re}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        15. lower-fma.f64N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\color{blue}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}}, \frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        16. lift-*.f64N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}, \frac{\color{blue}{x.im \cdot y.re}}{y.re \cdot y.re + y.im \cdot y.im}\right) \]
        17. associate-/l*N/A

          \[\leadsto \mathsf{fma}\left(-x.re, \frac{y.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}, \color{blue}{x.im \cdot \frac{y.re}{y.re \cdot y.re + y.im \cdot y.im}}\right) \]
      4. Applied rewrites82.4%

        \[\leadsto \color{blue}{\mathsf{fma}\left(-x.re, \frac{y.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}, \frac{y.re}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)} \cdot x.im\right)} \]

      if -1.2599999999999999e-145 < y.re < 4.25000000000000016e-103

      1. Initial program 64.4%

        \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
      2. Add Preprocessing
      3. Taylor expanded in y.re around 0

        \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im} + \frac{x.im \cdot y.re}{{y.im}^{2}}} \]
      4. Step-by-step derivation
        1. +-commutativeN/A

          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}} \]
        2. mul-1-negN/A

          \[\leadsto \frac{x.im \cdot y.re}{{y.im}^{2}} + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re}{y.im}\right)\right)} \]
        3. unsub-negN/A

          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} - \frac{x.re}{y.im}} \]
        4. unpow2N/A

          \[\leadsto \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im} \]
        5. associate-/r*N/A

          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im} \]
        6. div-subN/A

          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
        7. lower-/.f64N/A

          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
        8. lower--.f64N/A

          \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im} - x.re}}{y.im} \]
        9. lower-/.f64N/A

          \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im}} - x.re}{y.im} \]
        10. lower-*.f6493.5

          \[\leadsto \frac{\frac{\color{blue}{x.im \cdot y.re}}{y.im} - x.re}{y.im} \]
      5. Applied rewrites93.5%

        \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
      6. Step-by-step derivation
        1. Applied rewrites93.5%

          \[\leadsto \frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im} \]

        if 4.1999999999999998e126 < y.re

        1. Initial program 33.9%

          \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
        2. Add Preprocessing
        3. Taylor expanded in y.re around inf

          \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
        4. Step-by-step derivation
          1. lower-/.f64N/A

            \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
          2. mul-1-negN/A

            \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
          3. unsub-negN/A

            \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
          4. lower--.f64N/A

            \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
          5. lower-/.f64N/A

            \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
          6. lower-*.f6477.5

            \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
        5. Applied rewrites77.5%

          \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
        6. Step-by-step derivation
          1. Applied rewrites82.9%

            \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]
        7. Recombined 4 regimes into one program.
        8. Add Preprocessing

        Alternative 2: 77.2% accurate, 0.7× speedup?

        \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\ \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\ \mathbf{elif}\;y.re \leq 8.1 \cdot 10^{-103}:\\ \;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\ \mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\ \;\;\;\;\frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \end{array} \end{array} \]
        (FPCore (x.re x.im y.re y.im)
         :precision binary64
         (if (<= y.re -1.1e-139)
           (/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
           (if (<= y.re 8.1e-103)
             (/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
             (if (<= y.re 6e+120)
               (/ (fma (- y.im) x.re (* x.im y.re)) (fma y.im y.im (* y.re y.re)))
               (/ (- x.im (* y.im (/ x.re y.re))) y.re)))))
        double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
        	double tmp;
        	if (y_46_re <= -1.1e-139) {
        		tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
        	} else if (y_46_re <= 8.1e-103) {
        		tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
        	} else if (y_46_re <= 6e+120) {
        		tmp = fma(-y_46_im, x_46_re, (x_46_im * y_46_re)) / fma(y_46_im, y_46_im, (y_46_re * y_46_re));
        	} else {
        		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
        	}
        	return tmp;
        }
        
        function code(x_46_re, x_46_im, y_46_re, y_46_im)
        	tmp = 0.0
        	if (y_46_re <= -1.1e-139)
        		tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re);
        	elseif (y_46_re <= 8.1e-103)
        		tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im);
        	elseif (y_46_re <= 6e+120)
        		tmp = Float64(fma(Float64(-y_46_im), x_46_re, Float64(x_46_im * y_46_re)) / fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re)));
        	else
        		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
        	end
        	return tmp
        end
        
        code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 8.1e-103], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 6e+120], N[(N[((-y$46$im) * x$46$re + N[(x$46$im * y$46$re), $MachinePrecision]), $MachinePrecision] / N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]]
        
        \begin{array}{l}
        
        \\
        \begin{array}{l}
        \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
        \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
        
        \mathbf{elif}\;y.re \leq 8.1 \cdot 10^{-103}:\\
        \;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\
        
        \mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\
        \;\;\;\;\frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\
        
        \mathbf{else}:\\
        \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 4 regimes
        2. if y.re < -1.10000000000000005e-139

          1. Initial program 52.0%

            \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
          2. Add Preprocessing
          3. Taylor expanded in y.re around inf

            \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
          4. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
            2. mul-1-negN/A

              \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
            3. unsub-negN/A

              \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
            4. lower--.f64N/A

              \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
            5. lower-/.f64N/A

              \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
            6. lower-*.f6468.3

              \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
          5. Applied rewrites68.3%

            \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
          6. Step-by-step derivation
            1. Applied rewrites75.7%

              \[\leadsto \frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re} \]

            if -1.10000000000000005e-139 < y.re < 8.09999999999999979e-103

            1. Initial program 64.4%

              \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
            2. Add Preprocessing
            3. Taylor expanded in y.re around 0

              \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im} + \frac{x.im \cdot y.re}{{y.im}^{2}}} \]
            4. Step-by-step derivation
              1. +-commutativeN/A

                \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}} \]
              2. mul-1-negN/A

                \[\leadsto \frac{x.im \cdot y.re}{{y.im}^{2}} + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re}{y.im}\right)\right)} \]
              3. unsub-negN/A

                \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} - \frac{x.re}{y.im}} \]
              4. unpow2N/A

                \[\leadsto \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im} \]
              5. associate-/r*N/A

                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im} \]
              6. div-subN/A

                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
              7. lower-/.f64N/A

                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
              8. lower--.f64N/A

                \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im} - x.re}}{y.im} \]
              9. lower-/.f64N/A

                \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im}} - x.re}{y.im} \]
              10. lower-*.f6493.5

                \[\leadsto \frac{\frac{\color{blue}{x.im \cdot y.re}}{y.im} - x.re}{y.im} \]
            5. Applied rewrites93.5%

              \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
            6. Step-by-step derivation
              1. Applied rewrites93.5%

                \[\leadsto \frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im} \]

              if 8.09999999999999979e-103 < y.re < 6e120

              1. Initial program 85.4%

                \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
              2. Add Preprocessing
              3. Step-by-step derivation
                1. lift--.f64N/A

                  \[\leadsto \frac{\color{blue}{x.im \cdot y.re - x.re \cdot y.im}}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. sub-negN/A

                  \[\leadsto \frac{\color{blue}{x.im \cdot y.re + \left(\mathsf{neg}\left(x.re \cdot y.im\right)\right)}}{y.re \cdot y.re + y.im \cdot y.im} \]
                3. +-commutativeN/A

                  \[\leadsto \frac{\color{blue}{\left(\mathsf{neg}\left(x.re \cdot y.im\right)\right) + x.im \cdot y.re}}{y.re \cdot y.re + y.im \cdot y.im} \]
                4. lift-*.f64N/A

                  \[\leadsto \frac{\left(\mathsf{neg}\left(\color{blue}{x.re \cdot y.im}\right)\right) + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                5. *-commutativeN/A

                  \[\leadsto \frac{\left(\mathsf{neg}\left(\color{blue}{y.im \cdot x.re}\right)\right) + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                6. distribute-lft-neg-inN/A

                  \[\leadsto \frac{\color{blue}{\left(\mathsf{neg}\left(y.im\right)\right) \cdot x.re} + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                7. lower-fma.f64N/A

                  \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(y.im\right), x.re, x.im \cdot y.re\right)}}{y.re \cdot y.re + y.im \cdot y.im} \]
                8. lower-neg.f6485.4

                  \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{-y.im}, x.re, x.im \cdot y.re\right)}{y.re \cdot y.re + y.im \cdot y.im} \]
                9. lift-+.f64N/A

                  \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.re \cdot y.re + y.im \cdot y.im}} \]
                10. +-commutativeN/A

                  \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.im \cdot y.im + y.re \cdot y.re}} \]
                11. lift-*.f64N/A

                  \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.im \cdot y.im} + y.re \cdot y.re} \]
                12. lower-fma.f6485.4

                  \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}} \]
              4. Applied rewrites85.4%

                \[\leadsto \color{blue}{\frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}} \]

              if 6e120 < y.re

              1. Initial program 33.9%

                \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
              2. Add Preprocessing
              3. Taylor expanded in y.re around inf

                \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
              4. Step-by-step derivation
                1. lower-/.f64N/A

                  \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                2. mul-1-negN/A

                  \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                3. unsub-negN/A

                  \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                4. lower--.f64N/A

                  \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                5. lower-/.f64N/A

                  \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                6. lower-*.f6477.5

                  \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
              5. Applied rewrites77.5%

                \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
              6. Step-by-step derivation
                1. Applied rewrites82.9%

                  \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]
              7. Recombined 4 regimes into one program.
              8. Add Preprocessing

              Alternative 3: 64.6% accurate, 0.8× speedup?

              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{elif}\;y.re \leq 5.5 \cdot 10^{-99}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \mathbf{elif}\;y.re \leq 7.6 \cdot 10^{+62}:\\ \;\;\;\;\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \end{array} \end{array} \]
              (FPCore (x.re x.im y.re y.im)
               :precision binary64
               (if (<= y.re -2e+30)
                 (/ x.im y.re)
                 (if (<= y.re 5.5e-99)
                   (/ (- x.re) y.im)
                   (if (<= y.re 7.6e+62)
                     (/ (- (* x.im y.re) (* x.re y.im)) (* y.re y.re))
                     (/ x.im y.re)))))
              double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
              	double tmp;
              	if (y_46_re <= -2e+30) {
              		tmp = x_46_im / y_46_re;
              	} else if (y_46_re <= 5.5e-99) {
              		tmp = -x_46_re / y_46_im;
              	} else if (y_46_re <= 7.6e+62) {
              		tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re);
              	} else {
              		tmp = x_46_im / y_46_re;
              	}
              	return tmp;
              }
              
              real(8) function code(x_46re, x_46im, y_46re, y_46im)
                  real(8), intent (in) :: x_46re
                  real(8), intent (in) :: x_46im
                  real(8), intent (in) :: y_46re
                  real(8), intent (in) :: y_46im
                  real(8) :: tmp
                  if (y_46re <= (-2d+30)) then
                      tmp = x_46im / y_46re
                  else if (y_46re <= 5.5d-99) then
                      tmp = -x_46re / y_46im
                  else if (y_46re <= 7.6d+62) then
                      tmp = ((x_46im * y_46re) - (x_46re * y_46im)) / (y_46re * y_46re)
                  else
                      tmp = x_46im / y_46re
                  end if
                  code = tmp
              end function
              
              public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
              	double tmp;
              	if (y_46_re <= -2e+30) {
              		tmp = x_46_im / y_46_re;
              	} else if (y_46_re <= 5.5e-99) {
              		tmp = -x_46_re / y_46_im;
              	} else if (y_46_re <= 7.6e+62) {
              		tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re);
              	} else {
              		tmp = x_46_im / y_46_re;
              	}
              	return tmp;
              }
              
              def code(x_46_re, x_46_im, y_46_re, y_46_im):
              	tmp = 0
              	if y_46_re <= -2e+30:
              		tmp = x_46_im / y_46_re
              	elif y_46_re <= 5.5e-99:
              		tmp = -x_46_re / y_46_im
              	elif y_46_re <= 7.6e+62:
              		tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re)
              	else:
              		tmp = x_46_im / y_46_re
              	return tmp
              
              function code(x_46_re, x_46_im, y_46_re, y_46_im)
              	tmp = 0.0
              	if (y_46_re <= -2e+30)
              		tmp = Float64(x_46_im / y_46_re);
              	elseif (y_46_re <= 5.5e-99)
              		tmp = Float64(Float64(-x_46_re) / y_46_im);
              	elseif (y_46_re <= 7.6e+62)
              		tmp = Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(y_46_re * y_46_re));
              	else
              		tmp = Float64(x_46_im / y_46_re);
              	end
              	return tmp
              end
              
              function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im)
              	tmp = 0.0;
              	if (y_46_re <= -2e+30)
              		tmp = x_46_im / y_46_re;
              	elseif (y_46_re <= 5.5e-99)
              		tmp = -x_46_re / y_46_im;
              	elseif (y_46_re <= 7.6e+62)
              		tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re);
              	else
              		tmp = x_46_im / y_46_re;
              	end
              	tmp_2 = tmp;
              end
              
              code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -2e+30], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 5.5e-99], N[((-x$46$re) / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 7.6e+62], N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision], N[(x$46$im / y$46$re), $MachinePrecision]]]]
              
              \begin{array}{l}
              
              \\
              \begin{array}{l}
              \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\
              \;\;\;\;\frac{x.im}{y.re}\\
              
              \mathbf{elif}\;y.re \leq 5.5 \cdot 10^{-99}:\\
              \;\;\;\;\frac{-x.re}{y.im}\\
              
              \mathbf{elif}\;y.re \leq 7.6 \cdot 10^{+62}:\\
              \;\;\;\;\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re}\\
              
              \mathbf{else}:\\
              \;\;\;\;\frac{x.im}{y.re}\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 3 regimes
              2. if y.re < -2e30 or 7.59999999999999967e62 < y.re

                1. Initial program 45.1%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around inf

                  \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                4. Step-by-step derivation
                  1. lower-/.f6471.5

                    \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                5. Applied rewrites71.5%

                  \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]

                if -2e30 < y.re < 5.49999999999999991e-99

                1. Initial program 64.4%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around 0

                  \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im}} \]
                4. Step-by-step derivation
                  1. mul-1-negN/A

                    \[\leadsto \color{blue}{\mathsf{neg}\left(\frac{x.re}{y.im}\right)} \]
                  2. distribute-neg-frac2N/A

                    \[\leadsto \color{blue}{\frac{x.re}{\mathsf{neg}\left(y.im\right)}} \]
                  3. mul-1-negN/A

                    \[\leadsto \frac{x.re}{\color{blue}{-1 \cdot y.im}} \]
                  4. lower-/.f64N/A

                    \[\leadsto \color{blue}{\frac{x.re}{-1 \cdot y.im}} \]
                  5. mul-1-negN/A

                    \[\leadsto \frac{x.re}{\color{blue}{\mathsf{neg}\left(y.im\right)}} \]
                  6. lower-neg.f6469.3

                    \[\leadsto \frac{x.re}{\color{blue}{-y.im}} \]
                5. Applied rewrites69.3%

                  \[\leadsto \color{blue}{\frac{x.re}{-y.im}} \]

                if 5.49999999999999991e-99 < y.re < 7.59999999999999967e62

                1. Initial program 85.6%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around inf

                  \[\leadsto \frac{x.im \cdot y.re - x.re \cdot y.im}{\color{blue}{{y.re}^{2}}} \]
                4. Step-by-step derivation
                  1. unpow2N/A

                    \[\leadsto \frac{x.im \cdot y.re - x.re \cdot y.im}{\color{blue}{y.re \cdot y.re}} \]
                  2. lower-*.f6467.6

                    \[\leadsto \frac{x.im \cdot y.re - x.re \cdot y.im}{\color{blue}{y.re \cdot y.re}} \]
                5. Applied rewrites67.6%

                  \[\leadsto \frac{x.im \cdot y.re - x.re \cdot y.im}{\color{blue}{y.re \cdot y.re}} \]
              3. Recombined 3 regimes into one program.
              4. Final simplification70.1%

                \[\leadsto \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{elif}\;y.re \leq 5.5 \cdot 10^{-99}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \mathbf{elif}\;y.re \leq 7.6 \cdot 10^{+62}:\\ \;\;\;\;\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \end{array} \]
              5. Add Preprocessing

              Alternative 4: 64.4% accurate, 0.8× speedup?

              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{elif}\;y.re \leq 9.5 \cdot 10^{-101}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\ \;\;\;\;\frac{y.re \cdot x.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \end{array} \end{array} \]
              (FPCore (x.re x.im y.re y.im)
               :precision binary64
               (if (<= y.re -2e+30)
                 (/ x.im y.re)
                 (if (<= y.re 9.5e-101)
                   (/ (- x.re) y.im)
                   (if (<= y.re 6e+120)
                     (/ (* y.re x.im) (fma y.im y.im (* y.re y.re)))
                     (/ x.im y.re)))))
              double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
              	double tmp;
              	if (y_46_re <= -2e+30) {
              		tmp = x_46_im / y_46_re;
              	} else if (y_46_re <= 9.5e-101) {
              		tmp = -x_46_re / y_46_im;
              	} else if (y_46_re <= 6e+120) {
              		tmp = (y_46_re * x_46_im) / fma(y_46_im, y_46_im, (y_46_re * y_46_re));
              	} else {
              		tmp = x_46_im / y_46_re;
              	}
              	return tmp;
              }
              
              function code(x_46_re, x_46_im, y_46_re, y_46_im)
              	tmp = 0.0
              	if (y_46_re <= -2e+30)
              		tmp = Float64(x_46_im / y_46_re);
              	elseif (y_46_re <= 9.5e-101)
              		tmp = Float64(Float64(-x_46_re) / y_46_im);
              	elseif (y_46_re <= 6e+120)
              		tmp = Float64(Float64(y_46_re * x_46_im) / fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re)));
              	else
              		tmp = Float64(x_46_im / y_46_re);
              	end
              	return tmp
              end
              
              code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -2e+30], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 9.5e-101], N[((-x$46$re) / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 6e+120], N[(N[(y$46$re * x$46$im), $MachinePrecision] / N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x$46$im / y$46$re), $MachinePrecision]]]]
              
              \begin{array}{l}
              
              \\
              \begin{array}{l}
              \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\
              \;\;\;\;\frac{x.im}{y.re}\\
              
              \mathbf{elif}\;y.re \leq 9.5 \cdot 10^{-101}:\\
              \;\;\;\;\frac{-x.re}{y.im}\\
              
              \mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\
              \;\;\;\;\frac{y.re \cdot x.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\
              
              \mathbf{else}:\\
              \;\;\;\;\frac{x.im}{y.re}\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 3 regimes
              2. if y.re < -2e30 or 6e120 < y.re

                1. Initial program 41.1%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around inf

                  \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                4. Step-by-step derivation
                  1. lower-/.f6472.1

                    \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                5. Applied rewrites72.1%

                  \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]

                if -2e30 < y.re < 9.49999999999999994e-101

                1. Initial program 63.8%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around 0

                  \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im}} \]
                4. Step-by-step derivation
                  1. mul-1-negN/A

                    \[\leadsto \color{blue}{\mathsf{neg}\left(\frac{x.re}{y.im}\right)} \]
                  2. distribute-neg-frac2N/A

                    \[\leadsto \color{blue}{\frac{x.re}{\mathsf{neg}\left(y.im\right)}} \]
                  3. mul-1-negN/A

                    \[\leadsto \frac{x.re}{\color{blue}{-1 \cdot y.im}} \]
                  4. lower-/.f64N/A

                    \[\leadsto \color{blue}{\frac{x.re}{-1 \cdot y.im}} \]
                  5. mul-1-negN/A

                    \[\leadsto \frac{x.re}{\color{blue}{\mathsf{neg}\left(y.im\right)}} \]
                  6. lower-neg.f6469.6

                    \[\leadsto \frac{x.re}{\color{blue}{-y.im}} \]
                5. Applied rewrites69.6%

                  \[\leadsto \color{blue}{\frac{x.re}{-y.im}} \]

                if 9.49999999999999994e-101 < y.re < 6e120

                1. Initial program 85.1%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Step-by-step derivation
                  1. lift--.f64N/A

                    \[\leadsto \frac{\color{blue}{x.im \cdot y.re - x.re \cdot y.im}}{y.re \cdot y.re + y.im \cdot y.im} \]
                  2. sub-negN/A

                    \[\leadsto \frac{\color{blue}{x.im \cdot y.re + \left(\mathsf{neg}\left(x.re \cdot y.im\right)\right)}}{y.re \cdot y.re + y.im \cdot y.im} \]
                  3. +-commutativeN/A

                    \[\leadsto \frac{\color{blue}{\left(\mathsf{neg}\left(x.re \cdot y.im\right)\right) + x.im \cdot y.re}}{y.re \cdot y.re + y.im \cdot y.im} \]
                  4. lift-*.f64N/A

                    \[\leadsto \frac{\left(\mathsf{neg}\left(\color{blue}{x.re \cdot y.im}\right)\right) + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                  5. *-commutativeN/A

                    \[\leadsto \frac{\left(\mathsf{neg}\left(\color{blue}{y.im \cdot x.re}\right)\right) + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                  6. distribute-lft-neg-inN/A

                    \[\leadsto \frac{\color{blue}{\left(\mathsf{neg}\left(y.im\right)\right) \cdot x.re} + x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} \]
                  7. lower-fma.f64N/A

                    \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{neg}\left(y.im\right), x.re, x.im \cdot y.re\right)}}{y.re \cdot y.re + y.im \cdot y.im} \]
                  8. lower-neg.f6485.1

                    \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{-y.im}, x.re, x.im \cdot y.re\right)}{y.re \cdot y.re + y.im \cdot y.im} \]
                  9. lift-+.f64N/A

                    \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.re \cdot y.re + y.im \cdot y.im}} \]
                  10. +-commutativeN/A

                    \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.im \cdot y.im + y.re \cdot y.re}} \]
                  11. lift-*.f64N/A

                    \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{y.im \cdot y.im} + y.re \cdot y.re} \]
                  12. lower-fma.f6485.1

                    \[\leadsto \frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\color{blue}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}} \]
                4. Applied rewrites85.1%

                  \[\leadsto \color{blue}{\frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}} \]
                5. Taylor expanded in x.re around 0

                  \[\leadsto \frac{\color{blue}{x.im \cdot y.re}}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)} \]
                6. Step-by-step derivation
                  1. *-commutativeN/A

                    \[\leadsto \frac{\color{blue}{y.re \cdot x.im}}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)} \]
                  2. lower-*.f6465.4

                    \[\leadsto \frac{\color{blue}{y.re \cdot x.im}}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)} \]
                7. Applied rewrites65.4%

                  \[\leadsto \frac{\color{blue}{y.re \cdot x.im}}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)} \]
              3. Recombined 3 regimes into one program.
              4. Final simplification69.9%

                \[\leadsto \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{elif}\;y.re \leq 9.5 \cdot 10^{-101}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\ \;\;\;\;\frac{y.re \cdot x.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im}{y.re}\\ \end{array} \]
              5. Add Preprocessing

              Alternative 5: 78.3% accurate, 0.9× speedup?

              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 2.05 \cdot 10^{-57}\right):\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\ \end{array} \end{array} \]
              (FPCore (x.re x.im y.re y.im)
               :precision binary64
               (if (or (<= y.re -2e+30) (not (<= y.re 2.05e-57)))
                 (/ (- x.im (* y.im (/ x.re y.re))) y.re)
                 (/ (- (/ (* x.im y.re) y.im) x.re) y.im)))
              double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
              	double tmp;
              	if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57)) {
              		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
              	} else {
              		tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
              	}
              	return tmp;
              }
              
              real(8) function code(x_46re, x_46im, y_46re, y_46im)
                  real(8), intent (in) :: x_46re
                  real(8), intent (in) :: x_46im
                  real(8), intent (in) :: y_46re
                  real(8), intent (in) :: y_46im
                  real(8) :: tmp
                  if ((y_46re <= (-2d+30)) .or. (.not. (y_46re <= 2.05d-57))) then
                      tmp = (x_46im - (y_46im * (x_46re / y_46re))) / y_46re
                  else
                      tmp = (((x_46im * y_46re) / y_46im) - x_46re) / y_46im
                  end if
                  code = tmp
              end function
              
              public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
              	double tmp;
              	if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57)) {
              		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
              	} else {
              		tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
              	}
              	return tmp;
              }
              
              def code(x_46_re, x_46_im, y_46_re, y_46_im):
              	tmp = 0
              	if (y_46_re <= -2e+30) or not (y_46_re <= 2.05e-57):
              		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re
              	else:
              		tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im
              	return tmp
              
              function code(x_46_re, x_46_im, y_46_re, y_46_im)
              	tmp = 0.0
              	if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57))
              		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
              	else
              		tmp = Float64(Float64(Float64(Float64(x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im);
              	end
              	return tmp
              end
              
              function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im)
              	tmp = 0.0;
              	if ((y_46_re <= -2e+30) || ~((y_46_re <= 2.05e-57)))
              		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
              	else
              		tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
              	end
              	tmp_2 = tmp;
              end
              
              code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -2e+30], N[Not[LessEqual[y$46$re, 2.05e-57]], $MachinePrecision]], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], N[(N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]]
              
              \begin{array}{l}
              
              \\
              \begin{array}{l}
              \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 2.05 \cdot 10^{-57}\right):\\
              \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
              
              \mathbf{else}:\\
              \;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 2 regimes
              2. if y.re < -2e30 or 2.0500000000000001e-57 < y.re

                1. Initial program 51.0%

                  \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                2. Add Preprocessing
                3. Taylor expanded in y.re around inf

                  \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                4. Step-by-step derivation
                  1. lower-/.f64N/A

                    \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                  2. mul-1-negN/A

                    \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                  3. unsub-negN/A

                    \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                  4. lower--.f64N/A

                    \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                  5. lower-/.f64N/A

                    \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                  6. lower-*.f6474.2

                    \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                5. Applied rewrites74.2%

                  \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                6. Step-by-step derivation
                  1. Applied rewrites80.7%

                    \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]

                  if -2e30 < y.re < 2.0500000000000001e-57

                  1. Initial program 66.1%

                    \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                  2. Add Preprocessing
                  3. Taylor expanded in y.re around 0

                    \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im} + \frac{x.im \cdot y.re}{{y.im}^{2}}} \]
                  4. Step-by-step derivation
                    1. +-commutativeN/A

                      \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}} \]
                    2. mul-1-negN/A

                      \[\leadsto \frac{x.im \cdot y.re}{{y.im}^{2}} + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re}{y.im}\right)\right)} \]
                    3. unsub-negN/A

                      \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} - \frac{x.re}{y.im}} \]
                    4. unpow2N/A

                      \[\leadsto \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im} \]
                    5. associate-/r*N/A

                      \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im} \]
                    6. div-subN/A

                      \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                    7. lower-/.f64N/A

                      \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                    8. lower--.f64N/A

                      \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im} - x.re}}{y.im} \]
                    9. lower-/.f64N/A

                      \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im}} - x.re}{y.im} \]
                    10. lower-*.f6483.1

                      \[\leadsto \frac{\frac{\color{blue}{x.im \cdot y.re}}{y.im} - x.re}{y.im} \]
                  5. Applied rewrites83.1%

                    \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                7. Recombined 2 regimes into one program.
                8. Final simplification81.8%

                  \[\leadsto \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 2.05 \cdot 10^{-57}\right):\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\ \end{array} \]
                9. Add Preprocessing

                Alternative 6: 68.6% accurate, 0.9× speedup?

                \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -6 \cdot 10^{-146} \lor \neg \left(y.re \leq 5.5 \cdot 10^{-99}\right):\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \end{array} \end{array} \]
                (FPCore (x.re x.im y.re y.im)
                 :precision binary64
                 (if (or (<= y.re -6e-146) (not (<= y.re 5.5e-99)))
                   (/ (- x.im (* y.im (/ x.re y.re))) y.re)
                   (/ (- x.re) y.im)))
                double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                	double tmp;
                	if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99)) {
                		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
                	} else {
                		tmp = -x_46_re / y_46_im;
                	}
                	return tmp;
                }
                
                real(8) function code(x_46re, x_46im, y_46re, y_46im)
                    real(8), intent (in) :: x_46re
                    real(8), intent (in) :: x_46im
                    real(8), intent (in) :: y_46re
                    real(8), intent (in) :: y_46im
                    real(8) :: tmp
                    if ((y_46re <= (-6d-146)) .or. (.not. (y_46re <= 5.5d-99))) then
                        tmp = (x_46im - (y_46im * (x_46re / y_46re))) / y_46re
                    else
                        tmp = -x_46re / y_46im
                    end if
                    code = tmp
                end function
                
                public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                	double tmp;
                	if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99)) {
                		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
                	} else {
                		tmp = -x_46_re / y_46_im;
                	}
                	return tmp;
                }
                
                def code(x_46_re, x_46_im, y_46_re, y_46_im):
                	tmp = 0
                	if (y_46_re <= -6e-146) or not (y_46_re <= 5.5e-99):
                		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re
                	else:
                		tmp = -x_46_re / y_46_im
                	return tmp
                
                function code(x_46_re, x_46_im, y_46_re, y_46_im)
                	tmp = 0.0
                	if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99))
                		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
                	else
                		tmp = Float64(Float64(-x_46_re) / y_46_im);
                	end
                	return tmp
                end
                
                function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im)
                	tmp = 0.0;
                	if ((y_46_re <= -6e-146) || ~((y_46_re <= 5.5e-99)))
                		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
                	else
                		tmp = -x_46_re / y_46_im;
                	end
                	tmp_2 = tmp;
                end
                
                code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -6e-146], N[Not[LessEqual[y$46$re, 5.5e-99]], $MachinePrecision]], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], N[((-x$46$re) / y$46$im), $MachinePrecision]]
                
                \begin{array}{l}
                
                \\
                \begin{array}{l}
                \mathbf{if}\;y.re \leq -6 \cdot 10^{-146} \lor \neg \left(y.re \leq 5.5 \cdot 10^{-99}\right):\\
                \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
                
                \mathbf{else}:\\
                \;\;\;\;\frac{-x.re}{y.im}\\
                
                
                \end{array}
                \end{array}
                
                Derivation
                1. Split input into 2 regimes
                2. if y.re < -6.00000000000000038e-146 or 5.49999999999999991e-99 < y.re

                  1. Initial program 54.6%

                    \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                  2. Add Preprocessing
                  3. Taylor expanded in y.re around inf

                    \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                  4. Step-by-step derivation
                    1. lower-/.f64N/A

                      \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                    2. mul-1-negN/A

                      \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                    3. unsub-negN/A

                      \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                    4. lower--.f64N/A

                      \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                    5. lower-/.f64N/A

                      \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                    6. lower-*.f6470.8

                      \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                  5. Applied rewrites70.8%

                    \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                  6. Step-by-step derivation
                    1. Applied rewrites74.2%

                      \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]

                    if -6.00000000000000038e-146 < y.re < 5.49999999999999991e-99

                    1. Initial program 65.1%

                      \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                    2. Add Preprocessing
                    3. Taylor expanded in y.re around 0

                      \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im}} \]
                    4. Step-by-step derivation
                      1. mul-1-negN/A

                        \[\leadsto \color{blue}{\mathsf{neg}\left(\frac{x.re}{y.im}\right)} \]
                      2. distribute-neg-frac2N/A

                        \[\leadsto \color{blue}{\frac{x.re}{\mathsf{neg}\left(y.im\right)}} \]
                      3. mul-1-negN/A

                        \[\leadsto \frac{x.re}{\color{blue}{-1 \cdot y.im}} \]
                      4. lower-/.f64N/A

                        \[\leadsto \color{blue}{\frac{x.re}{-1 \cdot y.im}} \]
                      5. mul-1-negN/A

                        \[\leadsto \frac{x.re}{\color{blue}{\mathsf{neg}\left(y.im\right)}} \]
                      6. lower-neg.f6476.8

                        \[\leadsto \frac{x.re}{\color{blue}{-y.im}} \]
                    5. Applied rewrites76.8%

                      \[\leadsto \color{blue}{\frac{x.re}{-y.im}} \]
                  7. Recombined 2 regimes into one program.
                  8. Final simplification75.1%

                    \[\leadsto \begin{array}{l} \mathbf{if}\;y.re \leq -6 \cdot 10^{-146} \lor \neg \left(y.re \leq 5.5 \cdot 10^{-99}\right):\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \end{array} \]
                  9. Add Preprocessing

                  Alternative 7: 75.0% accurate, 0.9× speedup?

                  \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\ \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\ \mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\ \;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \end{array} \end{array} \]
                  (FPCore (x.re x.im y.re y.im)
                   :precision binary64
                   (if (<= y.re -1.1e-139)
                     (/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
                     (if (<= y.re 2.05e-57)
                       (/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
                       (/ (- x.im (* y.im (/ x.re y.re))) y.re))))
                  double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                  	double tmp;
                  	if (y_46_re <= -1.1e-139) {
                  		tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
                  	} else if (y_46_re <= 2.05e-57) {
                  		tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
                  	} else {
                  		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
                  	}
                  	return tmp;
                  }
                  
                  function code(x_46_re, x_46_im, y_46_re, y_46_im)
                  	tmp = 0.0
                  	if (y_46_re <= -1.1e-139)
                  		tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re);
                  	elseif (y_46_re <= 2.05e-57)
                  		tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im);
                  	else
                  		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
                  	end
                  	return tmp
                  end
                  
                  code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.05e-57], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]
                  
                  \begin{array}{l}
                  
                  \\
                  \begin{array}{l}
                  \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
                  \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
                  
                  \mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\
                  \;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\
                  
                  \mathbf{else}:\\
                  \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
                  
                  
                  \end{array}
                  \end{array}
                  
                  Derivation
                  1. Split input into 3 regimes
                  2. if y.re < -1.10000000000000005e-139

                    1. Initial program 52.0%

                      \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                    2. Add Preprocessing
                    3. Taylor expanded in y.re around inf

                      \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                    4. Step-by-step derivation
                      1. lower-/.f64N/A

                        \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                      2. mul-1-negN/A

                        \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                      3. unsub-negN/A

                        \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                      4. lower--.f64N/A

                        \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                      5. lower-/.f64N/A

                        \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                      6. lower-*.f6468.3

                        \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                    5. Applied rewrites68.3%

                      \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                    6. Step-by-step derivation
                      1. Applied rewrites75.7%

                        \[\leadsto \frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re} \]

                      if -1.10000000000000005e-139 < y.re < 2.0500000000000001e-57

                      1. Initial program 67.6%

                        \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                      2. Add Preprocessing
                      3. Taylor expanded in y.re around 0

                        \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im} + \frac{x.im \cdot y.re}{{y.im}^{2}}} \]
                      4. Step-by-step derivation
                        1. +-commutativeN/A

                          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}} \]
                        2. mul-1-negN/A

                          \[\leadsto \frac{x.im \cdot y.re}{{y.im}^{2}} + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re}{y.im}\right)\right)} \]
                        3. unsub-negN/A

                          \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} - \frac{x.re}{y.im}} \]
                        4. unpow2N/A

                          \[\leadsto \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im} \]
                        5. associate-/r*N/A

                          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im} \]
                        6. div-subN/A

                          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                        7. lower-/.f64N/A

                          \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                        8. lower--.f64N/A

                          \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im} - x.re}}{y.im} \]
                        9. lower-/.f64N/A

                          \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im}} - x.re}{y.im} \]
                        10. lower-*.f6491.2

                          \[\leadsto \frac{\frac{\color{blue}{x.im \cdot y.re}}{y.im} - x.re}{y.im} \]
                      5. Applied rewrites91.2%

                        \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                      6. Step-by-step derivation
                        1. Applied rewrites91.2%

                          \[\leadsto \frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im} \]

                        if 2.0500000000000001e-57 < y.re

                        1. Initial program 53.2%

                          \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                        2. Add Preprocessing
                        3. Taylor expanded in y.re around inf

                          \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                        4. Step-by-step derivation
                          1. lower-/.f64N/A

                            \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                          2. mul-1-negN/A

                            \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                          3. unsub-negN/A

                            \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                          4. lower--.f64N/A

                            \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                          5. lower-/.f64N/A

                            \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                          6. lower-*.f6473.2

                            \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                        5. Applied rewrites73.2%

                          \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                        6. Step-by-step derivation
                          1. Applied rewrites76.5%

                            \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]
                        7. Recombined 3 regimes into one program.
                        8. Add Preprocessing

                        Alternative 8: 75.1% accurate, 0.9× speedup?

                        \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\ \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\ \mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\ \;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\ \mathbf{else}:\\ \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\ \end{array} \end{array} \]
                        (FPCore (x.re x.im y.re y.im)
                         :precision binary64
                         (if (<= y.re -1.1e-139)
                           (/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
                           (if (<= y.re 2.05e-57)
                             (/ (- (/ (* x.im y.re) y.im) x.re) y.im)
                             (/ (- x.im (* y.im (/ x.re y.re))) y.re))))
                        double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                        	double tmp;
                        	if (y_46_re <= -1.1e-139) {
                        		tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
                        	} else if (y_46_re <= 2.05e-57) {
                        		tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
                        	} else {
                        		tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
                        	}
                        	return tmp;
                        }
                        
                        function code(x_46_re, x_46_im, y_46_re, y_46_im)
                        	tmp = 0.0
                        	if (y_46_re <= -1.1e-139)
                        		tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re);
                        	elseif (y_46_re <= 2.05e-57)
                        		tmp = Float64(Float64(Float64(Float64(x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im);
                        	else
                        		tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re);
                        	end
                        	return tmp
                        end
                        
                        code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.05e-57], N[(N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]
                        
                        \begin{array}{l}
                        
                        \\
                        \begin{array}{l}
                        \mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
                        \;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
                        
                        \mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\
                        \;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\
                        
                        \mathbf{else}:\\
                        \;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
                        
                        
                        \end{array}
                        \end{array}
                        
                        Derivation
                        1. Split input into 3 regimes
                        2. if y.re < -1.10000000000000005e-139

                          1. Initial program 52.0%

                            \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                          2. Add Preprocessing
                          3. Taylor expanded in y.re around inf

                            \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                          4. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                            2. mul-1-negN/A

                              \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                            3. unsub-negN/A

                              \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                            4. lower--.f64N/A

                              \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                            5. lower-/.f64N/A

                              \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                            6. lower-*.f6468.3

                              \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                          5. Applied rewrites68.3%

                            \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                          6. Step-by-step derivation
                            1. Applied rewrites75.7%

                              \[\leadsto \frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re} \]

                            if -1.10000000000000005e-139 < y.re < 2.0500000000000001e-57

                            1. Initial program 67.6%

                              \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                            2. Add Preprocessing
                            3. Taylor expanded in y.re around 0

                              \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im} + \frac{x.im \cdot y.re}{{y.im}^{2}}} \]
                            4. Step-by-step derivation
                              1. +-commutativeN/A

                                \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}} \]
                              2. mul-1-negN/A

                                \[\leadsto \frac{x.im \cdot y.re}{{y.im}^{2}} + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re}{y.im}\right)\right)} \]
                              3. unsub-negN/A

                                \[\leadsto \color{blue}{\frac{x.im \cdot y.re}{{y.im}^{2}} - \frac{x.re}{y.im}} \]
                              4. unpow2N/A

                                \[\leadsto \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im} \]
                              5. associate-/r*N/A

                                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im} \]
                              6. div-subN/A

                                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                              7. lower-/.f64N/A

                                \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]
                              8. lower--.f64N/A

                                \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im} - x.re}}{y.im} \]
                              9. lower-/.f64N/A

                                \[\leadsto \frac{\color{blue}{\frac{x.im \cdot y.re}{y.im}} - x.re}{y.im} \]
                              10. lower-*.f6491.2

                                \[\leadsto \frac{\frac{\color{blue}{x.im \cdot y.re}}{y.im} - x.re}{y.im} \]
                            5. Applied rewrites91.2%

                              \[\leadsto \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}} \]

                            if 2.0500000000000001e-57 < y.re

                            1. Initial program 53.2%

                              \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                            2. Add Preprocessing
                            3. Taylor expanded in y.re around inf

                              \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                            4. Step-by-step derivation
                              1. lower-/.f64N/A

                                \[\leadsto \color{blue}{\frac{x.im + -1 \cdot \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                              2. mul-1-negN/A

                                \[\leadsto \frac{x.im + \color{blue}{\left(\mathsf{neg}\left(\frac{x.re \cdot y.im}{y.re}\right)\right)}}{y.re} \]
                              3. unsub-negN/A

                                \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                              4. lower--.f64N/A

                                \[\leadsto \frac{\color{blue}{x.im - \frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                              5. lower-/.f64N/A

                                \[\leadsto \frac{x.im - \color{blue}{\frac{x.re \cdot y.im}{y.re}}}{y.re} \]
                              6. lower-*.f6473.2

                                \[\leadsto \frac{x.im - \frac{\color{blue}{x.re \cdot y.im}}{y.re}}{y.re} \]
                            5. Applied rewrites73.2%

                              \[\leadsto \color{blue}{\frac{x.im - \frac{x.re \cdot y.im}{y.re}}{y.re}} \]
                            6. Step-by-step derivation
                              1. Applied rewrites76.5%

                                \[\leadsto \frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re} \]
                            7. Recombined 3 regimes into one program.
                            8. Add Preprocessing

                            Alternative 9: 62.8% accurate, 1.5× speedup?

                            \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 6.5 \cdot 10^{-99}\right):\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \end{array} \end{array} \]
                            (FPCore (x.re x.im y.re y.im)
                             :precision binary64
                             (if (or (<= y.re -2e+30) (not (<= y.re 6.5e-99)))
                               (/ x.im y.re)
                               (/ (- x.re) y.im)))
                            double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                            	double tmp;
                            	if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99)) {
                            		tmp = x_46_im / y_46_re;
                            	} else {
                            		tmp = -x_46_re / y_46_im;
                            	}
                            	return tmp;
                            }
                            
                            real(8) function code(x_46re, x_46im, y_46re, y_46im)
                                real(8), intent (in) :: x_46re
                                real(8), intent (in) :: x_46im
                                real(8), intent (in) :: y_46re
                                real(8), intent (in) :: y_46im
                                real(8) :: tmp
                                if ((y_46re <= (-2d+30)) .or. (.not. (y_46re <= 6.5d-99))) then
                                    tmp = x_46im / y_46re
                                else
                                    tmp = -x_46re / y_46im
                                end if
                                code = tmp
                            end function
                            
                            public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                            	double tmp;
                            	if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99)) {
                            		tmp = x_46_im / y_46_re;
                            	} else {
                            		tmp = -x_46_re / y_46_im;
                            	}
                            	return tmp;
                            }
                            
                            def code(x_46_re, x_46_im, y_46_re, y_46_im):
                            	tmp = 0
                            	if (y_46_re <= -2e+30) or not (y_46_re <= 6.5e-99):
                            		tmp = x_46_im / y_46_re
                            	else:
                            		tmp = -x_46_re / y_46_im
                            	return tmp
                            
                            function code(x_46_re, x_46_im, y_46_re, y_46_im)
                            	tmp = 0.0
                            	if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99))
                            		tmp = Float64(x_46_im / y_46_re);
                            	else
                            		tmp = Float64(Float64(-x_46_re) / y_46_im);
                            	end
                            	return tmp
                            end
                            
                            function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im)
                            	tmp = 0.0;
                            	if ((y_46_re <= -2e+30) || ~((y_46_re <= 6.5e-99)))
                            		tmp = x_46_im / y_46_re;
                            	else
                            		tmp = -x_46_re / y_46_im;
                            	end
                            	tmp_2 = tmp;
                            end
                            
                            code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -2e+30], N[Not[LessEqual[y$46$re, 6.5e-99]], $MachinePrecision]], N[(x$46$im / y$46$re), $MachinePrecision], N[((-x$46$re) / y$46$im), $MachinePrecision]]
                            
                            \begin{array}{l}
                            
                            \\
                            \begin{array}{l}
                            \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 6.5 \cdot 10^{-99}\right):\\
                            \;\;\;\;\frac{x.im}{y.re}\\
                            
                            \mathbf{else}:\\
                            \;\;\;\;\frac{-x.re}{y.im}\\
                            
                            
                            \end{array}
                            \end{array}
                            
                            Derivation
                            1. Split input into 2 regimes
                            2. if y.re < -2e30 or 6.50000000000000033e-99 < y.re

                              1. Initial program 53.1%

                                \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                              2. Add Preprocessing
                              3. Taylor expanded in y.re around inf

                                \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                              4. Step-by-step derivation
                                1. lower-/.f6467.1

                                  \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                              5. Applied rewrites67.1%

                                \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]

                              if -2e30 < y.re < 6.50000000000000033e-99

                              1. Initial program 64.4%

                                \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                              2. Add Preprocessing
                              3. Taylor expanded in y.re around 0

                                \[\leadsto \color{blue}{-1 \cdot \frac{x.re}{y.im}} \]
                              4. Step-by-step derivation
                                1. mul-1-negN/A

                                  \[\leadsto \color{blue}{\mathsf{neg}\left(\frac{x.re}{y.im}\right)} \]
                                2. distribute-neg-frac2N/A

                                  \[\leadsto \color{blue}{\frac{x.re}{\mathsf{neg}\left(y.im\right)}} \]
                                3. mul-1-negN/A

                                  \[\leadsto \frac{x.re}{\color{blue}{-1 \cdot y.im}} \]
                                4. lower-/.f64N/A

                                  \[\leadsto \color{blue}{\frac{x.re}{-1 \cdot y.im}} \]
                                5. mul-1-negN/A

                                  \[\leadsto \frac{x.re}{\color{blue}{\mathsf{neg}\left(y.im\right)}} \]
                                6. lower-neg.f6469.3

                                  \[\leadsto \frac{x.re}{\color{blue}{-y.im}} \]
                              5. Applied rewrites69.3%

                                \[\leadsto \color{blue}{\frac{x.re}{-y.im}} \]
                            3. Recombined 2 regimes into one program.
                            4. Final simplification68.1%

                              \[\leadsto \begin{array}{l} \mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 6.5 \cdot 10^{-99}\right):\\ \;\;\;\;\frac{x.im}{y.re}\\ \mathbf{else}:\\ \;\;\;\;\frac{-x.re}{y.im}\\ \end{array} \]
                            5. Add Preprocessing

                            Alternative 10: 43.7% accurate, 3.2× speedup?

                            \[\begin{array}{l} \\ \frac{x.im}{y.re} \end{array} \]
                            (FPCore (x.re x.im y.re y.im) :precision binary64 (/ x.im y.re))
                            double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                            	return x_46_im / y_46_re;
                            }
                            
                            real(8) function code(x_46re, x_46im, y_46re, y_46im)
                                real(8), intent (in) :: x_46re
                                real(8), intent (in) :: x_46im
                                real(8), intent (in) :: y_46re
                                real(8), intent (in) :: y_46im
                                code = x_46im / y_46re
                            end function
                            
                            public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
                            	return x_46_im / y_46_re;
                            }
                            
                            def code(x_46_re, x_46_im, y_46_re, y_46_im):
                            	return x_46_im / y_46_re
                            
                            function code(x_46_re, x_46_im, y_46_re, y_46_im)
                            	return Float64(x_46_im / y_46_re)
                            end
                            
                            function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im)
                            	tmp = x_46_im / y_46_re;
                            end
                            
                            code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(x$46$im / y$46$re), $MachinePrecision]
                            
                            \begin{array}{l}
                            
                            \\
                            \frac{x.im}{y.re}
                            \end{array}
                            
                            Derivation
                            1. Initial program 58.3%

                              \[\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \]
                            2. Add Preprocessing
                            3. Taylor expanded in y.re around inf

                              \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                            4. Step-by-step derivation
                              1. lower-/.f6442.4

                                \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                            5. Applied rewrites42.4%

                              \[\leadsto \color{blue}{\frac{x.im}{y.re}} \]
                            6. Add Preprocessing

                            Reproduce

                            ?
                            herbie shell --seed 2024313 
                            (FPCore (x.re x.im y.re y.im)
                              :name "_divideComplex, imaginary part"
                              :precision binary64
                              (/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.im y.im))))