Average Error: 36.0 → 8.0
Time: 31.8s
Precision: 64
Internal precision: 2944
\[\frac{\left(-b/2\right) + \sqrt{{b/2}^2 - a \cdot c}}{a}\]
⬇
\[\begin{array}{l}
\mathbf{if}\;b/2 \le -1.6024324632435378 \cdot 10^{+106}:\\
\;\;\;\;-2 \cdot \frac{b/2}{a}\\
\mathbf{if}\;b/2 \le 1.0008229413212864 \cdot 10^{-23}:\\
\;\;\;\;\frac{\left(-b/2\right) + \sqrt{{b/2}^2 - a \cdot c}}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{\left(\left(-b/2\right) - b/2\right) + \frac{c \cdot \frac{1}{2}}{\frac{b/2}{a}}}\\
\end{array}\]
Derivation
- Split input into 3 regimes.
-
if b/2 < -1.6024324632435378e+106
Initial program 48.3
\[\frac{\left(-b/2\right) + \sqrt{{b/2}^2 - a \cdot c}}{a}\]
Applied taylor 0
\[\leadsto -2 \cdot \frac{b/2}{a}\]
Taylor expanded around -inf 0
\[\leadsto \color{blue}{-2 \cdot \frac{b/2}{a}}\]
if -1.6024324632435378e+106 < b/2 < 1.0008229413212864e-23
Initial program 14.6
\[\frac{\left(-b/2\right) + \sqrt{{b/2}^2 - a \cdot c}}{a}\]
if 1.0008229413212864e-23 < b/2
Initial program 58.2
\[\frac{\left(-b/2\right) + \sqrt{{b/2}^2 - a \cdot c}}{a}\]
- Using strategy
rm
Applied flip-+ 58.2
\[\leadsto \frac{\color{blue}{\frac{{\left(-b/2\right)}^2 - {\left(\sqrt{{b/2}^2 - a \cdot c}\right)}^2}{\left(-b/2\right) - \sqrt{{b/2}^2 - a \cdot c}}}}{a}\]
Applied simplify 32.3
\[\leadsto \frac{\frac{\color{blue}{a \cdot c}}{\left(-b/2\right) - \sqrt{{b/2}^2 - a \cdot c}}}{a}\]
Applied taylor 15.0
\[\leadsto \frac{\frac{a \cdot c}{\left(-b/2\right) - \left(b/2 - \frac{1}{2} \cdot \frac{a \cdot c}{b/2}\right)}}{a}\]
Taylor expanded around inf 15.0
\[\leadsto \frac{\frac{a \cdot c}{\left(-b/2\right) - \color{blue}{\left(b/2 - \frac{1}{2} \cdot \frac{a \cdot c}{b/2}\right)}}}{a}\]
Applied simplify 2.8
\[\leadsto \color{blue}{\frac{c}{\left(\left(-b/2\right) - b/2\right) + \frac{c \cdot \frac{1}{2}}{\frac{b/2}{a}}}}\]
- Recombined 3 regimes into one program.
- Removed slow pow expressions
Runtime
Please include this information when filing a bug report:
herbie shell --seed '#(3283856077 3183919125 3399458751 396155847 3688194147 1862413033)'
(FPCore (a b/2 c)
:name "quad2p (problem 3.2.1, positive)"
(/ (+ (- b/2) (sqrt (- (sqr b/2) (* a c)))) a))