Average Error: 59.3 → 32.1
Time: 12.1s
Precision: binary64
\[\]
\[\]
double code(double c0, double w, double h, double D, double d, double M) {
	return ((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) + ((double) sqrt(((double) (((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) * ((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))))) - ((double) (M * M))))))))));
}
double code(double c0, double w, double h, double D, double d, double M) {
	double VAR;
	if ((((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) + ((double) sqrt(((double) (((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) * ((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))))) - ((double) (M * M)))))))))) <= 1.864309660880015e+93)) {
		VAR = ((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 / ((double) (w * h)))) * ((double) (((double) (d / D)) * ((double) (d / D)))))) * 2.0))));
	} else {
		VAR = 0.0;
	}
	return VAR;
}

Error

Bits error versus c0

Bits error versus w

Bits error versus h

Bits error versus D

Bits error versus d

Bits error versus M

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Split input into 2 regimes
  2. if (* (/ 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))))) < 1.86430966088001509e93

    1. Initial program 36.0

      \[\]
    2. Using strategy rm
    3. Applied flip-+52.6

      \[\leadsto \]
    4. Simplified45.5

      \[\leadsto \]
    5. Simplified51.5

      \[\leadsto \]
    6. Taylor expanded around 0 41.8

      \[\leadsto \]
    7. Simplified38.7

      \[\leadsto \]

    if 1.86430966088001509e93 < (* (/ 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)))))

    1. Initial program 63.5

      \[\]
    2. Taylor expanded around inf 33.2

      \[\leadsto \]
    3. Using strategy rm
    4. Applied mul0-rgt30.9

      \[\leadsto \]
  3. Recombined 2 regimes into one program.
  4. Final simplification32.1

    \[\leadsto \]

Reproduce

herbie shell --seed 2020192 
(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))))))