(FPCore (t)
:precision binary64
(/
(+
1.0
(*
(- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t))))
(- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t))))))
(+
2.0
(*
(- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t))))
(- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t))))))))(FPCore (t) :precision binary64 (let* ((t_1 (/ (+ -8.0 (/ 4.0 (+ 1.0 t))) (+ 1.0 t)))) (/ (+ t_1 5.0) (+ t_1 6.0))))
double code(double t) {
return (1.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))))) / (2.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t))))));
}
double code(double t) {
double t_1 = (-8.0 + (4.0 / (1.0 + t))) / (1.0 + t);
return (t_1 + 5.0) / (t_1 + 6.0);
}
real(8) function code(t)
real(8), intent (in) :: t
code = (1.0d0 + ((2.0d0 - ((2.0d0 / t) / (1.0d0 + (1.0d0 / t)))) * (2.0d0 - ((2.0d0 / t) / (1.0d0 + (1.0d0 / t)))))) / (2.0d0 + ((2.0d0 - ((2.0d0 / t) / (1.0d0 + (1.0d0 / t)))) * (2.0d0 - ((2.0d0 / t) / (1.0d0 + (1.0d0 / t))))))
end function
real(8) function code(t)
real(8), intent (in) :: t
real(8) :: t_1
t_1 = ((-8.0d0) + (4.0d0 / (1.0d0 + t))) / (1.0d0 + t)
code = (t_1 + 5.0d0) / (t_1 + 6.0d0)
end function
public static double code(double t) {
return (1.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))))) / (2.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t))))));
}
public static double code(double t) {
double t_1 = (-8.0 + (4.0 / (1.0 + t))) / (1.0 + t);
return (t_1 + 5.0) / (t_1 + 6.0);
}
def code(t): return (1.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))))) / (2.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t))))))
def code(t): t_1 = (-8.0 + (4.0 / (1.0 + t))) / (1.0 + t) return (t_1 + 5.0) / (t_1 + 6.0)
function code(t) return Float64(Float64(1.0 + Float64(Float64(2.0 - Float64(Float64(2.0 / t) / Float64(1.0 + Float64(1.0 / t)))) * Float64(2.0 - Float64(Float64(2.0 / t) / Float64(1.0 + Float64(1.0 / t)))))) / Float64(2.0 + Float64(Float64(2.0 - Float64(Float64(2.0 / t) / Float64(1.0 + Float64(1.0 / t)))) * Float64(2.0 - Float64(Float64(2.0 / t) / Float64(1.0 + Float64(1.0 / t))))))) end
function code(t) t_1 = Float64(Float64(-8.0 + Float64(4.0 / Float64(1.0 + t))) / Float64(1.0 + t)) return Float64(Float64(t_1 + 5.0) / Float64(t_1 + 6.0)) end
function tmp = code(t) tmp = (1.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))))) / (2.0 + ((2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))) * (2.0 - ((2.0 / t) / (1.0 + (1.0 / t)))))); end
function tmp = code(t) t_1 = (-8.0 + (4.0 / (1.0 + t))) / (1.0 + t); tmp = (t_1 + 5.0) / (t_1 + 6.0); end
code[t_] := N[(N[(1.0 + N[(N[(2.0 - N[(N[(2.0 / t), $MachinePrecision] / N[(1.0 + N[(1.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 - N[(N[(2.0 / t), $MachinePrecision] / N[(1.0 + N[(1.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(2.0 + N[(N[(2.0 - N[(N[(2.0 / t), $MachinePrecision] / N[(1.0 + N[(1.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 - N[(N[(2.0 / t), $MachinePrecision] / N[(1.0 + N[(1.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[t_] := Block[{t$95$1 = N[(N[(-8.0 + N[(4.0 / N[(1.0 + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision]}, N[(N[(t$95$1 + 5.0), $MachinePrecision] / N[(t$95$1 + 6.0), $MachinePrecision]), $MachinePrecision]]
\frac{1 + \left(2 - \frac{\frac{2}{t}}{1 + \frac{1}{t}}\right) \cdot \left(2 - \frac{\frac{2}{t}}{1 + \frac{1}{t}}\right)}{2 + \left(2 - \frac{\frac{2}{t}}{1 + \frac{1}{t}}\right) \cdot \left(2 - \frac{\frac{2}{t}}{1 + \frac{1}{t}}\right)}
\begin{array}{l}
t_1 := \frac{-8 + \frac{4}{1 + t}}{1 + t}\\
\frac{t_1 + 5}{t_1 + 6}
\end{array}



Bits error versus t
Results
Initial program 0.0
Simplified0.0
Applied fma-udef_binary640.0
Simplified0.0
Applied fma-udef_binary640.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2022129
(FPCore (t)
:name "Kahan p13 Example 2"
:precision binary64
(/ (+ 1.0 (* (- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t)))) (- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t)))))) (+ 2.0 (* (- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t)))) (- 2.0 (/ (/ 2.0 t) (+ 1.0 (/ 1.0 t))))))))