Exception for quad2m (problem 3.2.1, negative)

Math

\[\frac{\left(-b_2\right) - \sqrt{b_2 \cdot b_2 - a \cdot c}}{a} \]

FPCore

(FPCore (a b_2 c)
 :precision binary64
 (/ (- (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))

C

double code(double a, double b_2, double c) {
	return (-b_2 - sqrt(((b_2 * b_2) - (a * c)))) / a;
}

Fortran

real(8) function code(a, b_2, c)
    real(8), intent (in) :: a
    real(8), intent (in) :: b_2
    real(8), intent (in) :: c
    code = (-b_2 - sqrt(((b_2 * b_2) - (a * c)))) / a
end function

Java

public static double code(double a, double b_2, double c) {
	return (-b_2 - Math.sqrt(((b_2 * b_2) - (a * c)))) / a;
}

Python

def code(a, b_2, c):
	return (-b_2 - math.sqrt(((b_2 * b_2) - (a * c)))) / a

Julia

function code(a, b_2, c)
	return Float64(Float64(Float64(-b_2) - sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c)))) / a)
end

MATLAB

function tmp = code(a, b_2, c)
	tmp = (-b_2 - sqrt(((b_2 * b_2) - (a * c)))) / a;
end

Wolfram

code[a_, b$95$2_, c_] := N[(N[((-b$95$2) - N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]

Reproduce

Please include this information when filing a bug report:

herbie shell --seed 2022349 
(FPCore (a b_2 c)
  :name "quad2m (problem 3.2.1, negative)"
  :precision binary64
  (/ (- (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))

Backtrace

error writing to stream port system error: Broken pipe; errno=32		L	C
writeln	/usr/share/racket/collects/racket/private/misc.rkt	156	4
run-egglog	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/egglog/run-egglog.rkt	1301	0
run-simplify-input	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/core/simplify.rkt	74	0
simplify-batch	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/core/simplify.rkt	51	0
(unnamed)	/usr/share/racket/collects/racket/contract/private/arrow-higher-order.rkt	379	33
get-swaps	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/symmetry.rkt	6	0
connected-components	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/symmetry.rkt	20	0
run-improve!	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/mainloop.rkt	320	0
(unnamed)	/home/nightlies/nightlies/herbie/oflatt-egglog-ctx/src/sandbox.rkt	55	6
(unnamed)	/usr/share/racket/pkgs/profile-lib/main.rkt	40	10
profile-thunk	/usr/share/racket/pkgs/profile-lib/main.rkt	9	0
(unnamed)	/usr/share/racket/collects/racket/engine.rkt	42	24