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 r541368 = x;
double r541369 = r541368 * r541368;
double r541370 = y;
double r541371 = 4.0;
double r541372 = r541370 * r541371;
double r541373 = z;
double r541374 = r541373 * r541373;
double r541375 = t;
double r541376 = r541374 - r541375;
double r541377 = r541372 * r541376;
double r541378 = r541369 - r541377;
return r541378;
}
double f(double x, double y, double z, double t) {
double r541379 = z;
double r541380 = r541379 * r541379;
double r541381 = 1.1891168189428968e+303;
bool r541382 = r541380 <= r541381;
double r541383 = x;
double r541384 = r541383 * r541383;
double r541385 = y;
double r541386 = 4.0;
double r541387 = r541385 * r541386;
double r541388 = t;
double r541389 = r541380 - r541388;
double r541390 = r541387 * r541389;
double r541391 = r541384 - r541390;
double r541392 = sqrt(r541388);
double r541393 = r541379 + r541392;
double r541394 = r541387 * r541393;
double r541395 = r541379 - r541392;
double r541396 = r541394 * r541395;
double r541397 = r541384 - r541396;
double r541398 = r541382 ? r541391 : r541397;
return r541398;
}




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))))