x \cdot x - \left(y \cdot 4\right) \cdot \left(z \cdot z - t\right)
\begin{array}{l}
\mathbf{if}\;z \cdot z \le 1.34650475463234078 \cdot 10^{304}:\\
\;\;\;\;x \cdot x - \left(y \cdot 4\right) \cdot \left(z \cdot z - t\right)\\
\mathbf{else}:\\
\;\;\;\;x \cdot x - \left(\left(y \cdot 4\right) \cdot \left(z + \sqrt{t}\right)\right) \cdot \left(z - \sqrt{t}\right)\\
\end{array}double f(double x, double y, double z, double t) {
double r847847 = x;
double r847848 = r847847 * r847847;
double r847849 = y;
double r847850 = 4.0;
double r847851 = r847849 * r847850;
double r847852 = z;
double r847853 = r847852 * r847852;
double r847854 = t;
double r847855 = r847853 - r847854;
double r847856 = r847851 * r847855;
double r847857 = r847848 - r847856;
return r847857;
}
double f(double x, double y, double z, double t) {
double r847858 = z;
double r847859 = r847858 * r847858;
double r847860 = 1.3465047546323408e+304;
bool r847861 = r847859 <= r847860;
double r847862 = x;
double r847863 = r847862 * r847862;
double r847864 = y;
double r847865 = 4.0;
double r847866 = r847864 * r847865;
double r847867 = t;
double r847868 = r847859 - r847867;
double r847869 = r847866 * r847868;
double r847870 = r847863 - r847869;
double r847871 = sqrt(r847867);
double r847872 = r847858 + r847871;
double r847873 = r847866 * r847872;
double r847874 = r847858 - r847871;
double r847875 = r847873 * r847874;
double r847876 = r847863 - r847875;
double r847877 = r847861 ? r847870 : r847876;
return r847877;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 5.7 |
|---|---|
| Target | 5.7 |
| Herbie | 2.9 |
if (* z z) < 1.3465047546323408e+304Initial program 0.1
if 1.3465047546323408e+304 < (* z z) Initial program 62.1
rmApplied add-sqr-sqrt63.0
Applied difference-of-squares63.0
Applied associate-*r*30.5
Final simplification2.9
herbie shell --seed 2020056
(FPCore (x y z t)
:name "Graphics.Rasterific.Shading:$sradialGradientWithFocusShader from Rasterific-0.6.1, B"
:precision binary64
:herbie-target
(- (* x x) (* 4 (* y (- (* z z) t))))
(- (* x x) (* (* y 4) (- (* z z) t))))