I

II

III

V

IV

VI

VII

VIII

IX

X

XI

XII

Triángulo

Cuadrado

Pentágono

Hexágono

Decágono

Dodecágono

FIGURA

MINUTOS

MINUTOS

Estrella 5 puntas

C3 = 45
B3 = 15
B4 = 0
O = (5.66817, 0.5001)
r = 4.9
A0: O + (0, r)
m = 15 (slider from 1 to 59, step 1)
vueltas: 60 / GCD[60, round(m)]
c = Circle(O, A0)
B = Point(c)
lista1 = Sequence(Rotate[B, (((6 * k) * round(m)))°, O], k, 1, vueltas - 1)
lista2 = Sequence(Segment[Element[lista1, k], Element[lista1, k + 1]], k, 1, Length[lista1] - 1)
texto1: "Minutos = " + (round(m))
B0: O + (0, r + 0.3)
lista3 = Sequence(Segment[Rotate[A0, ((2 * k) * π / 60), O], Rotate[B0, ((2 * k) * π / 60), O]], k, 1, 60)
A00: O + (0, r + 0.05)
lista4 = Sequence(Segment[Rotate[A00, ((2 * k) * π / 60), O], Rotate[B0, ((2 * k) * π / 60), O]], k, 0, 55, 5)
lista2b: {Segment[B, Element[lista1, Length[lista1]]]}
lista2c: {Segment[B, Element[lista1, 1]]}
B00: B0 + (0, 0.05)
c2 = Circle(O, B00)
B2 = 0
C2 = 0
C4 = 0
B5 = 0
C5 = 0
B6 = 0
C6 = 0
B7 = 0
C7 = 0
B9 = 0
C9 = 0
D4 = If(B4 ≟ 12 ∧ C4 ≟ 48 ∨ B4 ≟ 48 ∧ C4 ≟ 12, "Muy Bien", "?")
D5 = If(B5 ≟ 10 ∧ C5 ≟ 50 ∨ B5 ≟ 50 ∧ C5 ≟ 10, "Muy Bien", "?")
D6 = If(B6 ≟ 6 ∧ C6 ≟ 54 ∨ B6 ≟ 54 ∧ C6 ≟ 6, "Muy Bien", "?")
D7 = If(B7 ≟ 5 ∧ C7 ≟ 55 ∨ B7 ≟ 55 ∧ C7 ≟ 5, "Muy Bien", "?")
D9 = If(B9 ≟ 24 ∧ C9 ≟ 36 ∨ B9 ≟ 36 ∧ C9 ≟ 24, "Muy Bien", "?")
D2 = If(B2 ≟ 20 ∧ C2 ≟ 40 ∨ B2 ≟ 40 ∧ C2 ≟ 20, "Muy Bien", "?")