1

x

x+1

2

x - 1

Nuria

Alberto

Juegan:

y:

tu

x+2

x - 2

2 x + 2

x+3

x - 3

x+4

4

x - 4

x+5

2x - 2

x - 9

2 x

Otra partida

Al llegar el final se ocultan los botones para que no se pueda “hacer trampa” mediante la condición de visibilidad

A7(x) = x - 1
anterior = 1
elegido = 2
multiplo: Mod[elegido, anterior] ≟ 0
divisor: Mod[anterior, elegido] ≟ 0
CasillaDeEntrada1 = Textfield(j1)
CasillaDeEntrada2 = Textfield(j2)
turnouno: true
textoMotivoBien = If(divisor, Element[A1:A40, elegido] + " es divisor de " + (Element[A1:A40, anterior]), multiplo, Element[A1:A40, elegido] + " es múltiplo de " + (Element[A1:A40, anterior]), "mal")
textoBien: "Bien jugado: " + textoMotivoBien + ""
textoGana1: "Ha ganado " + j1 + ""
textoGana2: "Ha ganado " + j2 + ""
fin: (¬divisor) ∧ (¬multiplo)
empiezauno: true
lista1 = Sequence("SetVisibleInView[botón" + (k) + ", 1, true]", k, 1, 40)
A = (-3.2, 0.2)
a = Ray(A, A + (1, 0))
b = Ray(A, A + (0, -1))
B = Point(a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(B, a)
D = Intersect(c, d)
polígono1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
retirados: 0
A1: 1
A2(x) = x
A3(x) = x + 1
A5(x) = 2
A11(x) = x + 2
A13(x) = x - 2
A4 = Simplify(Polynomial[(A2(x) * A2(x))])
A6 = Simplify(Polynomial[(A2(x) * A3(x))])
A8 = Simplify(Polynomial[(A2(x) * A4(x))])
A9 = Simplify(Polynomial[(A3(x) * A3(x))])
A10 = Simplify(Polynomial[(A2(x) * A5(x))])
A12 = Simplify(Polynomial[(A2(x) * A6(x))])
A14 = Simplify(Polynomial[(A2(x) * A7(x))])
A15 = Simplify(Polynomial[(A5(x) * A3(x))])
A16 = Simplify(Polynomial[(A2(x) * A8(x))])
A17(x) = x + 3
A18 = Simplify(Polynomial[(A2(x) * A9(x))])
A19(x) = x - 3
A20 = Simplify(Polynomial[(A4(x) * A5(x))])
A21 = Simplify(Polynomial[(A7(x) * A3(x))])
A22 = Simplify(Polynomial[(A2(x) * A11(x))])
A23(x) = x + 4
A24 = Simplify(Polynomial[(A8(x) * A3(x))])
A25 = Simplify(Polynomial[(A5(x) * A5(x))])
A26 = Simplify(Polynomial[(A13(x) * A2(x))])
A27 = Simplify(Polynomial[(A9(x) * A3(x))])
A28 = Simplify(Polynomial[(A7(x) * A4(x))])
A29(x) = x - 4
A30 = Simplify(Polynomial[(A10(x) * A3(x))])
A31(x) = x + 5
A32 = Simplify(Polynomial[(A8(x) * A4(x))])
A33 = Simplify(Polynomial[(A11(x) * A3(x))])
A34 = Simplify(Polynomial[(A17(x) * A2(x))])
A35 = Simplify(Polynomial[(A5(x) * A7(x))])
A36 = Simplify(Polynomial[(A4(x) * A9(x))])
A37(x) = x - 9
A38 = Simplify(Polynomial[(A2(x) * A19(x))])
A39 = Simplify(Polynomial[(A3(x) * A13(x))])
A40 = Simplify(Polynomial[(A5(x) * A8(x))])
textoElegido: " " + (Element[A1:A40, elegido]) + " "
textoTurno1: "Turno de " + j1 + ": elige un múltiplo o un divisor de: "
textoTurno2: "Turno de " + j2 + ": elige un múltiplo o un divisor de: "
texto2: "Retirados:
 " + retirados + " polinomios"
textoMal: "Mal jugado: " + (Element[A1:A40, elegido]) + " no es ni múltiplo ni divisor de " + (Element[A1:A40, anterior]) + ""