$\textsf\bold{%v}$

$\textsf{TRY ANOTHER}$

\text{Cambia el número de lados para explorar los nombres de los polígonos.}

\text{Desliza para animar}

$\text{ANIMATE}$

Restart

$\text{Choose one:}$

1

2

3

4

5

6

7

8

9

10

U_1 = (2, -5)
DP2: U_1 + (0, -1)
T_1 = (-2, -5)
DP1: T_1 + (0, -1)
H_2 = (-4, -7)
PT1: H_2 + (0, 2)
I_2 = (4, -7)
PT2: I_2 + (0, 2)
sides = 3 (slider from 2 to 10, step 1)
K_2 = (3, -7)
J_2 = (-3, -7)
oct, oct1, oct2, oct3, oct4, oct5, oct6, oct7, oct8, E_1, F_1, G_1, H_1, I_1, J_1 = Polygon(J_2, K_2, 8)
hex, hex1, hex2, hex3, hex4, hex5, hex6, Q, R, S, U = Polygon(H_2, I_2, 6)
G_2: (7, -7)
F_2: (-7, -7)
squa, squa1, squa2, squa3, squa4, G, H = Polygon(F_2, G_2, 4)
E = (8, -6)
D = (-8, -6)
tri, tri1, tri2, tri3, F = Polygon(D, E, 3)
I = (-5, -8)
K = (5, -8)
pent, pent1, pent2, pent3, pent4, pent5, L, M, N = Polygon(PT1, PT2, 5)
O = (-4, -8)
P = (4, -8)
hept, hept1, hept2, hept3, hept4, hept5, hept6, hept7, V, W, Z, A_1, B_1 = Polygon(O, P, 7)
C_1 = (-3, -8)
D_1 = (3, -8)
nona, nona1, nona2, nona3, nona4, nona5, nona6, nona7, nona8, nona9, K_1, L_1, M_1, N_1, O_1, P_1, Q_1 = Polygon(C_1, D_1, 9)
deca, deca1, deca2, deca3, deca4, deca5, deca6, deca7, deca8, deca9, deca10, V_1, W_1, Z_1, A_2, B_2, C_2, D_2, E_2 = Polygon(DP1, DP2, 10)
allPoly: {tri, tri, tri, squa, pent, hex, hept, oct, nona, deca}
allCentr: Zip[Centroid[p], p, allPoly] + (1, -1.5)
dilF = If(sides ≟ 3, 1.30, 1.2)
allTriSidesD = Dilate({tri1, tri2, tri3}, dilF, allCentr(3))
allTriMid = Zip(Midpoint[t], t, allTriSidesD)
allSquaSidesD = Dilate({squa1, squa2, squa3, squa4}, dilF, allCentr(4))
allSquaMid = Zip(Midpoint[t], t, allSquaSidesD)
allOctSidesD = Dilate({oct1, oct2, oct3, oct4, oct5, oct6, oct7, oct8}, dilF, allCentr(8))
allOctMid = Zip(Midpoint[t], t, allOctSidesD)
allNonaSidesD = Dilate({nona1, nona2, nona3, nona4, nona5, nona6, nona7, nona8, nona9}, dilF, allCentr(9))
allNonaMid = Zip(Midpoint[t], t, allNonaSidesD)
allHexSidesD = Dilate({hex1, hex2, hex3, hex4, hex5, hex6}, dilF, allCentr(6))
allHexMid = Zip(Midpoint[t], t, allHexSidesD)
allHeptSidesD = Dilate({hept1, hept2, hept3, hept4, hept5, hept6, hept7}, dilF, allCentr(7))
allHeptMid = Zip(Midpoint[t], t, allHeptSidesD)
A = (-8, 0)
B = (2, 0)
C = (0, 4)
T = (-5, -5)
J = (-2, 0)
P1 = (-19, -9)
P1' = Mirror(P1, yAxis)
P1'' = Mirror(P1', xAxis)
P1''' = Mirror(P1'', yAxis)
peep, p1, p1', p1'', p1''' = Polygon(P1, P1', P1'', P1''')
ddMenu: {"$\text{Pos 16,21 if on top-Complementary }$", "$\text{Supplementary }$"}
is = SelectedIndex(ddMenu)
val1List = Shuffle(Sequence[t, t, -18, 18])
countQuestion = 1
val1 = Element(val1List, Mod[countQuestion, Length[val1List]] + 1)
R_1 = (-2, -8)
S_1 = (2, -8)
aniSli = 0 (slider from 0 to allSides(sides) + 1, step 1)
allSides: {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
allPentSidesD = Dilate({pent1, pent2, pent3, pent4, pent5}, dilF, allCentr(4))
allPentMid = Zip(Midpoint[t], t, allPentSidesD)
allDecaSidesD = Dilate({deca1, deca2, deca3, deca4, deca5, deca6, deca7, deca8, deca9, deca10}, dilF, allCentr(4))
allDecaMid = Zip(Midpoint[t], t, allDecaSidesD)
pos1: {A, A, allTriMid(1), allSquaMid(1), allPentMid(1), allHexMid(1), allHeptMid(1), allOctMid(1), allNonaMid(1), allDecaMid(1)}
pos2: {A, A, allTriMid(2), allSquaMid(2), allPentMid(2), allHexMid(2), allHeptMid(2), allOctMid(2), allNonaMid(2), allDecaMid(2)}
pos3: {A, A, allTriMid(3), allSquaMid(3), allPentMid(3), allHexMid(3), allHeptMid(3), allOctMid(3), allNonaMid(3), allDecaMid(3)}
pos4: {A, A, A, allSquaMid(4), allPentMid(4), allHexMid(4), allHeptMid(4), allOctMid(4), allNonaMid(4), allDecaMid(4)}
pos5: {A, A, A, A, allPentMid(5), allHexMid(5), allHeptMid(5), allOctMid(5), allNonaMid(5), allDecaMid(5)}
pos6: {A, A, A, A, A, allHexMid(6), allHeptMid(6), allOctMid(6), allNonaMid(6), allDecaMid(6)}
pos7: {A, A, A, A, A, A, allHeptMid(7), allOctMid(7), allNonaMid(7), allDecaMid(7)}
pos8: {A, A, A, A, A, A, A, allOctMid(8), allNonaMid(8), allDecaMid(8)}
pos9: {A, A, A, A, A, A, A, A, allNonaMid(9), allDecaMid(9)}
pos10: {A, A, A, A, A, A, A, A, A, allDecaMid(10)}
textNoPoly: "\text{No hay polígonos de " + (LaTeX[sides]) + " lados.}"
textSideNo: "" + (LaTeX[sides]) + ""
tabOrder: {textQuestion, btnMinus, btnPlus, textNoPoly, textAllIn, aniSli, label1, label2, label3, label4, label5, label6, label7, label8, label9, label10}
textPoly: "\text{" + (LaTeX[If[sides ≟ 3, "\bold{Tri}ángulo", sides ≟ 4, "\bold{Cuadri}látero", sides ≟ 5, "\bold{Pent}ágono", sides ≟ 6, "\bold{Hex}ágono", sides ≟ 7, "\bold{Hept}ágono", sides ≟ 8, "\bold{Oct}ógono", sides ≟ 9, "\bold{Ene}ágono\\(o \bold{non}ágono)", "\bold{Dec}ágono"]]) + "}"