\frac{x \cdot y - z \cdot t}{a}\begin{array}{l}
\mathbf{if}\;a \le -3.15371004913535115448520191961472535508 \cdot 10^{201}:\\
\;\;\;\;\mathsf{fma}\left(-\frac{t}{\sqrt[3]{a} \cdot \sqrt[3]{a}}, \frac{z}{\sqrt[3]{a}}, \frac{1}{\frac{\frac{a}{y}}{x}}\right) + \frac{t}{\sqrt[3]{a} \cdot \sqrt[3]{a}} \cdot \left(\left(-\frac{z}{\sqrt[3]{a}}\right) + \frac{z}{\sqrt[3]{a}}\right)\\
\mathbf{elif}\;a \le 2.040075352769508416644879369622871361138 \cdot 10^{-47}:\\
\;\;\;\;\frac{1}{a} \cdot \left(x \cdot y - t \cdot z\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-\frac{t}{\sqrt[3]{a} \cdot \sqrt[3]{a}}, \frac{z}{\sqrt[3]{a}}, \frac{x}{\frac{a}{y}}\right) + \frac{t}{\sqrt[3]{a} \cdot \sqrt[3]{a}} \cdot \mathsf{fma}\left(\frac{\sqrt[3]{z} \cdot \sqrt[3]{z}}{\sqrt[3]{\sqrt{a}}}, -\frac{\sqrt[3]{z}}{\sqrt[3]{\sqrt{a}}}, \frac{z}{\sqrt[3]{a}}\right)\\
\end{array}double f(double x, double y, double z, double t, double a) {
double r518956 = x;
double r518957 = y;
double r518958 = r518956 * r518957;
double r518959 = z;
double r518960 = t;
double r518961 = r518959 * r518960;
double r518962 = r518958 - r518961;
double r518963 = a;
double r518964 = r518962 / r518963;
return r518964;
}
double f(double x, double y, double z, double t, double a) {
double r518965 = a;
double r518966 = -3.153710049135351e+201;
bool r518967 = r518965 <= r518966;
double r518968 = t;
double r518969 = cbrt(r518965);
double r518970 = r518969 * r518969;
double r518971 = r518968 / r518970;
double r518972 = -r518971;
double r518973 = z;
double r518974 = r518973 / r518969;
double r518975 = 1.0;
double r518976 = y;
double r518977 = r518965 / r518976;
double r518978 = x;
double r518979 = r518977 / r518978;
double r518980 = r518975 / r518979;
double r518981 = fma(r518972, r518974, r518980);
double r518982 = -r518974;
double r518983 = r518982 + r518974;
double r518984 = r518971 * r518983;
double r518985 = r518981 + r518984;
double r518986 = 2.0400753527695084e-47;
bool r518987 = r518965 <= r518986;
double r518988 = r518975 / r518965;
double r518989 = r518978 * r518976;
double r518990 = r518968 * r518973;
double r518991 = r518989 - r518990;
double r518992 = r518988 * r518991;
double r518993 = r518978 / r518977;
double r518994 = fma(r518972, r518974, r518993);
double r518995 = cbrt(r518973);
double r518996 = r518995 * r518995;
double r518997 = sqrt(r518965);
double r518998 = cbrt(r518997);
double r518999 = r518996 / r518998;
double r519000 = r518995 / r518998;
double r519001 = -r519000;
double r519002 = fma(r518999, r519001, r518974);
double r519003 = r518971 * r519002;
double r519004 = r518994 + r519003;
double r519005 = r518987 ? r518992 : r519004;
double r519006 = r518967 ? r518985 : r519005;
return r519006;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
| Original | 7.6 |
|---|---|
| Target | 6.0 |
| Herbie | 4.8 |
if a < -3.153710049135351e+201Initial program 15.7
rmApplied div-sub15.7
Simplified15.7
rmApplied add-cube-cbrt16.0
Applied times-frac11.5
Applied add-sqr-sqrt28.1
Applied prod-diff28.1
Simplified7.2
Simplified7.2
rmApplied clear-num7.4
if -3.153710049135351e+201 < a < 2.0400753527695084e-47Initial program 4.1
rmApplied div-sub4.1
Simplified4.1
rmApplied *-un-lft-identity4.1
Applied *-un-lft-identity4.1
Applied distribute-lft-out--4.1
Simplified4.2
if 2.0400753527695084e-47 < a Initial program 9.9
rmApplied div-sub9.9
Simplified9.9
rmApplied add-cube-cbrt10.3
Applied times-frac7.5
Applied add-sqr-sqrt27.4
Applied prod-diff27.4
Simplified4.7
Simplified4.7
rmApplied add-sqr-sqrt4.7
Applied cbrt-prod4.7
Applied add-cube-cbrt4.9
Applied times-frac4.9
Applied distribute-rgt-neg-in4.9
Applied fma-def4.9
Final simplification4.8
herbie shell --seed 2019322 +o rules:numerics
(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))