\[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]
Test:
Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1
Bits:
128 bits
Bits error versus x
Bits error versus y
Bits error versus z
Bits error versus t
Time: 6.4 s
Input Error: 14.0
Output Error: 3.3
Log: ⚲
Profile: 🕒
\(\begin{cases} {1}^3 \cdot \frac{x}{\frac{z}{y}} & \text{when } \frac{\frac{y}{z} \cdot t}{t} \le -2.068601928313338 \cdot 10^{-177} \\ {1}^3 \cdot \left(\frac{x}{z} \cdot y\right) & \text{when } \frac{\frac{y}{z} \cdot t}{t} \le 4.8533841877051176 \cdot 10^{-225} \\ {1}^3 \cdot \frac{x}{\frac{z}{y}} & \text{otherwise} \end{cases}\)

    if (/ (* (/ y z) t) t) < -2.068601928313338e-177 or 4.8533841877051176e-225 < (/ (* (/ y z) t) t)

    1. Started with
      \[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]
      10.8
    2. Applied simplify to get
      \[\color{red}{x \cdot \frac{\frac{y}{z} \cdot t}{t}} \leadsto \color{blue}{x \cdot \frac{y}{z}}\]
      4.7
    3. Using strategy rm
      4.7
    4. Applied add-cube-cbrt to get
      \[\color{red}{x \cdot \frac{y}{z}} \leadsto \color{blue}{{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3}\]
      5.6
    5. Using strategy rm
      5.6
    6. Applied *-un-lft-identity to get
      \[{\color{red}{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}}^3 \leadsto {\color{blue}{\left(1 \cdot \sqrt[3]{x \cdot \frac{y}{z}}\right)}}^3\]
      5.6
    7. Applied cube-prod to get
      \[\color{red}{{\left(1 \cdot \sqrt[3]{x \cdot \frac{y}{z}}\right)}^3} \leadsto \color{blue}{{1}^3 \cdot {\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3}\]
      5.6
    8. Applied simplify to get
      \[{1}^3 \cdot \color{red}{{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3} \leadsto {1}^3 \cdot \color{blue}{\frac{x}{\frac{z}{y}}}\]
      4.3

    if -2.068601928313338e-177 < (/ (* (/ y z) t) t) < 4.8533841877051176e-225

    1. Started with
      \[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]
      21.2
    2. Applied simplify to get
      \[\color{red}{x \cdot \frac{\frac{y}{z} \cdot t}{t}} \leadsto \color{blue}{x \cdot \frac{y}{z}}\]
      8.5
    3. Using strategy rm
      8.5
    4. Applied add-cube-cbrt to get
      \[\color{red}{x \cdot \frac{y}{z}} \leadsto \color{blue}{{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3}\]
      8.9
    5. Using strategy rm
      8.9
    6. Applied *-un-lft-identity to get
      \[{\color{red}{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}}^3 \leadsto {\color{blue}{\left(1 \cdot \sqrt[3]{x \cdot \frac{y}{z}}\right)}}^3\]
      8.9
    7. Applied cube-prod to get
      \[\color{red}{{\left(1 \cdot \sqrt[3]{x \cdot \frac{y}{z}}\right)}^3} \leadsto \color{blue}{{1}^3 \cdot {\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3}\]
      8.9
    8. Applied simplify to get
      \[{1}^3 \cdot \color{red}{{\left(\sqrt[3]{x \cdot \frac{y}{z}}\right)}^3} \leadsto {1}^3 \cdot \color{blue}{\frac{x}{\frac{z}{y}}}\]
      9.4
    9. Using strategy rm
      9.4
    10. Applied associate-/r/ to get
      \[{1}^3 \cdot \color{red}{\frac{x}{\frac{z}{y}}} \leadsto {1}^3 \cdot \color{blue}{\left(\frac{x}{z} \cdot y\right)}\]
      1.2
  1. Removed slow pow expressions

Original test:


(lambda ((x default) (y default) (z default) (t default))
  #:name "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1"
  (* x (/ (* (/ y z) t) t)))