| Alternative 1 | |
|---|---|
| Error | 67.05% |
| Cost | 34780 |
(FPCore (A B C F)
:precision binary64
(/
(-
(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))))(FPCore (A B C F)
:precision binary64
(let* ((t_0 (* -4.0 (* A C)))
(t_1
(/
(-
(sqrt
(*
(* -2.0 (* F (- (* (* 4.0 A) C) (pow B 2.0))))
(+ (+ A C) (sqrt (+ (pow B 2.0) (pow (- A C) 2.0)))))))
(+ (pow B 2.0) (* C (* A -4.0)))))
(t_2 (hypot B (- A C)))
(t_3 (fma -4.0 (* A C) (* B B)))
(t_4 (+ (* B B) t_0)))
(if (<= t_1 -5e-219)
(/ (* (sqrt (* 2.0 (+ (+ A C) t_2))) (* (sqrt t_3) (- (sqrt F)))) t_3)
(if (<= t_1 1e+52)
(-
(/
(sqrt
(*
-2.0
(*
(fma 2.0 A (* -0.5 (/ B (/ C B))))
(* F (- (* 4.0 (* A C)) (* B B))))))
t_4))
(if (<= t_1 INFINITY)
(/
(* (sqrt (* 2.0 (* F (fma B B t_0)))) (- (sqrt (+ A (+ C t_2)))))
t_4)
(* (/ (sqrt 2.0) B) (* (sqrt F) (- (sqrt (+ C (hypot C B)))))))))))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 = -4.0 * (A * C);
double t_1 = -sqrt(((-2.0 * (F * (((4.0 * A) * C) - pow(B, 2.0)))) * ((A + C) + sqrt((pow(B, 2.0) + pow((A - C), 2.0)))))) / (pow(B, 2.0) + (C * (A * -4.0)));
double t_2 = hypot(B, (A - C));
double t_3 = fma(-4.0, (A * C), (B * B));
double t_4 = (B * B) + t_0;
double tmp;
if (t_1 <= -5e-219) {
tmp = (sqrt((2.0 * ((A + C) + t_2))) * (sqrt(t_3) * -sqrt(F))) / t_3;
} else if (t_1 <= 1e+52) {
tmp = -(sqrt((-2.0 * (fma(2.0, A, (-0.5 * (B / (C / B)))) * (F * ((4.0 * (A * C)) - (B * B)))))) / t_4);
} else if (t_1 <= ((double) INFINITY)) {
tmp = (sqrt((2.0 * (F * fma(B, B, t_0)))) * -sqrt((A + (C + t_2)))) / t_4;
} else {
tmp = (sqrt(2.0) / B) * (sqrt(F) * -sqrt((C + hypot(C, B))));
}
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(-4.0 * Float64(A * C)) t_1 = Float64(Float64(-sqrt(Float64(Float64(-2.0 * Float64(F * Float64(Float64(Float64(4.0 * A) * C) - (B ^ 2.0)))) * Float64(Float64(A + C) + sqrt(Float64((B ^ 2.0) + (Float64(A - C) ^ 2.0))))))) / Float64((B ^ 2.0) + Float64(C * Float64(A * -4.0)))) t_2 = hypot(B, Float64(A - C)) t_3 = fma(-4.0, Float64(A * C), Float64(B * B)) t_4 = Float64(Float64(B * B) + t_0) tmp = 0.0 if (t_1 <= -5e-219) tmp = Float64(Float64(sqrt(Float64(2.0 * Float64(Float64(A + C) + t_2))) * Float64(sqrt(t_3) * Float64(-sqrt(F)))) / t_3); elseif (t_1 <= 1e+52) tmp = Float64(-Float64(sqrt(Float64(-2.0 * Float64(fma(2.0, A, Float64(-0.5 * Float64(B / Float64(C / B)))) * Float64(F * Float64(Float64(4.0 * Float64(A * C)) - Float64(B * B)))))) / t_4)); elseif (t_1 <= Inf) tmp = Float64(Float64(sqrt(Float64(2.0 * Float64(F * fma(B, B, t_0)))) * Float64(-sqrt(Float64(A + Float64(C + t_2))))) / t_4); else tmp = Float64(Float64(sqrt(2.0) / B) * Float64(sqrt(F) * Float64(-sqrt(Float64(C + hypot(C, B)))))); 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[(-4.0 * N[(A * C), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-N[Sqrt[N[(N[(-2.0 * N[(F * N[(N[(N[(4.0 * A), $MachinePrecision] * C), $MachinePrecision] - N[Power[B, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(A + C), $MachinePrecision] + N[Sqrt[N[(N[Power[B, 2.0], $MachinePrecision] + N[Power[N[(A - C), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / N[(N[Power[B, 2.0], $MachinePrecision] + N[(C * N[(A * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[B ^ 2 + N[(A - C), $MachinePrecision] ^ 2], $MachinePrecision]}, Block[{t$95$3 = N[(-4.0 * N[(A * C), $MachinePrecision] + N[(B * B), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(B * B), $MachinePrecision] + t$95$0), $MachinePrecision]}, If[LessEqual[t$95$1, -5e-219], N[(N[(N[Sqrt[N[(2.0 * N[(N[(A + C), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(N[Sqrt[t$95$3], $MachinePrecision] * (-N[Sqrt[F], $MachinePrecision])), $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision], If[LessEqual[t$95$1, 1e+52], (-N[(N[Sqrt[N[(-2.0 * N[(N[(2.0 * A + N[(-0.5 * N[(B / N[(C / B), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(F * N[(N[(4.0 * N[(A * C), $MachinePrecision]), $MachinePrecision] - N[(B * B), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / t$95$4), $MachinePrecision]), If[LessEqual[t$95$1, Infinity], N[(N[(N[Sqrt[N[(2.0 * N[(F * N[(B * B + t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * (-N[Sqrt[N[(A + N[(C + t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision])), $MachinePrecision] / t$95$4), $MachinePrecision], N[(N[(N[Sqrt[2.0], $MachinePrecision] / B), $MachinePrecision] * N[(N[Sqrt[F], $MachinePrecision] * (-N[Sqrt[N[(C + N[Sqrt[C ^ 2 + B ^ 2], $MachinePrecision]), $MachinePrecision]], $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 := -4 \cdot \left(A \cdot C\right)\\
t_1 := \frac{-\sqrt{\left(-2 \cdot \left(F \cdot \left(\left(4 \cdot A\right) \cdot C - {B}^{2}\right)\right)\right) \cdot \left(\left(A + C\right) + \sqrt{{B}^{2} + {\left(A - C\right)}^{2}}\right)}}{{B}^{2} + C \cdot \left(A \cdot -4\right)}\\
t_2 := \mathsf{hypot}\left(B, A - C\right)\\
t_3 := \mathsf{fma}\left(-4, A \cdot C, B \cdot B\right)\\
t_4 := B \cdot B + t_0\\
\mathbf{if}\;t_1 \leq -5 \cdot 10^{-219}:\\
\;\;\;\;\frac{\sqrt{2 \cdot \left(\left(A + C\right) + t_2\right)} \cdot \left(\sqrt{t_3} \cdot \left(-\sqrt{F}\right)\right)}{t_3}\\
\mathbf{elif}\;t_1 \leq 10^{+52}:\\
\;\;\;\;-\frac{\sqrt{-2 \cdot \left(\mathsf{fma}\left(2, A, -0.5 \cdot \frac{B}{\frac{C}{B}}\right) \cdot \left(F \cdot \left(4 \cdot \left(A \cdot C\right) - B \cdot B\right)\right)\right)}}{t_4}\\
\mathbf{elif}\;t_1 \leq \infty:\\
\;\;\;\;\frac{\sqrt{2 \cdot \left(F \cdot \mathsf{fma}\left(B, B, t_0\right)\right)} \cdot \left(-\sqrt{A + \left(C + t_2\right)}\right)}{t_4}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{2}}{B} \cdot \left(\sqrt{F} \cdot \left(-\sqrt{C + \mathsf{hypot}\left(C, B\right)}\right)\right)\\
\end{array}
if (/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 2 (*.f64 (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C)) F)) (+.f64 (+.f64 A C) (sqrt.f64 (+.f64 (pow.f64 (-.f64 A C) 2) (pow.f64 B 2))))))) (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C))) < -5.0000000000000002e-219Initial program 58.31
Simplified49.31
[Start]58.31 | \[ \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}
\] |
|---|
Applied egg-rr37.2
Applied egg-rr25.81
if -5.0000000000000002e-219 < (/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 2 (*.f64 (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C)) F)) (+.f64 (+.f64 A C) (sqrt.f64 (+.f64 (pow.f64 (-.f64 A C) 2) (pow.f64 B 2))))))) (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C))) < 9.9999999999999999e51Initial program 86.95
Simplified86.96
[Start]86.95 | \[ \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}
\] |
|---|
Applied egg-rr87.65
Taylor expanded in C around -inf 69.15
Simplified69.15
[Start]69.15 | \[ \frac{-\sqrt{2 \cdot \left(\left(\left(B \cdot B - 4 \cdot \left(A \cdot C\right)\right) \cdot F\right) \cdot \left(2 \cdot A + -0.5 \cdot \frac{{B}^{2}}{C}\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
|---|---|
fma-def [=>]69.15 | \[ \frac{-\sqrt{2 \cdot \left(\left(\left(B \cdot B - 4 \cdot \left(A \cdot C\right)\right) \cdot F\right) \cdot \color{blue}{\mathsf{fma}\left(2, A, -0.5 \cdot \frac{{B}^{2}}{C}\right)}\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
unpow2 [=>]69.15 | \[ \frac{-\sqrt{2 \cdot \left(\left(\left(B \cdot B - 4 \cdot \left(A \cdot C\right)\right) \cdot F\right) \cdot \mathsf{fma}\left(2, A, -0.5 \cdot \frac{\color{blue}{B \cdot B}}{C}\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
associate-/l* [=>]69.15 | \[ \frac{-\sqrt{2 \cdot \left(\left(\left(B \cdot B - 4 \cdot \left(A \cdot C\right)\right) \cdot F\right) \cdot \mathsf{fma}\left(2, A, -0.5 \cdot \color{blue}{\frac{B}{\frac{C}{B}}}\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
if 9.9999999999999999e51 < (/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 2 (*.f64 (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C)) F)) (+.f64 (+.f64 A C) (sqrt.f64 (+.f64 (pow.f64 (-.f64 A C) 2) (pow.f64 B 2))))))) (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C))) < +inf.0Initial program 72.87
Simplified72.87
[Start]72.87 | \[ \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}
\] |
|---|
Applied egg-rr22.34
Simplified22.34
[Start]22.34 | \[ \frac{-\sqrt{2 \cdot \left(\mathsf{fma}\left(B, B, \left(A \cdot C\right) \cdot -4\right) \cdot F\right)} \cdot \sqrt{A + \left(C + \mathsf{hypot}\left(B, A - C\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
|---|---|
*-commutative [=>]22.34 | \[ \frac{-\color{blue}{\sqrt{A + \left(C + \mathsf{hypot}\left(B, A - C\right)\right)} \cdot \sqrt{2 \cdot \left(\mathsf{fma}\left(B, B, \left(A \cdot C\right) \cdot -4\right) \cdot F\right)}}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
*-commutative [=>]22.34 | \[ \frac{-\sqrt{A + \left(C + \mathsf{hypot}\left(B, A - C\right)\right)} \cdot \sqrt{2 \cdot \color{blue}{\left(F \cdot \mathsf{fma}\left(B, B, \left(A \cdot C\right) \cdot -4\right)\right)}}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
if +inf.0 < (/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 2 (*.f64 (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C)) F)) (+.f64 (+.f64 A C) (sqrt.f64 (+.f64 (pow.f64 (-.f64 A C) 2) (pow.f64 B 2))))))) (-.f64 (pow.f64 B 2) (*.f64 (*.f64 4 A) C))) Initial program 100
Simplified100
[Start]100 | \[ \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}
\] |
|---|
Applied egg-rr99.8
Taylor expanded in B around inf 98.96
Simplified98.9
[Start]98.96 | \[ \frac{-\sqrt{2 \cdot \left(\left(F \cdot {B}^{2}\right) \cdot \left(\left(A + C\right) + \mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{hypot}\left(B, A - C\right)\right)\right)\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
|---|---|
*-commutative [=>]98.96 | \[ \frac{-\sqrt{2 \cdot \left(\color{blue}{\left({B}^{2} \cdot F\right)} \cdot \left(\left(A + C\right) + \mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{hypot}\left(B, A - C\right)\right)\right)\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
unpow2 [=>]98.96 | \[ \frac{-\sqrt{2 \cdot \left(\left(\color{blue}{\left(B \cdot B\right)} \cdot F\right) \cdot \left(\left(A + C\right) + \mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{hypot}\left(B, A - C\right)\right)\right)\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
associate-*l* [=>]98.9 | \[ \frac{-\sqrt{2 \cdot \left(\color{blue}{\left(B \cdot \left(B \cdot F\right)\right)} \cdot \left(\left(A + C\right) + \mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{hypot}\left(B, A - C\right)\right)\right)\right)\right)}}{B \cdot B - 4 \cdot \left(A \cdot C\right)}
\] |
Taylor expanded in A around 0 99.35
Simplified99.35
[Start]99.35 | \[ -1 \cdot \left(\frac{\sqrt{2}}{B} \cdot \sqrt{\left(C + \sqrt{{B}^{2} + {C}^{2}}\right) \cdot F}\right)
\] |
|---|---|
mul-1-neg [=>]99.35 | \[ \color{blue}{-\frac{\sqrt{2}}{B} \cdot \sqrt{\left(C + \sqrt{{B}^{2} + {C}^{2}}\right) \cdot F}}
\] |
distribute-rgt-neg-in [=>]99.35 | \[ \color{blue}{\frac{\sqrt{2}}{B} \cdot \left(-\sqrt{\left(C + \sqrt{{B}^{2} + {C}^{2}}\right) \cdot F}\right)}
\] |
*-commutative [=>]99.35 | \[ \frac{\sqrt{2}}{B} \cdot \left(-\sqrt{\color{blue}{F \cdot \left(C + \sqrt{{B}^{2} + {C}^{2}}\right)}}\right)
\] |
+-commutative [=>]99.35 | \[ \frac{\sqrt{2}}{B} \cdot \left(-\sqrt{F \cdot \left(C + \sqrt{\color{blue}{{C}^{2} + {B}^{2}}}\right)}\right)
\] |
unpow2 [=>]99.35 | \[ \frac{\sqrt{2}}{B} \cdot \left(-\sqrt{F \cdot \left(C + \sqrt{\color{blue}{C \cdot C} + {B}^{2}}\right)}\right)
\] |
unpow2 [=>]99.35 | \[ \frac{\sqrt{2}}{B} \cdot \left(-\sqrt{F \cdot \left(C + \sqrt{C \cdot C + \color{blue}{B \cdot B}}\right)}\right)
\] |
Applied egg-rr72.78
Final simplification52.07
| Alternative 1 | |
|---|---|
| Error | 67.05% |
| Cost | 34780 |
| Alternative 2 | |
|---|---|
| Error | 67.07% |
| Cost | 34460 |
| Alternative 3 | |
|---|---|
| Error | 55.78% |
| Cost | 33540 |
| Alternative 4 | |
|---|---|
| Error | 58.13% |
| Cost | 27980 |
| Alternative 5 | |
|---|---|
| Error | 58.24% |
| Cost | 27716 |
| Alternative 6 | |
|---|---|
| Error | 62.57% |
| Cost | 27340 |
| Alternative 7 | |
|---|---|
| Error | 60.71% |
| Cost | 27340 |
| Alternative 8 | |
|---|---|
| Error | 61.95% |
| Cost | 26884 |
| Alternative 9 | |
|---|---|
| Error | 61.6% |
| Cost | 26884 |
| Alternative 10 | |
|---|---|
| Error | 62.38% |
| Cost | 26700 |
| Alternative 11 | |
|---|---|
| Error | 70.63% |
| Cost | 21392 |
| Alternative 12 | |
|---|---|
| Error | 70.58% |
| Cost | 21136 |
| Alternative 13 | |
|---|---|
| Error | 70.72% |
| Cost | 21136 |
| Alternative 14 | |
|---|---|
| Error | 70.39% |
| Cost | 15308 |
| Alternative 15 | |
|---|---|
| Error | 69.82% |
| Cost | 15044 |
| Alternative 16 | |
|---|---|
| Error | 74.77% |
| Cost | 14660 |
| Alternative 17 | |
|---|---|
| Error | 75.89% |
| Cost | 13576 |
| Alternative 18 | |
|---|---|
| Error | 75.26% |
| Cost | 13448 |
| Alternative 19 | |
|---|---|
| Error | 79.13% |
| Cost | 8588 |
| Alternative 20 | |
|---|---|
| Error | 79.07% |
| Cost | 8588 |
| Alternative 21 | |
|---|---|
| Error | 82.85% |
| Cost | 8456 |
| Alternative 22 | |
|---|---|
| Error | 85.7% |
| Cost | 8072 |
| Alternative 23 | |
|---|---|
| Error | 93.6% |
| Cost | 7812 |
| Alternative 24 | |
|---|---|
| Error | 89.6% |
| Cost | 7812 |
| Alternative 25 | |
|---|---|
| Error | 95.09% |
| Cost | 7108 |
| Alternative 26 | |
|---|---|
| Error | 95.09% |
| Cost | 6980 |
| Alternative 27 | |
|---|---|
| Error | 96.84% |
| Cost | 6848 |
herbie shell --seed 2023090
(FPCore (A B C F)
:name "ABCF->ab-angle a"
:precision binary64
(/ (- (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))))