Naturales

Enteros

Decimales

Fracciones

¡Lo has conseguido,
  ENHORABUENA!

Números
posibles

Q: {{0.5, 1.5, 2.5, 3.5}, {0.3333333333333333, 0.6666666666666666, 1.3333333333333333, 1.6666666666666667}, {0.25, 0.75, 1.75, 2.25}, {0.16666666666666666, 0.25, 0.3333333333333333, 0.5}}
n = 1 (slider from 1 to 2, step 1)
N: {{1, 2, 3, 4}, {1, 2, 4, 6}, {1, 3, 5, 8}, {7, 9, 12, 14}, {17, 18, 19, 26}}
Z: {{-3, 0, 1, 2}, {-2, -1, 1, 2}, {-5, -1, 2, 4}, {-9, -11, 7, 13}, {-11, -17, 8, 20}}
D: {{0.5, 1.5, 2.5, 3.5}, {0.4, 1.6, 0.2, 2.8}, {0.7, 1.8, 2.6, 3.9}, {0.25, 1.75, 2.5, 3.75}, {0.75, 1.85, 2.65, 3.95}}
tipo = 4 (slider from 1 to 4, step 1)
A1 = (1, 3)
c0 = Circle(A1, 0.83)
B = Point(c0)
C = Point(c0)
Nivel: {Element[N, n], Element[Z, n], Element[D, n], Element[Q, n]}
L1 = Element(Nivel, 5 - tipo)
L2 = Sequence(Random[1, 4] - n + n - tipo + tipo, k, 1, 16)
L3 = Sequence(Take[L1, Element[L2, k], Element[L2, k]], k, 1, 16)
sol = Join(L3)
i1'_1 = Translate(i1, Vector[(2, 0)])
i1'_2 = Translate(i1, Vector[(4, 0)])
i1'_3 = Translate(i1, Vector[(6, 0)])
i1'_4 = Translate(i1, Vector[(0, -2)])
i1'_5 = Translate(i1, Vector[(2, -2)])
i1'_6 = Translate(i1, Vector[(4, -2)])
i1'_7 = Translate(i1, Vector[(6, -2)])
i1'_8 = Translate(i1, Vector[(0, -4)])
i1'_9 = Translate(i1, Vector[(2, -4)])
i1'_{10} = Translate(i1, Vector[(4, -4)])
i1'_{11} = Translate(i1, Vector[(6, -4)])
i1'_{12} = Translate(i1, Vector[(0, -6)])
i1'_{13} = Translate(i1, Vector[(2, -6)])
i1'_{14} = Translate(i1, Vector[(4, -6)])
i1'_{15} = Translate(i1, Vector[(6, -6)])
i2'_1 = Translate(i2, Vector[(2, 0)])
i2'_2 = Translate(i2, Vector[(4, 0)])
i2'_3 = Translate(i2, Vector[(6, 0)])
i2'_4 = Translate(i2, Vector[(0, -2)])
i2'_5 = Translate(i2, Vector[(2, -2)])
i2'_6 = Translate(i2, Vector[(4, -2)])
i2'_7 = Translate(i2, Vector[(6, -2)])
i2'_8 = Translate(i2, Vector[(0, -4)])
i2'_9 = Translate(i2, Vector[(2, -4)])
i2'_{10} = Translate(i2, Vector[(4, -4)])
i2'_{11} = Translate(i2, Vector[(6, -4)])
i2'_{12} = Translate(i2, Vector[(0, -6)])
i2'_{13} = Translate(i2, Vector[(2, -6)])
i2'_{14} = Translate(i2, Vector[(4, -6)])
i2' = Translate(i2, Vector[(6, -6)])
i3'_1 = Translate(i3, Vector[(2, 0)])
i3'_2 = Translate(i3, Vector[(4, 0)])
i3'_3 = Translate(i3, Vector[(6, 0)])
i3'_4 = Translate(i3, Vector[(0, -2)])
i3'_5 = Translate(i3, Vector[(2, -2)])
i3'_6 = Translate(i3, Vector[(4, -2)])
i3'_7 = Translate(i3, Vector[(6, -2)])
i3'_8 = Translate(i3, Vector[(0, -4)])
i3'_9 = Translate(i3, Vector[(2, -4)])
i3'_{10} = Translate(i3, Vector[(4, -4)])
i3'_{11} = Translate(i3, Vector[(6, -4)])
i3'_{12} = Translate(i3, Vector[(0, -6)])
i3'_{13} = Translate(i3, Vector[(2, -6)])
i3'_{14} = Translate(i3, Vector[(4, -6)])
i3' = Translate(i3, Vector[(6, -6)])
i4'_1 = Translate(i4, Vector[(2, 0)])
i4'_2 = Translate(i4, Vector[(4, 0)])
i4'_3 = Translate(i4, Vector[(6, 0)])
i4'_4 = Translate(i4, Vector[(0, -2)])
i4'_5 = Translate(i4, Vector[(2, -2)])
i4'_6 = Translate(i4, Vector[(4, -2)])
i4'_7 = Translate(i4, Vector[(6, -2)])
i4'_8 = Translate(i4, Vector[(0, -4)])
i4'_9 = Translate(i4, Vector[(2, -4)])
i4'_{10} = Translate(i4, Vector[(4, -4)])
i4'_{11} = Translate(i4, Vector[(6, -4)])
i4'_{12} = Translate(i4, Vector[(0, -6)])
i4'_{13} = Translate(i4, Vector[(2, -6)])
i4'_{14} = Translate(i4, Vector[(4, -6)])
i4' = Translate(i4, Vector[(6, -6)])
c = CircleArc(A1, B, C)
A2 = Translate(A1, Vector[(2, 0)])
B'_1 = Translate(B, Vector[(2, 0)])
C'_1 = Translate(C, Vector[(2, 0)])
c'_1 = Arc(Translate[Circle[A1, B], Vector[(2, 0)]], B'_1, C'_1)
A3 = Translate(A1, Vector[(4, 0)])
B'_2 = Translate(B, Vector[(4, 0)])
C'_2 = Translate(C, Vector[(4, 0)])
c'_2 = Arc(Translate[Circle[A1, B], Vector[(4, 0)]], B'_2, C'_2)
A4 = Translate(A1, Vector[(6, 0)])
B'_3 = Translate(B, Vector[(6, 0)])
C'_3 = Translate(C, Vector[(6, 0)])
c'_3 = Arc(Translate[Circle[A1, B], Vector[(6, 0)]], B'_3, C'_3)
A5 = Translate(A1, Vector[(0, -2)])
B'_4 = Translate(B, Vector[(0, -2)])
C'_4 = Translate(C, Vector[(0, -2)])
c'_4 = Arc(Translate[Circle[A1, B], Vector[(0, -2)]], B'_4, C'_4)
A6 = Translate(A1, Vector[(2, -2)])
B'_5 = Translate(B, Vector[(2, -2)])
C'_5 = Translate(C, Vector[(2, -2)])
c'_5 = Arc(Translate[Circle[A1, B], Vector[(2, -2)]], B'_5, C'_5)
A7 = Translate(A1, Vector[(4, -2)])
B'_6 = Translate(B, Vector[(4, -2)])
C'_6 = Translate(C, Vector[(4, -2)])
c'_6 = Arc(Translate[Circle[A1, B], Vector[(4, -2)]], B'_6, C'_6)
A8 = Translate(A1, Vector[(6, -2)])
B'_7 = Translate(B, Vector[(6, -2)])
C'_7 = Translate(C, Vector[(6, -2)])
c'_7 = Arc(Translate[Circle[A1, B], Vector[(6, -2)]], B'_7, C'_7)
A9 = Translate(A1, Vector[(0, -4)])
B'_8 = Translate(B, Vector[(0, -4)])
C'_8 = Translate(C, Vector[(0, -4)])
c'_8 = Arc(Translate[Circle[A1, B], Vector[(0, -4)]], B'_8, C'_8)
A10 = Translate(A1, Vector[(2, -4)])
B'_9 = Translate(B, Vector[(2, -4)])
C'_9 = Translate(C, Vector[(2, -4)])
c'_9 = Arc(Translate[Circle[A1, B], Vector[(2, -4)]], B'_9, C'_9)
A11 = Translate(A1, Vector[(4, -4)])
B'_{10} = Translate(B, Vector[(4, -4)])
C'_{10} = Translate(C, Vector[(4, -4)])
c'_{10} = Arc(Translate[Circle[A1, B], Vector[(4, -4)]], B'_{10}, C'_{10})
A12 = Translate(A1, Vector[(6, -4)])
B'_{11} = Translate(B, Vector[(6, -4)])
C'_{11} = Translate(C, Vector[(6, -4)])
c'_{11} = Arc(Translate[Circle[A1, B], Vector[(6, -4)]], B'_{11}, C'_{11})
A13 = Translate(A1, Vector[(0, -6)])
B'_{12} = Translate(B, Vector[(0, -6)])
C'_{12} = Translate(C, Vector[(0, -6)])
c'_{12} = Arc(Translate[Circle[A1, B], Vector[(0, -6)]], B'_{12}, C'_{12})
A14 = Translate(A1, Vector[(2, -6)])
B'_{13} = Translate(B, Vector[(2, -6)])
C'_{13} = Translate(C, Vector[(2, -6)])
c'_{13} = Arc(Translate[Circle[A1, B], Vector[(2, -6)]], B'_{13}, C'_{13})
A15 = Translate(A1, Vector[(4, -6)])
B'_{14} = Translate(B, Vector[(4, -6)])
C'_{14} = Translate(C, Vector[(4, -6)])
c'_{14} = Arc(Translate[Circle[A1, B], Vector[(4, -6)]], B'_{14}, C'_{14})
A16 = Translate(A1, Vector[(6, -6)])
B' = Translate(B, Vector[(6, -6)])
C' = Translate(C, Vector[(6, -6)])
c' = Arc(Translate[Circle[A1, B], Vector[(6, -6)]], B', C')
P1 = Point(c)
P2 = Point(c'_1)
P3 = Point(c'_2)
P4 = Point(c'_3)
P5 = Point(c'_4)
P6 = Point(c'_5)
P7 = Point(c'_6)
P8 = Point(c'_7)
P9 = Point(c'_8)
P10 = Point(c'_9)
P11 = Point(c'_{10})
P12 = Point(c'_{11})
P13 = Point(c'_{12})
P14 = Point(c'_{13})
P15 = Point(c'_{14})
P16 = Point(c')
pos = Sequence(Angle[Object["P" + (k)], Object["A" + (k)], Object["A" + (k)] + (1, 1)] / (45°) - 3, k, 1, 16)
num = Sequence(Sequence[Text["" + (Element[L1, k])], k, 1, 4], t, 0, 15)
texto4: "Nivel = " + n
N1 = Element(N, n)
h = Sequence(Element[sol, 1 + (4 * k)] + Element[sol, 2 + (4 * k)] + Element[sol, 3 + (4 * k)] + Element[sol, 4 + (4 * k)], k, 0, 3)
v = Sequence(Element[sol, 1 + k] + Element[sol, 5 + k] + Element[sol, 9 + k] + Element[sol, 13 + k], k, 0, 3)
sumV = Sequence(Text[Element[v, k], A1 + ((2 * k) - 2, 2) - (0.25, 0.5) + If[tipo ≟ 3 ∧ (Element[v, k]  <  9), (0.15, 0), If[tipo ≟ 1 ∧ (Element[v, k]  <  9) ∧ (Length[TextToUnicode["" + (Element[L1, k])]]  <  3), (0.15, 0), If[tipo ≟ 1 ∧ (Element[v, k] > 9.9), (-0.25, 0), (0, 0)]]]], k, 1, 4)
A = (0, 4)
E = (10, 4)
F = (10, 2)
G = (0, 2)
polígono1, a, e, f, g = Polygon(A, E, F, G)
H = (0, 0)
I = (10, 0)
polígono2, g_1, h_1, i, f_1 = Polygon(G, H, I, F)
J = (0, -2)
K = (10, -2)
polígono3, h_2, j, k, i_1 = Polygon(H, J, K, I)
L = (0, -4)
M = (10, -4)
polígono4, j_1, l, m, k_1 = Polygon(J, L, M, K)
O = (0, 5.5)
P = (2, 5.5)
Q_1 = (2, -4)
polígono5, o, p, q, l_1 = Polygon(O, P, Q_1, L)
R = (4, 5.5)
S = (4, -4)
polígono6, p_1, r, s, q_1 = Polygon(P, R, S, Q_1)
T_1 = (6, 5.5)
U = (6, -4)
polígono7, r_1, t, u_2, s_1 = Polygon(R, T_1, U, S)
V = (8, 5.5)
W = (8, -4)
polígono8, t_1, v_1, w, u_1 = Polygon(T_1, V, W, U)
sumH = Sequence(Text[Element[h, k], A1 + (7.4, 1.8 - (2 * k))], k, 1, 4)
tanteo = Sequence(Element[L1, round(Element[pos, k])], k, 1, 16)
vt = Sequence(Element[tanteo, 1 + k] + Element[tanteo, 5 + k] + Element[tanteo, 9 + k] + Element[tanteo, 13 + k], k, 0, 3)
ht = Sequence(Element[tanteo, 1 + (4 * k)] + Element[tanteo, 2 + (4 * k)] + Element[tanteo, 3 + (4 * k)] + Element[tanteo, 4 + (4 * k)], k, 0, 3)
panel = Sequence(Element[Element[num, k], round(Element[pos, k])], k, 1, 16)
panelLong1 = Sequence(TextToUnicode[Element[panel, k]], k, 1, 16)
panelLong2 = Join(Sequence[First[Element[panelLong1, k], 1], k, 1, 16])
panelLong3 = Sequence(If[Element[panelLong2, k] ≟ 45, 1, 0], k, 1, 16)
panelLong4 = Sequence(If[Element[tanteo, k] ≟ floor(Element[tanteo, k]), 0, 1], k, 1, 16)
panelLong5: Sequence[(10 * Length[Element[panelLong1, k]]) - (4 * Element[panelLong3, k]) - (5 * Element[panelLong4, k]), k, 1, 16] / 10
pth = 0.16
ptv = 0.19
num2 = Sequence(Sequence[Text["" + (Element[L1, k]), A1 - ((Element[panelLong5, t + 1] * pth), ptv) + (2 * (Mod[t, 4], (-Div[t, 4])))], k, 1, 4], t, 0, 15)
panel2 = Sequence(Element[Element[num2, k], round(Element[pos, k])], k, 1, 16)
sumVLong1 = Sequence(TextToUnicode[Element[sumV, k]], k, 1, 4)
sumVLong2 = Join(Sequence[First[Element[sumVLong1, k], 1], k, 1, 4])
sumVLong3 = Sequence(If[Element[sumVLong2, k] ≟ 45, 1, 0], k, 1, 4)
sumVLong4 = Sequence(If[Element[v, k] ≟ floor(Element[v, k]), 0, 1], k, 1, 4)
sumVLong5: Sequence[(10 * Length[Element[sumVLong1, k]]) - (4 * Element[sumVLong3, k]) - (5 * Element[sumVLong4, k]), k, 1, 4] / 10
v2 = Sequence(Text["" + (Element[v, k]), A1 - ((Element[sumVLong5, k] * pth), ptv) + ((2 * k) - 2, 1.7)], k, 1, 4)
sumHLong1 = Sequence(TextToUnicode[Element[sumH, k]], k, 1, 4)
sumHLong2 = Join(Sequence[First[Element[sumHLong1, k], 1], k, 1, 4])
sumHLong3 = Sequence(If[Element[sumHLong2, k] ≟ 45, 1, 0], k, 1, 4)
sumHLong4 = Sequence(If[Element[h, k] ≟ floor(Element[h, k]), 0, 1], k, 1, 4)
sumHLong5: Sequence[(10 * Length[Element[sumHLong1, k]]) - (4 * Element[sumHLong3, k]) - (5 * Element[sumHLong4, k]), k, 1, 4] / 10
h2 = Sequence(Text["" + (Element[h, k]), A1 - ((Element[sumHLong5, k] * pth), ptv) + (8, 2 - (2 * k))], k, 1, 4)
rojas = Sequence(Translate[roja, Vector[A, Object["P" + (k)]] - (0.2, 0.2) + ((round(Element[pos, k]) - 2) * 100)], k, 1, 16)
verdes = Sequence(Translate[verde, Vector[A, Object["P" + (k)]] - (0.2, 0.2) + ((round(Element[pos, k]) - 3) * 100)], k, 1, 16)
azules = Sequence(Translate[azul, Vector[A, Object["P" + (k)]] - (0.2, 0.2) + ((round(Element[pos, k]) - 1) * 100)], k, 1, 16)
violetas = Sequence(Translate[violeta, Vector[A, Object["P" + (k)]] - (0.2, 0.2) + ((round(Element[pos, k]) - 4) * 100)], k, 1, 16)
d = CircleArc(A1 + (12, 0), B + (12, 0), C + (12, 0))
A_1 = Translate(A1 + (12, 0), Vector[(0, -2)])
B_1 = Translate(B + (12, 0), Vector[(0, -2)])
C_1 = Translate(C + (12, 0), Vector[(0, -2)])
d'_1 = Arc(Translate[Circle[A1 + (12, 0), B + (12, 0)], Vector[(0, -2)]], B_1, C_1)
D_1 = Translate(A1 + (12, 0), Vector[(0, -4)])
E_1 = Translate(B + (12, 0), Vector[(0, -4)])
F_1 = Translate(C + (12, 0), Vector[(0, -4)])
d'_2 = Arc(Translate[Circle[A1 + (12, 0), B + (12, 0)], Vector[(0, -4)]], E_1, F_1)
G_1 = Translate(A1 + (12, 0), Vector[(0, -6)])
H_1 = Translate(B + (12, 0), Vector[(0, -6)])
I_1 = Translate(C + (12, 0), Vector[(0, -6)])
d' = Arc(Translate[Circle[A1 + (12, 0), B + (12, 0)], Vector[(0, -6)]], H_1, I_1)
J_1 = Point(d)
K_1 = Point(d'_1)
L_1 = Point(d'_2)
M_1 = Point(d')
i1' = Translate(i4, Vector[(12, 0)])
imagen1 = Translate(i3'_4, Vector[(12, 0)])
imagen2 = Translate(i2'_8, Vector[(12, 0)])
imagen3 = Translate(i1'_{12}, Vector[(12, 0)])
L1Q = Sequence(FractionText[Element[Element[Nivel, 4], k]], k, 1, 4)
L1Q1P1 = Element(L1Q, 1)
L1Q2P1 = Element(L1Q, 2)
L1Q3P1 = Element(L1Q, 3)
L1Q4P1 = Element(L1Q, 4)
L1Q1P10: L1Q1P1 + ""
L1Q1P11: L1Q1P1 + ""
L1Q1P12: L1Q1P1 + ""
L1Q1P13: L1Q1P1 + ""
L1Q1P14: L1Q1P1 + ""
L1Q1P15: L1Q1P1 + ""
L1Q1P16: L1Q1P1 + ""
L1Q1P3: L1Q1P1 + ""
L1Q1P4: L1Q1P1 + ""
L1Q1P5: L1Q1P1 + ""
L1Q1P6: L1Q1P1 + ""
L1Q1P7: L1Q1P1 + ""
L1Q1P8: L1Q1P1 + ""
L1Q1P9: L1Q1P1 + ""
L1Q2P10: L1Q2P1 + ""
L1Q2P11: L1Q2P1 + ""
L1Q2P12: L1Q2P1 + ""
L1Q2P13: L1Q2P1 + ""
L1Q2P14: L1Q2P1 + ""
L1Q2P15: L1Q2P1 + ""
L1Q2P16: L1Q2P1 + ""
L1Q2P2: L1Q2P1 + ""
L1Q2P3: L1Q2P1 + ""
L1Q2P5: L1Q2P1 + ""
L1Q2P4: L1Q2P1 + ""
L1Q2P6: L1Q2P1 + ""
L1Q2P7: L1Q2P1 + ""
L1Q2P8: L1Q2P1 + ""
L1Q2P9: L1Q2P1 + ""
L1Q3P10: L1Q3P1 + ""
L1Q3P11: L1Q3P1 + ""
L1Q3P12: L1Q3P1 + ""
L1Q3P13: L1Q3P1 + ""
L1Q3P14: L1Q3P1 + ""
L1Q3P15: L1Q3P1 + ""
L1Q3P16: L1Q3P1 + ""
L1Q3P2: L1Q3P1 + ""
L1Q3P3: L1Q3P1 + ""
L1Q3P4: L1Q3P1 + ""
L1Q3P5: L1Q3P1 + ""
L1Q3P6: L1Q3P1 + ""
L1Q3P7: L1Q3P1 + ""
L1Q3P8: L1Q3P1 + ""
L1Q3P9: L1Q3P1 + ""
L1Q4P10: L1Q4P1 + ""
L1Q4P11: L1Q4P1 + ""
L1Q4P12: L1Q4P1 + ""
L1Q4P13: L1Q4P1 + ""
L1Q4P14: L1Q4P1 + ""
L1Q4P15: L1Q4P1 + ""
L1Q4P16: L1Q4P1 + ""
L1Q4P2: L1Q4P1 + ""
L1Q4P3: L1Q4P1 + ""
L1Q4P4: L1Q4P1 + ""
L1Q4P5: L1Q4P1 + ""
L1Q4P6: L1Q4P1 + ""
L1Q4P7: L1Q4P1 + ""
L1Q4P8: L1Q4P1 + ""
L1Q4P9: L1Q4P1 + ""
L1Q1P2: L1Q1P1 + ""
u = (-0.2, 0.7)
vQ1 = Element(v, 1)
v2Q1 = FractionText(vQ1)
vQ2 = Element(v, 2)
vQ3 = Element(v, 3)
vQ4 = Element(v, 4)
hQ1 = Element(h, 1)
hQ2 = Element(h, 2)
hQ3 = Element(h, 3)
hQ4 = Element(h, 4)
v2Q2 = FractionText(vQ2)
v2Q3 = FractionText(vQ3)
v2Q4 = FractionText(vQ4)
h2Q1 = FractionText(hQ1)
h2Q2 = FractionText(hQ2)
h2Q3 = FractionText(hQ3)
h2Q4 = FractionText(hQ4)
T = (-3.6600000000000024, 5.60000000000003)
Exp1Q = Element(L1Q, 1)
Exp2Q = Element(L1Q, 2)
Exp3Q = Element(L1Q, 3)
Exp4Q = Element(L1Q, 4)
Exp1 = Text("" + (Element[L1, 1]), A13 + (12, 0) - ((Element[panelLong5, 1] * pth), ptv))
Exp2 = Text("" + (Element[L1, 2]), A9 + (12, 0) - ((Element[panelLong5, 1] * pth), ptv))
Exp3 = Text("" + (Element[L1, 3]), A5 + (12, 0) - ((Element[panelLong5, 1] * pth), ptv))
Exp4 = Text("" + (Element[L1, 4]), A1 + (12, 0) - ((Element[panelLong5, 1] * pth), ptv))
completado = If(Element[h, 1] ≟ Element[ht, 1] ∧ Element[h, 2] ≟ Element[ht, 2] ∧ Element[h, 3] ≟ Element[ht, 3] ∧ Element[h, 4] ≟ Element[ht, 4] ∧ Element[v, 1] ≟ Element[vt, 1] ∧ Element[v, 2] ≟ Element[vt, 2] ∧ Element[v, 3] ≟ Element[vt, 3] ∧ Element[v, 4] ≟ Element[vt, 4], true, false)