Diagrams.Solve.Polynomial:quartForm from diagrams-solve-0.1, B

Average Error: 0.0 → 0.0

Time: 3.9s

Precision: 64

• Falling back on racket egraph because egg-herbie package not installed

Math

\[\left(\frac{1}{8} \cdot x - \frac{y \cdot z}{2}\right) + t\]

↓

\[\left(\frac{1}{8} \cdot x - \frac{y \cdot z}{2}\right) + t\]

C

double f(double x, double y, double z, double t) {
        double r764406 = 1.0;
        double r764407 = 8.0;
        double r764408 = r764406 / r764407;
        double r764409 = x;
        double r764410 = r764408 * r764409;
        double r764411 = y;
        double r764412 = z;
        double r764413 = r764411 * r764412;
        double r764414 = 2.0;
        double r764415 = r764413 / r764414;
        double r764416 = r764410 - r764415;
        double r764417 = t;
        double r764418 = r764416 + r764417;
        return r764418;
}

↓

double f(double x, double y, double z, double t) {
        double r764419 = 1.0;
        double r764420 = 8.0;
        double r764421 = r764419 / r764420;
        double r764422 = x;
        double r764423 = r764421 * r764422;
        double r764424 = y;
        double r764425 = z;
        double r764426 = r764424 * r764425;
        double r764427 = 2.0;
        double r764428 = r764426 / r764427;
        double r764429 = r764423 - r764428;
        double r764430 = t;
        double r764431 = r764429 + r764430;
        return r764431;
}

Error

Bits error versus x

Bits error versus y

Bits error versus z

Bits error versus t

Target

Original	0.0
Target	0.0
Herbie	0.0

\[\left(\frac{x}{8} + t\right) - \frac{z}{2} \cdot y\]

Derivation

1. Initial program 0.0

   \[\left(\frac{1}{8} \cdot x - \frac{y \cdot z}{2}\right) + t\]

2. Final simplification 0.0

   \[\leadsto \left(\frac{1}{8} \cdot x - \frac{y \cdot z}{2}\right) + t\]

Reproduce

herbie shell --seed 2020047 
(FPCore (x y z t)
  :name "Diagrams.Solve.Polynomial:quartForm  from diagrams-solve-0.1, B"
  :precision binary64

  :herbie-target
  (- (+ (/ x 8) t) (* (/ z 2) y))

  (+ (- (* (/ 1 8) x) (/ (* y z) 2)) t))