(FPCore (x) :precision binary64 (/ 1.0 (+ (sqrt (+ x 1.0)) (sqrt x))))

(FPCore (x)
 :precision binary64
 (let* ((t_0 (/ 1.0 (+ (pow (+ 1.0 x) 1.5) (pow x 1.5)))))
   (+ (* t_0 (- x (sqrt (+ x (* x x))))) (* (+ 1.0 x) t_0))))

double code(double x) {
	return 1.0 / (sqrt((x + 1.0)) + sqrt(x));
}

double code(double x) {
	double t_0 = 1.0 / (pow((1.0 + x), 1.5) + pow(x, 1.5));
	return (t_0 * (x - sqrt((x + (x * x))))) + ((1.0 + x) * t_0);
}

real(8) function code(x)
    real(8), intent (in) :: x
    code = 1.0d0 / (sqrt((x + 1.0d0)) + sqrt(x))
end function

real(8) function code(x)
    real(8), intent (in) :: x
    real(8) :: t_0
    t_0 = 1.0d0 / (((1.0d0 + x) ** 1.5d0) + (x ** 1.5d0))
    code = (t_0 * (x - sqrt((x + (x * x))))) + ((1.0d0 + x) * t_0)
end function

public static double code(double x) {
	return 1.0 / (Math.sqrt((x + 1.0)) + Math.sqrt(x));
}

public static double code(double x) {
	double t_0 = 1.0 / (Math.pow((1.0 + x), 1.5) + Math.pow(x, 1.5));
	return (t_0 * (x - Math.sqrt((x + (x * x))))) + ((1.0 + x) * t_0);
}

def code(x):
	return 1.0 / (math.sqrt((x + 1.0)) + math.sqrt(x))

def code(x):
	t_0 = 1.0 / (math.pow((1.0 + x), 1.5) + math.pow(x, 1.5))
	return (t_0 * (x - math.sqrt((x + (x * x))))) + ((1.0 + x) * t_0)

function code(x)
	return Float64(1.0 / Float64(sqrt(Float64(x + 1.0)) + sqrt(x)))
end

function code(x)
	t_0 = Float64(1.0 / Float64((Float64(1.0 + x) ^ 1.5) + (x ^ 1.5)))
	return Float64(Float64(t_0 * Float64(x - sqrt(Float64(x + Float64(x * x))))) + Float64(Float64(1.0 + x) * t_0))
end

function tmp = code(x)
	tmp = 1.0 / (sqrt((x + 1.0)) + sqrt(x));
end

function tmp = code(x)
	t_0 = 1.0 / (((1.0 + x) ^ 1.5) + (x ^ 1.5));
	tmp = (t_0 * (x - sqrt((x + (x * x))))) + ((1.0 + x) * t_0);
end

code[x_] := N[(1.0 / N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

code[x_] := Block[{t$95$0 = N[(1.0 / N[(N[Power[N[(1.0 + x), $MachinePrecision], 1.5], $MachinePrecision] + N[Power[x, 1.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(N[(t$95$0 * N[(x - N[Sqrt[N[(x + N[(x * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(1.0 + x), $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]]

\frac{1}{\sqrt{x + 1} + \sqrt{x}}

\begin{array}{l}
t_0 := \frac{1}{{\left(1 + x\right)}^{1.5} + {x}^{1.5}}\\
t_0 \cdot \left(x - \sqrt{x + x \cdot x}\right) + \left(1 + x\right) \cdot t_0
\end{array}