Centros

Circulos

Puntos

Angulos

¡Enhorabuena!
 Está perfecto

 Selecciona 
   el nivel

Otro ejercicio

1

2

3

4

1

2

3

4

A11 = 5
A10 = 4
A9 = 3
A8 = 2
A7 = 1
A = (11.84, 1.16)
B = (2.42, -3.58)
r = 0.6 (slider from 0 to 1, step 0.1)
Lcirculos1 = Sequence(Circle[B + (j, 0), r], j, 1, 10, 2)
B10 = Element(Lcirculos1, A10)
B24 = Point(B10)
B17 = Center(B10)
B8 = Element(Lcirculos1, A8)
B22 = Point(B8)
B15 = Center(B8)
B7 = Element(Lcirculos1, A7)
B21 = Point(B7)
B14 = Center(B7)
B11 = Element(Lcirculos1, A11)
B25 = Point(B11)
B18 = Center(B11)
B9 = Element(Lcirculos1, A9)
B23 = Point(B9)
B16 = Center(B9)
Lcirculos5 = Sequence(Circle[B + (j + 4, 8), r], j, 1, 2, 2)
F7 = Element(Lcirculos5, A7)
F21 = Point(F7)
F14 = Center(F7)
Lcirculos4 = Sequence(Circle[B + (j + 3, 6), r], j, 1, 4, 2)
E8 = Element(Lcirculos4, A8)
E22 = Point(E8)
E15 = Center(E8)
E7 = Element(Lcirculos4, A7)
E21 = Point(E7)
E14 = Center(E7)
Lcirculos3 = Sequence(Circle[B + (j + 2, 4), r], j, 1, 6, 2)
D9 = Element(Lcirculos3, A9)
D23 = Point(D9)
D16 = Center(D9)
D8 = Element(Lcirculos3, A8)
D22 = Point(D8)
D15 = Center(D8)
D7 = Element(Lcirculos3, A7)
D21 = Point(D7)
D14 = Center(D7)
Lcirculos2 = Sequence(Circle[B + (j + 1, 2), r], j, 1, 8, 2)
C10 = Element(Lcirculos2, A10)
C24 = Point(C10)
C17 = Center(C10)
C9 = Element(Lcirculos2, A9)
C23 = Point(C9)
C16 = Center(C9)
C8 = Element(Lcirculos2, A8)
C22 = Point(C8)
C15 = Center(C8)
C7 = Element(Lcirculos2, A7)
C21 = Point(C7)
C14 = Center(C7)
Lnumeros: {-10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
nivel = 1 (slider from 1 to 4, step 1)
A1 = Element(Lnumeros, Random[1, 21] + nivel - nivel)
A2 = Element(Lnumeros, Random[1, 21] + nivel - nivel)
B1: A1 + A2
A3 = Element(Lnumeros, Random[1, 21] + (0 * nivel))
B2: A2 + A3
C1: B1 + B2
A4 = Element(Lnumeros, Random[1, 21] + (0 * nivel))
B3: A3 + A4
C2: B2 + B3
D1: C1 + C2
A5 = Element(Lnumeros, Random[1, 21] + (0 * nivel))
Lfila1: {A1, A2, A3, A4, A5}
min1 = Min(Lfila1)
max1: Max[Lfila1] - If[Min[Lfila1]  <  0, Min[Lfila1], 0] + 1
B31 = Text(floor((max1 * Arc[B10, B17 - (r, 0), B24] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0], B17 - If[floor((max1 * Arc[B10, B17 - (r, 0), B24] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  -9, (0.5, 0.2), If[(floor((max1 * Arc[B10, B17 - (r, 0), B24] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  0) ∨ (floor((max1 * Arc[B10, B17 - (r, 0), B24] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
B29 = Text(floor((max1 * Arc[B8, B15 - (r, 0), B22] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0], B15 - If[floor((max1 * Arc[B8, B15 - (r, 0), B22] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  -9, (0.5, 0.2), If[(floor((max1 * Arc[B8, B15 - (r, 0), B22] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  0) ∨ (floor((max1 * Arc[B8, B15 - (r, 0), B22] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
B28 = Text(floor((max1 * Arc[B7, B14 - (r, 0), B21] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0], B14 - If[floor((max1 * Arc[B7, B14 - (r, 0), B21] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  -9, (0.5, 0.2), If[(floor((max1 * Arc[B7, B14 - (r, 0), B21] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  0) ∨ (floor((max1 * Arc[B7, B14 - (r, 0), B21] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
B32 = Text(floor((max1 * Arc[B11, B18 - (r, 0), B25] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0], B18 - If[floor((max1 * Arc[B11, B18 - (r, 0), B25] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  -9, (0.5, 0.2), If[(floor((max1 * Arc[B11, B18 - (r, 0), B25] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  0) ∨ (floor((max1 * Arc[B11, B18 - (r, 0), B25] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
B30 = Text(floor((max1 * Arc[B9, B16 - (r, 0), B23] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0], B16 - If[floor((max1 * Arc[B9, B16 - (r, 0), B23] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  -9, (0.5, 0.2), If[(floor((max1 * Arc[B9, B16 - (r, 0), B23] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0]  <  0) ∨ (floor((max1 * Arc[B9, B16 - (r, 0), B23] / (((2 * 3.141592653589793) * r)))) + If[min1  <  0, min1, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
B4: A4 + A5
Lfila2: {B1, B2, B3, B4}
Lsolfila2 = Sequence(Text[Element[Lfila2, k], A + (k + 0.5, 1.5)], k, 1, 4)
min2 = Min(Lfila2)
max2: Max[Lfila2] - If[Min[Lfila2]  <  0, Min[Lfila2], 0] + 1
C31 = Text(floor((max2 * Arc[C10, C17 - (r, 0), C24] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0], C17 - If[floor((max2 * Arc[C10, C17 - (r, 0), C24] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  -9, (0.5, 0.2), If[(floor((max2 * Arc[C10, C17 - (r, 0), C24] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  0) ∨ (floor((max2 * Arc[C10, C17 - (r, 0), C24] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
C30 = Text(floor((max2 * Arc[C9, C16 - (r, 0), C23] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0], C16 - If[floor((max2 * Arc[C9, C16 - (r, 0), C23] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  -9, (0.5, 0.2), If[(floor((max2 * Arc[C9, C16 - (r, 0), C23] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  0) ∨ (floor((max2 * Arc[C9, C16 - (r, 0), C23] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
C29 = Text(floor((max2 * Arc[C8, C15 - (r, 0), C22] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0], C15 - If[floor((max2 * Arc[C8, C15 - (r, 0), C22] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  -9, (0.5, 0.2), If[(floor((max2 * Arc[C8, C15 - (r, 0), C22] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  0) ∨ (floor((max2 * Arc[C8, C15 - (r, 0), C22] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
C28 = Text(floor((max2 * Arc[C7, C14 - (r, 0), C21] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0], C14 - If[floor((max2 * Arc[C7, C14 - (r, 0), C21] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  -9, (0.5, 0.2), If[(floor((max2 * Arc[C7, C14 - (r, 0), C21] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0]  <  0) ∨ (floor((max2 * Arc[C7, C14 - (r, 0), C21] / (((2 * 3.141592653589793) * r)))) + If[min2  <  0, min2, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
C3: B3 + B4
Lfila3: {C1, C2, C3}
Lsolfila3 = Sequence(Text[Element[Lfila3, k], A + (k + 1, 2)], k, 1, 3)
min3 = Min(Lfila3)
max3: Max[Lfila3] - If[Min[Lfila3]  <  0, Min[Lfila3], 0] + 1
D30 = Text(floor((max3 * Arc[D9, D16 - (r, 0), D23] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0], D16 - If[floor((max3 * Arc[D9, D16 - (r, 0), D23] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  -9, (0.5, 0.2), If[(floor((max3 * Arc[D9, D16 - (r, 0), D23] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  0) ∨ (floor((max3 * Arc[D9, D16 - (r, 0), D23] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
D29 = Text(floor((max3 * Arc[D8, D15 - (r, 0), D22] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0], D15 - If[floor((max3 * Arc[D8, D15 - (r, 0), D22] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  -9, (0.5, 0.2), If[(floor((max3 * Arc[D8, D15 - (r, 0), D22] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  0) ∨ (floor((max3 * Arc[D8, D15 - (r, 0), D22] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
D28 = Text(floor((max3 * Arc[D7, D14 - (r, 0), D21] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0], D14 - If[floor((max3 * Arc[D7, D14 - (r, 0), D21] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  -9, (0.5, 0.2), If[(floor((max3 * Arc[D7, D14 - (r, 0), D21] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0]  <  0) ∨ (floor((max3 * Arc[D7, D14 - (r, 0), D21] / (((2 * 3.141592653589793) * r)))) + If[min3  <  0, min3, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
D2: C2 + C3
E1: D1 + D2
Lnivel4sol: {Text[A1], Text[A2], Text[A4], Text[A5], Text[B2], Text[B3], Text[C1], Text[C3], Text[D1], Text[E1]}
Lfila5: {E1}
Lsolfila5 = Sequence(Text[Element[Lfila5, k], A + (k + 2, 3)], k, 1, 1)
max5: abs(Max[Lfila5]) + 1
F28 = Text(floor((max5 * Arc[F7, F14 - (r, 0), F21] / (((2 * 3.141592653589793) * r)))) + If[Max[Lfila5]  <  0, Max[Lfila5], 0], F14 - If[floor((max5 * Arc[F7, F14 - (r, 0), F21] / (((2 * 3.141592653589793) * r)))) + If[Max[Lfila5]  <  0, Max[Lfila5], 0]  <  -9, (0.5, 0.2), If[(floor((max5 * Arc[F7, F14 - (r, 0), F21] / (((2 * 3.141592653589793) * r)))) + If[Max[Lfila5]  <  0, Max[Lfila5], 0]  <  0) ∨ (floor((max5 * Arc[F7, F14 - (r, 0), F21] / (((2 * 3.141592653589793) * r)))) + If[Max[Lfila5]  <  0, Max[Lfila5], 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
Lfila4: {D1, D2}
Lsolfila4 = Sequence(Text[Element[Lfila4, k], A + (k + 1.5, 2.5)], k, 1, 2)
Lnivel1sol = Join({Lsolfila2, Lsolfila3, Lsolfila4, Lsolfila5})
Lnivel2sol = Join({{Text[A3], Text[A5], Text[B1], Text[B3]}, Lsolfila3, Lsolfila4, Lsolfila5})
Lnivel3sol = Join({{Text[A3], Text[A5], Text[B1], Text[B2], Text[B3], Text[C1], Text[C2]}, Lsolfila4, Lsolfila5})
min4 = Min(Lfila4)
max4: Max[Lfila4] - If[Min[Lfila4]  <  0, Min[Lfila4], 0] + 1
E29 = Text(floor((max4 * Arc[E8, E15 - (r, 0), E22] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0], E15 - If[floor((max4 * Arc[E8, E15 - (r, 0), E22] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0]  <  -9, (0.5, 0.2), If[(floor((max4 * Arc[E8, E15 - (r, 0), E22] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0]  <  0) ∨ (floor((max4 * Arc[E8, E15 - (r, 0), E22] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
E28 = Text(floor((max4 * Arc[E7, E14 - (r, 0), E21] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0], E14 - If[floor((max4 * Arc[E7, E14 - (r, 0), E21] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0]  <  -9, (0.5, 0.2), If[(floor((max4 * Arc[E7, E14 - (r, 0), E21] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0]  <  0) ∨ (floor((max4 * Arc[E7, E14 - (r, 0), E21] / (((2 * 3.141592653589793) * r)))) + If[min4  <  0, min4, 0] > 9), (0.3, 0.2), (0.1, 0.2)]])
Lnivel4prueba: {B28, B29, B31, B32, C29, C30, D28, D30, E28, F28}
Lnivel2prueba: {B30, B32, C28, C30, D28, D29, D30, E28, E29, F28}
Lnivel3prueba: {B30, B32, C28, C29, C30, D28, D29, E28, E29, F28}
Lnivel1prueba: {C28, C29, C30, C31, D28, D29, D30, E28, E29, F28}
Lsolfila1 = Sequence(Text[Element[Lfila1, k], A + (k, 1)], k, 1, 5)
texto1: A1 + ""
texto3: A3 + ""
solucion = If(Lnivel1sol ≟ Lnivel1prueba ∨ Lnivel2sol ≟ Lnivel2prueba ∨ Lnivel3sol ≟ Lnivel3prueba ∨ Lnivel4sol ≟ Lnivel4prueba, 1, 0)
texto4: A4 + ""
texto5: A5 + ""
texto2: A2 + ""
texto7: B2 + ""
texto8: B4 + ""
texto6: C3 + ""
texto9: B1 + ""
texto10: C2 + ""
texto11: D2 + ""
texto12: "Nivel: " + nivel + ""
ver1:0
ver2:1
ver3:1
ver4:1