Exception for Henrywood and Agarwal, Equation (13)

Math

\[\frac{c0}{2 \cdot w} \cdot \left(\frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} + \sqrt{\frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} \cdot \frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} - M \cdot M}\right)\]

FPCore

(FPCore (c0 w h D d M)
 :precision binary64
 (*
  (/ c0 (* 2.0 w))
  (+
   (/ (* c0 (* d d)) (* (* w h) (* D D)))
   (sqrt
    (-
     (*
      (/ (* c0 (* d d)) (* (* w h) (* D D)))
      (/ (* c0 (* d d)) (* (* w h) (* D D))))
     (* M M))))))

C

double code(double c0, double w, double h, double D, double d, double M) {
	return ((double) ((c0 / ((double) (2.0 * w))) * ((double) ((((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D))))) + ((double) sqrt(((double) (((double) ((((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D))))) * (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D))))))) - ((double) (M * M))))))))));
}

Reproduce

Please include this information when filing a bug report:

herbie shell --seed 2020203 
(FPCore (c0 w h D d M)
  :name "Henrywood and Agarwal, Equation (13)"
  :precision binary64
  (* (/ c0 (* 2.0 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))))

Backtrace

first: contract violation expected: (and/c list? (not/c empty?)) given: '()		L	C
batch-eval-progs	/data/pavpan/nightlies/herbie/cleanup/src/programs.rkt	107	0
batch-errors	/data/pavpan/nightlies/herbie/cleanup/src/points.rkt	169	0
atab-add-altns	/data/pavpan/nightlies/herbie/cleanup/src/core/alt-table.rkt	194	0
(unnamed)	/opt/racket-7.5/collects/racket/contract/private/arrow-val-first.rkt	486	18
finalize-iter!	/data/pavpan/nightlies/herbie/cleanup/src/mainloop.rkt	273	0
run-iter!	/data/pavpan/nightlies/herbie/cleanup/src/mainloop.rkt	341	0
for-loop	/data/pavpan/nightlies/herbie/cleanup/src/mainloop.rkt	379	4
run-improve41	/data/pavpan/nightlies/herbie/cleanup/src/mainloop.rkt	360	0
.../more-scheme.rkt:261:28	unknown
run	/opt/racket-7.5/share/pkgs/profile-lib/main.rkt	39	2
profile-thunk16	/opt/racket-7.5/share/pkgs/profile-lib/main.rkt	9	0
(unnamed)	/opt/racket-7.5/collects/racket/private/more-scheme.rkt	261	28

Reproduce

herbie shell --seed 2020203 
(FPCore (c0 w h D d M)
  :name "Henrywood and Agarwal, Equation (13)"
  :precision binary64
  (* (/ c0 (* 2.0 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))))