Exception for (- (/ x0 (- 1 x1)) x0)

Specification

\[x0 = 1.855 \land x1 = 0.000209 \lor x0 = 2.985 \land x1 = 0.0186\]

Math

\[\begin{array}{l} \\ \frac{x0}{1 - x1} - x0 \end{array} \]

FPCore

(FPCore (x0 x1) :precision binary64 (- (/ x0 (- 1.0 x1)) x0))

C

double code(double x0, double x1) {
	return (x0 / (1.0 - x1)) - x0;
}

Fortran

real(8) function code(x0, x1)
    real(8), intent (in) :: x0
    real(8), intent (in) :: x1
    code = (x0 / (1.0d0 - x1)) - x0
end function

Java

public static double code(double x0, double x1) {
	return (x0 / (1.0 - x1)) - x0;
}

Python

def code(x0, x1):
	return (x0 / (1.0 - x1)) - x0

Julia

function code(x0, x1)
	return Float64(Float64(x0 / Float64(1.0 - x1)) - x0)
end

MATLAB

function tmp = code(x0, x1)
	tmp = (x0 / (1.0 - x1)) - x0;
end

Wolfram

code[x0_, x1_] := N[(N[(x0 / N[(1.0 - x1), $MachinePrecision]), $MachinePrecision] - x0), $MachinePrecision]