Destacar diagonales de un vértice

n

d

Mostrar tabla de valores

n = 24 (slider from 3 to 24, step 1)
nn: round(n)
A: (Corner[2.0] + Corner[4.0]) / 2.0 - (1.0, 0.0)
alto: y(Corner[4.0] - Corner[1.0])
ancho: x(Corner[3.0] - Corner[4.0])
radio: 0.45 * Min[alto, ancho]
lista1 = Sequence(Rotate[A + (radio, 0.0), s * 2.0 * 3.141592653589793 / nn, A], s, 0.0, nn - 1.0)
a = false
b = false
lista2 = Sequence(Sequence[Segment[Element[lista1, s], Element[lista1, t]], t, 1.0, nn], s, 1.0, nn)
tablahoriz = Sequence(Segment[(12.5, 6.9 - 0.5 * k), (14.7, 6.9 - 0.5 * k)], k, 2.0, nn + 1.0)
tablavert = Sequence(Segment[(12.5 + k * 1.1, 5.9), (12.5 + k * 1.1, 5.9 - 0.5 * (nn - 1.0))], k, 0.0, 2.0)
lista3 = Sequence(Segment[Element[lista1, 1.0], Element[lista1, t]], t, 3.0, nn - 1.0)
listatab1x = Sequence(Text[k, (13.0, 6.5 - 0.5 * k)], k, 3.0, nn)
listatab1y = Sequence(Text[k - 3.0, (14.0, 6.5 - 0.5 * k)], k, 3.0, nn)
texto3: "n = " + nn