Average Error: 15.1 → 0.0
Time: 2.5s
Precision: binary64
\[\left(0 \leq b \land b \leq a\right) \land a \leq 1\]
\[\sqrt{\left|\frac{a \cdot a - b \cdot b}{a \cdot a}\right|} \]
↓
\[\sqrt{\left|\frac{a - b}{a \cdot \frac{a}{a + b}}\right|} \]
(FPCore (a b)
 :precision binary64
 (sqrt (fabs (/ (- (* a a) (* b b)) (* a a)))))
↓
(FPCore (a b)
 :precision binary64
 (sqrt (fabs (/ (- a b) (* a (/ a (+ a b)))))))
double code(double a, double b) {
	return sqrt(fabs((((a * a) - (b * b)) / (a * a))));
}
↓
double code(double a, double b) {
	return sqrt(fabs(((a - b) / (a * (a / (a + b))))));
}

real(8) function code(a, b)
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    code = sqrt(abs((((a * a) - (b * b)) / (a * a))))
end function
↓
real(8) function code(a, b)
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    code = sqrt(abs(((a - b) / (a * (a / (a + b))))))
end function

public static double code(double a, double b) {
	return Math.sqrt(Math.abs((((a * a) - (b * b)) / (a * a))));
}
↓
public static double code(double a, double b) {
	return Math.sqrt(Math.abs(((a - b) / (a * (a / (a + b))))));
}

def code(a, b):
	return math.sqrt(math.fabs((((a * a) - (b * b)) / (a * a))))
↓
def code(a, b):
	return math.sqrt(math.fabs(((a - b) / (a * (a / (a + b))))))

function code(a, b)
	return sqrt(abs(Float64(Float64(Float64(a * a) - Float64(b * b)) / Float64(a * a))))
end
↓
function code(a, b)
	return sqrt(abs(Float64(Float64(a - b) / Float64(a * Float64(a / Float64(a + b))))))
end

function tmp = code(a, b)
	tmp = sqrt(abs((((a * a) - (b * b)) / (a * a))));
end
↓
function tmp = code(a, b)
	tmp = sqrt(abs(((a - b) / (a * (a / (a + b))))));
end

code[a_, b_] := N[Sqrt[N[Abs[N[(N[(N[(a * a), $MachinePrecision] - N[(b * b), $MachinePrecision]), $MachinePrecision] / N[(a * a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]
↓
code[a_, b_] := N[Sqrt[N[Abs[N[(N[(a - b), $MachinePrecision] / N[(a * N[(a / N[(a + b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]

\sqrt{\left|\frac{a \cdot a - b \cdot b}{a \cdot a}\right|}
↓
\sqrt{\left|\frac{a - b}{a \cdot \frac{a}{a + b}}\right|}

Error

Bits error versus a

Bits error versus b

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 15.1

    \[\sqrt{\left|\frac{a \cdot a - b \cdot b}{a \cdot a}\right|} \]

  2. Applied egg-rr0.0

    \[\leadsto \sqrt{\left|\color{blue}{\frac{a + b}{a} \cdot \frac{a - b}{a}}\right|} \]

  3. Applied egg-rr0.2

    \[\leadsto \sqrt{\left|\frac{a + b}{a} \cdot \color{blue}{\left(\left(a - b\right) \cdot \frac{1}{a}\right)}\right|} \]

  4. Applied egg-rr0.0

    \[\leadsto \sqrt{\left|\color{blue}{\frac{a - b}{a \cdot \frac{a}{a + b}}}\right|} \]

  5. Final simplification0.0

    \[\leadsto \sqrt{\left|\frac{a - b}{a \cdot \frac{a}{a + b}}\right|} \]

Reproduce

herbie shell --seed 2022131 
(FPCore (a b)
  :name "Eccentricity of an ellipse"
  :precision binary64
  :pre (and (and (<= 0.0 b) (<= b a)) (<= a 1.0))
  (sqrt (fabs (/ (- (* a a) (* b b)) (* a a)))))