$\textsf{NEW POLYGON}$

Restart

$\text{Choose one:}$

$\textcolor{#6557D2}\textsf{Drag to select}$

\text{Vertices}

\text{Angles}

\text{Use the slider to explore the polygon.}

\text{Sides}

allFigTypes = Shuffle(1…13)
countQuestion = 813
T = (-5, -5)
ddMenu: {"$\text{-- Select one -- }$", "$\text{Dot plot }$", "$\text{Data set}$"}
is: SelectedIndex[ddMenu] - 1
figType = Element(allFigTypes, Mod[countQuestion, Length[allFigTypes]] + 1)
show = 0 (slider from 0 to 3, step 1)
speed: 0
A = Point(xAxis)
B = Point(xAxis)
fig1, f, g, h, C = Polygon(A, B, 3)
ang1: {Angle[fig1]}
vert1: {Vertex[fig1]}
D = (-9, 6)
fig2, d, a, b = Polygon(A, B, D)
vert2: {Vertex[fig2]}
ang2: {Angle[fig2]}
E = (-6, -2)
F = (10, 5)
fig3, c, e, f_1 = Polygon(E, F, C)
ang3: {Angle[fig3]}
vert3: {Vertex[fig3]}
G = (-5, -3)
H = (5, -3)
fig4, i, j, k, l, I, J = Polygon(G, H, 4)
vert4: {Vertex[fig4]}
ang4: {Angle[fig4]}
K = (-12, 5)
fig5, g_1, h_1, f_2, k_1 = Polygon(G, H, F, K)
ang5: {Angle[fig5]}
vert5: {Vertex[fig5]}
fig6, d_1, g_2, f_3, c_1 = Polygon(D, G, F, C)
vert6: {Vertex[fig6]}
ang6: {Angle[fig6]}
fig7, d_2, h_2, b_1, i_1 = Polygon(D, H, B, I)
ang7: {Angle[fig7]}
vert7: {Vertex[fig7]}
L = (-2, -4)
M = (5, -2)
fig8, m, n, p, q, r, N, O, P = Polygon(L, M, 5)
vert8: {Vertex[fig8]}
ang8: {Angle[fig8]}
fig9, g_3, m_1, c_2, j_1, p_1 = Polygon(G, M, C, J, P)
ang9: {Angle[fig9]}
vert9: {Vertex[fig9]}
Q = (1, 3)
fig10, j_2, p_2, h_3, q_1, n_1 = Polygon(J, P, H, Q, N)
vert10: {Vertex[fig10]}
ang10: {Angle[fig10]}
fig11, s, t, l_1, r_1, s_1, t_1, R, S, U, V = Polygon(N, C, 6)
ang11: {Angle[fig11]}
vert11: {Vertex[fig11]}
fig12, e_1, l_2, v, n_2, j_3, k_2 = Polygon(E, L, V, N, J, K)
vert12: {Vertex[fig12]}
ang12: {Angle[fig12]}
W = (-7, 5)
Z = Point(xAxis)
fig13, e_2, h_4, q_2, i_2, w, z_1 = Polygon(E, H, Q, I, W, Z)
ang13: {Angle[fig13]}
vert13: {Vertex[fig13]}
textNo: "\text{" + (LaTeX[If[figType ≤ 3, "3", 4 ≤ figType ≤ 7, "4", 8 ≤ figType ≤ 10, "5", "6"]]) + "}"
textPoli: "\text{" + (LaTeX[If[figType ≤ 3, "triangle", 4 ≤ figType ≤ 7, "quadrilateral", 8 ≤ figType ≤ 10, "pentagon", "hexagon"]]) + "}"
hex1 = Segment(R, S)
hex2 = Segment(S, U)
hex3 = Segment(N, C)
hex4 = Segment(U, V)
hex5 = Segment(C, R)
hex6 = Segment(V, N)
qua1 = Segment(G, H)
qua2 = Segment(H, I)
qua3 = Segment(I, J)
qua4 = Segment(J, G)
penta1 = Segment(L, M)
penta2 = Segment(M, N)
penta3 = Segment(N, O)
penta4 = Segment(O, P)
penta5 = Segment(P, L)
textAllIn: "\text{A " + (LaTeX[textPoli]) + " has " + (LaTeX[textNo]) + " " + (LaTeX[If[show ≟ 1, "vertices", show ≟ 2, "angles", "sides"]]) + ".}"