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.18911681894289682 \cdot 10^{303}:\\
\;\;\;\;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 r651754 = x;
double r651755 = r651754 * r651754;
double r651756 = y;
double r651757 = 4.0;
double r651758 = r651756 * r651757;
double r651759 = z;
double r651760 = r651759 * r651759;
double r651761 = t;
double r651762 = r651760 - r651761;
double r651763 = r651758 * r651762;
double r651764 = r651755 - r651763;
return r651764;
}
double f(double x, double y, double z, double t) {
double r651765 = z;
double r651766 = r651765 * r651765;
double r651767 = 1.1891168189428968e+303;
bool r651768 = r651766 <= r651767;
double r651769 = x;
double r651770 = r651769 * r651769;
double r651771 = y;
double r651772 = 4.0;
double r651773 = r651771 * r651772;
double r651774 = t;
double r651775 = r651766 - r651774;
double r651776 = r651773 * r651775;
double r651777 = r651770 - r651776;
double r651778 = sqrt(r651774);
double r651779 = r651765 + r651778;
double r651780 = r651773 * r651779;
double r651781 = r651765 - r651778;
double r651782 = r651780 * r651781;
double r651783 = r651770 - r651782;
double r651784 = r651768 ? r651777 : r651783;
return r651784;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 5.8 |
|---|---|
| Target | 5.7 |
| Herbie | 3.3 |
if (* z z) < 1.1891168189428968e+303Initial program 0.1
if 1.1891168189428968e+303 < (* z z) Initial program 61.8
rmApplied add-sqr-sqrt63.0
Applied difference-of-squares63.0
Applied associate-*r*34.6
Final simplification3.3
herbie shell --seed 2020045
(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))))