\[\frac{-\sqrt{\left(2 \cdot \left(\left({B}^{2} - \left(4 \cdot A\right) \cdot C\right) \cdot F\right)\right) \cdot \left(\left(A + C\right) + \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}}{{B}^{2} - \left(4 \cdot A\right) \cdot C}
\]
↓
\[\begin{array}{l}
t_0 := \frac{\sqrt{2}}{B}\\
t_1 := A \cdot \left(C \cdot -4\right)\\
t_2 := \sqrt{C + \left(A + \mathsf{hypot}\left(A - C, B\right)\right)}\\
t_3 := \mathsf{fma}\left(B, B, C \cdot \left(A \cdot -4\right)\right)\\
\mathbf{if}\;B \leq -5.2 \cdot 10^{+40}:\\
\;\;\;\;t_2 \cdot \left(t_0 \cdot \sqrt{F}\right)\\
\mathbf{elif}\;B \leq -1.75 \cdot 10^{-75}:\\
\;\;\;\;t_2 \cdot \frac{-1}{\frac{t_3}{\sqrt{t_3 \cdot \left(2 \cdot F\right)}}}\\
\mathbf{elif}\;B \leq 3.8 \cdot 10^{-230}:\\
\;\;\;\;\sqrt{\frac{-F}{A}}\\
\mathbf{elif}\;B \leq 2.45 \cdot 10^{+36}:\\
\;\;\;\;\frac{-\sqrt{2 \cdot \left(\left(F \cdot \left(B \cdot B\right) + F \cdot t_1\right) \cdot \left(C + \mathsf{fma}\left(-0.5, \frac{B}{\frac{A}{B}}, C\right)\right)\right)}}{\mathsf{fma}\left(B, B, t_1\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2 \cdot \left(t_0 \cdot \left(-\sqrt{F}\right)\right)\\
\end{array}
\]
double code(double A, double B, double C, double F) {
return -sqrt(((2.0 * ((pow(B, 2.0) - ((4.0 * A) * C)) * F)) * ((A + C) + sqrt((pow((A - C), 2.0) + pow(B, 2.0)))))) / (pow(B, 2.0) - ((4.0 * A) * C));
}
↓
double code(double A, double B, double C, double F) {
double t_0 = sqrt(2.0) / B;
double t_1 = A * (C * -4.0);
double t_2 = sqrt((C + (A + hypot((A - C), B))));
double t_3 = fma(B, B, (C * (A * -4.0)));
double tmp;
if (B <= -5.2e+40) {
tmp = t_2 * (t_0 * sqrt(F));
} else if (B <= -1.75e-75) {
tmp = t_2 * (-1.0 / (t_3 / sqrt((t_3 * (2.0 * F)))));
} else if (B <= 3.8e-230) {
tmp = sqrt((-F / A));
} else if (B <= 2.45e+36) {
tmp = -sqrt((2.0 * (((F * (B * B)) + (F * t_1)) * (C + fma(-0.5, (B / (A / B)), C))))) / fma(B, B, t_1);
} else {
tmp = t_2 * (t_0 * -sqrt(F));
}
return tmp;
}
function code(A, B, C, F)
return Float64(Float64(-sqrt(Float64(Float64(2.0 * Float64(Float64((B ^ 2.0) - Float64(Float64(4.0 * A) * C)) * F)) * Float64(Float64(A + C) + sqrt(Float64((Float64(A - C) ^ 2.0) + (B ^ 2.0))))))) / Float64((B ^ 2.0) - Float64(Float64(4.0 * A) * C)))
end
↓
function code(A, B, C, F)
t_0 = Float64(sqrt(2.0) / B)
t_1 = Float64(A * Float64(C * -4.0))
t_2 = sqrt(Float64(C + Float64(A + hypot(Float64(A - C), B))))
t_3 = fma(B, B, Float64(C * Float64(A * -4.0)))
tmp = 0.0
if (B <= -5.2e+40)
tmp = Float64(t_2 * Float64(t_0 * sqrt(F)));
elseif (B <= -1.75e-75)
tmp = Float64(t_2 * Float64(-1.0 / Float64(t_3 / sqrt(Float64(t_3 * Float64(2.0 * F))))));
elseif (B <= 3.8e-230)
tmp = sqrt(Float64(Float64(-F) / A));
elseif (B <= 2.45e+36)
tmp = Float64(Float64(-sqrt(Float64(2.0 * Float64(Float64(Float64(F * Float64(B * B)) + Float64(F * t_1)) * Float64(C + fma(-0.5, Float64(B / Float64(A / B)), C)))))) / fma(B, B, t_1));
else
tmp = Float64(t_2 * Float64(t_0 * Float64(-sqrt(F))));
end
return tmp
end
code[A_, B_, C_, F_] := N[((-N[Sqrt[N[(N[(2.0 * N[(N[(N[Power[B, 2.0], $MachinePrecision] - N[(N[(4.0 * A), $MachinePrecision] * C), $MachinePrecision]), $MachinePrecision] * F), $MachinePrecision]), $MachinePrecision] * N[(N[(A + C), $MachinePrecision] + N[Sqrt[N[(N[Power[N[(A - C), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[B, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(N[Power[B, 2.0], $MachinePrecision] - N[(N[(4.0 * A), $MachinePrecision] * C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[A_, B_, C_, F_] := Block[{t$95$0 = N[(N[Sqrt[2.0], $MachinePrecision] / B), $MachinePrecision]}, Block[{t$95$1 = N[(A * N[(C * -4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(C + N[(A + N[Sqrt[N[(A - C), $MachinePrecision] ^ 2 + B ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(B * B + N[(C * N[(A * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[B, -5.2e+40], N[(t$95$2 * N[(t$95$0 * N[Sqrt[F], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[B, -1.75e-75], N[(t$95$2 * N[(-1.0 / N[(t$95$3 / N[Sqrt[N[(t$95$3 * N[(2.0 * F), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[B, 3.8e-230], N[Sqrt[N[((-F) / A), $MachinePrecision]], $MachinePrecision], If[LessEqual[B, 2.45e+36], N[((-N[Sqrt[N[(2.0 * N[(N[(N[(F * N[(B * B), $MachinePrecision]), $MachinePrecision] + N[(F * t$95$1), $MachinePrecision]), $MachinePrecision] * N[(C + N[(-0.5 * N[(B / N[(A / B), $MachinePrecision]), $MachinePrecision] + C), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(B * B + t$95$1), $MachinePrecision]), $MachinePrecision], N[(t$95$2 * N[(t$95$0 * (-N[Sqrt[F], $MachinePrecision])), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\frac{-\sqrt{\left(2 \cdot \left(\left({B}^{2} - \left(4 \cdot A\right) \cdot C\right) \cdot F\right)\right) \cdot \left(\left(A + C\right) + \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}}{{B}^{2} - \left(4 \cdot A\right) \cdot C}
↓
\begin{array}{l}
t_0 := \frac{\sqrt{2}}{B}\\
t_1 := A \cdot \left(C \cdot -4\right)\\
t_2 := \sqrt{C + \left(A + \mathsf{hypot}\left(A - C, B\right)\right)}\\
t_3 := \mathsf{fma}\left(B, B, C \cdot \left(A \cdot -4\right)\right)\\
\mathbf{if}\;B \leq -5.2 \cdot 10^{+40}:\\
\;\;\;\;t_2 \cdot \left(t_0 \cdot \sqrt{F}\right)\\
\mathbf{elif}\;B \leq -1.75 \cdot 10^{-75}:\\
\;\;\;\;t_2 \cdot \frac{-1}{\frac{t_3}{\sqrt{t_3 \cdot \left(2 \cdot F\right)}}}\\
\mathbf{elif}\;B \leq 3.8 \cdot 10^{-230}:\\
\;\;\;\;\sqrt{\frac{-F}{A}}\\
\mathbf{elif}\;B \leq 2.45 \cdot 10^{+36}:\\
\;\;\;\;\frac{-\sqrt{2 \cdot \left(\left(F \cdot \left(B \cdot B\right) + F \cdot t_1\right) \cdot \left(C + \mathsf{fma}\left(-0.5, \frac{B}{\frac{A}{B}}, C\right)\right)\right)}}{\mathsf{fma}\left(B, B, t_1\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2 \cdot \left(t_0 \cdot \left(-\sqrt{F}\right)\right)\\
\end{array}