Punto en gráfica

N i v e l

f(x)\; = \;0

n = 1 (slider from 1 to 10, step 1)
a0': Random[-5, 6] + (0 * n)
azar: {1 + (0 * n), 2 + (0 * n), 3 + (0 * n), Random[2, 3] + (0 * n), 4 + (0 * n), 5 + (0 * n), Random[5, 6] + (0 * n), 7 + (0 * n), 8 + (0 * n), Random[2, 8] + (0 * n)}
kg = Element(azar, n)
a = 1 (slider from -5 to 6, step 1)
b = 1 (slider from -5 to 6, step 1)
b8 = If(b ≟ 0 ∧ (a ≠ 0), "", If[(b > 0) ∧ (a ≠ 0), "+" + b, "" + b])
d = 8 (slider from 1 to 8, step 1)
c = 1 (slider from -5 to 6, step 1)
listaF: {(a * x), (a * x) + b, a / x, (a * x^(2)), (a * x^(2)) + c, (a * x^(2)) + (b * x), (a * x^(2)) + (b * x) + c, a^(x)}
a' = If(a0' ≟ 0 ∨ (a0'  <  0) ∧ kg ≟ 8, Random[1, 6], a0')
P = Point(xAxis)
b': Random[-5, 6] + (0 * n)
c': Random[-5, 6] + (0 * n)
f = Element(listaF, 9 - d)
p = false
listaG: {(a' * x), (a' * x) + b', a' / x, (a' * x^(2)), (a' * x^(2)) + c', (a' * x^(2)) + (b' * x), (a' * x^(2)) + (b' * x) + c', a'^(x)}
panel2: {Polygon[(12.9, 20.46667), (12.9, -19.53333), 4]}
g = Element(listaG, kg)
sy = Segment((x(P), 0), (x(P), g(x(P))))
sx = Segment((0, g(x(P))), (x(P), g(x(P))))
PV = (13.48, 5.2200000000000015)
posV = Sequence(PV - (0, (1.2 * k)), k, 1, 7)
PH = (-2.4599999999999995, -5.519999999999999)
panel1: {Polygon[(-20, -4.8), (40, -4.8), (40, -12), (-20, -12)]}
G: (x(P), g(x(P)))
elige = 1
T1: "a = " + a
T2: "b = " + b
T3: "c = " + c
Tf: "f(x) \;=\; " + f
exito = If(a' ≟ a ∧ (kg ≟ 7 ∧ b' ≟ b ∧ c' ≟ c ∨ (kg ≟ 2 ∨ kg ≟ 6) ∧ b' ≟ b ∨ kg ≟ 5 ∧ c' ≟ c ∨ kg ≟ 1 ∨ kg ≟ 3 ∨ kg ≟ 4 ∨ kg ≟ 8), true, false)
texto2: "¡Enhorabuena!
Has encontrado 
una función
del nivel " + n
exito2 = If(f ≟ g, true, false)
d8 = If(a ≟ 0, "0", If[a ≟ 1, "x", If[a ≟ -1, "-x", a + " x"]])
d7 = If(a ≟ 0, "" + b8, If[a ≟ 1, "x" + b8, If[a ≟ -1, "-x" + b8, a + " x" + b8]])
d5 = If(a ≟ 0, "0", If[a ≟ 1, "x²", If[a ≟ -1, "-x²", a + " x²"]])
c4 = If(c ≟ 0 ∧ (a ≠ 0), "", If[(c > 0) ∧ (a ≠ 0), "+" + c, "" + c])
d4 = If(a ≟ 0, "" + c4, If[a ≟ 1, "x²" + c4, If[a ≟ -1, "-x²" + c4, a + " x²" + c4]])
c2 = If(c ≟ 0 ∧ ((a ≠ 0) ∨ (b ≠ 0)), "", If[(c > 0) ∧ ((a ≠ 0) ∨ (b ≠ 0)), "+" + c, "" + c])
b3 = If(b ≟ 0 ∧ a ≟ 0, "0", If[b ≟ 0 ∧ (a ≠ 0), "", If[b ≟ 1 ∧ a ≟ 0, "x", If[b ≟ 1 ∧ (a ≠ 0), "+ x", If[b ≟ -1, "-x", If[(b > 0) ∧ (a ≠ 0), " + " + b + "x", b + "x"]]]]])
d3 = If(a ≟ 0, If[b ≟ 0, "0", "" + b3], If[a ≟ 1, "x² " + b3, If[a ≟ -1, "-x² " + b3, a + " x² " + b3]])
d2 = If(a ≟ 0 ∧ b ≟ 0, c2, d3 + c2)
d1 = If(a ≟ 0, "0", If[a ≟ 1, "1", "" + f])
formula: {d1, d2, d3, d4, d5, f, d7, d8}
posH = Sequence(Text["" + (k), PH + ((1.33 * k) - 1.33, 0)], k, 1, 10)