Diagrams.TwoD.Segment.Bernstein:evaluateBernstein from diagrams-lib-1.3.0.3

Average Error: 10.6 → 0.2

Time: 7.2s

Precision: 64

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

Math

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

↓

\[\begin{array}{l} \mathbf{if}\;z \le -6.231177025534271 \cdot 10^{38} \lor \neg \left(z \le 1.30166855464399448 \cdot 10^{-27}\right):\\ \;\;\;\;x \cdot \frac{\left(y - z\right) + 1}{z}\\ \mathbf{else}:\\ \;\;\;\;\frac{x}{z} \cdot \left(\left(y - z\right) + 1\right)\\ \end{array}\]

C

double f(double x, double y, double z) {
        double r573250 = x;
        double r573251 = y;
        double r573252 = z;
        double r573253 = r573251 - r573252;
        double r573254 = 1.0;
        double r573255 = r573253 + r573254;
        double r573256 = r573250 * r573255;
        double r573257 = r573256 / r573252;
        return r573257;
}

↓

double f(double x, double y, double z) {
        double r573258 = z;
        double r573259 = -6.231177025534271e+38;
        bool r573260 = r573258 <= r573259;
        double r573261 = 1.3016685546439945e-27;
        bool r573262 = r573258 <= r573261;
        double r573263 = !r573262;
        bool r573264 = r573260 || r573263;
        double r573265 = x;
        double r573266 = y;
        double r573267 = r573266 - r573258;
        double r573268 = 1.0;
        double r573269 = r573267 + r573268;
        double r573270 = r573269 / r573258;
        double r573271 = r573265 * r573270;
        double r573272 = r573265 / r573258;
        double r573273 = r573272 * r573269;
        double r573274 = r573264 ? r573271 : r573273;
        return r573274;
}

Error

Bits error versus x

Bits error versus y

Bits error versus z

Target

Original	10.6
Target	0.4
Herbie	0.2

\[\begin{array}{l} \mathbf{if}\;x \lt -2.7148310671343599 \cdot 10^{-162}:\\ \;\;\;\;\left(1 + y\right) \cdot \frac{x}{z} - x\\ \mathbf{elif}\;x \lt 3.87410881643954616 \cdot 10^{-197}:\\ \;\;\;\;\left(x \cdot \left(\left(y - z\right) + 1\right)\right) \cdot \frac{1}{z}\\ \mathbf{else}:\\ \;\;\;\;\left(1 + y\right) \cdot \frac{x}{z} - x\\ \end{array}\]

Derivation

1. Split input into 2 regimes

2. if z < -6.231177025534271e+38 or 1.3016685546439945e-27 < z

   1. Initial program 17.9

      \[\frac{x \cdot \left(\left(y - z\right) + 1\right)}{z}\]
   2. Using strategy rm

   3. Applied *-un-lft-identity 17.9

      \[\leadsto \frac{x \cdot \left(\left(y - z\right) + 1\right)}{\color{blue}{1 \cdot z}}\]

   4. Applied times-frac 0.1

      \[\leadsto \color{blue}{\frac{x}{1} \cdot \frac{\left(y - z\right) + 1}{z}}\]

   5. Simplified 0.1

      \[\leadsto \color{blue}{x} \cdot \frac{\left(y - z\right) + 1}{z}\]

   if -6.231177025534271e+38 < z < 1.3016685546439945e-27

   1. Initial program 0.2

      \[\frac{x \cdot \left(\left(y - z\right) + 1\right)}{z}\]
   2. Using strategy rm

   3. Applied associate-/l* 7.2

      \[\leadsto \color{blue}{\frac{x}{\frac{z}{\left(y - z\right) + 1}}}\]
   4. Using strategy rm

   5. Applied associate-/r/ 0.2

      \[\leadsto \color{blue}{\frac{x}{z} \cdot \left(\left(y - z\right) + 1\right)}\]
3. Recombined 2 regimes into one program.

4. Final simplification 0.2

   \[\leadsto \begin{array}{l} \mathbf{if}\;z \le -6.231177025534271 \cdot 10^{38} \lor \neg \left(z \le 1.30166855464399448 \cdot 10^{-27}\right):\\ \;\;\;\;x \cdot \frac{\left(y - z\right) + 1}{z}\\ \mathbf{else}:\\ \;\;\;\;\frac{x}{z} \cdot \left(\left(y - z\right) + 1\right)\\ \end{array}\]

Reproduce

herbie shell --seed 2020047 +o rules:numerics
(FPCore (x y z)
  :name "Diagrams.TwoD.Segment.Bernstein:evaluateBernstein from diagrams-lib-1.3.0.3"
  :precision binary64

  :herbie-target
  (if (< x -2.71483106713436e-162) (- (* (+ 1 y) (/ x z)) x) (if (< x 3.874108816439546e-197) (* (* x (+ (- y z) 1)) (/ 1 z)) (- (* (+ 1 y) (/ x z)) x)))

  (/ (* x (+ (- y z) 1)) z))