a=

b=

c=

d=

a'=

b'=

c'=

d'=

f(x)

Aleja

Acerca

Asíntota horizontal

Asíntotas verticales

Asíntota oblicua

f(x)=\frac{a x^3+b x^2+cx+d}{a'x^3+b'x^2+c'x+d'}

Numerador

Denominador

a = 0 (slider from -12 to 12, step 1)
CasillaDeEntrada1 = Textfield(a)
b = 1 (slider from -12 to 12, step 1)
c = -2 (slider from -12 to 12, step 1)
d = 2 (slider from -12 to 12, step 1)
CasillaDeEntrada2 = Textfield(b)
CasillaDeEntrada3 = Textfield(c)
CasillaDeEntrada4 = Textfield(d)
a' = 0 (slider from -12 to 12, step 1)
b' = 0 (slider from -12 to 12, step 1)
c' = 1 (slider from -12 to 12, step 1)
d' = -1 (slider from -12 to 12, step 1)
CasillaDeEntrada5 = Textfield(a')
CasillaDeEntrada6 = Textfield(b')
CasillaDeEntrada7 = Textfield(c')
CasillaDeEntrada8 = Textfield(d')
g1(x) = (a * x^(3)) + (b * x^(2)) + (c * x) + d
h1(x) = (a' * x^(3)) + (b' * x^(2)) + (c' * x) + d'
g = Simplify(g1)
h = Simplify(h1)
f1(x) = g(x) / h(x)
f = Simplify(f1)
i = true
j = true
k = true
texto2: "f(x)=" + (LaTeX[f]) + ""
lista1 = Asymptote(f)
ah1 = Limit(f, Infinity)
ah: y = ah1
p = Div(g, h)
grado = Degree(p)
A = Intersect(ah, yAxis)
e: y(A)
texto3 = SurdText(e)
texto4: "y=" + (LaTeX[texto3]) + ""
texto5: "y=" + (LaTeX[p]) + ""
ao: y = p(x)
lista2: {ao, ah}
lista3 = Remove(lista1, lista2)
av1 = Element(lista3, 1)
av2 = Element(lista3, 2)
av3 = Element(lista3, 3)
B = Intersect(av1, xAxis)
C = Intersect(av2, yAxis)
D = Intersect(av3, xAxis)
E = Intersect(av2, yAxis)
F = Intersect(av2, xAxis)
x1: x(B)
texto6 = SurdText(x1)
texto7: "x=" + (LaTeX[texto6]) + ""
x2: x(F)
texto8 = SurdText(x2)
texto9: "x=" + (LaTeX[texto8]) + ""
x3: x(D)
texto10 = SurdText(x3)
texto11: "x=" + (LaTeX[texto10]) + ""
long = Length(lista3)