(FPCore (x y z t a) :precision binary64 (/ (- (* x y) (* z t)) a))
↓
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- (* x y) (* z t))) (t_2 (fma -1.0 (/ t (/ a z)) (/ y (/ a x)))))
(if (<= t_1 -5e+258) t_2 (if (<= t_1 5e+225) (/ t_1 a) t_2))))
double code(double x, double y, double z, double t, double a) {
return ((x * y) - (z * t)) / a;
}
↓
double code(double x, double y, double z, double t, double a) {
double t_1 = (x * y) - (z * t);
double t_2 = fma(-1.0, (t / (a / z)), (y / (a / x)));
double tmp;
if (t_1 <= -5e+258) {
tmp = t_2;
} else if (t_1 <= 5e+225) {
tmp = t_1 / a;
} else {
tmp = t_2;
}
return tmp;
}
function code(x, y, z, t, a)
return Float64(Float64(Float64(x * y) - Float64(z * t)) / a)
end
↓
function code(x, y, z, t, a)
t_1 = Float64(Float64(x * y) - Float64(z * t))
t_2 = fma(-1.0, Float64(t / Float64(a / z)), Float64(y / Float64(a / x)))
tmp = 0.0
if (t_1 <= -5e+258)
tmp = t_2;
elseif (t_1 <= 5e+225)
tmp = Float64(t_1 / a);
else
tmp = t_2;
end
return tmp
end
(fma.f64 -1 (/.f64 t (/.f64 a z)) (/.f64 y (/.f64 a x))): 0 points increase in error, 0 points decrease in error
(fma.f64 -1 (Rewrite<= associate-/l*_binary64 (/.f64 (*.f64 t z) a)) (/.f64 y (/.f64 a x))): 31 points increase in error, 34 points decrease in error
(fma.f64 -1 (/.f64 (*.f64 t z) a) (Rewrite<= associate-/l*_binary64 (/.f64 (*.f64 y x) a))): 31 points increase in error, 39 points decrease in error
(Rewrite<= fma-def_binary64 (+.f64 (*.f64 -1 (/.f64 (*.f64 t z) a)) (/.f64 (*.f64 y x) a))): 0 points increase in error, 0 points decrease in error
(Rewrite=> +-commutative_binary64 (+.f64 (/.f64 (*.f64 y x) a) (*.f64 -1 (/.f64 (*.f64 t z) a)))): 0 points increase in error, 0 points decrease in error
(+.f64 (/.f64 (*.f64 y x) a) (Rewrite=> mul-1-neg_binary64 (neg.f64 (/.f64 (*.f64 t z) a)))): 0 points increase in error, 0 points decrease in error
(Rewrite=> unsub-neg_binary64 (-.f64 (/.f64 (*.f64 y x) a) (/.f64 (*.f64 t z) a))): 0 points increase in error, 0 points decrease in error
(Rewrite<= div-sub_binary64 (/.f64 (-.f64 (*.f64 y x) (*.f64 t z)) a)): 1 points increase in error, 1 points decrease in error
if -5e258 < (-.f64 (*.f64 x y) (*.f64 z t)) < 4.99999999999999981e225
Initial program 0.9
\[\frac{x \cdot y - z \cdot t}{a}
\]
Recombined 2 regimes into one program.
Final simplification0.8
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \cdot y - z \cdot t \leq -5 \cdot 10^{+258}:\\
\;\;\;\;\mathsf{fma}\left(-1, \frac{t}{\frac{a}{z}}, \frac{y}{\frac{a}{x}}\right)\\
\mathbf{elif}\;x \cdot y - z \cdot t \leq 5 \cdot 10^{+225}:\\
\;\;\;\;\frac{x \cdot y - z \cdot t}{a}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-1, \frac{t}{\frac{a}{z}}, \frac{y}{\frac{a}{x}}\right)\\
\end{array}
\]
herbie shell --seed 2022317
(FPCore (x y z t a)
:name "Data.Colour.Matrix:inverse from colour-2.3.3, B"
:precision binary64
:herbie-target
(if (< z -2.468684968699548e+170) (- (* (/ y a) x) (* (/ t a) z)) (if (< z 6.309831121978371e-71) (/ (- (* x y) (* z t)) a) (- (* (/ y a) x) (* (/ t a) z))))
(/ (- (* x y) (* z t)) a))