F(x) =

c =

c = 0
F(x) = 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)
f = 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 - 1.0E-4, F(c - 1.0E-4)}, {c + 1.0E-4, F(c + 1.0E-4)}}, "c|_")
tabla2 = TableText({{"x", "F(x)"}, {"10³", F(1000)}, {"10⁴", F(10000)}, {"10⁵", F(100000)}}, "c|_")
tabla3 = TableText({{"x", "F(x)"}, {"-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"]]) + "}"