Vértices

Salto

Tipo

Triángulo

Cuadrado

Pentágono

Pentágono estrellado

Polígonos

MCD

v1 = 7 (slider from 2 to 20, step 1)
s0 = 1 (slider from 0 to 1, step 0.01)
O = (4.72, 0.48)
c = Circle(O, 5.7)
E = Point(c)
v: round(v1)
lista2 = Sequence(E, t, 1, 18)
s: round(((v - 3) / 2 * s0) + 1)
lista1 = Sequence(Rotate[E, (((t * s) * 2) * 3.141592653589793 / v), O], t, 0, v + s)
C = Point(c)
Plato1 = (-4.28, -8.68)
Plato2: Plato1 + (900 / 50, 0)
texto1: "Nº vértices = " + v
texto2: "Nº saltos = " + s
m = GCD(v, s)
ps1s = Sequence(Segment[Rotate[E, ((t * 2) * 3.141592653589793 / v), O], Mirror[Rotate[E, ((t * 2) * 3.141592653589793 / v), O], O]], t, 0, v / 2 - 1)
salto = Join({First[lista1, v], First[lista2, 20 - v]})
pSalto, pS01, pS02, pS03, pS04, pS05, pS06, pS07, pS08, pS09, pS10, pS11, pS12, pS13, pS14, pS15, pS16, pS17, pS18, pS19, pS20 = Polygon(Element[salto, 1], Element[salto, 2], Element[salto, 3], Element[salto, 4], Element[salto, 5], Element[salto, 6], Element[salto, 7], Element[salto, 8], Element[salto, 9], Element[salto, 10], Element[salto, 11], Element[salto, 12], Element[salto, 13], Element[salto, 14], Element[salto, 15], Element[salto, 16], Element[salto, 17], Element[salto, 18], Element[salto, 19], Element[salto, 20])
lista1' = Sequence(Rotate[E, (360° * t / v), O], t, 0, v + s)
sSalto = Sequence(Segment[Element[lista1', t], Element[lista1', t + s]], t, 1, v)
A2 = 2
A3 = 3
B2 = 1
B3 = 1
A4 = 4
B4 = 1
A5 = 4
B5 = 2
A6 = 5
B6 = 1
A7 = 5
B7 = 2
A8 = 6
B8 = 1
A9 = 6
B9 = 2
A10 = 6
B10 = 3
A11 = 7
B11 = 1
A12 = 7
B12 = 2
A13 = 7
B13 = 3
A14 = 8
B14 = 1
A15 = 8
B15 = 2
A16 = 8
B16 = 3
A17 = 8
B17 = 4
A18 = 9
B18 = 1
A19 = 9
B19 = 2
A20 = 9
B20 = 3
A21 = 9
B21 = 4
A22 = 10
B22 = 1
A23 = 10
B23 = 2
A24 = 10
B24 = 3
A25 = 10
B25 = 4
A26 = 10
B26 = 5
C2 = 1
C3 = 1
C4 = 1
C5 = 2
C6 = 1
C7 = 1
D2 = 0
D3 = 1
D4 = 1
D5 = 0
D6 = 1
D7 = 1