f(x) =

c =

Acercar

Alejar

c = Infinity
f(x) = ((x + 1) / x)^((2 * x))
kdi = If(Defined[f(c + 1.0E-4)] ∧ Defined[f(c - 1.0E-4)] ∧ (abs(f(c + 1.0E-4) - f(c - 1.0E-4))  <  10), true, false)
k = Limit(f, c)
f1 = Textfield(f)
kt = If((abs(k)  <  10^(9)) ∧ Defined[k], k, If[kdi, round((100 * f(c + 1.0E-4))) / 100, If[Defined[k] ∧ (k > 0), Infinity, If[Defined[k] ∧ (k  <  0), -Infinity]]])
a = Textfield(c)
tabla1 = TableText({{"x", "f(x)"}, {c - 0.1, f(c - 0.1)}, {c - 0.01, f(c - 0.01)}, {c - 0.001, f(c - 0.001)}, {c - 1.0E-4, f(c - 1.0E-4)}, {c - 1.0E-5, f(c - 1.0E-5)}}, "c|_")
tabla2 = TableText({{"x", "f(x)"}, {"10", f(10)}, {"10²", f(100)}, {"10³", f(1000)}, {"10⁴", f(10000)}, {"10⁵", f(100000)}}, "c|_")
tabla3 = TableText({{"x", "f(x)"}, {"-10", f(-10)}, {"-10²", f(-100)}, {"-10³", f(-1000)}, {"-10⁴", f(-10000)}, {"-10⁵", f(-100000)}}, "c|_")
tabla = If(c ≟ -Infinity, tabla3, If[c ≟ Infinity, tabla2, tabla1])
ki = If((abs(c) > 10^(9)) ∨ Defined[f(c - 1.0E-4)], true, false)
kd = If((abs(c) > 10^(9)) ∨ Defined[f(c + 1.0E-4)], true, false)
texto1: "\scalebox{1.6}{\lim_{ x \to " + (LaTeX[c]) + " }" + (LaTeX[f]) + "=" + (LaTeX[If[Defined[kt] ∧ kd ∧ ki, "" + kt, "indefinido"]]) + "}"
A: (c, f(c))
lista1: {Segment[(x(A), 0), A], Segment[(0, y(A)), A]}