Initial program 47.5
\[\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\]
Taylor expanded around -inf 28.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right) + \left(2 \cdot \frac{c \cdot a}{b} - b\right)}}\\
\end{array}\]
Applied simplify28.4
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{c + c}{2}}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}}\]
Taylor expanded around inf 9.7
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \color{blue}{\left(b - 2 \cdot \frac{c \cdot a}{b}\right)}}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{c + c}{2}}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]
Applied simplify7.9
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{(\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}}\]
- Using strategy
rm Applied add-cube-cbrt8.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{(\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b}{\color{blue}{\left(\sqrt[3]{a + a} \cdot \sqrt[3]{a + a}\right) \cdot \sqrt[3]{a + a}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]
Applied *-un-lft-identity8.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\color{blue}{1 \cdot \left((\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b\right)}}{\left(\sqrt[3]{a + a} \cdot \sqrt[3]{a + a}\right) \cdot \sqrt[3]{a + a}}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]
Applied times-frac8.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\color{blue}{\frac{1}{\sqrt[3]{a + a} \cdot \sqrt[3]{a + a}} \cdot \frac{(\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b}{\sqrt[3]{a + a}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]
Initial program 42.8
\[\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\]
Taylor expanded around -inf 31.1
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right) + \left(2 \cdot \frac{c \cdot a}{b} - b\right)}}\\
\end{array}\]
Applied simplify27.5
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{c + c}{2}}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}}\]
Taylor expanded around inf 16.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \color{blue}{\left(b - 2 \cdot \frac{c \cdot a}{b}\right)}}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{c + c}{2}}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]
Applied simplify13.5
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{(\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b}{a + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}}\]
- Using strategy
rm Applied expm1-log1p-u15.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\color{blue}{(e^{\log_* (1 + \frac{(\left(\frac{a}{b}\right) \cdot \left(c + c\right) + \left(-b\right))_* - b}{a + a})} - 1)^*}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{(a \cdot \left(\frac{c}{b}\right) + \left(-b\right))_*}\\
\end{array}\]