Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1, B

Average Error: 14.6 → 2.1

Time: 16.3s

Precision: 64

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

Math

\[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]

↓

\[\begin{array}{l} \mathbf{if}\;\frac{y}{z} \le -2.726224425942599138418068187989578050083 \cdot 10^{-214} \lor \neg \left(\frac{y}{z} \le 7.182752616858212935481303668920257428991 \cdot 10^{-116}\right):\\ \;\;\;\;\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \left(\frac{\sqrt[3]{y}}{\sqrt[3]{z}} \cdot x\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{x \cdot y}{z}\\ \end{array}\]

C

double f(double x, double y, double z, double t) {
        double r667526 = x;
        double r667527 = y;
        double r667528 = z;
        double r667529 = r667527 / r667528;
        double r667530 = t;
        double r667531 = r667529 * r667530;
        double r667532 = r667531 / r667530;
        double r667533 = r667526 * r667532;
        return r667533;
}

↓

double f(double x, double y, double z, double __attribute__((unused)) t) {
        double r667534 = y;
        double r667535 = z;
        double r667536 = r667534 / r667535;
        double r667537 = -2.726224425942599e-214;
        bool r667538 = r667536 <= r667537;
        double r667539 = 7.182752616858213e-116;
        bool r667540 = r667536 <= r667539;
        double r667541 = !r667540;
        bool r667542 = r667538 || r667541;
        double r667543 = cbrt(r667534);
        double r667544 = r667543 * r667543;
        double r667545 = cbrt(r667535);
        double r667546 = r667545 * r667545;
        double r667547 = r667544 / r667546;
        double r667548 = r667543 / r667545;
        double r667549 = x;
        double r667550 = r667548 * r667549;
        double r667551 = r667547 * r667550;
        double r667552 = r667549 * r667534;
        double r667553 = r667552 / r667535;
        double r667554 = r667542 ? r667551 : r667553;
        return r667554;
}

Error

Bits error versus x

Bits error versus y

Bits error versus z

Bits error versus t

Target

Original	14.6
Target	1.7
Herbie	2.1

\[\begin{array}{l} \mathbf{if}\;\frac{\frac{y}{z} \cdot t}{t} \lt -1.206722051230450047215521150762600712224 \cdot 10^{245}:\\ \;\;\;\;\frac{y}{\frac{z}{x}}\\ \mathbf{elif}\;\frac{\frac{y}{z} \cdot t}{t} \lt -5.90752223693390632993316700759382836344 \cdot 10^{-275}:\\ \;\;\;\;x \cdot \frac{y}{z}\\ \mathbf{elif}\;\frac{\frac{y}{z} \cdot t}{t} \lt 5.658954423153415216825328199697215652986 \cdot 10^{-65}:\\ \;\;\;\;\frac{y}{\frac{z}{x}}\\ \mathbf{elif}\;\frac{\frac{y}{z} \cdot t}{t} \lt 2.008718050240713347941382056648619307142 \cdot 10^{217}:\\ \;\;\;\;x \cdot \frac{y}{z}\\ \mathbf{else}:\\ \;\;\;\;\frac{y \cdot x}{z}\\ \end{array}\]

Derivation

1. Split input into 2 regimes

2. if (/ y z) < -2.726224425942599e-214 or 7.182752616858213e-116 < (/ y z)

   1. Initial program 13.9

      \[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]

   2. Simplified 4.8

      \[\leadsto \color{blue}{\frac{y}{z} \cdot x}\]
   3. Using strategy rm

   4. Applied add-cube-cbrt 5.8

      \[\leadsto \frac{y}{\color{blue}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}}} \cdot x\]

   5. Applied add-cube-cbrt 6.0

      \[\leadsto \frac{\color{blue}{\left(\sqrt[3]{y} \cdot \sqrt[3]{y}\right) \cdot \sqrt[3]{y}}}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}} \cdot x\]

   6. Applied times-frac 6.0

      \[\leadsto \color{blue}{\left(\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \frac{\sqrt[3]{y}}{\sqrt[3]{z}}\right)} \cdot x\]

   7. Applied associate-*l* 2.3

      \[\leadsto \color{blue}{\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \left(\frac{\sqrt[3]{y}}{\sqrt[3]{z}} \cdot x\right)}\]

   if -2.726224425942599e-214 < (/ y z) < 7.182752616858213e-116

   1. Initial program 15.9

      \[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]

   2. Simplified 8.3

      \[\leadsto \color{blue}{\frac{y}{z} \cdot x}\]
   3. Using strategy rm

   4. Applied add-cube-cbrt 8.6

      \[\leadsto \frac{y}{\color{blue}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}}} \cdot x\]

   5. Applied add-cube-cbrt 8.8

      \[\leadsto \frac{\color{blue}{\left(\sqrt[3]{y} \cdot \sqrt[3]{y}\right) \cdot \sqrt[3]{y}}}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}} \cdot x\]

   6. Applied times-frac 8.8

      \[\leadsto \color{blue}{\left(\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \frac{\sqrt[3]{y}}{\sqrt[3]{z}}\right)} \cdot x\]

   7. Applied associate-*l* 1.6

      \[\leadsto \color{blue}{\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \left(\frac{\sqrt[3]{y}}{\sqrt[3]{z}} \cdot x\right)}\]
   8. Using strategy rm

   9. Applied associate-*l/ 1.9

      \[\leadsto \frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \color{blue}{\frac{\sqrt[3]{y} \cdot x}{\sqrt[3]{z}}}\]

   10. Applied frac-times 2.3

       \[\leadsto \color{blue}{\frac{\left(\sqrt[3]{y} \cdot \sqrt[3]{y}\right) \cdot \left(\sqrt[3]{y} \cdot x\right)}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}}}\]

   11. Simplified 2.1

       \[\leadsto \frac{\color{blue}{x \cdot y}}{\left(\sqrt[3]{z} \cdot \sqrt[3]{z}\right) \cdot \sqrt[3]{z}}\]

   12. Simplified 1.6

       \[\leadsto \frac{x \cdot y}{\color{blue}{z}}\]
3. Recombined 2 regimes into one program.

4. Final simplification 2.1

   \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{y}{z} \le -2.726224425942599138418068187989578050083 \cdot 10^{-214} \lor \neg \left(\frac{y}{z} \le 7.182752616858212935481303668920257428991 \cdot 10^{-116}\right):\\ \;\;\;\;\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{z} \cdot \sqrt[3]{z}} \cdot \left(\frac{\sqrt[3]{y}}{\sqrt[3]{z}} \cdot x\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{x \cdot y}{z}\\ \end{array}\]

Reproduce

herbie shell --seed 2019350 
(FPCore (x y z t)
  :name "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1, B"
  :precision binary64

  :herbie-target
  (if (< (/ (* (/ y z) t) t) -1.20672205123045e+245) (/ y (/ z x)) (if (< (/ (* (/ y z) t) t) -5.907522236933906e-275) (* x (/ y z)) (if (< (/ (* (/ y z) t) t) 5.658954423153415e-65) (/ y (/ z x)) (if (< (/ (* (/ y z) t) t) 2.0087180502407133e+217) (* x (/ y z)) (/ (* y x) z)))))

  (* x (/ (* (/ y z) t) t)))