(FPCore (a b c)
:precision binary64
(if (>= b 0.0)
(/ (* 2.0 c) (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a))))
↓
(FPCore (a b c)
:precision binary64
(let* ((t_0
(if (>= b 0.0) (/ (* 2.0 c) (- (- b) b)) (/ (* b -2.0) (* 2.0 a))))
(t_1 (sqrt (- (* b b) (* c (* 4.0 a)))))
(t_2
(if (>= b 0.0) (/ (* 2.0 c) (- (- b) t_1)) (/ (- t_1 b) (* 2.0 a)))))
(if (<= t_2 (- INFINITY))
t_0
(if (<= t_2 -5e-243)
t_2
(if (<= t_2 0.0)
(if (>= b 0.0)
(* -2.0 (/ c (+ b (+ b (* -2.0 (/ c (/ b a)))))))
(* (+ b b) (/ -0.5 a)))
(if (<= t_2 2e+225) t_2 t_0))))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - sqrt(((b * b) - ((4.0 * a) * c))));
} else {
tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
return tmp;
}
def code(a, b, c):
tmp = 0
if b >= 0.0:
tmp = (2.0 * c) / (-b - math.sqrt(((b * b) - ((4.0 * a) * c))))
else:
tmp = (-b + math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a)
return tmp
↓
def code(a, b, c):
tmp = 0
if b >= 0.0:
tmp = (2.0 * c) / (-b - b)
else:
tmp = (b * -2.0) / (2.0 * a)
t_0 = tmp
t_1 = math.sqrt(((b * b) - (c * (4.0 * a))))
tmp_1 = 0
if b >= 0.0:
tmp_1 = (2.0 * c) / (-b - t_1)
else:
tmp_1 = (t_1 - b) / (2.0 * a)
t_2 = tmp_1
tmp_2 = 0
if t_2 <= -math.inf:
tmp_2 = t_0
elif t_2 <= -5e-243:
tmp_2 = t_2
elif t_2 <= 0.0:
tmp_3 = 0
if b >= 0.0:
tmp_3 = -2.0 * (c / (b + (b + (-2.0 * (c / (b / a))))))
else:
tmp_3 = (b + b) * (-0.5 / a)
tmp_2 = tmp_3
elif t_2 <= 2e+225:
tmp_2 = t_2
else:
tmp_2 = t_0
return tmp_2
function code(a, b, c)
tmp = 0.0
if (b >= 0.0)
tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))));
else
tmp = Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a));
end
return tmp
end
↓
function code(a, b, c)
tmp = 0.0
if (b >= 0.0)
tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b));
else
tmp = Float64(Float64(b * -2.0) / Float64(2.0 * a));
end
t_0 = tmp
t_1 = sqrt(Float64(Float64(b * b) - Float64(c * Float64(4.0 * a))))
tmp_1 = 0.0
if (b >= 0.0)
tmp_1 = Float64(Float64(2.0 * c) / Float64(Float64(-b) - t_1));
else
tmp_1 = Float64(Float64(t_1 - b) / Float64(2.0 * a));
end
t_2 = tmp_1
tmp_2 = 0.0
if (t_2 <= Float64(-Inf))
tmp_2 = t_0;
elseif (t_2 <= -5e-243)
tmp_2 = t_2;
elseif (t_2 <= 0.0)
tmp_3 = 0.0
if (b >= 0.0)
tmp_3 = Float64(-2.0 * Float64(c / Float64(b + Float64(b + Float64(-2.0 * Float64(c / Float64(b / a)))))));
else
tmp_3 = Float64(Float64(b + b) * Float64(-0.5 / a));
end
tmp_2 = tmp_3;
elseif (t_2 <= 2e+225)
tmp_2 = t_2;
else
tmp_2 = t_0;
end
return tmp_2
end
function tmp_2 = code(a, b, c)
tmp = 0.0;
if (b >= 0.0)
tmp = (2.0 * c) / (-b - sqrt(((b * b) - ((4.0 * a) * c))));
else
tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
end
tmp_2 = tmp;
end
↓
function tmp_5 = code(a, b, c)
tmp = 0.0;
if (b >= 0.0)
tmp = (2.0 * c) / (-b - b);
else
tmp = (b * -2.0) / (2.0 * a);
end
t_0 = tmp;
t_1 = sqrt(((b * b) - (c * (4.0 * a))));
tmp_2 = 0.0;
if (b >= 0.0)
tmp_2 = (2.0 * c) / (-b - t_1);
else
tmp_2 = (t_1 - b) / (2.0 * a);
end
t_2 = tmp_2;
tmp_3 = 0.0;
if (t_2 <= -Inf)
tmp_3 = t_0;
elseif (t_2 <= -5e-243)
tmp_3 = t_2;
elseif (t_2 <= 0.0)
tmp_4 = 0.0;
if (b >= 0.0)
tmp_4 = -2.0 * (c / (b + (b + (-2.0 * (c / (b / a))))));
else
tmp_4 = (b + b) * (-0.5 / a);
end
tmp_3 = tmp_4;
elseif (t_2 <= 2e+225)
tmp_3 = t_2;
else
tmp_3 = t_0;
end
tmp_5 = tmp_3;
end
if (if (>=.f64 b 0) (/.f64 (*.f64 2 c) (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c))))) (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a))) < -inf.0 or 1.99999999999999986e225 < (if (>=.f64 b 0) (/.f64 (*.f64 2 c) (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c))))) (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a)))
if -inf.0 < (if (>=.f64 b 0) (/.f64 (*.f64 2 c) (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c))))) (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a))) < -5e-243 or -0.0 < (if (>=.f64 b 0) (/.f64 (*.f64 2 c) (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c))))) (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a))) < 1.99999999999999986e225
if -5e-243 < (if (>=.f64 b 0) (/.f64 (*.f64 2 c) (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c))))) (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a))) < -0.0
herbie shell --seed 2023151
(FPCore (a b c)
:name "jeff quadratic root 2"
:precision binary64
(if (>= b 0.0) (/ (* 2.0 c) (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c))))) (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a))))