Nº triangular

Nº cuadrado

Nº rectangular

Nº pentagonal

Nº hexagonal

Tabla de valores

n

T(n)

C(n)

R(n)

P(n)

H(n)

Otros poligonales

Rectangular

Triangular

Cuadrado

Pentagonal

Hexagonal

Otros

Rectangular

Triangular

Cuadrado

Pentagonal

Hexagonal

Otros

mmm = 1 (slider from 1 to 10, step 1)
n: round(mmm)
cuadrado1 = Sequence(Sequence[Circle[(k - 2, 6 - s), 0.5], k, 1, n], s, 1, n)
a = false
b = false
c = false
texto1: "T(" + n + ") = " + ((n * (n + 1) / 2))
texto2: "C(" + n + ") = " + ((n * n))
texto3: "R(" + n + ") = " + ((n * (n + 1)))
texto4: "n = " + n
listacentrospenta = Sequence(Centroid[Polygon[(-1, -4), (-1 + k, (-4)), 5]], k, 1, n)
d = false
P1 = (-1, -4)
pentagonal1 = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / 5), Element[listacentrospenta, k]], s, 1, 5], k, 0, n - 1)
texto5: "P(" + n + ") = " + ((n * ((3 * n) - 1) / 2))
listacentroshexa = Sequence(Centroid[Polygon[(-1, -4), (-1 + k, (-4)), 6]], k, 1, n)
hexagonal1 = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / 6), Element[listacentroshexa, k]], s, 1, 6], k, 0, n - 1)
hexagonal2 = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), 60*°, Element[listacentroshexa, k]], 6], k, 0, n - 1)
e = false
hexagonal3 = Sequence(Sequence[Sequence[Element[Element[hexagonal1, k], s] + (t * (Element[Element[hexagonal1, k], s + 1] - Element[Element[hexagonal1, k], s]) / (k - 1)), t, 1, k - 1], s, 1, n + 1], k, 1, n)
texto6: "H(" + n + ") = " + ((n * ((4 * n) - 2) / 2))
P2: P1
f = false
A = (2.88, -3.82)
B = (-3.54, -5.16)
C = (-3.62, 0.66)
D = (-3.56, 0.38)
E = (7.52, -3.94)
rectangular1 = Sequence(Sequence[Circle[(k - 2, 6 - s + (0 * s)), 0.5 + (0 * n)], k, 1, n + 1], s, 1, n)
triangular1 = Sequence(Sequence[Circle[(k - 2, 6 - s + (0 * n)), 0.5], k, 1, s], s, 1, n)
l = 7 (slider from 3 to 12, step 1)
listacentrospoli = Sequence(Centroid[Polygon[(-1, -4), (-1 + k, (-4)), l]], k, 1, n)
poligonal1 = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / l) + (0 * s), Element[listacentrospoli, k]], s, 1, l], k, 0, n - 1)
g = false
P3: P1
Polin: (((l - 2) * n^(2)) - ((l - 4) * n)) / 2
texto9: "P" + l + "(n)"
texto10: "P" + l + "(" + n + ") = " + Polin
pentagonal3 = Sequence(Sequence[Sequence[Element[Element[pentagonal1, k], s] + (t * (Element[Element[pentagonal1, k], s + 1] - Element[Element[pentagonal1, k], s]) / (k - 1)), t, 1, k - 1], s, 1, n], k, 2, n)
poligonal2 = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), (360 * ° / l), Element[listacentrospoli, k + (0 * k)]], l], k, 0, n - 1)
pentagonal3a = Sequence(Sequence[Sequence[Element[Element[pentagonal1, k], s] + (t * (Element[Element[pentagonal1, k], s + 1] - Element[Element[pentagonal1, k], s]) / (k - 1)), t, 1, k - 1], s, 1, n], k, 2, n)
hexagonal3a = Sequence(Sequence[Sequence[Element[Element[hexagonal1, k], s] + (t * (Element[Element[hexagonal1, k], s + 1] - Element[Element[hexagonal1, k], s]) / (k - 1)), t, 1, k - 1], s, 1, n + 1], k, 1, n)
pentagonal1a = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / 5), Element[listacentrospenta, k]], s, 1, 5], k, 1, n - 1)
pentagonal2a = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), 72*°, Element[listacentrospenta, k]], 5], k, 1, n - 1)
pentagonal2 = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), 72*°, Element[listacentrospenta, k]], 5], k, 0, n - 1)
hexagonal1a = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / 6), Element[listacentroshexa, k]], s, 1, 6], k, 1, n - 1)
hexagonal2a = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), 60*°, Element[listacentroshexa, k]], 6], k, 1, n - 1)
poligonal1a = Sequence(Sequence[Rotate[(-1, -4), ((s * 360) * ° / l) + (0 * s), Element[listacentrospoli, k]], s, 1, l], k, 1, n - 1)
poligonal2a = Sequence(Polygon[(-1, -4), Rotate[(-1, -4), (360 * ° / l), Element[listacentrospoli, k + (0 * k)]], l], k, 1, n - 1)
poligonal3a = Sequence(Sequence[Sequence[Element[Element[poligonal1, k], s] + (t * (Element[Element[poligonal1, k], s + 1 + (0 * s)] - Element[Element[poligonal1, k + (0 * s)], s]) / (k - 1)), t, 1, k - 1], s, 1, l], k, 1, n)
texto8: "Nº lados: " + l + ""
tablahoriz = Sequence(Segment[(10, 5.8 - (0.8 * k)), (12.2, 5.8 - (0.8 * k))], k, 1, 12)
tablavert = Sequence(Segment[(10 + (k * 1.1), 5), (10 + (k * 1.1), 5 - (0.8 * 11))], k, 0, 2)
listatab1x = Sequence(Text[k, (10.5, 4.5 - (0.8 * k))], k, 1, 10)
listatab1y = Sequence(Text[(k * (k + 1) / 2), (11.5, 4.5 - (0.8 * k))], k, 1, 10)
listatab2y = Sequence(Text[k^(2), (11.5, 4.5 - (0.8 * k))], k, 1, 10)
listatab3y = Sequence(Text[(k * (k + 1)), (11.5, 4.5 - (0.8 * k))], k, 1, 10)
listatab4y = Sequence(Text[(k * ((3 * k) - 1) / 2), (11.5, 4.5 - (0.8 * k))], k, 1, 10)
listatab5y = Sequence(Text[(k * ((4 * k) - 2) / 2), (11.5, 4.5 - (0.8 * k))], k, 1, 10)
listatabTy = Sequence(Text[(((l - 2) * k^(2)) - ((l - 4) * k)) / 2, (11.5, 4.5 - (0.8 * k))], k, 1, 10)