Nivel:

Elige otra

Aleja

Acerca

ASÍNTOTAS:

nivel: {1, 2, 3}
falsa = Random(-6, 6)
op = SelectedIndex(nivel)
a2 = If(op ≟ 1, Random[-2, 6], Random[3, 6])
k2b = Random(1, 2)
listak2: {1, 2, 4, 5}
k2a = Element(listak2, Random[1, 4])
k2: (If[k2b ≟ 1, -1, 1] * k2a)
b2 = Random(-6, 0)
den2(x) = (((k2 * (x - a2)) * (x - b2)) * (x - falsa))
quedan = Remove({-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6}, {a2, b2})
a1 = Element(quedan, Random[1, Length[quedan]])
b1 = Element(quedan, Random[1, Length[quedan]])
k1b = Random(1, 2)
k1a = Random(1, 4)
k1: (If[k1b ≟ 1, -1, 1] * k1a)
num1(x) = ((k1 * (x - a1)) * (x - falsa))
num2(x) = (((k1 * (x - a1)) * (x - b1)) * (x - falsa))
num0(x) = (k1 * (x - falsa))
den1(x) = ((k2 * (x - a2)) * (x - falsa))
den = If(op ≟ 1 ∨ op ≟ 3, den1, den2)
num = If(op ≟ 1, Element[{num0, num1}, Random[1, 2]], num2)
raícesP = RemoveUndefined({Root[num]})
raíces: x(RemoveUndefined[{Root[num]}])
avX: x(RemoveUndefined[{Root[den]}])
Ava = Sequence(x = Element[avX, k], k, 1, Length[avX])
textoRaíces = If(Length[raíces] ≟ 0, "Sin raíces", ("Raíces: " * raíces))
cociente = Div(num, den)
Avb: ("x = " * Element[avX, 1])
texto1: "Horizontal: \space  y =" + (LaTeX[LaTeX[cociente]]) + ""
texto2: "Oblicua:  \space y = " + (LaTeX[LaTeX[cociente]]) + ""
texto3a: "Vertical: \space  " + (LaTeX[Avb]) + ""
texto3b: "Verticales: \space  " + (LaTeX[Ava]) + ""
f(x) = Simplify[num] / Simplify[den]
texto4 = LaTeX(f, true, true)