Tipo:

Polinómica
Racional

Cambia a Polinómica

RACIONAL

Cambia a Racional

listasignos: {"≤", "<", "≥", ">"}
lista_p: {"≤ 0", "< 0", "≥ 0", "> 0"}
lista_r: lista_p
op_r = SelectedIndex(lista_r)
op_p = SelectedIndex(lista_p)
tipo: -1
q(x) = (5 * (x + 1))
p(x) = x^(2) - (5 * x) + 4
f = If(tipo > 0, p, p(x) / q(x))
c = -1 (slider from -5 to 5, step 0.1)
signo = If(tipo > 0, Element[listasignos, op_p], Element[listasignos, op_r])
ff = Simplify(f)
texto1_1: "" + (LaTeX[ff]) + "" + (LaTeX[signo]) + "0"
CasillaDeEntrada1 = Textfield(p)
A = (-4.001818181818182, 2.992727272727274)
B: A + (2.2, 0)
a = Segment(A, B)
ine_p = If(op_p ≟ 1, p(x) ≤ 0, op_p ≟ 2, p(x) < 0, op_p ≟ 3, p(x) ≥ 0, p(x) > 0)
prod(x) = (p(x) * q(x))
CasillaDeEntrada2 = Textfield(q)
ine_r = If(op_r ≟ 1, prod(x) ≤ 0, op_r ≟ 2, prod(x) < 0, op_r ≟ 3, prod(x) ≥ 0, prod(x) > 0)
coci = Simplify(p(x) / q(x))
gradococi = Degree(coci)
caso = If(Degree[coci] < Degree[p], 0, 1)
ine_r' = If(op_r ≟ 1, coci(x) ≤ 0, op_r ≟ 2, coci(x) < 0, op_r ≟ 3, coci(x) ≥ 0, coci(x) > 0)
texto2: "Elige una inecuación 
    " + textotipo + ":"