\frac{\left(\left(x \cdot 9\right) \cdot y - \left(\left(z \cdot 4\right) \cdot t\right) \cdot a\right) + b}{z \cdot c}\begin{array}{l}
\mathbf{if}\;z \le -4.402350092041883275668460169588838453823 \cdot 10^{-72}:\\
\;\;\;\;\frac{\frac{1}{z} \cdot \left(b + y \cdot \left(x \cdot 9\right)\right) - \left(4 \cdot t\right) \cdot a}{c}\\
\mathbf{elif}\;z \le 2.285273688348913568491691630401286761171 \cdot 10^{-97}:\\
\;\;\;\;\frac{b + \left(y \cdot \left(x \cdot 9\right) - \left(\left(z \cdot 4\right) \cdot t\right) \cdot a\right)}{z \cdot c}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{1}{z} \cdot \left(b + y \cdot \left(x \cdot 9\right)\right) - \left(4 \cdot t\right) \cdot a}{c}\\
\end{array}double f(double x, double y, double z, double t, double a, double b, double c) {
double r34856053 = x;
double r34856054 = 9.0;
double r34856055 = r34856053 * r34856054;
double r34856056 = y;
double r34856057 = r34856055 * r34856056;
double r34856058 = z;
double r34856059 = 4.0;
double r34856060 = r34856058 * r34856059;
double r34856061 = t;
double r34856062 = r34856060 * r34856061;
double r34856063 = a;
double r34856064 = r34856062 * r34856063;
double r34856065 = r34856057 - r34856064;
double r34856066 = b;
double r34856067 = r34856065 + r34856066;
double r34856068 = c;
double r34856069 = r34856058 * r34856068;
double r34856070 = r34856067 / r34856069;
return r34856070;
}
double f(double x, double y, double z, double t, double a, double b, double c) {
double r34856071 = z;
double r34856072 = -4.4023500920418833e-72;
bool r34856073 = r34856071 <= r34856072;
double r34856074 = 1.0;
double r34856075 = r34856074 / r34856071;
double r34856076 = b;
double r34856077 = y;
double r34856078 = x;
double r34856079 = 9.0;
double r34856080 = r34856078 * r34856079;
double r34856081 = r34856077 * r34856080;
double r34856082 = r34856076 + r34856081;
double r34856083 = r34856075 * r34856082;
double r34856084 = 4.0;
double r34856085 = t;
double r34856086 = r34856084 * r34856085;
double r34856087 = a;
double r34856088 = r34856086 * r34856087;
double r34856089 = r34856083 - r34856088;
double r34856090 = c;
double r34856091 = r34856089 / r34856090;
double r34856092 = 2.2852736883489136e-97;
bool r34856093 = r34856071 <= r34856092;
double r34856094 = r34856071 * r34856084;
double r34856095 = r34856094 * r34856085;
double r34856096 = r34856095 * r34856087;
double r34856097 = r34856081 - r34856096;
double r34856098 = r34856076 + r34856097;
double r34856099 = r34856071 * r34856090;
double r34856100 = r34856098 / r34856099;
double r34856101 = r34856093 ? r34856100 : r34856091;
double r34856102 = r34856073 ? r34856091 : r34856101;
return r34856102;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 20.2 |
|---|---|
| Target | 14.2 |
| Herbie | 8.8 |
if z < -4.4023500920418833e-72 or 2.2852736883489136e-97 < z Initial program 24.8
Simplified9.5
rmApplied div-inv9.5
if -4.4023500920418833e-72 < z < 2.2852736883489136e-97Initial program 6.4
Final simplification8.8
herbie shell --seed 2019172
(FPCore (x y z t a b c)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, J"
:herbie-target
(if (< (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)) -1.100156740804105e-171) (/ (+ (- (* (* x 9.0) y) (* (* z 4.0) (* t a))) b) (* z c)) (if (< (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)) -0.0) (/ (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) z) c) (if (< (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)) 1.1708877911747488e-53) (/ (+ (- (* (* x 9.0) y) (* (* z 4.0) (* t a))) b) (* z c)) (if (< (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)) 2.876823679546137e+130) (- (+ (* (* 9.0 (/ y c)) (/ x z)) (/ b (* c z))) (* 4.0 (/ (* a t) c))) (if (< (/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)) 1.3838515042456319e+158) (/ (+ (- (* (* x 9.0) y) (* (* z 4.0) (* t a))) b) (* z c)) (- (+ (* 9.0 (* (/ y (* c z)) x)) (/ b (* c z))) (* 4.0 (/ (* a t) c))))))))
(/ (+ (- (* (* x 9.0) y) (* (* (* z 4.0) t) a)) b) (* z c)))