nº de lados

triângulo

quadrilátero

pentágono

hexágono

heptágono

octógono

eneágono

decágono

undecágono

dodecágono

Estudando a classificação dos 
Polígonos convexos

Desenvolvido por PPGECIM/ULBRA

n = 3 (slider from 3 to 12, step 1)
lista2 = Sequence(Random[(-2 * n) + 30, (2 * n) - 30], i, 1, n - 1)
O2 = Point(xAxis)
B1 = Point(xAxis)
O1 = Intersect(xAxis, yAxis)
A1 = Point(xAxis)
lista1 = Sequence(Rotate[A1, ((α * 360) * ° / n), O1], α, 1, n - 1)
pol1 = Polygon(Append[A1, lista1])
lista3 = Sequence(Rotate[B1, ((α * 360) * ° / n) + (° * Element[lista2, α]), O2], α, 1, n - 1)
pol2 = Polygon(Append[B1, lista3])
texto1: "Polígono regular com " + n + " lados"
texto2: "Polígono irregular com " + n + " lados"
offset = Point({14, 6})
A: (x(offset) - 0.2, y(offset) - ((n - 3) * 0.5) + 0.1)