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.34947659414785 \cdot 10^{305}:\\
\;\;\;\;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 r953168 = x;
double r953169 = r953168 * r953168;
double r953170 = y;
double r953171 = 4.0;
double r953172 = r953170 * r953171;
double r953173 = z;
double r953174 = r953173 * r953173;
double r953175 = t;
double r953176 = r953174 - r953175;
double r953177 = r953172 * r953176;
double r953178 = r953169 - r953177;
return r953178;
}
double f(double x, double y, double z, double t) {
double r953179 = z;
double r953180 = r953179 * r953179;
double r953181 = 1.34947659414785e+305;
bool r953182 = r953180 <= r953181;
double r953183 = x;
double r953184 = r953183 * r953183;
double r953185 = y;
double r953186 = 4.0;
double r953187 = r953185 * r953186;
double r953188 = t;
double r953189 = r953180 - r953188;
double r953190 = r953187 * r953189;
double r953191 = r953184 - r953190;
double r953192 = sqrt(r953188);
double r953193 = r953179 + r953192;
double r953194 = r953187 * r953193;
double r953195 = r953179 - r953192;
double r953196 = r953194 * r953195;
double r953197 = r953184 - r953196;
double r953198 = r953182 ? r953191 : r953197;
return r953198;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 6.1 |
|---|---|
| Target | 6.1 |
| Herbie | 3.3 |
if (* z z) < 1.34947659414785e+305Initial program 0.1
if 1.34947659414785e+305 < (* z z) Initial program 62.8
rmApplied add-sqr-sqrt63.3
Applied difference-of-squares63.3
Applied associate-*r*33.5
Final simplification3.3
herbie shell --seed 2020042
(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))))