Average Error: 18.7 → 18.7
Time: 2.0s
Precision: binary64
\[\sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}\]
↓
\[\sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}\]
\sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}
↓
\sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}
double code(double r, double q, double p) {
	return ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (((double) (1.0 - ((double) (r / q)))) / ((double) sqrt(((double) (((double) (((double) (((double) (((double) (4.0 * p)) * p)) / q)) * q)) + ((double) (((double) (1.0 - ((double) (r / q)))) * ((double) (1.0 - ((double) (r / q))))))))))))))))));
}
↓
double code(double r, double q, double p) {
	return ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (((double) (1.0 - ((double) (r / q)))) / ((double) sqrt(((double) (((double) (((double) (((double) (((double) (4.0 * p)) * p)) / q)) * q)) + ((double) (((double) (1.0 - ((double) (r / q)))) * ((double) (1.0 - ((double) (r / q))))))))))))))))));
}

Error

Bits error versus r

Bits error versus q

Bits error versus p

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 18.7

    \[\sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}\]

  2. Final simplification18.7

    \[\leadsto \sqrt{0.5 \cdot \left(1 + \frac{1 - \frac{r}{q}}{\sqrt{\frac{\left(4 \cdot p\right) \cdot p}{q} \cdot q + \left(1 - \frac{r}{q}\right) \cdot \left(1 - \frac{r}{q}\right)}}\right)}\]

Reproduce

herbie shell --seed 2020153 
(FPCore (r q p)
  :name "(sqrt (* 0.5 (+ 1 (/ (- 1 (/ r q)) (sqrt (+ (* (/ (* (* 4 p) p) q) q) (* (- 1 (/ r q)) (- 1 (/ r q)))))))))"
  :precision binary64
  (sqrt (* 0.5 (+ 1.0 (/ (- 1.0 (/ r q)) (sqrt (+ (* (/ (* (* 4.0 p) p) q) q) (* (- 1.0 (/ r q)) (- 1.0 (/ r q))))))))))