(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) a)))
(t_1 (sqrt (- (* b b) (* (* 4.0 a) c))))
(t_2 (/ (+ (- b) t_1) (* 2.0 a)))
(t_3 (if (>= b 0.0) (/ (* 2.0 c) (- (- b) t_1)) t_2)))
(if (<= t_3 (- INFINITY))
t_0
(if (<= t_3 -5e-238)
t_3
(if (<= t_3 0.0)
(if (>= b 0.0)
(/ (* 2.0 c) (- (- b) (+ b (* (/ c b) (* -2.0 a)))))
t_2)
(if (<= t_3 5e+238) t_3 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 / a
t_0 = tmp
t_1 = math.sqrt(((b * b) - ((4.0 * a) * c)))
t_2 = (-b + t_1) / (2.0 * a)
tmp_1 = 0
if b >= 0.0:
tmp_1 = (2.0 * c) / (-b - t_1)
else:
tmp_1 = t_2
t_3 = tmp_1
tmp_2 = 0
if t_3 <= -math.inf:
tmp_2 = t_0
elif t_3 <= -5e-238:
tmp_2 = t_3
elif t_3 <= 0.0:
tmp_3 = 0
if b >= 0.0:
tmp_3 = (2.0 * c) / (-b - (b + ((c / b) * (-2.0 * a))))
else:
tmp_3 = t_2
tmp_2 = tmp_3
elif t_3 <= 5e+238:
tmp_2 = t_3
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) / a);
end
t_0 = tmp
t_1 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
t_2 = Float64(Float64(Float64(-b) + t_1) / Float64(2.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 = t_2;
end
t_3 = tmp_1
tmp_2 = 0.0
if (t_3 <= Float64(-Inf))
tmp_2 = t_0;
elseif (t_3 <= -5e-238)
tmp_2 = t_3;
elseif (t_3 <= 0.0)
tmp_3 = 0.0
if (b >= 0.0)
tmp_3 = Float64(Float64(2.0 * c) / Float64(Float64(-b) - Float64(b + Float64(Float64(c / b) * Float64(-2.0 * a)))));
else
tmp_3 = t_2;
end
tmp_2 = tmp_3;
elseif (t_3 <= 5e+238)
tmp_2 = t_3;
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 / a;
end
t_0 = tmp;
t_1 = sqrt(((b * b) - ((4.0 * a) * c)));
t_2 = (-b + t_1) / (2.0 * a);
tmp_2 = 0.0;
if (b >= 0.0)
tmp_2 = (2.0 * c) / (-b - t_1);
else
tmp_2 = t_2;
end
t_3 = tmp_2;
tmp_3 = 0.0;
if (t_3 <= -Inf)
tmp_3 = t_0;
elseif (t_3 <= -5e-238)
tmp_3 = t_3;
elseif (t_3 <= 0.0)
tmp_4 = 0.0;
if (b >= 0.0)
tmp_4 = (2.0 * c) / (-b - (b + ((c / b) * (-2.0 * a))));
else
tmp_4 = t_2;
end
tmp_3 = tmp_4;
elseif (t_3 <= 5e+238)
tmp_3 = t_3;
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 4.99999999999999995e238 < (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-238 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))) < 4.99999999999999995e238
if -5e-238 < (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 2023075
(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))))